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EXAMPLES  OF  ALL  CURRENTLY  AVAILABLE  YUL  DIRECTOR  CARD  TYPeS.  ON  THIS  PaGeJ  ASSeMBLY-TYPe  DIRECTORS. 


FROM  REVISION  2 OF  AGC<+  PROGRAM  BJGS  BY  3 JNNY 

assemble  version  newseg  BY  new  feller 

FROM  REVISION  0 OF  SACO  SEGMENT  OLDSeG  BY  OLD  FeLLeR 

ASSEMBLE  VERSION  PINBaLL  by  a.  I.  green 

FROM  REVISION  22  OF  BL<2  SUBROUTINE  BaLLPeEN  BY  "POP..  BUMPER 


V. 


FROM  PICkYOURpILENAME 
assemble  TRANSFERRED  agc 
FROM  DISCTWILIIGHT 
ASSEMBLE  TRANSFERRED  sac 
FROM  W ASPART O'" APRoG 
UPGRADE  TO  REVISION  123 

REPRINT  REVISION  15  OF 
FOR  PIERRE  5AUNGER 


(required  with  version  assembly) 
(required  with  version  assembly) 
(required  with  version  assembly) 

(see  transfer  verb  on  next  page) 

(REQUIRED  WITH  TRANSFERRED  ASSEMBLY) 

(REQUIRED  WITH  TRANSFERRED  ASSEMBLY) 

(REQUIRED  WITH  TRANSFERRED  ASSEMBLY) 
(OPTIONAL  WITH  TRANSFERRED  ASSEMBLY) 


(REQUIRED  WITH  REPRINT) 

(REQUIRED  WITH  REPRINT) 

(REQUIRED  WITH  REPRINT) 

"Reprint"  Regenerates  an  assembly  listing  by  going  through  an  entire  assembly,  but  without  macing  any 


FOR  DENNISON 

REPRINT  REVISION  o OF  SACO  SUBROUTINE  CARIES  BY  TODTM  DECAY 
FOR  NOYS  £.  BORING,  D.D.S. 


A SUBROUTINE  THAT  HAS  BeeN  CALLeD  BY  AN  exIStING  PROGRAM  CANNOT  Be  DELETED. 

CONTROL  NEW  SACO  SUBROUTINE  BICUS3ID  BY  L-FTY  CHOMP 

authorized  by  percival  u.  nibble  (required  with  subroutine  control) 

decontrol  revision  256  of  blk2  subroutine  unbridle  3v  uim  orgies 

AUTHORIZED  by  IMA  NOH  PURITAN  (REQUIRED  WItH  SUBROUTINE  DECONTROL) 

a controlled  subroutine  cannot  be  either  Revised  or  deleted,  as  with  Reprint,  the  subdirector  is  not 
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POO 66  EXaMP.ES  OF  YUL  DIRECTOR  CARD  TYPES  CONCLUDED.  3\)  THIS  PaGE:  nOn-ASSEMBLY  AND  INTERNAL-USE  DIRECTORS. 

R00672  


R0068  *Y  YUL  MANUFACTURE  REVISION  i oF  AGC  PROGRAM  SUNSET  3Y  AS51A  (SEE  SeCtION  ON  BLK2/AGC  SUBDI RrCTORS) 

R00691  *Y  ANDY  MANUFACTURE  NEW  ACC  SEGMENT  ZOT  BY  UOHNNY  HArt 


R0070  "NOTE!  MANUFACTURING'  MAY  Be  DONE  ONLY  ON  GOOD  OR  FAIR  PROGnAM  OR  SeGMeNt  ASSEMBLIES.  AN  OLD  REVISION  CAN  Be 
R00702  ^MANUFACTURED  IF  IT  IS  ON  THE  1800'S  DISC. 


R007 I Y LYNN  PRINT  REVISION  2 OF  AGCA  PROGRAM  3UGS  BY  3UNN Y 

R0072  Y LYNN  PUNCH  REVISION  2 OF  AGC4  PROGRAM  3UGS  BY  3UNNY 

R0073  Y LYNN.  PRINT*  PUNCH  REVISION  2 OF  AGC*  PROGRAM  3UGS  BY  BUNNY 

R0074  Y LYNN.  PUNCH.  PRINT  REVISION  2 OF  AGC4  PROGRAM  3UGS  BY  BUNNY 

R007A1  *Y  FROZ  PUNcH.  PRINT  REVISION  0 OF  BLK2  SEGMENT  FRAMMIS  BY  OtNGBAT 

R0075  Y LYNN  PRINT*  PUNCH  N£W  AGCA  SUBROUTINE  INTPRET  BY  MUNTZ 


(PRINT  CARD  IMAGES  ONLY*  LIKE  A07) 
(PUNCH  CARDS  SUITABLE  FOR  ASSEMBLY 

input*  see  bottom  of  page  5) 


(I.E.*  PRINT  OR  PUNCH  OR  BOTH  ARE  OK.) 


R0077 

Y 

NAN. 

R0078 

5 

R00791 

*Y 

ANDY 

R00792 

*S 

R0080 

Y 

EX  3 

Roosl 

S 

R0083 

Y 

YUL 

R0085 

S 

TRANSFER  NEW  3LK2  PROGRAM  DUSK  BY  NASA  2019999-099 

as  pickyouRfIlename 

TRANSFER  REVI30N  3 OF  AGC  SEGMENT  TWILIGRt  BY  WAGNER 
AS  DISCTWI LIGHT 

TRANSFER  REVISION  12  OF  AGCa  SUBROUTINE  L-ADON  BY  TEaSeR 
AS  SOMEOtHERNAME 

transfer,  print  new  saco  program  chewchew  by  el  masticator 

AS  WASPArtOFA^ROG 


(write  card  images  on  disc) 
(required  with  transfer) 

(REQUIRED  WITH  TRANSFER) 

(REQUIRED  WITH  TRANSFER) 

(OR  "PRINT*  TRANSFER") 
(REQUIRED  WITH  TRANSFER) 


R00862  NOTE;  THe  FILE  MAD-  BY  TRANSFER  DOES  NOT  COMPETE  WItH  BINARY-ReCORD  FILeS  FOR  DISC  SPACe.  ITS  NAME  CAN  HAVE 
R00864  UP  TO  16  CHARACTERS  ON.  THE  1800,  BUT  ONLY  1A  CHARACTERS  ON  TwE  360. 


R0087  Y NAN.  MESSAGE  TYPE  THIS  MESSAGE  TO  THE  OPERATOR 


R0088  MAINTENANCE  OF  YUL  SYSTEM  SOFTWARE  STATUS  — INTERNAL  USE. 

("NEW",  "NAME",  AND  "MOD"  ARE  OPTIONAL) 
("OLD",  "NAME",  AND  "MOD"  ARE  OsTIONAL) 


R0089  Y ANDY  ADD  NEW  COMPUTER  NAME  BLK2 
R0091  Y LYNN  REMoVf  OLD  COMPUTER  NAME  MOD  3C 


R0093  Y YUL  ASSEMBLY  PASS  1 FOR  3C  Is  AVAILABLE  ("15"  IS  OPTIONAL) 

R0095  Y EXP  ASSEMBLY  PASS  2 FOR  MOD  BLK2  CHECKED  OUT 

R0096  Y FROZ  ASSEMBLY  PASS  3 FOR  MOD  3C  IS  OBSOLETE 
R0097  Y ANDY  MANUFACTURING  FOR  0L<2  IS  AVAILABLE 

R0100  Y YUL  ASSEMBLY  PASS  3 FOR  AGCa  = ASSEMBLY  PASS  3 FOR  MoD  3C 

R0101  Y LYNN.  MANUFACTURING'  FqR  MoD  aA  = MANUFACTURING  FOR  AGCa 


R0103  OPERATOR  OPTIONS. 


ROlOA  Y 
R010A1  Y 


CREATE  BaCKU3 
CLOSE  MONAIN  TAPE 
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OPTIONAL  SUBDIRECT0R5 


print  control  subdirectors  for  use  in  "print1'  (Including  "transfer,  print"  and  "punch,  print"),  "Reprint"  or 

"ASSEMBLE"  TAS<S, 

S PRINT  12  COPIES  OF  LISTING  (LIMITS  ARE  2 TO  63) 

S PRINT  AO  LINES  PER  PAGE  (LIMITS  ARE  10  TO  63,  NORMAL  IS  5^) 

note:  a copies  revest  asks  the  operator  "what  ply  paper?"  and  uses  the  answer  to  make  as  many  printer  runs 

as  necessary  to  provide  at  least  the  number  of  co=,ies  reoueSted,  in  an  -assemble"  task,  a bad  assembI-y'wILL  cut 
OFF  THE  output  After  ThE  FIRST  COMPLETE  PRINTER  RON.  NONE  Op  THIS  IN  ANY  WAY  AFFeCTS  MULTIPLE  PR1NTEk  RUNS  ON 
THE  2200  AS  NOW  PRACTICED  FOR  SUnDI 5K , SUNDANCE*  AND  COLOSSUq. 


PRINT  SUPPRESSIOn  SU30iIRECTORS  FOR  USE  IN  "REPRINT"  OR  "ASSEMBLE"  TASKS.  THE  "CONDITION"  IS  BaD  aSSEM3_Y. 

S SUPPRESS  INACTIVE  SUBROUTINES 

S SUPPRESS  SYM30L  TABLE  LISTING 

S SUPPRESS  octal  storage  MAP 

S SUPPRESS  CONDITIONALLY  INACTIVE  SUBROUTINE^  (EFFECTIVE  At  FIRSt  FATAL  CUSS) 

S SUPPRESS  CONDITIONALLY  SYMBOL  TABLE  LISTING 

S SUPPRESS  CONDITIONALLY  OCTAL  STORAGE  MAP 

note:  Rented  assembly  turns  on  all  suppressions  automatically,  tHeRe  are  some  exceptions  to  the  print  sup- 

pression; in  INACTIVE  SUBROUTINES,  CUSSeD  LINES  with  their  Cusses; 

in  the  symbol  table  listing,  unhealthy  symbols  (All  those  not  defined  normally  or  by  equals)* 

in  the  octal  storage  map,  the  occurrence  of  a cuss  <«reF,  ■sum,  or  «eob)  revokes  the  suppression  so  that  the 
line  with  the  CUSS  AND  the  Rest  of  the  octal  map  are  printed. 

the  exception  to  the  exception  is  that  in  a reject*  octal  map  cusses  are  not  detected,  counted,  or  printed. 
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OTHER 
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SUBDIRECTORS  FDR  USE  IN  "ASSEMBLE"  TASKS. 

RENUMBER  cards 
freeze  SUBROUTINES 

(PROGRAM  ONLY) 

H 

Pi 

( — 

S 

BEFORE  SUBRNAME 

(SUBROUTINE  ONLY) 

J- 

J 

S 

before  all 

(SUBROUTINE  ONLY) 

S 

BEFORE  End 

(SUBROUTINE  ONLY) 

..Z 

NOTES! 

; »RENUMBER»  AFFECTS  ALL  the  CARDS  OF  THE 

MAIN  PROGRAM  OR  SUBROUTINE*  BUT  NOT  THOSE  OF 

called  sub- 

J 

ROjTIMES,  IT  STARTS  WITH  0001  AFTER  EACH  LOG  CAR}. 

"FREEZE"  CAUSES  THE  CAROS  OF  tHe  SUBROUTINES  CALl-D  BY  THe  PROGRAM  TO  BeCOMe  FULL-FLeDGeD  MEMbERS  OF  TH-  PRO- 
GRAM, so  that  the  su3Routines  may  be  Revised  without  again  affecting  the  program,  the  »subro"  cards  arc  con- 
verted TO  REMARKS. 

••Before"  Requests  specify  the  order  of  subroutines  in  the  lirrary  portion  of  the  tape,  the  subroutine  3eing 
assembled  may  3e  placed  before  a specified  subroutine  for  the  same  computer,  or  at  the  beginning  or  end.  if 


NONE  IS  GIVEN.  THE  RJLE  IS! 

REVISION (AS  IS) 

NEW  OR  TRANSFERRED  . . (BEFORE  ALL) 
VERSION (AFTER  SOURCE) 


SYMBO.IC  CARD  IMAGE  SELECTION  PROCESS  FOR  PRINT.  3UNCH,  AND  TRANSFER 

J 


if  Detail  cards  (Meaning  anything  not  having  #,  y,  or  s in  column  i>  are  input  to  a print,  punch,  or  transfer  J 

TASK,  THEY  WjLL  SELECT  PArTS  OF  THE  PROGRAM  Or  SUBROUTINE  FOr  OUTPUT.  USUALLY,  SUCH  CArDS  ArE  LOG  CARO5  (L  1 N 
COLUMN  1),  SO  THAT  WHOLE  LOG  SECTIONS  ARe  OUtPUJ,  THe  RULe  IS;  AS  EACH  DeTAIL  CARD  ENTERS,  THe  SeLeCTION 
process  scans  forward  from  wherever  it  is  in  the  program  or  subroutine,  looking  for  a match  but  ignoring  column 

8 AND  (IF  THE  DETAIL  CARD  IS  A LoG  CARD)  IGNORING  COLUMNS  2-7.  THEN  OUtPUt  IS  TURNED  ON,  STARTING  WITH  THE 
FOUND  CARD,  UNTIL  TH£  NeXT  LOG  CARD  IS  FOUND,  OUtPUt  IS  TURNED  OFF  UUSt  BeFORE  THAT  LOG  CARD,  AND  THE  NEXT 

DETAIL!  CARD  IS  EXAMINED.  DETAIL  CARDS  MUST  FOLLOW  SU3DI RECTORS,  IF  ANY.  J 
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manufacturing  subdirectors  for  blk2  and  agc  ("testing*'  series  not  included) 


ONE  AMD  ONLY  ONE  OF  ME  FOLLOWING  PRIMARY  SUBDIReCTORS  MJST  FOLLOW  THE  YUL  DIRECTOR  CARD; 


s 

PUNCH  3&K  CORE  ROPE  SIMULATOR  TAPE 

(A) 

s 

PUNCH  RAYTHEON  WIRING  TAPE 

(B) 

s 

PUNCH  RAYTHEONi  TESTER  TAPE 

(B) 

s 

PUNCH  MASTER  DECK 

(C) 

s 

PUNCH  SYMBOL  TABLE 

<C> 

*S 

PUNCH  SYMBOL  TABLE  AND  MASTER  DECK 

(C) 

*S 

PUNCH  SIMULATION  DECK 

(C) 

S 

copy  onto  worker 

(D) 

S 

COMPARE  PROGRAM  PROGNAME  FROM  WORKER 

id) 

OTHER  SUBDIReCTORS  MAY  OCCUR  IN  any  order  provided  that  they  ALL  FOLLOW 
(D),  ABOVE,  REQUIRE  EITHER 

S PARAGRAPH  ALu. 

OR  ONE  OR  MORE  OF  THE  FORM? 

S PARAGRAPH  10 

S PARAGRAPH  200  THRU  237 

S PARAGRAPH  0 THROUGH  17 

ERASA3LE  PARAGRAPHS  (0-7)  MAY  NOT  Be  SPECIFIED  FOR  CLASS  (B); 

CLASSES  (A)  AND  (B)  M.AY  be  given  one  OF  THE  FOLLOWING; 

S USE  PINK  OILED  PAPER  TAPe 

S USE  BLACK  OIlED  PAPER  TAPE 

S USE  BLUE  MYLARi  TAPE 

S USE  GREY  FIBER  TAPE 

S USE  GRAY  FIBERi  TAPE 

S USE  ALUMINUM  TAPE 

CLASS  (A)  MAY  INSTEAD  BE  GIVEN 

S USE  DIGISTORE  tape 

S USE  DIGlSTOR  TAPE 

this  _aSj  is  incrementally  Recorded  magnetic  tape,  to  Point  out  mat  it 

(1)  NIT. 


(AUTHOR  NAME  MUST  BEGIN  WITH  "NASA") 

(author  name  must  begin  with  »nasa») 


(Segment  manufacturing  only) 

(Next  task  must  be  manufactuke/compare) 

(USE  SAME  PARAGRAPH  cARqS  AS  CO^Y  TASK) 
THe  PRIMARY  ONe.  CLASSES  (A),  (B),  AND 


(PARAGRAPH  NUMBERS  IN  OCTAL) 


(ASSUMED  IF  NONE  IS  GIVEN) 


is  written,  not  punched,  is  to  pick  one 


class  (Bj  requires  one  subdirector  of  the  form 

S MODULE  deck  NUMBERS  00251  00262  00273  0028a  00295  0^306 

WHeRe  Mere  are  1 TO  6 GROUPS  WRITTEN  AS  NNNNM,  -ACH  NNNN  Ia  a module  Deck  NUMBER,  OBTAINED  FROM  art  LAPOINTE, 
AND  EACH  M is  a CORE  ROPE  MODULe  NUMBER.  that  IS,  NNNN  IDeNtIFIeS  Me  MODULe,  AND  M SHOWS  WHtRE  TO  PLUS  IT  IN. 
THIS  CARD  MUST  Be  CONSISTENT  WITH  THE  PARAGRAPH  REQUESTS. 
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card  merging  process  used  in  "Assemble  revision"'  "Asslm3le  version"*  and  "Assemble  transferred" 


THESE  three  ASSEMBLY  types  must  ^ERGe  a Set  of  incoming  CARDS  with  A PRe-EXIStING  PROGRAM  or  S jBROUt I NE 

file  on  a YUL  TAPE  ORi,  IN  THE  CASE  OF  "ASSEMBLE  TRANSFERRED",  ON  tHe  DISC.  jHe  MeRGING  IS  CONTROLLED  3Y  tHE 

CARD  NUMBERS  AS  FAR  AS  POSSIBLE*  BUT  SOME  SPECIAL  CARD  TYPES.  SUCH  AS  "DeUeTe"*  ARE  ALSO  NeeDeD;  tHeSE  ARE 

called  "merge  control'  cards",  thl  distinction  is  that  merge  control  cards  do  not  Remain  in  the  program.;  they 

MAY  APPEAR  ONCE  IN  A LISTING  AND  THEN  DISAPPEAR. 

merging  is  strictly  unidirectional,  l i <e  the  merging  of  traffic  on  a superhighway  with  traffic  entering 

FROM  AN  "ON  RAMP",  ONCE  A CARD  IS  ACCEPTED  INTO  THE  ASSEMBLY,  WHeTHeR  FROM  tHe  PRE-EXIStING  FILE  OR  FROM  THe 
INPUT,  IT  CANNOT  AGAIN  AFFECT  THe  MeRGInG  PROCESS  OR  Be  AFF£rTED  BY  IT  (THOUGH  It  MIGHT  Be  ReNUMBeReD  In  ACCORD- 
ANCE with  an  earlier  Request),  in  the  following  paragraphs  t shall  say  something  about  the  more  difficult  or 

CONFJSING  ASPECTS  OF  MERGING  AND  SKIM  OVER  THE  EASY  PARTS. 


SEQUENCE  BREAKS 

most  yul  programs  consist  of  several  sets  of  cards  with  ascending  Sequences  of  card  numbers,  separated 

BY  LOG'  CARDS  (IDENTIFIED  BY  "L»  IN  COLUMN  1),  OR  MORE  RARELY,  BY  CARDS  WITH  "SeQBRK"  OR  "999999"  IN  iHe'CARD 

numbeRi  field,  these  Separators  are  known  collectively  as  "sfqUence  breaks"  because  they  present  a card  number 

VAlUE  OF  999999  TO  T -|t  MERGING  PROCESS  BEFORE  3EING  ACCEPTED  INTO  ThE  ASSEMBLY,  BUT  A VALUE  OF  000000  AfTER 

being  accepted,  an  incoming  sequence  break  will  replace  a pre-existing  Sequence  break  uust  as  any  incoming  pro- 
gram card  will  Replace  a like-numbered  card. 


ACCEP 1 OR  CARDS 

THE  MOST  FRE3UENTLY  used  Merge  control  card  IS  IDENTIFIED  BY  »="  IN  COLUMN  1.  IT  is  properly  called  an 
"ACCe3T0R  CARD",  BUT  IS  POPULARLY  KNOWN  AS  AN  "^LoG  CARD"  OR.  CONFUSINGLY,  AS  A "LOG  CaRD".  tHe  SIGNIFICANCE  OF 
THE  "s"  IS;  Go  FIND  A CARD  EQUAL  TO  THIS  ACCEPTOR  Card  And  ArC£PT  IT  INTO  tHe  ASSEMBLY  without  change,  ALSO  AC- 
CEPTING ALL  CARDS  PASSED  oVeR  IN  T^  SeARCH.  NOW,  WHAT  DOES  IT  MeAN  TO  SAY  THAT  0N£  CARD  IS  eOUAL  TO  AnOTHeR? 
EQUALITY  Of  CARD  NuM3cRS  is  not  ALWAYS  ENOUGH,  BECAjSe  MOST  yUl  PROGRAMS  have  SEVERAL  SEQUENCES  Op  CARD  NjMBERS. 

we  use  a stronger  equality,  of  both  card  number  and  text  (Columns  9-80).  fine  so  far,  but  log  cards  ha^e  no 

CARD  NUMBERS  (BY  DEFINITION),  So  WHAT  DO  WE  WRITE  TO  ACCePT  A LOG  CARD?  W£  SAY  EXPLICITLY  THAT  We  WANp  A LOG 
CARD,  BY  PUNCHING  "LOG"  IN  THe  CARD  NUMBeR  P'IeLP,  AND  THEN  SdeCIFY  WHICH  LOG  CARD  BY  PUNCHING  tHe  TEXT  AS  WeLL. 

hence  the  familiar  "slog"  card,  whose  function  is  to  scan  though  any  number  of  log  sections  in  search  of  a par- 
ticular LOG  CARD. -A  UOB  THAT  COULD  NOT  Be  DoNe  BY  A SEARCH  3ASeD  oN  CARD  NUMBER  ALONe. 

THe  ACCEPTORi  CARD  IS  THe  ONLY  CARD  TYPE  THAT  IS  NOT  PRINTED  IN  THE  ASSEMBLY  LISTING;  INSTEAD  Ip  MARKS 

the  found  card  with  »»»  in  column  a,  thus  calling  attention  to  the  same  information  as  that  on  the  acceptor 
CARD,  IT  IS  POSSIBLE  TO  ACCEPT  A NON-LOG  cARD  BY  USING  THE  CARD  NUMBER  AND  THE  TEXT,  BUT  NOBODY  EVER  DOES. 


INSERTION  CARDS 

ANOTHER  TYPE  OF  MeRGe  CONTROL  CARD  THAT  SHOULD  BECOME  POPULAR  HAS  THE  OP  CODE  "INSERT".  IT  IS  USED  TO 

insert  any  number  of  jnnumbeReD  or  ill-numbeReD  cards  (even  keVeRal  log  sections  if  desired)  in  one  place*  e.g.; 

1234  begin  INSERT  (TURNS  ON  RENUMBERING,  STARTING  WITH 

(.  . . NEW  CARDS  . . ,)  1234  IF  IT  HAD  BEEN  OFF) 

END  INSERT  (RENUMBERING  STAYS  TO  END  OF  L03  SECT) 

123956  BEGIN 


02877 


INSERT  WITH  I235 


(OTHERWISE  NE*  NUMBERS  WOULD  BE  123^56,  123556,  123*56,  ...» 


XXXX56) 
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P0288  PARTIAL  RENUMBERING 


USER'S  OWN  PAGE  NO. 


PAGE  8 


R0289 

the  op  code  "cardno"  was  Developed 

TO  ALLOi 

R0291 

"CARDNS 

" extends  the  Renumbering  to  the 

end 

OF  He  i 

R0293 

GOES, 

the  new  numbers  go  up  by  0001  for 

each  card. 

* 

0295 

= LOG 

name  of  log  section 

l 

0296 

0001 

CHANGE  CARDNS  TO  1 

r0297 

yH^  RrNUMBjrRING  MAY  3;  ReSTARteD  SeVeRaL 

TlMES,  3Jt 

Jt 

R02981 

IT'S  TURNED  OFF  BY  A "PRESERVE  CARDNS"  CARD, 

> 

0299 

= LDG 

NAME  OF  LOG  SECTION 

0300 

0001 

CHANGE  CARDNS  TO  1 

» 

0301 

2000 

CHANGE  CARDNS  TO  2000 

0302 

4000 

CHANGE  CARDNS  TO  5000 

♦ 

* 

0303 

6000 

PRESERVE  CARDNS 

R0304 

manipulation  of  whole  LOG  SECTIONS 

* 

R0305 

TO  delete  a log  section  whose  last 

card  is 

* 

0306 

= LOG 

NAME  OF  PRECEDING  LOG  SECTION 

0307 

SEQ3RK 

DELETE  THROUGH  1234 

* 

R0308 

TO  ADD! 

A NEW  LOG  SECTION  AFTER  ANY  EXISTING 

ONE-' 

03q9 

= LDG 

name  of  preceding  log  section 

•m 

m 

0311 

T 

name  of  new  log  section 

0313 

(0001 

etc...  cards  df  new  log  section) 

* 

R031A 

TO  COMBINE  TWO  ADJACENT  LOG  SECTIONS: 

0315 

sLOG  • 

name  of  first  log  SECTION 

it 

m 

03155 

0001 

CHANGE  CARDNS  TO  1 

0316 

PSEQ3RK 

NAME  oF  SECOND  log  SECTION 

*■ 

R032 1 

to  split  a log  section; 

0322 

sLOG 

NAME  OF  LOG  SECTION 

m 

* 

0323 

123499 

BEGIN  INSERT 

3" 

0324 

L 

NAME  OF  NEW  lDG  SECTION 

m 

0325 

END  INSERT 

w 

R0326 

TO  CHANGE  THE  name  Op  A LOG  SECTIONS 

•m 

* 

0327 

= LOG 

NAME  OF  PRECEDING  LOG  SECTION 

2" 

0328 

L 

new  name  of  »og  section 

(REJECTS  IF  RENUMBERING  HAD  PASSED  6000) 


(omit  if  new  Section  will  be  fust  seo 

( » T " CARD  IS  MERGED  UUST  AHEAD  OF  A SEQ- 
UENCE break  and  then  becomes  »l»  card) 


(replaces  log  card) 


(NEW  log  CARD  REPLACES  OLD  ONE) 


R0328i  there  15  never  any  need  For  two  •• =i_og”  cards  with  the  same  hxt  in  an  input  deck,  unless  for  some  queer  Reason 
R03283  THERE  are  Two  |_°G  SECTIONS  with  the  SaME  name,  omce  the  merging  haS  ENTERED  A LOG  SECTION,  you  cannot  accept 
R03285  its  log  CARD  AGAIN— THAT  WOULD  INVOLVE  GOING  BACKWARDS,  WHICu  YUL  MERGING  NeVeR  DoeS.  FoR  EXAMPLE,  ThERE  COULD 
R03287  BE  A CARD  BETWEEN  THE  "=LOG''  AND  THE  "T",  ABOVE*  SAYING  SOMETHING  LIKE  " 0123  LA  POSMAX  " . 


\ 
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P0329 

R0330 

*0332 

*0339 

R0336 

R0337 

R0339 

R0390 

*0391 

R0393 

*0399 

R0395 

*0396 

R0398 

*0399 

*0351 


0353 

0359 

0355 

0356 

*0357 

*0359 


<SA  YUL  PROGRAMMER'S  DIGEST 
REJECTED  ASSEMBLY  (BAD  MERGE) 

when  the  merging  process  is  unable  to  Follow  the  programmers  directions  exactly,  it  abandons  any  at- 
tempt to  continue  merging,  and  protects  the  file,  thjs  revoking  the  tentative  merging  up  to  the  point  of  rejec- 
tion, the  printed  output  shows  the  effect  on  the  program  or  subroutine  of  the  temporarily  merged  cards. 

REJECTION  IS  GENERALLY  CAUSED  BYS 

(1)  input  card  njmbers  out  of  sequence  <bjt  mote  that  sfQUences  like 

0123  DELETE 

012201  CA  ZERO 

can  be  legali  Because  the  second  card's  njmber  is  tested  after  the  deletion  is  done), 

(2)  attempt  to  delete  or  renumber  a non-existent  card* 

(3)  mis-spelled  OR  MIS-PUNCHED  text  in  AN  ACCEPTOR  card,  or 

(9)  ILLEGAL  format  IN  A Merge  CONTROL  CARO* 

the  input  cards  that  come  after  the  rejection  are  listed  and  their  card  number  sequence  is  checked,  allowing  for 

the  EXCEPTION  in  (1) , 

tHe*e  is  a way  to  get  ill-ordered  card  numbers  without  a reject?  by  changing  a card  number  to  a valje 
smaller  than  its  predecessor,  to  recover  from  such  cases,  the  following  forms  are  provided; 

0123  OUT OFSEQ  DELETE 

0123  OUTOFSEQ  DELETE  THRU  0133 

0123  CORRECT  CARONO  TO  132 

0123  CORRECT  CAROMS  TO  132 

the  special  forms  are  '.veded  to  make  the  merging  process  seek  an  ill-ordered  card  with  the  desired  number,  poss- 
ibly IGNORING  A WELL-ORDERED  CARD  WITH  THe  SAME  NJMBeR  ON  THE  WAY. 
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fc>A  YUL  PROGRAMMER'S  DIGEST 


P0360  THE  GREAT  BIG  BAD  SECRET 
R0361  — 

R0362  THE  TIMe  HAS  COMe  TO  UNSCREW  THE  INSCRUTABLE,  EFFECTUATE  THE  INEFFABLE,  UNPACK  THE  IMPECCABLE 

Ro364  redundantly  ravishing’  redolent  riddle,  to  wit;  how  differs  superb  from  good?  ...  and  reveal  the  Related 
Ro366  irrelevant  rodomontade,  it  is  with  a solemn  sense  3f  the  dugraceFjl  degradation  it  will  impose  on  my  jo3 

Ro368  SECURITY  That  I DO  T-)1S,  but  If  The  NASCENT  NEUROSES  FORMING  AROUND  This  question  are  ALLOWED  TO  ESCALATE  into 

R0370  PSORIATIC  PSYCHOSES...  WELL,  IT  UUST  WON'T  Do,  THAT'S  ALL. 

R0371  BASICALLY,  THE  SCH£Mt  IS  QUITE  SIMPLE*  IF  UUST  A SHADE  OBSCURE.  ReUeCTeD  ASSEMBLIES  YOU  KNOW  ABOUT, 

R0373  ANd  SjBROUTINeS  ARE  NEVER  RATED  FOR  QUALITY.  PROGRAM  ASSEMBLIES  ARE  RATED  ACC0RdING  TO  ThL  ORdER  Of  MA3NITUDE 

R0375  OF  TH-  NUMBeR  OF  CUSSeD  LINeS,  AND  A PSeUDO-RANPoM,  VARIABLE.  FOR  MOST  CASeS,  tHeRE  ARe  TWO  LIStS  OF  WORDS.  ONe 

R0377  list  is  chosen  at  the  beginning  of  pass  3,  in  a pseudo-random  way. 


» 

R0378 

LIST  I 

LIST  2 

QUALITY 

R0379 

• 

R0380 

GOOD 

SUPERB 

no  cjsses 

R0381 

FAIR 

so-so 

any  number 

OF  NON-FATAL 

CUSSES 

R0382 

BAD 

dismal 

1 ORl  2 

CUbSED  LINES 

• 

R0383 

LOUSY 

AWFUL 

3 TD<  9 

CUSSED  LINES 

R038A 

ROTTENi 

VILE 

10  TDi  99 

CUSSED  LINES 

• 

R0385 

BILIOUS 

PUTRID 

100  TD'  999 

CUSSED  LINES 

R0386 

AT  THE 

end  of 

the  assembly 

, the  appropri 

ATE  WORD 

• 

R0388 

lousy 

ASSEMBLY;  FIlED  ON 

DISC 

R0389  if  THERE  are  IOOo  OR  MORE  CUSSED  LINES,  INCLUDING  SOMe  FATAL  CUSSES,  THe  YUL  SYSTEM  IS  AT  A LOSS  FOR  WORDS,  AND 
R0391  SIMPLY  TYPES 


3" 


2" 


R0392  YUCCCHHHH 

R0393  NOW  ABOUT  THAT  PSEUDO-RANDOM  VARIABLE!  IT  IS  COMPUTfD  BY  A SINGLE  EXCLUSIVe-OR  INSTRUCTION  FROM  THe 

R0395  PAGE  NUMBER  OF  the  LAST  Page  with  PROGRAM  CODING  ON  It  (THAT  IS,  the  last  page  Before  the  SYMBOL  table  LISTING) 
R0397  AND  THE  first  AVAILA3UE  ADDReSS  IN  THE  SYMBOL  TA3LE.  THE  LAtTER  IS  EQUIVALENT  TO  THe  NUMBER  OF  H-1800  WORDS  IN 

R0399  THE  SYMBOL  TABLE,  BECAUSE  THE  VARIABLE  IS  THe  SECOND  BIT  FROM  THe  RIGHT  IN  THAT  £XCLUSIVe-0R  RESULT.  IF  THE  BIT 

ROAOl  is  Zero,  List  2 IS  SELECTED.  the  NUMBER  of  words  IN  the  SYMBOL  table  IS  3(SYMS+MULTDEFS+SUBR0S.C0UNTSM),  WHERE 


R0A03  SYMS  = 

ROAOA  MULtDeFS  = 
ROA06 

R0A08  SUBROS  = 

Roao9  counts  = 


NUMBER:  OF  SYMBOLS  AS  SHOWN  IN  THE  SYMBOL  TA3LE  SUMMARY. 

NUMB--R  OF  MULTIPLY  DeFINeD  SYM30L5,  NOT  AS  In  THe  SYMBOL  TABLE  SUMMARY,  BUt  SUCH  THAT  A SYMBOL 
defined  n times  contributes  n units  to  syms  and  one  unit  to  multdeFS, 

numbeRi  of  subroutines  called,  and 

number,  of  routines  whose  words  are  counted. 


ROAll  I GUeSS  I SHOULD  HAVe  EXPLAINED  HeRE  THAT  THE  ?AG-  NUMBeR  IS  IN  BINARY  CODeD  DeCIMAL,  SO  THe  PART  OF  It  THAT 

R0A13  ENTERS  THe  eXCLUSIVe-DR  IS  A B I t IN  THe  UNITS  DIGIT.  THE  NUmBeR  OF  WORDS  IN  THe  SYMBOL  TABLE  IS  KePT  IN  BINARY, 

roai5  to  verify  the  list  choice,  compute  the  symbol  table  size  in  decimal  and  convert  that  number  to  octal,  now  if 

Roa 17  the  units  digit  of  the  octal  number  belongs  to  the  set  (2,3,6,, 7)  and  the  units  digit  of  the  page  number  does 

Roai9  not,  or  vice  versa,  list  i is  chosen;  if  both  digits  belong  or  neither  belongs,  list  2 is  chosen. 
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L AGC  3 _OCK  II  INTERPRETIVE-CODES!  ASSEMBLY  RULES  For  BL<2 


Roooi 

SUFF I K 01  CODES 

. inde 

XAbLe 

(EXCEPT  SETpD) 

BY  ADDING 

1 10 

TO  Sj£ 

FlX. 

for  a 

key  to  data  modes,  see  pa3e  2. 

R OO  O 2 

addr 

PUSH 

MODE 

OP 

mode  RH 

OCT 

OCT* 

ALTERNATE 

address  CODES 

R0003 

TYPE 

UP 

IN 

MODE 

OUT  OP 

code 

CODf 

SPELLING 

(167777  WILL  Be  LAS]  ACM  ADDR) 

0005 

00 

VLOAD 

AlA 

YES 

. 

V 

V 

001 

003 

AlA 

ANY  1A-B1T  ADDRESS  — n-52* 

0007 

01 

TAD 

A1A 

yes 

DT 

T 

- 

005 

007 

100-377 7 1 IF  LOCATION  IN  bAN< 

0009 

02 

SIGN 

E 

YES 

- 

D 

- 

Oil 

013 

17  OR  LESS  THEN  20000-A7776.  IF 

0011 

03 

VXSC 

AlA 

YES 

DT/V 

V/D 

V 

015 

017 

LOCATION  IN  BANK  21  OR  MORE 

0013 

OH 

CGOTO 

E + F 

NO 

- 

S 

U YES 

021 

023 

THEN  52000-167777.  STORED  IN 

0015 

05 

TLOAD 

AlA 

YES 

- 

T 

T 

025 

027 

ARC-CCS  FASHION,  COMPLEMENTED 

0017 

06 

DLOAD 

AlA 

YES 

- 

D 

D 

031 

033 

IF  INDEXED  BY  X2. 

0019 

07 

V/SC 

AlA 

YES 

DT/V 

V/D 

V 

035 

037 

***  SEE  ALSO  E 6 F BELdW.  *## 

0021 

10 

SLOAD 

AlA 

NO 

- 

S 

D 

0 A 1 

0 A3 

E 

ERASABLE  — 0-52,  100-3777. 

0023 

11 

SSP 

E*C 

NO 

- 

s 

- 

0A5 

OAT 

STORED  IN  ArC— CCS  FASHION. 

0025 

12 

PDDL 

AlA 

YES 

- 

D 

D 

051 

053 

COMPLEMENTED  IF  INDEXED  BY  X2. 

0027 

13 

MXV 

AlA 

NO 

V 

M 

- 

055 

05  7 

a##*#**#*******#*#***#***#*#**# 

0029 

1 A 

PDVL 

AlA 

YES 

- 

V 

V 

061 

063 

ALL  INTERPRETIVE  ADDRESSES 

0031 

15 

CCALL 

e+f 

NO 

- 

5 

U YES 

065 

067 

REFERRING  TO  ERASABLE  ARE  PJT 

0033 

16 

VXM 

AlA 

NO 

V 

M 

- 

071 

073 

INTO  ADRES  (10  BIT)  FORM  AND 

0035 

17 

NORM 

E 

NO 

DT 

S 

- 

075 

077 

SLC 

ARE  CHECKED  FOR  CORRECT  EBANK. 

0036 

20 

dmpr 

AlA 

YES' 

DT 

D 

D 

101 

103 

F 

FIXED  — 20000-167777.  STORED 

0038 

21 

DDV 

AlA 

YEs 

DT 

D 

- 

105 

107 

AS  IS.  *#**#*####*#**#*##*#### 

00^0 

22 

BDDV 

AlA 

YES 

DT 

D 

111 

113 

ALL  INTERPRETIVE  ADDRESSES 

00<+2 

23 

(GEN 

SHIFT) 

REFERRING  TO  FIXED  ARE  PJT  INTO 

OOH 

2 A 

VAD 

AlA 

YES 

V 

V 

* 

121 

123 

FCADR  FORM  BEFORE  ALTERATIONS 

00A6 

25 

VSU 

AlA 

YES 

V 

V 

• 

125 

127 

SUCH  AS  TRUNCATING  TO  H BITS. 

00  A8 

26 

BVSU 

AlA 

YES 

V 

V 

- 

131 

133 

00  A9 

27 

DOT 

AlA 

YES 

V 

V 

D 

135 

137 

0050 

30 

vxv 

AlA 

YES 

V 

V 

- 

1 A 1 

1 A3 

C 

CONSTANT  — ANY  TYPE  Of  SINGLE- 

0052 

31 

VPrOJ 

AlA 

YES 

V 

V 

- 

1A5 

1 A 7 

precision  CONST.  STOr-D  As  Is. 

OO5A 

32 

DSU 

AlA 

YES 

DT 

D 

- 

151 

153 

0055 

33 

BDSU 

AlA 

YES 

DT 

D 

155 

157 

0056 

3A 

DAD 

AlA 

yes 

DT 

D 

161 

163 

RH  op: 

INDICATES  those  codes  HAT  SH3JLD 

0057 

35 

BE  RIGHT-HAND  OPERATORS,  OR  OTHERWISE 

0058 

36 

DMP 

AlA 

YES 

DT 

D 

• 

171 

173 

SHOULD 

BE  ACCOMPANIED  BY  A BLANK  RIGHT- 

0059 

37 

SETPD 

E 

NO 

- 

S 

- 

175 

HAND  OPERATOR. 

0060 

AO 

CCLRB 

EtF 

NO 

- 

s 

B YES 

065 

067 

R0061 

general 

SHIFT  CODES. 

50FFIX 

01  code  23. 

****  definition:  arc-ccs(X)  = x + sgn(x> 

R0062 

mode 

UAL 

UAU  ial  iaj 

ADAD 

0CT 

OCT* 

address  codes 

006A 

0 

SL 

DT 

-51 

51  - 

177  177 

00200 

115 

117 

UAL  — 

unindexed  address  lower  limit 

0066 

1 

SR 

DT 

-51 

51  - 

177  177 

00600 

115 

117 

UAU  — 

unindexed  address  UPPER  LIMIT 

0068 

2 

SLR 

D 

-3  A 

15  - 

177  177 

01200 

115 

117 

IAI 

INDEXED  ADDRESS  LOWER  LIMIT 

0070 

3 

SRR 

D 

-15 

3A  - 

177  177 

01600 

115 

117 

IAU  — 

INDEXED  ADDRESS  UPPER  LIMIT 

0072 

A 

VSL 

V 

-3A 

33  - 

177  177 

00200 

115 

117 

ADAD  - 

- ADDITIVE  FOR  ADDRESS 

007A 

5 

VSR 

V 

-33 

3A  - 

177  177 

00600 

115 

117 

FINISHED  ADDRESS  STORED  LIKE  AH  DR  E. 

#■ 

u 

AGC 

3^0CK  II  INTeRPR; 

tive 

codes; 

ASSEMBLY  RULES  FOR  BL<2 

USER'S 

OWN  PAGE  NO.  2 PAGE  12 

P0078 

SUFFIX  10  CODES 

♦ NOT 

indexable. 

t 

R0079 

addr 

MODE 

RH 

OCT 

ALTERNATE 

R0080 

TYPE 

OUT 

OP 

CODE 

SPELLING 

ADDRESS  CODES 

V 

0082 

00 

AXT  *2 

C 

002 

A 

ANY  15-BIT  ADDRESS  --  0-52. 

0084 

01 

AXT « 1 

C 

- 

006 

100-3777,  20000-167777.  STORED 

0086 

02 

AXC , 2 

C 

- 

012 

AS  IS. 

c 

0088 

03 

AXC.l 

c 

- 

016 

0090 

04 

LXA « 2 

E 

- 

022 

0091 

05 

LXA  * 1 

E 

- 

026 

E 

ERASABLE  — 0-52.  IOO-3777. 

( 

0093 

06 

LXC.2 

E 

- 

032 

STORED  AS  IS. 

0095 

07 

LXC  * 1 

E 

- 

036 

L 

OO96 

10 

SXA.2 

E 

042 

F 

FIXED  — 20000-167777.  STORED 

0098 

11 

SXA,1 

E 

- 

046 

AS  IS. 

0100 

12 

XCHX » 2 

E 

- 

052 

( 

0101 

13 

XCHX.1 

E 

- 

056 

0102 

14 

I NCR « 2 

C 

- 

062 

C 

CONSTANT  — ANY  TYPE  OF  SINGLE- 

0104 

15 

I NCR  , 1 

C 

• 

066 

PRECISION  CONST.  STORED  AS  IS. 

c 

0106 

16 

TIX.2 

A 

- 

072 

0107 

17 

T I X » 1 

A 

• 

076 

c 

0108 

20 

XAD , 2 

E 

.. 

102 

0109 

21 

XAd*  1 

E 

- 

106 

0110 

22 

XSU.2 

E 

- 

112 

c 

0111 

23 

XSU.l 

E 

- 

116 

0112 

24 

BZE 

A 

- 

122 

0113 

25 

GOTO 

A 

u 

YES 

126 

30.  TO 

c 

0114 

26 

BPL 

A 

- 

132 

. 

0115 

27 

BMN 

A 

- 

136 

£ 

0116 

30 

CALL 

A 

u 

YES 

142 

0117 

31 

STQ 

E 

- 

146 

ITA 

0118 

32 

RTB 

F 

u 

152 

c 

0119 

33 

BHIZ 

A 

- 

156 

0120 

34 

(switch  codes) 

0121 

35 

{ 

0122 

36 

BOVB 

F 

- 

172 

0123 

37 

BOV 

A 

- 

176 

c 

012301 

40 

CALRB 

A 

B 

YES 

142 

3" 


RO 1 23 1 MOOES  IN  OPERAND  MODES  (FOR  BEWARING  i.ND  BANO  MODES  OUT 


RO 1 232 

- 

don't  care 

D 

DOUBLE 

(2  WORDS) 

- 

NO  CHANGE 

C 

R01233 

D 

double 

M 

matrix 

(18  WOtDS) 

B 

UNKNOWN,  REQUIRE 

BA5IC  INST*. 

next 

2"  | 

R01234 

DT 

double  or  triple 

S 

SINGLE 

(1  WORD) 

D 

DOUBLE 

R01235 

V 

V-CTOR 

T 

triple 

(3  WORDS) 

I 

UNKNOWN,  REQUIRE 

interpretive 

next 

C 

R01236 

V 

VECTOR 

(6  WORDS) 

t 

triple 

R01237 

note  that  for  vxsc  and  v/sc, 

U 

UNKNOWN 

R01238 

IF 

MODE  IN  = DT,  OP  MODE  = V, 

AND 

if  mode 

IN  = U DR  V,  OP  MODE  = D, 

V 

VECTOR 

c 


c 


L AGC  3_0CK  II  INTERPRETIVE  CODES;  ASSEMBLY  RULES  F OR  BLK2 

t 

P0124  SWITCH!  CODES*  SUFFIX  10  CODE  34. 


r 

R0125 

ADDR 

mode 

RH  OCT 

ADDRESS 

ALTERNATE 

RO 1 26 

type 

OUT 

OP  code 

ADDITIVE 

spelling 

% 

0128 

00 

bonset 

SW  + A 

- 

162 

OODOO 

0130 

01 

SETgO 

SW  + A 

u 

YEs  162 

00020 

0132 

02 

bofset 

SW  + A 

- 

162 

00040 

0134 

03 

SET 

SW 

- 

162 

00060 

0136 

04 

BON  I N V 

SW  + A 

_ 

162 

00100 

0138 

05 

INVGO 

SW  + A 

u 

YES  162 

00120 

0140 

06 

BOF'INV 

SW  + A 

- 

162 

00140 

0142 

07 

INVERT 

SW 

- 

162 

00160 

inv 

% 

0144 

0146 

10 

bonclr 

SW  + A 

_ 

162 

00200 

0148 

11 

CLRGQ 

SW  + A 

u 

YES  162 

00220 

r 

V 

0150 

12 

bofclr 

SW+A 

- 

162 

00240 

0152 

13 

CLEAR 

SW 

- 

162 

00260 

:lr 

015A 

14 

BON 

SW  + A 

162 

00300 

£ 

0155 

16 

BOFF 

SW  + A 

162 

00340 

30F 

R0156 

SUFFIX 

000  CODES 

, UNARY  OPERATIONS. 

R0157 

mode 

mode 

RH  OCT 

alternate 

RO  1 58 

IN 

OUT 

OP  CODE 

SPELLING 

0159 

00 

EXIT 

B 

YES  000 

0160 

01 

SORT 

DT 

- 

010 

0161 

02 

SIN 

DT 

- 

020 

SINE 

0162 

03 

COS 

DT 

- 

030 

CD5INE 

0163 

04 

ASIN 

DT 

- 

040 

ARCSIN 

0164 

05 

ACOS 

DT 

- 

050 

ARCCOS 

0165 

06 

DSQ 

DT 

- 

060 

'M 

0166 

07 

ROUND 

DT 

D 

070 

0167 

10 

DCOMP 

DT 

- 

100 

0168 

11 

VDEF 

DT 

V 

no 

0169 

12 

UNIT 

V 

- 

120 

3" 

0170 

13 

ABS 

DT 

- 

130 

6171 

14 

V5Q 

V 

D 

140 

0172 

15 

STADR 

- 

- 

YES  150 

0173 

16 

RVQ 

- 

U 

yes  160 

ITCQ 

0174 

17 

PUSH 

- 

- 

170 

2" 

0175 

20 

VCOMP 

V 

- 

100 

r*|- 

0176 

23 

ABVAL 

V 

D 

130 

r 


USER'S  OWN  PAGE  NO 
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address  codes 

A ANY  15-BIT  ADDRESS  — 0-52, 

100.3777*  20000-167777,  STORED 
AS  IS, 


SW  SWITCH  BIT  NUMBER  — 0.357. 

STORED  WITH  SWITCH  wORO  NUMBER 
0-17  (THE  INTEGER  QUOTIENT  OF 
N/15)  IN  BITS  12-9  ANO  THE  BIT- 
WITHIN-WORD  NUMBER  (00-16 
OCTAL,  THE  REMAINDER  0?  N/15) 

IN  BITS  4-1 , THIS  IS  THE  ONLY 
INSTANCE  OF  NUMBERING  BUS  FROM 
LEFT  TO  RIGHT.  357  = 2390. 


IF  QPRET  POINTS  TO  ERASABLE.  USE 
GOTO  QPRET  , NOT  RVQ. 


L AGC  3_0CK  II  INTERPRETIVE  CoDeS;  ASSEMBLY  RULES  F OR  BL<2  USER'S  OWN  PAGE  NO.  A 


PO 1 77 

SUFFIX 

100  COOES 

, SHORT 

SHIFT  OPERATIONS. 

fpPjf-  ,.i 

R0178 

MODE  OCT  CODE 

9 

0179 

00 

SLlR 

D 

004 

0180 

01 

SR  1R 

D 

014 

9 

0181 

02 

SLl 

DT 

024 

..z 

0182 

03 

SRI 

DT 

034 

0183 

04 

SL2R 

D 

044 

9 

0184 

05 

SR2R 

D 

054 

0185 

06 

SL2 

DT 

064 

0186 

07 

SR2 

DT 

074 

J 

0187 

10 

SL3R 

D 

104 

K 

0188 

11 

SR3R 

D 

114 

J 

0189 

12 

SL3 

DT 

124 

0190 

13 

SR3 

DT 

134 

0191 

14 

SLAR 

D 

144 

J 

0192 

15 

SRAR 

D 

154 

0193 

16 

SLA 

DT 

164 

0194 

17 

SR  A 

DT 

174 

% 

0195 

20 

VSL1 

V 

004 

0196 

21 

VSR1 

V 

014 

9 

0197 

22 

VSL2 

V 

024 

0198 

23 

VSR2 

V 

034 

0199 

24 

VSL3 

V 

044 

% 

0200 

25 

VSR3 

V 

054 

0201 

26 

VSL4 

V 

064 

( 

0202 

27 

VSRA 

V 

074 

9 

0203 

30 

VSL5 

V 

104 

0204 

31 

VSR5 

V 

114 

% 

0205 

32 

VSL6 

V 

124 

0206 

33 

VSR6 

V 

134 

0207 

34 

VSL7 

V 

144 

9 

0208 

35 

VSR7 

V 

154 

0209 

36 

VSL8 

V 

164 

0210 

37 

VSR8 

V 

174 

% 

4 


R0211 

STORE 

CODES.  ADOrESS 

CONSTANTS. 

COMPLEMENTED  if 

POSITIONED 

AS  THE  OPERAND 

OF  A 

stadr  code. 

R02 1 3 

addr 

PUSH 

mode 

OCTAL 

INDEX. 1 

INDEX, 2 

load* 

* 

R0214 

type 

UP 

our 

CODE 

ADDI TI V 

- ADDITIVE 

ADDITIVE 

ADDRESS  codes 

0216 

00-02 

STORE 

E 

_ 

m 

00000 

02000 

04000 

- — 

Al4 

SEE  SUFFIX  01  CODES. 

9 

0218 

03-10 

sTodl 

E + Al  A 

YES 

0 

06000 

02000 

04000 

06000 

A 

SEE  SUFFIX  10  cOdEs. 

0220 

11-16 

STOVL 

EfAl  a 

YES 

V 

22000 

02000 

04000 

06000 

E 

SEE  SUFFIX  10  CODES. 

0222 

17 

STCALL 

E*A 

NO 

u 

36000 

• 

3 

J 

9 


1" 


L @AGC  3.0CK  II  INTERPRETIVE  CODES:  ASSEMBLY  RULE5  FdR  AGC 


Roooi 

SUFFIX 

01  CODES 

, INDE 

XAbLE 

(EXCEPT 

SET  PD) 

BY 

adding  10 

R0002 

addr 

PUSH 

MODE 

OP 

MODE 

RH 

OCT 

R0003 

type 

UP 

IN 

MODE 

OUT 

OP 

CODE 

0005 

00 

✓VLOAD 

A14 

YES 

- 

V 

V 

001 

0007 

01 

A AD 

A14 

YES 

DT 

T 

- 

005 

0009 

02 

>SIGN 

E 

YES 

- 

D 

- 

Oil 

0011 

*03 

/VXSC 

A14 

YES 

DT/V 

V/D 

V 

015 

0013 

*04 

CGOTO 

E + F 

NO 

- 

S 

u 

YES 

021 

0015 

05 

.TLOAD 

A 14 

YES 

- 

T 

T 

025 

0017 

06 

^DLOAD 

A 14 

YES 

- 

D 

D 

031 

0019 

07 

^V/SC 

A14 

YES 

DT/V 

V/D 

V 

035 

0021 

10 

/5L0AD 

A14 

NO 

- 

S 

D 

041 

0023 

11 

-5SP 

E*C 

NO 

- 

s 

- 

045 

0025 

12 

>PDDL 

A14 

YES 

- 

D 

D 

051 

0027 

13 

/M  XV 

A14 

NO 

V 

M 

- 

055 

0029 

14 

/PDVL 

A14 

YES 

- 

V 

V 

061 

0031 

15 

CCALL 

e+f 

NO 

- 

S 

1 

YES 

065 

0033 

16 

/VXM 

A14 

NO 

V 

M 

- 

071 

0035 

17 

NORM 

E 

NO 

DT 

5 

- 

075 

0036 

20 

dmpr 

A 14 

YES 

DT 

D 

D 

101 

0038 

21 

/DDV 

A14 

YEs 

DT 

D 

- 

105 

0040 

22 

J3DDV 

A14 

YES 

dt 

D 

- 

111 

0042 

23  ^<5EN  SHIFT) 

0044 

24 

/VAD 

A 14 

YES 

V 

V 

121 

0046 

25 

,-A/SU 

A 14 

YES 

V 

V 

- 

125 

0048 

26 

/BVSU 

A 14 

YES 

V 

V 

- 

131 

0049 

27 

/DOT 

A14 

YES 

V 

V 

D 

135 

OO5O 

30 

JVXV 

A 14 

YES 

V 

V 

- 

141 

0052 

31 

VPrOJ 

A14 

YES 

V 

V 

- 

145 

0054 

32 

/DSU 

A14 

YES 

DT 

D 

- 

151 

0055 

33 

/8DSU 

A14 

YES 

DT 

D 

- 

155 

0056 

34 

/DAD 

A14 

YES 

dt 

D 

- 

161 

0057 

35 

/ 

0058 

36 

DMP 

A14 

YES 

dt 

D 

- 

171 

0059 

*37 

/^SETPD 

V 

NO 

- 

S 

- 

175 

0060 

40 

CCLRB 

E*F 

NO 

- 

s 

B 

YES 

065 

ROO 6 1 GENERAL  SHIFT  CODES,  SUFFIX  Ql  CODE  23. 


0062 

064 

0066 

068 

0070 

•0072 

074 


ho j>«  macMJ 

UAL 

UAU 

IAL 

I A J 

ADAD 

OCT 

0*T 

SL 

DT 

-51 

51 

-177 

177 

20200 

115 

SR 

DT;- 

-51 

51 

-177 

177 

20600 

115 

SLR 

DT;I> 

-34 

15 

-177 

177 

21200 

115 

SRR 

Of ;6 

-15 

34 

-177 

177 

21600 

115 

VSL 

V;- 

-34 

33 

-177 

177 

20200 

115 

VSR 

v;- 

-33 

34 

-177 

177 

20600 

115 

USER'S  OWN  PAGE  NO 
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0 Sjpplx.  FOR  A KEY  TO  DATA  MODES,  SEE  P A3E  2. 

ocr*  alternate  address  codes 

CDDf  SPELLING  (167777  WILL  Be  LAST  4:M  ADOR) 


003 

007 

013 

017 

023 

027 

033 

037 


A 14  ANY  14-BIT  ADDRESS  — 0-52» 

100-3777,  IF  LOCATION  IN  BAN< 

17  OR  LESS  THEN  20000-47776,  IF 
LOCATION  IN  BANK  22  OR  MORE 
THEN  54000-167777 • STORED  IN 
ARC-CCS  FASHION,  COMPLEMENTED 
IF  INDEXED  BY  X2. 

**#  SEE  ALSO  E 6 F BELOW,  **# 


043  E 

047 

053 

057 

063 

067 

073 

077  SLC 


ERASABLE  — 0-52,  100-4777. 
STORED  IN  ArC-CCS  FASHION, 
COMPLEMENTED  IF  INDEXED  3Y  X2. 
******************************* 
ALL  INTERPRETIVE  ADDRESSES 
REFERRING  TO  ERASABLE  ARE  PJT 
INTO  ECADR  (11-BIT)  FORM  AND  SO 

may  refer  to  any  e-ban<. 


103 

107 
1 1 3 

123 

127 

133 

137 


F FIXED  — 20000-167777.  STORED 

AS  Is.  *********************** 
ALL  INTERPRETIVE  ADDRESSES 
REFERRING  TO  FIXED  ARE  PJT  INTO 
FCADR  FORM  BEFORE  ALTERATIONS 
SUCH  AS  TRUNCATING  TO  t4  BITS. 

V VAC  AREA  — 0-52,  ARC-CCS. 


143  C CONSTANT  — ANY  TYPE  OF  SINGLE- 

147  PRECISION  CONST.  STORED  As  Is. 

153 

157  — 

163  RH  op:  indicates  those  codes  that  shoJld 

BE  RIGHT-HAND  OPERATORS,  OR  OTHERWISE 
173  SHOULD  Be  ACCOMPANIED  BY  A BLANK  RIGHT- 

---  HAND  OPERATOR. 


067 


****  DEFINITION}  ARC-CCS (X)  = X ♦ SGN(X) 

OCt*  ADDRESS  CODES 

117  UAI UNINDEXED  ADDRESS  LOWER  LIMIT 

117  UAU  — UNINDEXED  ADDRESS  UPPER  LIMIT 

117  IAL  — INDEXED  ADDRESS  LOWER  LIMIT 

117  IAU  — INDEXED  ADDRESS  UPPER  LIMIT 

117  ADAD  — ADDITIVE  FOR  ADDRESS 

117  FINISHED  ADDRESS  STORED  LIKE  AI4  OR  E. 


L 

@AGC 

3_0CK  II  INTeRPR 

etive  codes: 

: assembly  rules  for  agc 

USER'S  OWN  PAGE  NO.  2 PAGE  16 

P0078 

SUFFIX  10  CODES* 

NOT 

INDEXABLE. 

R0079 

addr 

mode 

RH 

OCT 

ALTERNATE 

R0080 

type 

out 

OP 

code 

spelling 

ADDRESS  CODES 

0082 

00 

AXT,2 

C 

• 

002 

A ANY  15-BIT  ADDRESS  — o-52, 

0084 

01 

AXT.l 

C 

- 

006 

100-3777,  20000-167777.  STORED 

0086 

02 

AXC.2 

C 

- 

012 

AS  IS. 

0088 

03 

AXC.l 

c 

- 

016 

0090 

04 

LXA*2 

E 

- 

022 

0091 

05 

LXA , 1 

E 

- 

026 

E ERASABLE  — 0-52,  100-3777. 

0093 

06 

LXC,2 

E 

- 

032 

STORED  AS  IS. 

0095 

07 

LXC  * 1 

E 

- 

036 

0096 

10 

SXA  * 2 

E 

• 

042 

F FIXED  — 20000-167777.  STORED 

0098 

11 

SX  A * 1 

E 

- 

046 

AS  IS. 

0100 

12 

XCHX  * 2 

E 

- 

052 

0101 

13 

XCHX.l 

E 

056 

0102 

14 

I NCR , 2 

C 

- 

062 

C CONSTANT  — ANY  TYPE  0-  SINGLE- 

0104 

15 

I NCR  * 1 

c 

- 

066 

PRECISION  CONST.  STORED  AS  IS. 

0106 

16 

TIX, 2 

A 

- 

072 

0107 

17 

T I X * 1 

A 

- 

076 

0108 

20 

XAD  *? 

E 

- 

102 

0109 

21 

XAd*1 

E 

- 

106 

0110 

22 

XSU , 2 

E 

- 

112 

0111 

23 

X5U*1 

E 

- 

116 

0112 

24 

BZE 

A 

- 

122 

0113 

25 

GOTO 

A 

u 

YES 

126 

GO  TO 

0114 

26 

BPL 

A 

- 

132 

0115 

27 

BMN 

A 

- 

136 

0116 

30 

RTB 

F 

u 

142 

0117 

31 

BHIZ 

A 

- 

146 

0118 

32 

CALL 

A 

I 

YES 

152 

0119 

33 

ST  Q 

E 

156 

ITA 

0120 

34 

(SNITCH  CODES) 

0121 

35 

0122 

36 

BOVB 

F 

- 

172 

0123 

37 

BOV 

A 

- 

176 

012301*40 

calrb 

A 

B 

YES 

152 

R01231 

modes  in 

operand  modes  ( fq r bewaring  fnd  ban<> 

MQDE5  OUT 

ROl 232 

_ 

don't  care 

D 

DOUBLE  (2  WORDS) 

no  change 

R01233 

D 

double 

M 

MATRIX  (18  WORDS) 

B 

unknown,  require  BA5IC  INSTr.  next. 

R01234 

DT 

dduble  or  TRIPLE 

S 

SINGLE  (1  WORD) 

D 

double 

R01235 

V 

VECTOR 

T 

TRIPL-  (3  WORDS) 

1 

UNKNOWN,  REQUIRE  INTERPRETIVE  NEXT. 

RO 1 236 

V 

VECTOR  (6  WORDS) 

T 

triple 

R01237 

note  that  for  vxsc  and  v/sc 

• 

U 

UNKNOWN 

RO  1 2 38 

IF 

MODE  in  = DT* 

OP 

mode  = 

V,  AND  IF 

mode  in  = u oR  v,  op  mode  = d. 

V 

VECTOR 

0 


L 


@AGC  3.0CK  II  INTERPRETIVE  CODES;  ASSEMBLY  RULES  FOR  A3C 


P0124 

SWITC 

HI  CODES,  SUFFIX 

10  CODE 

: 34. 

R0125 

addr 

mode 

RH  OCT 

address 

4_TERNATE 

RO 1 26 

type 

out 

OP  code 

additive 

SPELLING 

0128 

00 

BONSET 

SW  + A 

- 

162 

00000 

0130 

01 

setgo 

SW  + A 

u 

YEs  162 

00020 

0132 

02 

B0FSET 

SW  + A 

- 

162 

00040 

0134 

03 

SET 

SW 

- 

162 

00060 

0136 

04 

BON  I NV 

SW  + A 

162 

00100 

0138 

05 

INVGO 

SW  + A 

u 

YES  162 

00120 

0140 

06 

BOFINV 

SW  + A 

- 

162 

00140 

0142 

07 

INVERT 

SW 

- 

162 

00160 

INV 

0144 

0146 

10 

BONCLR 

SW  + A 

- 

162 

00200 

0148 

11 

CLRG0 

SW  + A 

u 

YES  162 

00220 

0150 

12 

BOFCLR 

SW  + A 

- 

162 

00240 

0152 

13 

CLEAR 

SW 

- 

162 

00260 

:lr 

0154 

14 

BON 

SW  + A 

162 

00300 

0155 

16 

boff 

SW  + A 

- 

162 

00340 

30F 

R0156 

SUFFIX 

000  codes 

, UNARY  OPERATIONS. 

R0157 

mode 

MODE 

RH  OCT 

ALTERNATE 

R0158 

IN 

OUT 

OP  CODE 

SPELLING 

0159 

00 

EXIT 

B 

YES  000 

0160 

01 

SORT 

DT 

- 

010 

0161 

02 

SIN 

DT 

- 

020 

SINE 

0162 

03 

COS 

DT 

- 

030 

cqsine 

0163 

04 

ASIN 

DT 

- 

040 

ARCSIN 

0164 

05 

ACOS 

DT 

- 

050 

ARCCOS 

0165 

06 

DSQ 

DT 

- 

060 

0166 

07 

ROUND 

DT 

D 

070 

0167 

10 

DCOMP 

DT 

m- 

100 

0168 

11 

VDEF 

DT 

V 

no 

0169 

12 

UNIT 

V 

- 

120 

0170 

13 

ABS 

DT 

- 

130 

0171 

14 

VSQ 

V 

D 

140 

0172 

15 

STADR 

•>- 

m- 

YES  150 

0173 

16 

RVQ 

u 

YES  160 

I TCQ 

0174 

17 

PUSH 

- 

- 

170 

0175 

20 

VCOMP 

V 

- 

100 

0176 

23 

abval 

V 

D 

130 

USER'S  OWN  PAGE  NO 
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address  codes 

A ANY  15-BIT  ADDRESS  — 3-52, 

100-3777*  20000-167777.  STORED 
AS  IS, 


SW  SWITCH  BIT  NUMBER  — 0.357. 

STORED  WITH  SWITCH  WORD  NUMBER 
0-17  (THE  INTEGER  QUOTIENT  OF 
N/15)  IN  BITS  12-9  AND  THE  B I T — 
WITHIN-WORD  NUMBER  (00.16 
OCTAL,  THE  REMAINDER  Os  N/15) 

IN  BITS  4-1 • THIS  IS  THE  ONLY 
INSTANCE  OF  NUMBERING  BITS  FROM 
LEFT  TO  RIGHT.  357  = 239D. 


IF  QPRET  POINTS  TO  ERASABLE,  USE 
GOTO  QPRET  , NOT  RVQ. 


L 

P01  77 


-0192 

-0193 


@AGC  3.0CK  II  INTERPRETIVE  CoDeS;  ASSEMBLY  RULES  FoR  AGC 


SUFFIX  100  COOES,  SHORT  SHIFT  OPERATIONS. 


00 

01 

02 

03 

04 

05 

06 
07 


SL1R 

SR  1R 

SL1 

SRI 

SL2R 

SR2R 

SL2 

SR2 


DT  & 004 

DT  £ 014 
DT  - 024 

DT  ' 034 

DT  k 044 
Dr  S>  054 
DT  - 064 

DT  - 074 


Mon* 


10 

11 

12 

13 

14 

15 

16 
17 


SL3R 

DT 

b 

104 

SR3R 

D T 

b 

114 

SL3 

DT 

. 

124 

SR3 

DT 

* 

134 

SLaR 

DT 

ft 

144 

SR4R 

DT 

154 

SLA 

DT 

164 

SR4 

DT 

- 

174 

20 

VSL1 

V 

21 

VSR  1 

V 

22 

VSL2 

V 

23 

VSR2 

V 

24 

VSL3 

V 

25 

VSR3 

V 

26 

VSL4 

V 

27 

VSR4 

V 

004 

014 

024 

034 

044 

054 

064 

074 


USER'S  OWN  PAGE  NO. 
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—0203 


-0204 

-0205 


30 

31 

32 


VSL5 

VSR5 

VSL6 


104 

114 

124 


0206 

33 

VSR6 

V 

134 

0207 

34 

VSL7 

V - 

144 

0208 

35 

VSR7 

V - 

154 

— -0209 

36 

VSL8 

V 

164 

• , 

- — -0210 

37 

VSR8 

V ■ 

174 

3” 

R0211 

store 

codes,  address  : 

OnsTanTs. 

COMPLEMENTED  if 

3°SI T I DnED 

as  the  operand 

OF  A 

stadr 

: code. 

im 

R0213 

ADDR 

PUSH 

mode 

OCTAL 

INDEX, 1 

INDEX, 2 

LOAD* 

R0214 

type 

UP 

our 

code 

ADDI ri V 

£ ADDITIVE 

ADDITIVE 

address  codes 

m 

0216 

00-02 

^TORE 

E 

_ 

m 

00000 

OAOOO 

10000 

Al4 

SEE 

SUFFIX  01 

CODES. 

2" 

0218 

03-04 

stodl 

E ♦ A 1 A 

YES 

D 

14000 

OAOOO 

A 

SEE 

SUFFIX  10 

codes. 

0220 

05-06 

STOVL 

E*AU 

yes 

V 

24000 

- 

OAOOO 

E 

SEE 

SUFFIX  10 

CODES. 

m 

0222 

07 

STCALL 

E + A 

NO 

U 

34000 

- 

- 

PAGE  lb 
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L 
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P0225  HOW  TO'  PATCH  INTERPRETIVE  CODING  FOR  SIMJlAT 1 0\|S 
R0226  ■ 

R0227  patching  interpretive  coding  is  easy  if  you  li<e  complementing,  octal  doubling,  and  octal  halving,  the 

r0229  op  CODES  IN  a word  are  FIRST  INTERCHANGED,  then  INCREMENTED,  then  CONCATENATED  into  a word,  which  is  FINALLY 
R0231  COMPLEMENTED. 

R0232  FOR  INSTANCE.  TO  CONVERT  VAD*  VXSC  INTO  OCTAL! 

R0233  FIRST  LOOK  UP  THE  OCTAL  CODES;  123  Ol5 

R0234  AND  INTERCHANGE  THEM;  015  123 

R0235  INCREMENT  BOTH  CODES!  016  124 

R0236  SHIFT  016  LEFT  7 BITS!  01600  X 2 = 03400 

R0237  ADD  IN  THE  OTHER  CODE!  03524 

R0238  AND  COMPLEMENT  THE  WHOLE  SCHMIER!  74253 

R0239  IF  tHerE  IS  JUST  ONE  OP  CODE*  IT  IS  ACCOMPANIED  BY  aN  UNINCReMeNteD  ZeRO.  TO  CONVERT  RVQ  lNrO  OCtAL! 

R0241  LOOK  JP  THE  OP  CODE;  160 

R0242  INCREMENT  IT!  161 

R0243  FORM  THE  WORD!  00161 

R0244  AND  COMPLEMENT!  77616 

R02A5  when  _OOKING  UP  oP  COOES.  Be  CAReFUL  Not  TO  TA<E  A BL<2  dp  Code  FROM  THe  AGC  list  OR  VICE  Versa.  a#***#**#***#*# 


R02 47  ADDRESS  PECULIARITIES;  ALL  THE  GENERAL  SHIFT  CODES  HAVE  THE  SAME  OCTAL  CODE,  115  IF  UNINDeXED  OR  117 

R0249  IF  INDEXED,  ALL  tHe  SWItCH.BIt  (FLAG)  OPERATIONS  USE  OCTAL  CODE  162.  THe  STORING  OPERATIONS  DON'T  HA  Vr  ANY  OP 

r0251  CODES  AT  ALL.  IN  THESE  CASES  THE  0PerATI5n  IS  SPECIFIED  BY  AN  ADDITIVE  IN  THE  ADDRESS, 

R0253  TO  CONVERT  AN  ADDRESS  o -5,2  THAT  GOES  WITH  AN  SRR#  OP  CODE! 

R0254  LOOK  JP  THE  ADDITIVE  FOR  SRR* ! 21600 

R0255  ADD  IT  TO  THE  ADDRESS  VALUE!  21573 

R0256  INCREMENT  TO  GET  ARC.CCS  FORM;  21574 

R0257  SINCE  INDEXED  BY  X2»  COMPLEMENT ; 56203 

R0258  TO  FORM  THE  ADDReSS  OF  A FLAG  BIT.  YoJ  Nr  ED  THE  FLAgWORD  NJMBeR  (0"lSD)  AND  THE  RESIDUE  MODULD  15  OF 

r0260  THE  Flag  Number.  that  IS,  the  flag  Number  F IS  RELATED  TO  THE  FLAGWORD  Number  W and  to  the  BIT  Number  3 3Y  THE 

R0262  EQJATION  F = 15W  ♦ (15  - B),  TO  CONVERT  THE  FLAG  NUMBER  200D  WITH  THE  OP  CODE  CLRGO! 

R0264  DIVIDE  200D  BY  15D  TO'  GET  W;  15  OCTAL 

R0265  THE  REMAINDER  ( = 15  - B)  IS  5 OCTAL  (IF  r0J  STARTED  WITH  THE  INFO  w = 13,  B = 10,  JUST  CONVERT  15  - 3)  . 

R0267  SHIFT  W LEFT  8 BITS;  15000/2  = 6400 

R0268  ADD  15  - BJ  6405 

R02 69  ADDITIVE  FOR  CLrG0  = 00220!  06625 

R0270  TO  CONVERT  A STODL*  WITH  AN  ADDRESS  OF  E5.1567! 

R0271  CONVERT  THe  ADDReSS  TO1  ECADR  FORM; 

R0272  SHIFT  THE  EBANK  LEFT  3!  5000/2  = 2400 

R0273  ADD  REL.  ADDRESS  1567  - 1400?  2567 

R0274  STODL*  ADDITIVE  = 14000  + 4000;  22567 

R0275  (IF  FOLLOWS  STADR,  COMPLEMENT!  55210) 
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P0276  OTHER  InTER3RETIVE  ADDRESSES  Are  CADR5*  TO  MAKE  A rADR  FROM  A PsEUDO-ADDRESS » SUBTRACT  10000.  tF  THE  ..i 

R0278  RESULT  IS  OVER  77777  (BANKS  40-43) » SUBTRACT  20000  MORE.  TO  CONVERT  FBANK  NOTATION  INTO  A CADR,  REDUCE  BANK 

R0280  TO  THE  CORRESPONDING  3X  IF  NECESSARY,  SHIFT  THE  3 ANK  NUMBER  i'eFT  10  BITS,  SUBTRACT  2000  FROM  THE  SUBaDO?eSS,  AND  } 

R0282  ADD  THE  RESULTS.  EXAMPLES? 

R0283  (I)  TO'  CONVERT  112233 

R0284  SUBTRACT  10000?  102233  ..z 

R02 85  TOO  3IG.  SUBTRACT  20000?  62233 

R0286  (2)  TO'  CONVERT  <*1,3456 

R02 87  REDUCE  BANK  NUMBER  INTO  30S;  31,3456 

R0288  SHIFT  BANK  10  LEFT?  31000  X 2 s 62000 

R0289  ADD  REL.  ADDRESS  = 3456  - 2000?  63456 

End  of  REVISION  9 OF  program,  digest  by  sir  TOBY  belch 
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THERE  are  NO  SYMBOLS  IN  this  ASSEMBLY. 
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0001 

BY!  HUGH  BLaIR-SMitH  I L7-238E  M&73  XT  1215  DECEMBER  13,  196/ 

0002 

OOoA 

00o6 

OO08 

V 

THIS"  DOCUMENT  LISTS  ALPHABETICALLY  ALL  Tl't  OPER^norrCODE5  (CAPO  CoCOBRS"  1m. 23)  Re^OGNTZeD  by  tH,  YUL 
ASSEMBLERS  For  BLK2  and  AGC.  EACH  OP  CODE  is  ACCUMPANIeD  BY  some  VITAL  STATISTICS:  TYPE,  ONE  or  TWO  REf'EREKES 
( cl  TA7  I ONS)  TO  FULLpR  DOCOHENYAT  I OfE,  eWIPAEENT  NAME  fS^-SCOPE  (DeGHee  OF  GENERALITY)  , PLANING  uF  APPeNDeD  9 ^ 

asterisk*  and  thl  significance  of  the  abbreviation,  there  is  also  a page  with  similar  information  on  all  legal 

001  0 

C 0 N I E N T 5 Of  COLUMNS  1 AND  a.  DETAILED  DESCRIPTIONS  OF  iHe  CuLUMNS  UF  THE  OP  CODE  GUIle  FOLLOW. 1 

~ ooir 

OOlA 

OP”  CODE":  THE”  ALPHABETIC  DRDERTNGIS  THe  CLA55ICAL  PUNCHED “CARD  CoLFAYINGSEOUeNCeTElANK , SPeCI  ALCHARACTeRS.  8 * 

ALPHAbET,  NUMERALS.  EVERY  OP  CODE  5HUWN  WITH  AN  ASTERISK,  t,G.  BbCONK,  IS  ALSO  LEGAL  WITHOUT  IT,  E.G.  BBCON.  jj 

00 1 6 

TypEJ  Op  CODES  ARE  CLASSIFIED  INTO  THE  FOLLOWING  TYPtS: 

00 1 7 

OOl1^ 

OO2O 

oo?r 

0023 

ADR  CON  ( ADDRESS  CONSTANT),  ONe  OR  TWO  WORDS  MADE  UP  OF  QN£  OR  MORE  ADDRESSES  BUT  NO  MACHINE  OP  CODpS;  4 

”CE£RTCAL. . ANT NS TRUCTTON^TTT  T^E  ASSEMBLER  RATHE*  THAN”  TO  f^E  AGCF 
INSTR  (INSTRUCTION),  A WORD  DIRECTLY  EXECUTABLE  BY  THE  AGC* 

TMFRGF TWpRGET  TONTRULT  CAPUJ  7"  ~AfT  INSTRUCT  r0N"70~  THE  TTLE-UPWTI  RU- PART- OF  -“fHjr-  YUC  “SYSTEM  "GOVERRITiir  WERCHJG-  21  4 

OF  INPUT  CARDS  WITH  OLD  PROGRAM; 

002A 

OO2S 

002? 

NUM  CUN  (NUMERIC  CONSTANT)*  ONe  OR  TWO  W'oRDS  REPRESENTING  A NUMBER? 

PRET  Op  (INTERPRETIVE  Op  COdE) , PACKED  2 TO  A wORd  IN  INTERPRETIVE  PROGRAMS?  ANq  4 

obsoitete  ,— onelcode  tmodifyi  wftich  is  recognized  by  yol-1800*  but  doesn.t  do  anything- useful. 

00  ?9- 
0030 

“RtEF /PAGET  TH1”FOLTOWTNG  Re^eReNCeS  A*e  ClTpD:  4 

* D (DIGEST)*  Hugh  BLAIR-SmITH*  "A  YuL  PROGRAMMER’S  DIGEST.”  REVISION  9*  DECEMBER  13.  1967  (cOmPuTLR  PRINTOUT) I 

0032 

0033 

0035 

0037 

“W39” 

004  1 

g (guide),  this  Document; 

I (INTERPRETER  BOOK),  CHARLES  A.  MUNTZ,  "USERS  cUIDE  TO  THE  BLOCK  II  A&C/LGC  INTERPRETER,"  APRIL  I96S  (R-A89) » r 

HTfMAcHTNE-  BOO KT T HUGH  0 [ATlF- S MT TR .”  ^AGCA^ME MCT #9^-^Bl0cK  II  INSTRUCTIONS."  REVISED  JUNE  1,  1967; 

T (TIPS),  HUGH  BLAIR-SMITH,  "YUL  TIPS,"  PUBLISHED  FKOM  TIME  TO  TIME  IN  "THE  SUNLITER*  (JENNY  FLAHERTY.  ED.); 

T“  (YUL  ”B0aKTr~RAYTHEUP”AGC“rNF0RMArl7W  SERIES”  TS-SOE  13 , r'YUL  PROGRAMMING  "SYSTEM  ^”5  DECEMBER  1963  (FR-2-I13).  4 

each  citation  is  given  in  the  form  r/pp;  i.F,  Y/8u  means  page  so  of  reference  y.  in  most  of  the  citatiuns  of 

0043 
0045 
DDVT 
0049 
003T  ” 
0053 

THE  "DIGEST,  a SPECIAL  SERIES  OF  PAGE  NUMBERS  15  U5EDT'Crz  C2,  C3.  C4.  EACH  OF  THESE  h£FERS  TU  (WO  PLACES  Al 

once,  one  in  the  section  «agc  block  ii  interpretive  codes:  assembly  rules  fur  blk2"  and  one  in  the  section 

"AGC  BLOCK  11”  INTERPRETIVE  CODES  {“ASSEMBLY  RULES  FOR  "AGCV"”  “FOR  EXAMPLE*  C2~ReFeR3“7U  "USER’S' OWN  PAGE  HO.  2" 

in  both  sections,  this  device  helps  in  finding  the  differences  between  the  two  assemblers,  the  «page  number"  (1 

-1 N- -A  “YtJLTTlP" "C rrArrtON-rs -R E*t tTTHE” SeR rA t "NUMBER  -or THE-nP”. - PHeRTTWO  CITATIONS  ARI  L,! VEH, ” THE  F I RST  I s the  4 

better  or  more  basic  one. 

„ oosa 

0056 

0056 

1 1 

SAMp  AS:  AN  OP  CODe  IN  THIS  COLUMN  HAS  EXACTLY  TH£  SAMp  EFFECT  ON  THE  ASSEMbL£R  AS  THE  ONe  ON  T Hi  LEFT,  THOUGH 

PROGRAMMING” CONVENTIONS  SOMETIMES  MAKE  AN  ART I F ICTAt  OTST INCT ION.  AS  BETWEEN  "EQUALS"  AMD  " = " IN  DISKpRAS  eTC. 
WHEN  AN  Op  CODE  IN  THIS  COLUMN  IS  DEFINITELY  A LESS  PREFERRED  ONE,  IT  IS  ENCLOSf D IN  ANGLE  bRAcKETS  <THUS>. 

0060 

UVk2~ 

t 

SCOPE:  an  OP  CODE  MARKED  «GFN"  IS  GENERAL,  THAT  IS,  THE  SAME  FOR  ALL  COMPUTERS  SERVED  BY  YUL-lbOO.  EXCLPT 
— INSOFAR  AS  PARAMETERS  SUCH  AS  WORD  LENGIH  MAKE  A DIFFERENCE'. IF  IT  15  MARKED  "SAME,"  IT'  IS  UNICiUi  TO  ThE  BLOCK 

006 A 
7506^ 

11  AGC,  BUT  THp  SAMt  IN  THp  BLK2  AND  AGC  *SSeMBLeRS.  "D1FF"  MeANS  THAT  THE  OP  COD£  IS  TReATeD  DIFFEReNTLY  BY  t 

THF  BLkT  ANU  AGC'ASSEMBCERSy  IN  WAYS'  THAT  "CAN  B£“FOUND  THROUGH  THE  CITATIONS.” 

ka  0 

|.C  6- 

P O 
p>o 

1 

1 

| 

EFFECT  of  *: THET  “OPTIONAL nASTERTSK^FlTRL R^  REANS^rNTEHPRlTrVE”TNDEXllJ(T  OR- IT  T4AS  50ME  SPECIAL  MLANING  THAT  CAN  f 

b£  FOUND  THROUGH  THp  CITATION  IN  THIS  COLUMN. 

6 0071 

0073  - 

, 0075 

W7T 

SIGNIFICANCE  OF  ABBREVIATION:  USUALLY,  thE  PURPOSE  of  THIS  COLUMN  IS  SIMPLY  ]0  SHOW  *HICH  WORDS  W£Re  CUM.  f 

”PRESSED-,~F3ERT-i-Fm.trED7-frNO  RUntATED“TO  TORN  THETY3P^CODEV^WHENr\n:R  THIS^  YlLLDS  LITTLE  MEANING,  ESPECIALLY  IN 
THE  RARF.LY  USED  CODpS,  THERE  IS  ADDITIONAL  INFORMATION.  HOWEVER,  THIS  LOLUMn  IS  NO  SUBSTITUTE  FDR  THp  CITeD 
“ “REFERENCES” FOR TTNDrMG^mn"WHAT“Ar GIVEN  DP"  CODf  REACLTDCTeS.  » 

A 

3 

2 

$ 

(1 

• 
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0078 

nP  C0OE 

type 

REE/PaGE 

same  as 

SCnPE 

EFFECT  nF  * 

SIGNIFICANCE  nF  ABbhEV I aT InN 

• 

0080 

■oohi- 

~<  BLANK) 

^DR-CON"" 

G/  10T/6 

<p>~ 

'"dTf7_ 

— 

(M0"sf  SfR A1 GHT FOR WARO”ADDrYSS  "tYPE ) 

n 

00n* 

C 

CLERICAL 

Y/aO  G/10 

Equals, < 

: 1 S>  GEN 

EQUALS 

00r5 

=MINUS 

clerical 

T/ 10  G/ll 

•f 

EQUALS  MINUS  LOCATION  COUi.TFR 

008  7 

= PLU5 

clerical 

T/lO  G/11 

equals  plus  location  counter 

00B9 

ABS 

PRET  OP 

1/66  O/C3 

SAME 

AbSOLUTL  VALUL  (SCALAR) 

00<jl 

ABVAL 

PRET  OP 

I_/66  D/C 3 

It 

ABSOLUTE  VALUE  <VlCTOR) 

0093 

ACOS 

I’RET  OF 

1/66  D/C3 

ARCCOS 

n 

ARC  COSINE 

6 

009* 

AO 

INSTR 

M/10 

n 

ADD 

0095 

ACRES 

ADR  CON 

M/25 

n 

address 

0096 

ADS 

INSTR 

M/9 

*• 

add  to  storage 

0098 

ARCCOS 

PRET  OP 

1/10  U/C3 

ACOS 

it 

ARC  COSINE 

1 1 

0099 

ARCSIN 

PRET  OP 

I / 10  0/C3 

ASIN 

»» 

ARC  SINE 

0100 

ASIN 

PRET  OP 

1/66  0/C3 

ARCSIN 

n 

ARC  SINE 

0101 

AUG 

INSTR 

M/13 

ft 

AUGMENT 

0102 

AXC.l 

PRET  OP 

1/66  D/C2 

" 

ADDRLSS  TO  INDEX  1 COMPLEMENTED 

010* 

AXC*2 

PRET  OP 

1/66  D/C2 

** 

ADDRESS  TO  INDEX  2 COMPLEMENTED 

0106 

AXT,1 

"PRET  OP 

1/66  D/C2 

n 

ADDRESS  TO  INDEX  1 TRUE 

0108 

AxT*2 

PRET  OP 

1/66  D/C2 

n 

ADDRESS  TO  INDEX  2 TRUE 

0110 

BANK 

clerical 

G/ll 

SAME 

sefk  FREE  LOCATION  in  this  bank 

** 

0H2 

BBCON# 

AdP  con 

M/27  G/ll 

DIFF 

SEE  G/ll 

bOTH-BANK  CONSTANT 

01 1 4 

BDDV* 

PRET  OP 

1/66  0/Cl 

SAME 

indexing 

BACKWARDS  DOUBLL  DIVIDEL. 

0116 

BDSUX 

PRET  OP 1/66  D/Cl 

n 

indexing 

BACKWARDS  DOUBLL  SUBTRACT 

n 

0118 

BHIZ 

PRET  OP 

1/66  0/C2 

DIFF 

BRANCH  ON  HIGH-ORDLR  ZERO 

01?0 

BLOCK 

"Clerical 

G/12  Y/77 

gen 

SEEK  FREE  LOCATION  IN  THIS  BLOCK 

0122 

BMN 

PRET  OP 

1/66  D/C2 

same 

bRANCH  ON  MINUS 

012* 

bNKsUM 

ADR  CON 

G/12 

DIFF 

genlrate  bank  sum  pattern  for  sllfcheck 

0126 

BOF 

PRET  OP 

0/C3 

BOFF 

same 

bRANCH  IF  BIT  OFF 

„ . 

0128 

BOFCtR 

"PRET  OP 

1/66  D/C3 

n 

BRANCH  IF  bIT  OFF,  CLEAR  .IT 

OliO 

BoFF 

PRET  OP 

1/66  D/C3 

BoF 

n 

BRANCH  IF  bIT  OFF 

Oh2 

B0F1NV 

"PRET  OF 

1/66  D/C3 

O 

BHANCH  IF  bit  OFF,  INVERT  BIT 

013* 

BOFSET 

PRET  OP 

1/66  D/C3 

w 

BRANCH  IF  bIT  OFF,  SET  Blf 

0136 

uQN 

PRET  OP 

T/66  0/C3 

H 

BRANCH  IF  BIT  ON 

0138 

BONCLR 

PRET  OP 

1/66  0/C3 

W 

BRANCH  IF  bIT  ON,  CLEAR  BIT 

ouo 

BONfNV 

PRET  OP  " 

1/66  D/C3 

ff 

bRANCH  TF  BIT  ON,  INVERT  BIT 

01^2 

bonset 

PRET  OP 

1/66  D/C3 

ft 

BRANCH  IF  BIT  ON,  SfT  BIT 

(i 

C 

^)l4* 

BOV 

"PRET  "OF 

1/66  D/C2 

« 

BRANCH  ON  DvERF"LOw 

", 

01<*6 

BOVB 

PRET  OP 

1/66  D/C2 

ff 

BRANCH  ON  OVERFLOW  TO  BASIC 

r 

0198 

BPL 

PRET  OP 

1/66  D/C2 

n 

bRANCH  ON  PLUS 

c 

0150 

bVSU* 

PRET  OP 

1/66  D/Cl 

n 

indexing 

BACKWARDS  VECTOR  SUt  TRACT 

( 

0152 

BZE 

FrETTJF 

1/66  D/C2 

n 

bRANCH  ON  ZERO 

015* 

BZF 

INSTR 

M/13 

n 

BRANCH  ON  ZERO  TO  FIXED 

15156 

Bzmf 

INSTR 

M/19 

i» 

branch  un  zero  ok  MtNus  tu  fjxed 

-J 

o 


2 


* 
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0 

0156 

qP  C0O6 

tYPE  REF/PaOE 

Same  as 

SCqPE 

EFEECt  oF 

* SIGNIFICANCE  oF  ABBREVIATION 

OlftO 

01*2 

CA 

TnSTR  m/9 

“SAME 

CLEAR  AND  ADD 

0166 

CADR 

ADR  CON  M/26 

FCADR 

ft 

complete  address 

01ft6 

CAE 

TnSTR  “M/9 

Ta 

W 

clear  and  add  FROM  ERASABLE 

9 

0168 

caf 

InStR  m/9 

ca 

n 

CLEAR  and  add  FROM  fixed 

0170 

CAUL 

PfttT  Op  1/67  D/C2 

DTFT 

CALL 

01  '7 1 

CaLRB 

PRET  OP  0/C2 

ft 

call  and  return  in  basic 

0173 

CARONO 

TrER^E  Y/b6  D/b 

GEN 

card  number 

0175 

CARONS 

merge  d/u 

ft 

CARD  NUMBERS 

0 

017T 

CCftUP* 

TReTOF  T767  D7C“i 

“DTFF 

TNDLX  TNG 

C0MPU1 eD  CALL 

0177 

CCLR&* 

PRET  Op  D/Cl 

SAME 

INDEXING 

COMPUTED  CALL  AND  RETURN  IN  BASIC 

0179 

ccs 

INSTR  K7b 

” 

COUNT.  COMPARE  and  skip 

0161 

CGOTO* 

PRET  OP  1/67  D/Ci 

t» 

INDEXING 

computed  go  to 

Tsrsy 

“CLEAF 

WETOp  “T767UD/C3 

OCR 

"clear  w an 

0l«6 

CLR 

PRET  OP  D/C3 

CLEAR 

l» 

clear  a bit 

01hT 

OUTGO 

■FRET  OF  1/67  D/C3 

7f 

CLEAR  A GfT  AND  GO  TO 

11 

01«7 

COM 

INSTR  M/19 

ft 

complement 

0186 

CTJ5 

PRET  UP  1/67  U/C3 

Cosine 

n 

COSINE 

0189 

COSINE 

PRET  OP  1/10  D/C3 

cos 

it 

cosine 

OloO 

COUNT* 

TCERTCALTT/b  T/10 

GEN 

“SETT/iO 

COUNT  WURDS 

Oi9l 

CS 

INSTR  M/9 

SAME 

CLEAR  AND  SUBTRACT 

I) 

0193 

DAD# 

PRET  OP  1/67  D/Cl 

same 

INDEXING 

DOUbLE  ADD 

0196 

DAS 

I NS  1 « M7B 

DOUBLE  ADD  TO  s'OpAGE 

0196 

DCA 

InSTR  M/13 

tt 

double  clear  and  add 

OT.T 

““DCDF 

Tn5TF“  ~M/2 1 

double “Complement 

02o0 

DCOMP 

PRET  OP  1/67  D/C3 

" 

DOUBLE  COMPLEMENT 

020  T 

OC5 

TNSTR  m/16 

ft 

"OOUuLe “Clear  and  subtract 

0206 

DDOUBL 

INSTR  M/16 

n 

DOUbLE  DOUBLE 

0206 

DUV# 

PRET  OP  1/6?  D/Cl 

ft 

INDEXING 

DoubLL  divide 

0208 

DeC* 

NUM  CON  Y/67 

GEN 

SEE  Y/69 

decimal  constant 

021  or 

“DELETE  MERGE  Y/bS 

DELeTVCARDS 

0211 

DIM 

INSTR>  M/13 

same 

DIMINISH 

0 

0212 

— DLOAD# 

“PRET  OF  I767~U/C1 

tt 

TRDTXTRG" 

“DOUBLL. “LOAD 

0213 

DMP# 

PRET  OP  1/67  D/Cl 

It 

INDEXIN6 

DOUBLE  MULTIPLY 

02 1 5 

LjMPR^ 

PRET  OP r/67  D/Cl 

INDEXING 

DOUBLE  MULTIPLY  AND  FOUND 

0217 

DNCHAN 

ADR  CON  M/26.1 

n 

DOWNLINK  CHANNEL  ADDRESS 

0219 

— DNPTR“ 

“AOFi“CON“  M/26.1 

— w 

“DOWNLINK  LTSTFUINTeF 

0221 

DOT* 

PRET  OP  1/67  D/Cl 

tt 

INDEXING 

DOT  PRODUCT 

02  ?2 

"double 

INSTR"  ““ M7Z0~ 

“DOUBLE 

0223 

DSQ 

PRET  OP  1/67  D/C3 

«t 

DOUBLL  SQUARE 

0226 

USD* 

"■PRET  OP 1/67  D/Cl 

INDEXING’- 

DUUBLt  SUBTRACT 

0227 

DTCB 

INSTR.  M/20 

" 

double  transfer  control,  setting  both  banks 

022T 

DTXF 

TR5TR1  M/1 9 

w 

DOUbLEFTRANSFER  CONTROL . jETTINg  F BANK 

02 1 1 

DV 

INSTR  M/12 

tt 

DIVIDE 

(1 

02 

DxCff 

TN5TT"  "M710 

ft 

oouble“Exchange 

o 


') 


*) 

*) 


•> 

*> 

*) 
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OP  CODE 

type 

ref /page 

same  as 

SCOPE 

effect  OF  x 

SIGNIFICANCE  Of  ABDKfVIAT ion 

02W 
02  38 

EBANK= 

clerical 

m/26  G/13 

DIFF 

E-BANIC  SETTING  EQUALS 

■ 02-.0 

ECADR 

ADR  CON 

m/26 

1DNADR 

SAME 

ERASAbLE-MEMORY  COMPLETL  ADDRESS 

02^2 

eorupt 

INSTR 

M/12  g/13 

DIFF 

ED  SMALLY*S  INTERRUPT  INSTRUCTION 

024A 

EQUALS 

CLERICAL 

Y/bO  G/ 10 

s » < I S> 

gen 

EQUALS 

0245 

ERASE 

CLER I CAL 

Y/78 

•» 

reserve  erasable  memory 

0247 

EVEN 

CLERICAL 

G/14 

n 

MAKE  LOCATION  CUUNTtR_EVEN 

0249 

EXIT 

pret  OP 

1/67  D/C3 

5AME 

EXIT 

02^0 

EXTEND 

INSTR 

M/16 

If 

EXTEND 

0261 

FCADR 

ADR  CON 

M/ 26 

cadr 

SAMr 

FIXED-MEMORY  CoMPLftf  ADDKfSS 

0263 

_t,ENADR 

ADR  CON 

M/25 

SAME 

GENERALIZED  ADDRESS 

0255 

00  TO 

PRET  OP 

D/C2 

GOTO 

GO  TO 

0256 

GOTO 

PRET  OP 

1/67  D/C2 

GO  TO  ' 

ft 

GO  TO 

0257 

head 

clerical 

V/82 

<TAIL> 

GEN 

establish  head  CHARACTER 

0259 

I NCR 

instr 

M/9 

SAM£ 

INCREMENT 

02h0 

I NCR « 1 

PRET  OP 

1/67  D/C2 

n 

increment  index  1 

0242 

1 NCR  »2 

PRET  OP 

1/67  D/C2 

tt 

INCREMENT  INDEX  2 

025* 

index 

^nstpt 

M/ 10  M/14 

<NDX> 

•t 

index 

02is5 

INHINT 

instr 

M/16 

ft 

INHIbIT  INTERRUPT 

0267 

INSERT 

merge 

T/10 

GEN 

INSERT  CARDS 

0268 

1 NY 

PRET  OP 

D/C3 

invert 

SAME 

invert  a bit 

0269 

invert 

PRET  OP 

1/67  D/C3 

inv 

tt 

INVERT  A BIT 

02  70 

INVGO 

PRET  OP 

1/67  D/C3 

tt 

INVERT  A BIT  AND  t,0  TO 

0272 

IS 

Clerical 

Y/bO  G/10 

Equals, = 

GEN 

is  equivalent  to 

027* 

JTA 

PRET  OP 

1/15  D/C2 

STO 

DIFF 

INTERPRETIVE  TRANSFER  ADDkeSS  TO  StoRAGJ 

0276 

rrco — 

PReT  op 

1/15  D/C3 

Rvq 

SAME 

INTERPRETIVE  TRANSFER  control  to  u 

0278 

' LOC 

clerical 

Y/76 

“Setloc 

GEN 

Set  LOCATION  COUNTER 

02h0 

LXA,1 

PRET  OP 

1/67  D/C2 

samf 

LOAD  index  1 from  ADDRESS 

0282 

LXA,2 

“Pret  or 

1/67  D/C2 

tt 

LOAD  INDEX  z FROM  ADDRESS 

02mA 

LXC,  l 

PRET  OP 

1/67  D/C2 

•t 

LOAD  INDEX  1 FROM  ADDRESS  COMPLt MENTED 

02«6 

CZU72 — 

PRET  OP 

1/67  0/C2 

n 

LOAD  INDEX  2 FROM  ADDRESS  COMPLEMENTED  " 

0288 

LXCH 

INSTR 

M/9 

n 

L EXCHANGE 

L 

,,  GUIDE  TO  Op  CoDtb  RtCoGNlZfcD  BY  YUL 

SYSTLm  FOR 

BLK  ^ AND 

AGC  USER  * S OWN  PaGi  No.  b 

0289 

OP  CODE 

TYPE 

Ref /page 

same  as 

SCOPE 

effect  OF 

# SIGNIFICANCE  OF  ABBREVIATION 

0291 

02q3 

MASK 

INST  R 

M/ll 

<MSK> 

same 

MASK 

029* 

memory 

CLERICAL 

Y/82 

GEN 

MEMORY  TYPt 

02g5 

MM 

NUM  CON 

&/1* 

same 

MAJOR  mode  C0NS1ANT 

0297 

MODIFY 

OBSOLETE 

G/1A 

GEN 

MODIFY  SUBROUTINE 

0299 

MP 

INSIR 

M/1  A 

SAME 

multiply 

0300 

MSK 

INSTR 

M/ll 

mask 

1* 

mask 

0301 

MSU 

TNSTR 

M/13 

MODULAR  SUbTRACT 

0303 

MXV# 

PREt  OP 

1/67  D/Cl 

indexing 

MATRIX  TIMES  vector 

t] 

0305 

NDX 

INSTR 

M/7 

index 

SAME 

INDEX 

0306 

NOUF 

InS'I  R. 

M/16  M/ 1 9 

■ 

NO  OPERATION 

030? 

NORM# 

pret  op 

1/67  D/Cl 

<SLC#> 

n 

INDEXING 

NORMALISE 

U3oB“ 

”NV 

NUM  CON 

G/T* 

VN 

NOUFT-vERb  constant 

"0310 

OCT# 

“NUM  CUN  Y/67 

<OCTAL#> 

"GEN 

TsEfcT  Y/69- 

" octal  constant _ 

; 

0312 

OCTAL# 

NUM  CON 

Y/67 

OCT# 

R 

SEE  Y/69 

octal  constant 

Oil  9 

DvP 

I Nsl  R 

M/20 

S^ME 

OVERFLOW  SKIP 

0316 

P 

ADR  CON 

G/  10 

(BLANK) 

same 

POLISH  ADDRESS 

— 

0316 

PODL# 

PRET  OP 

1/68  0/Cl 

*» 

INDEXING 

PUSH  DOWN  AND  DOUbLfc  LOAD 

0 

“032U 

"pdvi:#- 

“PrETTJF 

1766  07 Cl 

** 

fNDEXfRG" 

"WSH  DOWN  AND  VECTOR  LOAo 

0322 

PUSH 

PRET  OP 

1/66  0/C3 

f* 

PUSH  DOWN 

0323 

QXCH 

INSTR 

M/13 

SAME 

0 EXCHANGE 

032* 

rand 

INSTR 

M/ll 

SAMf 

read,  and 

0325 

"Read 

TNSTR 

M/ll 

•» 

read 

0326 

RiELINT 

INSTR 

M/16 

n 

release  INTERRUPT 

0326 

ReMAOk 

ADR  CON 

M/25 

" 

remote  address 

0330 

resume 

INSTR 

M/19 

n 

RESUME 

"OJTT 

return 

IMSTT 

M/  15 

n 

"RETURN 

0332 

ROR 

INSTR 

M/ll 

n 

READ,  OR 

II 

“ “RUUR[T~ 

“PRET  “DP“ 

I766T57C3 

IT 

"ROUND" 

033^ 

rtb 

PRET  OP 

1/68  D/C2 

01 FF 

return  to  basic 

03*6 

— Rvo — 

"PRET  “OR 

I/6U  0/C 3 

< 1 TCq> 

SAme 

RETURN  VIA  oPREJ 

0338 

RiXOH 

INSTR 

M/12 

*1 

READ,  EXCLUSIVE  OR 

2 


(! 


c 

r 


L 

e&uiot 

TO  OP  COOES  RtCo&NIZtO  BY  YUL 

SYSTtM  EOR 

BLK2  AND 

AGC  USER'S  OWN  PAGE  No.  4 PAGE 

glitO 

OP  coot  type 

Ref/page 

same  as 

SCOPE 

effect  of 

» significance  of  abbreviation 

0342 
“0344  ~ 

~SBANir= 

TLt^rCAL 

“M/267l-~ 

— 

' ”~SAMf  “ 

— 

“SUPtR-BANK  SETTlNGtOUALS  “ 

03451 

SEGNUM 

clerical 

T/13 

n 

SEGMENT  number 

0346 

SET 

PRET  OP 

1/68  0/C3 

set  a bit 

0347 

setgo 

PRET  OP 

1/68  D/C3 

n 

SET  A BIT  AND  &0  TO 

034*? 

SETLOC 

clerical 

Y/76 

<LOC> 

GFN 

SET  LOCATION  COUNTER 

03s  1 

SETpD 

PRET  Op 

1/68  D/Cl 

saMe 

SET  pUSH-DOWN  pOINTf R 

03s3 

SIGN* 

PRET  OP 

1/68  D/C  1 

w 

INDEXING 

SIGN 

0354 

SIN 

PRET  OP 

1/68  0/C3 

SINE 

n 

SINL 

0355 

SINE 

PRET  OP 

1/10  D/C3 

sin 

SINE 

0356 

SL* 

PRET  OP 

1/68  D/Ci 

tt 

indexing 

shift  left 

0357 

5LC* 

PRET  OP 

1/13  D/Cl 

norm# 

*f 

INDEXING 

shift  left  and  count 

0369 

SLOAD* 

PRET  OP 

1/68  D/Cl 

n 

indexing 

single  Load 

03a0 

SLR# 

TRET  OP 

1/68  D/Cl 

n 

INDEXING 

shift  left  and  Round 

0362 

SH 

PRET  OP 

1/68  D/C4 

n 

shift  left  1 

0363 

“SL1R 

tret  ot 

f/68  D/C4 

« 

SHIFT  LEFT  1 AND  ROUND 

03h5 

SL2 

PRET  OP 

1/68  D/C4 

w 

SHIFT  LEFT  2 

0366 

5L2R 

PRET  OP 

1/68  D/C 4 

W 

SHIFT  left  2 AND  ROUND 

0366 

SL3 

PRET  OP 

1/68  D/C4 

n 

SHIFT  LEFT  3 

0369 

SL3R 

tret  op 

1/66  D/C4 

« 

SHIFT  LLFT  3 AND  ROUND 

03/1 

SL4 

PRET  OP 

1/66  D/C4 

SHIFT  LEFT  4 

0372 

SLIP  . 

Tret  of 

1/68  U/C4 

n 

SHIFT  LEFT  4 AND  ROUND 

_ .0374 

C square 

INSTR 

M/21 

n 

square 

-0375 

PRET  OP 

1/68  D/C3 

n 

squarl  root 

0376 

SR* 

PRET  OP 

1/68  D/Cl 

ft 

INDEXING 

SHIFT  RIGHT 

0377 

SRR# 

PRET  OP 

1/68  D/Cl 

ft 

indexing 

SHIFT  RlGHl  AND  RoUND 

0379 

SRl 

PrET  OP 

1/68  D/C4 

n 

SHIFT  RIGHT  1 

03  M 1 

SRIR 

PRET  OP 

1/68  0/C4 

" 

SHIFT  RIGHT  1 AND  ROUND 

03«3 

SR2 

PRET  OP 

1/68  D/C4 

•* 

SHIFT  RIGHT  2 

03h5 

SR2R 

PRET  OP 

1/68  D/C4 

n 

SHIFT  RIGHT  2 AND  RqUnD 

03n7 

SR3 

PRET  OP 

1/68  0/C4 

n 

shift  RIGHT  3 

03h9 

SR3R 

tret  op 

1/68  D/C A 

H 

SHIFT  RIGHT  3 AND  .ROUND 

039 1 

SR4 

PRET  OP 

1/68  D/C4 

N 

shift  RIGHT  4 

03g3 

SR4R 

tret  OF 

1/68  D/C4 

n 

SHIFT  RI&Hl  4 AND  RoUND 

03t>5 

SSP# 

PRET  OP 

1/69  D/Cl 

!» 

INDEXING 

5tT  SINGLE  PRECISION 

039? 

— STADR 

PRET  OP 

1/69  D/C3 

" 

STORE  AODRlSS  cumiwo 

0399 

stcall 

ADR  CON 

1/69  D/C4 

DIFF 

store  and  CALL 

04ol 

1* 

£ 

IS 

i 

1 

ADR  COW 

T/69  D/C4 

It 

INDEXING 

STORE  AND  DOUBLE  LOAD 

, 0403 

STORE 

ADR  CON 

1/69  D/C4 

1» 

STORE  1 

‘ 04O4 

“5T0VC* 

AOKCON 

r/69  D/C 4 

w 

TNDeX  ing 

Store  awd  vector  load 

0406 

STO 

PRET  OP 

1/69  D/C2 

< I T A > 

It 

STOKE  UPRET 

0407 

SO 

INSTR 

M/14 

same 

SUBTRACT 

0408 

SUBRO# 

clerical 

Y/83  G/14 

GEN 

SEt  G/14 

SUBROUTINE 

0409 

^XA,1 

PRET  OP 

1/69  D/C2 

same 

STORE  INDEX  1 IN  ADDRESS 

0411 

SXA,2 

PRET  OP 

1/69  D/C2 

n 

STORE  INDEX  2 IN  ADDRESS 

12 
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SYSTem  FOR 

: BLK2  AND  AOC 

USER'S  OWN  PAG*  NO.  1 PAGE  7 

04  1 3 

OP  CoOE 

type  ref/page 

Same  as 

SCqPE 

effect  of  * 

SIGNIFICANCE  oF  AbBREVlAlloN 

O'*  1 5 

" ”S6M7  " 

nTiDEXINO 

triple  add 

04)7 

T AO* 

"PRET  OP  1/69  D/Cl 

0418 

TAIL 

CLERICAL  Y/82 

head 

GEN 

ESTAbLI5H  TAIL  (He  AD)  CHAKACTiR 

0420 

TC 

TnSTR  M/3 

TCR 

same 

TRANSFER  CONTROL 

0422 

TCAA 

INST*  M/20 

W 

Transfer  control  TO  ADDrLSS  in  A 

0424 

TCI- 

INSTw  WTb 

transfer  control  to  fixld 

04?6 

TCR 

InSjR  m/3 

TC 

n 

transfer  control*  Setting  up  Return 

0428 

TTx»l 

PRET  OP  1 /69  D/C2 

ft 

TTRANSTeR  CONTROL  IF  INDEX  1 T5  DELRlME NT AfjLt 

0430 

TIX,2 

PRET  OP  1/69  D/C2 

n 

transfer  control  if  index  2 is  decrementable 

0432 

TL'OAD* 

PRErCP^  1769  07Ci 

n 

I NDEX I NO 

TFTIFLe  l-OAD 

0433 

TS 

IN5TR  M/10 

n 

TRANSFER  TO  STORAGE 

0435 

UNIT 

PRET  OP  1/69  D/C3 

SAME 

unit  VECTOR 

0436 

V/SC# 

PRET  OP  1/70  D/Cl 

same 

INDEXING 

VECTOR  OVER  SCALAR 

0438 

VSD* 

"PRI T OP'  T769  D/C'l " 

" W 

INJEXTNg 

vector~add 

0439 

VCOMP 

PRET  OP  1/69  D/C3 

W 

VECTOR  COMPLEMENT 

0441 

“WEF 

PRtT  UP  1/69  D/C3 

vector  define 

0*43 

VLOAD* 

PRET  OP  1/69  D/Cl 

ft 

INDEXING 

vector  load 

'044'* 

VN 

'ROM  COR"  0/14 

<NV> 

n 

VERB -NOUN  LOTVStANT 

0446 

VPROJ# 

PRET  OP  1/69  D/Cl 

it 

INDEXING 

VECTOR  PROJECT 

0*4F 

~V5L* 

PRET  OP  r/69  D/Ci 

w 

I'NUeTTRG' 

vector  shtft  Left 

04s0 

VSLl 

PRET  OP  1/69  D/C4 

tt 

VECTOR  SHIFT  LEFT  1 

0452 

~¥5T2 

PRET  UP  1/69  D/C4 

VECTOR  SHIFT  LEFT  l 

0454 

VSL3 

PRET  OP  1/69  D/C4 

tf 

VECTOR  SHIFT  LE^T  3 

'0456' 

VSL4 

FRET'OP”  1/69~D/C4 

*• 

VECTOR ^>Hl7r  LEFT  4 

0488 

VSL5 

PRET  OP  1/69  D/C4 

if 

VECTOR  SHIFT  LEFT  5 

O4h0^ 

75L6 

FRCrT3P“  ”1  /69~D/C4 

" 

vector  Shift  left  6 

04fc2 

VSL7 

PRET  OP  1/69  D/C4 

n 

VECTOR  SHIFT  LEFT  7 

046* 

VSL8 

PRtl  UP  1/69  D/C4 

w 

vector  shift  left  s 

0466 

VSQ 

PRET  OP  1/70  D/C3 

•f 

VECTOR  SQUARE 

04feF 

~V5R* 

'PRET'OP'  176  9^7  Cl 

ff 

INDEXING 

VECTOR  SHIFT  RIGFTt 

0470 

v5ri 

PRET  OP  1/69  D/C4 

ft 

VECTOR  SHIFT  RIGHT  1 

”0477  — 

VSR2 

TRETTJr  17 69  D/C4 

*f 

'VECTOR  SHIFT  K IGHT  2 

0474 

V5R3 

PRET  OP  1/69  D/C4 

ff 

VECTOR  SHIFT  RIGHT  3 

0476 

VBR4 

PRET  OP 1769  D/C4 

VECTOR  SHIFT  RJGH-i  4 

0478 

VSR5 

PRET  OP  1/69  D/C4 

•f 

VECTOR  SHIFT  RIGHT  5 

04a"TJ 

VSR  6 

PRET  'OP  17  yo  D/C4 

VECTOk  shift  right  fa 

0482 

V5R7 

PRET  OP  1/70  D/C4 

VECTOR  SHIFT  right  7 

04fl4 

V5R6 

TRETUF  1770  D/C4 

ft 

VECTOR  SHTFT  RIGHT  a 

04fi6 

VSU* 

PRET  OP  1/70  D/Cl 

ft 

INDEXING 

VECTOR  SUBTRACT 

0*86 

VXM* 

PRET  OP — I / 7 o D/C i 

ff 

indexing 

VfCTOR  timls  MATRIX 

04«j0 

vxsc* 

PRET  OP  1/70  D/Cl 

tf 

INDEXING 

VECTOR  TIMES  SCALAR 

0497 

1 7XV*~ 

FRETUF  T770  D7C1 

ft 

ENDEXTRC 

VECTOR  cross  vector 

2 


J 
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&GUIDE  TO  Of  CODfS  ReCO_GNI  Ze_D  BY  YUL  SYSlLM  FQR 

BLX2 

AND  AGC 

USER'S _QWN  PAG;  No.  _fa 

1 PAGE  8 

0494 

OP  code 

TypE 

Ree/pagf 

SAMf  as 

SCOPE 

eFEeCT  OK  ft 

SIGNIFICANCE  OF  ABBREVIATION 

04w6 

04q8 

w AND 

INSTR 

M/ll 

SAME 

WRITE,  AND 

0499 

WOR 

INSTR 

M/12 

rt 

wRITEj  OR 

0500 

WRITE 

INSTR 

M/ll 

WRITE 

0501 

X AD  * I 

PRET  OP 

1/70  D/C2 

SAMf 

INDEX  1 ADD 

0502 

XAD,2 

PRET  OP 

1/70  D/C2 

n 

INDEX  2 ADD 

05o3 

XCH 

INSTR 

K/lO 

« 

EXCHANGE 

0504 

XCHx ♦ 1 

PRET  Op 

1/70  D/C2 

n 

exchange  index  1 

0506 

XCHX  * 2 

PRET  OP 

1/70  D/C2 

n 

EXCHANGE  INDEX  2 

0508 

XLQ 

INSTR 

M/15 

*» 

EXECUTE  USING  E AND  0 

05]  0 

X5U.1 

PRET  OP 

1/70  D/C2 

B 

INDEX  1 SUBTRACT 

0512 

XSU.2 

PRET  Op 

1/70  D/C2 

INDEX  2 SUBTRACT 

0514 

XXALO 

TNSTR 

M/15 

EXECUTE  EXTRACODt  USING  A,  L,  AND  u 

| 

0516 

ZL 

instr 

M/19 

SAME 

zero  l 

0517 

zo 

INSTR 

M/20 

B 

ZERO  q 

0518 

0 

INSTR 

G/15 

SEE  M/34 

SAMF 

000  BINARY 

0519 

I 

INSTR 

G/15 

SEE  M/34 

same 

OOLBINARY 

D52TT 

IDNSDr 

T*DR  CDF 

M/26.1 

tcadr 

t» 

1-DP-WORD-FOr-dOwNLjNK  ADOrT ss 

0522 

2 

INSTR 

G/15 

SEE  M/34 

SAME 

010  BINARY 

05?3 

2BCADR 

ADR  CON 

M/27  G/15 

2CADR 

dief 

2-WORD  BBANK-TYPE  CoMPLETl  ADDRtSS 

0525 

2CADR 

ADR  CON  M/27  G/lb 

2BCADR 

*» 

2-WORD  COMPLETE  ADDRESS 

05?7 

2DEC# 

NUM  CON 

Y/67 

GEN 

SEE 

Y/69 

2-word  decimal  constant 

f 

0579 

2DNADR 

AOR  CON 

M/26.1 

same 

2-Dp-w0RD-F0R-DUWNLINK  ADDRTSS 

0531 

2FCADR 

ADR  CON 

M/27 

B 

2-WORD  FBANK-TYPE  COMPLETE  ADDRESS 

05  33 

2 OCT* 

NUM  CON 

Y/67 

<20CTAL> 

gen 

“SET- 

Y/69 

2-WORD  OCTAL  CONSTANT 

0535 

20CTAL 

NUM  CON 

Y/67 

20CT 

9* 

2-WORD  OCTAL  CONSTANT 

0537 

3 

INSTR 

G/15 

See  M/34 

SAME 

Oil  BlNARy 

^538 

3DNADR 

HDR  CDF" 

M/26.1 

ft 

3-DP-WUKD-FOR-DUWNLINIC  ADDRESS 

O54O 

4 

INSI'H 

G/15 

SEE  M/34 

same 

100  BINARY 

0541 

4DNADR 

ADR  CON 

M/26.1 

4-DP-wOrD-E  Or-DDWNL i NX  ADDRESS 

0543 

5 

INSTR 

G/15 

SEE  M/34 

SAME 

101  BINARY 

[ 

054* 

5DNADR 

~ADR  CDF- 

M/26.1 

5-DP-WORD-E  DR-DUWnL  I NK  ADbRf  SS 

0546 

6 

instr 

G/15 

SEE  M/34 

SAMF 

110  binary 

0547 

6DNADR 

ADR  CON 

M/26.1 

w 

6-DP-WORD-FOR-DUWNLINX  ADDRtSS 

INSTR 

G/15 

SEE  M/34 

SAME 

111  BINARY 

0550  DISTRIBUTION: 

1555  # ADIT  CON  25,  CLERICAL  1 9,  I NSTR66,  MERGE  A,  NUM  CON  "9,  PRET  Up  Hj,  OdSOLETE  1,  TOTAL  267. 

£! 


L 

^GUIDt 

TO  OP  CODES 

recognized  by  yul  system  for 

bLK2  AND  AGC 

UStR'S  OWN  PaG(  NO.  9 

PAGE.  9 

1 

0553 

GUIDE 

to  Column  i 

and  8 contents  meaningful  fo 

YUL 

0554  COLUMN  1 TYPE  REF/PA6L  SIGNIFICANCE  OF  ABBREVIATION 
-0555“ “ 


0556  (BLANK)  (SEE  OP)  G/9  COMMONEST  TYPE 

0557  = merge  d/?  y/B7  seek  and  accept  a card  equal  to  this  one 

05^ * MONT  TOR — Y/51  G/9 IbM-7o90  FAD  MONITOR  HA[,  # ON  M(JNITUR  cARdS 

0559  a remark  y/si  Y/90  aligned  remarks  (aligned  with  instructions) 

0560“  “U  trETT0VEl?^f772“GZs)  TOKeR  (Wn.'CXffRD) -LVALUE  AS5 rcftED “BT TOL . NOTE^  OP  CODE  TYPE  MUST  bE  INSTR  OR  CONST 

0562  L LOG  Y/88  D/S  LOG  CArD.  INVENTED  iN  iBM-650  DAYS  TO  PriNT  LOG  NUMBER  ANd  PAGE  HEADING 

056 a ~p  "remark  ht7 51T790  "Page-head"  remark st 

0565  R REMARK  y/51  Y/89  REMARKS 

056? S SUBD1R Y/49  D/9 SUBDIRECTOR— MEAN1NGLLS5  UNLESS  FOLLOWING  A YUL  DIRfCToR  CARD  (u.V.j 

0568  T MERGE  Y/81  d/8  TUCK  IN  a new  SECTION  (AHEAD  OF  Next  LOG) 

056? — Y U7RtLrrURnr736~D72 YUL  DIRECTOR— FI R5T  CARD  OF  EVERY “YUL  TA5 K 


0570  COLUMN  8 MEANS  REF/PAGE 
TT5TI 


05?I  (BLANK)  “SPACE  1 Y/55 

0573  0 SPACE  0 Y/55 

T5577T  “1  SpACfc.  T Y/55 

0575  2 SPACE  2 Y/55 


0576 

0577 
OS7B 
0579 
05ft0 
05ft  1 

3 

4 
" 5 

6 

7 

8 

Space  3 

SPACE  A 

Y/55 

Y/55 

space  5 

SPACE  6 
SPACE  7 
SKIP 

Y/55 

Y/55 

Y/55 

Y/55 

— 

05ft2 

9 

RT  PRINT 

Y/55  Y/90 

0b«3 

NOTES  ON  THIS  PAGE 

( 

T35ft A 

rrerrs — 

B'LANI 

e COLUMN  1 • 

THF  DECODING  f)F  THIS  TYP>  15  GOVFRNFD  BY  THF  OP  CQDF  IN  COLUMNS  ir.?,  UNLK.S  COLUMN  ft  CONTAINS 

05s7  A 9,  IN  WHICH  CASE  THE  CARD  IS  A RIGHT-PRINT  REMARKS  CARD,  IRRESPECTIVE  OF  COLUMNS  18-23.  IN  FACT,  A 9 IN 

05«7 COLUMN  8 WILL  OVERPOWER-  ANY  "COLUMN  "l- CHARACTER-  EXCEPT  S,  ATTD  Y.  SPECIAL  CASH-  "WHjj  N "ASSEMBLING  TOR  1800, " 

0591  bLANK  IN  COLUMN  1 IS  EQUIVALENT  TO  R IN  COLUMN  It  ThAT'S  WHAT'S  SO  ODD  ABOUT  RfFeRENCeS  D AND  0, 


0593  * IN  COLUMN  15  lHHER  A MONITOR  CARD  OR  « Y CARD  MARKS  THE  tND  OF  INPUT  TO  ANY  YUL  TASK,  SYStlM/360  MONITOR 

0595 CARDS  BEGIN  WITH  EITHER  //  OR  /*. IN  ANY  CASE,  MONITOR  CARDS  ARE  SUPPLIED  LY  THE  OPLFAIOP.  1 

0597  U“TN  COLUMN  iT  THf  TEFT0VeRRUILE“5  “GIVERS  T^Y772“FmVE-0EEFrREFTTTED  TO“MAKI  7FTt  LEFTOVtR  GO  INTO  THe  RIGHT  BANK, 

0599  As  FAr  AS  THiS  CAN  BE  DETERMINED.  THE  DETERMINATION  iS  BASED  ON  THE  STATE  OF  THE  LOCATION  COUNTER  AT  THE  T 1 ME 

1)60 1 TflETLTFTOVEfTTS-  ENCOUNTERED",-  AS-FULL0R5  J 

LOCATIUN  COUNI  £R( UNDfc  | E^INgD UN  5W  ITCHED  LRKS~, ANY  fc-BANK  TV-T7 FIXr-D-FIXLu  ANY  F'-bANK  00-^3 

O60A  LEFTOVER  wORQ<5)S  ANywHERE  IN  FIXED  ANywHrRE  IN  FIXED  ANYWHERE  IN  FIXED  IN  FIXED-FIXED  IN  SAmE  F -BANK 

wo? — leftover- erase; anywheRe^n- eras,  iik  unswitched  he nv -same “embank anywhere  in  eras,  anywhere  in  lRas. 


* 


L tGUlD|_  T O OP  CODeS_  IeC O&N IZE&  .(iY-YUL  SYS T£M  ±or_&Li^  _and_  agc 

06n B Notes  QN  SOME  op  cooes 

0609  


USER'S  OWN  PAGE  Nb.  _yj 


RAUL  10 


J6J  0 ( B_UA NK_)_»_ <P >_ 

06U  THIS  IS  THE  C0DE  FOR  INTfRPReTlVf  ADDRfSS  CONSTANTS.  RhF,-R  TO  D/C1-D/C4  FOR  yHp  NUMBlR  AND  KINDS  oF 

06)3  ADDNESBES  KEyU  l KEU  BY  EACH  INTERPRETIVE  OP  CODt.  THIS  OP  CODE  IS  REQUIRED  1 F op  ALL  plNDS  DF  ADDhESS[ S EaCEPT  C; 

0615  C ADDRESSES  ARfc  REALLY  OPERANDS  AND  MAY  HAVp  THIS  OR  ANY  OTHeR  OP  CODE  THAT  GENFRATlS  A ONt-WORD  CONSTANT  OR 

06)7  INSTRUCTION. 


% 


. «*> 


“ 0 


06 1 8 *.  EQUALS.  <IS> 

n6 | 9 THE  RULrS  GOVERNING  ADDRcSS  SYMBOLS  NOT  PRfDfFINfD  IN  PASS  i . GlVEN  At  Y/8i»  HAVp  BEEN  IMPROVpD.  tHf 

06?r  current  tolf  t5^tht^:1F  _tHe  address  Symbol  has  nut  been  pReDeTTNeIT^he^  the^eqoals  Card  refeRfti ng~ to  i tI s 

0623  ENCOUNTERED  IN  PASS  it  THEN  THE  LOCATION  SYMBOL  IS  STORED  IN  THe  SYMBOL  TABLL  WITH  A POINTER  TO  THE  ADDRESS  (1 

0625  SYMBOL 'S^PLSCe IN  THE  TABLe  (DEFfNER  THREAD)  AND  A U-BlT  FTeLD  CONTAINING  THE  SIGNED  MODIFIER  FROM  THe  ADDRES5 

06?7  FIELD,  AND  THE  ADDRESS  SYMBOL  IS  STORED  IN  THe  SYMBOL  TABLE  WITH  A POINTER  TO  THE  LOCATION  SYMBOL’S  PLACf 

0^2? (DEFINES  THREAD). — T HERE  ARE  ALSO  SOMt  COwpL  ICAT  IONS  I U CDvE«  THe  CASe  OF  A SymdOT  TRaT  DeF  INtS  5[VCRAL  5ymL0LS. 

0631  THE  UPSHOT  OF  ALL  THIS  IS  THAT  AN  INTERMEDIATE  PASS,  CALLED  PASS  1#5,  RUNS  ARqUnD  THL  SYMBOL  TABLE  CLEANING  UP 

0633  ATiTUNFrNTSHED  EuOAL5  DeTInTTIONS  BeYURe  "FasS  2 BeGTNS,  IF  A DtFlNbR  IS  UNDEFINED  OR"  ILL-DeFINlD,  ITS  W'HOLf 

06i5  tree  of  definEeS  is  called  "Nearly  defined,-  meaning  that  the  form  of  ihe  cuuals  Definition  is  all  righi.  and 

06^7  ONLY  tTTe  DEFnurfToN  oF  t^E  ADDRESS 'SYMBOL  rS^LACKTNG.  “5TM I EaR£Y ♦ ALL  MeMB^RS  qF  A VICIOUS  TlRCLt  oF  EqOaLS 

0639  definitions,  and  their  other  definees,  are  called  -nearly  defined.-  to  ta^e  some  examples  from  y/bi: 


064 1 

0642 

_ OLLTJL 
BNK 

IS 

EQOALS 

bNK  -4 
15 

PUTS  INTO  THE 

symbol  table: 

06*3 

0644 

lqca: 

i 

1 

1 

\Z 

13  >»■ 

O 1 

(N) 

LOCB! 

BNK 

15 

( = > 

(N  FOR  NEARLY  DFF.»  a FOR  DFF.  tiY  s.) 

0646 

LOCB 

0 

0 

LOCA 

(DeFINER  THREAD  AND  DEFINEt  THRtAD) 

06,.8  WHeNFFSS  i . b FTND5  OUTl“DURlN(rrrS  SCAN“W~ NEARlY  TJeFINeD  SYMBOLS,  IT  FOLLOWS  THe  DEFINeR  THHeAD  TO  LoCB,  v.HLr, 

0650  UFIJ^DS^eDeFINItIONOF  BNk.  It  THtNFOLLOwSTNlEjJEFINEtTHRLAD  TO  LoCA,  AND  FILLj  IN  THE_D_tF  IN  I T ION  OF 

0652  OUT  1 . THe  "SYMBOL  TABLE  ENTRIES  BECOMES 

06-5  3 LoCa  : out  i locr:  bnk 

0654 il (je> 15 (a) 

0685  0 0 0 0 

0656  THE  IMPLICATION  FOR  THe  PROGRAMME*  "15  THAT  AtFeE0FE0UALS  DEFINITIONS  MAY  HAVt  ANY  DePTH,  BE  OF  ANY 

0658  COMPLEXITY,  and  the  DEFINITIONS  MAY  Bt  IN  ANY  ORDER,  PROVIDED  ONLY  THAI  THe  TREE  IS  LOGICALLY  VALID.  THERe  IS, 

0660  HOWEVER,  one  VERY  Small  Reward  For  HAVING  a PREDEFINED  ADDRESS  SYMBOL:  THE  ADDRtSS  Fir. LD  MODIFIER  MAY  LlE 

0662  OUTSIDE  THE  RANGE  -32767D  TO  ,327670,  BECAUSE  IT  DOESN'T  HAVE  TO  FIT  INTO  A 16-bIT  FItLD. 


L LO  pP  CODf^  RECg&N  1 ^eD  BY  YUL  S_Y  STg*  FqR _BL<2  AND  AGC UStR»S  OWNPAGENO t jj_  PAGt  11  fl 

ObfcA  bMIkUS 


0665  THIS  COD|_  OPERATE*  BY  SUBTRACTING  THe  LOCATION  COUNTS  VALUt  FROM  THL  ADDRESS  F!tLD  MOD  IF  ItR  AND  PRO 

066T  "CEE^rnTrxXACTtY~AS  FOR- fc DUALS,  SD“THe  “RESTRTCTlomvrTHE  eWOF^THe  TRlCtOrNG^TioTf  XOUCl^BtLWL^TWORTATJT. 
0669  HOWEVtR,_IJlTSTlLL  EASY  TO  &eT  AROUND:  SUPPOSE_T  AbLj.  AND  ENDTAbLt  ARt  KNOWN  TT^ Be  IN  SUPtR-BANK  THEN 


06/1  SETLOC  TABLE 

OFT? 5lZTAbLE  .MINUS  END  I ABLE WORKS' ONLY  TF  ENDTAbLt  IS  pRLPEF 1NEU. 


0673  THE  ESCAPE  TS  TO  WRITE  INSTEAD: 


0?74  setluc- table  -20000 

0675  TEMTAfcjLE  .MINUS  ENDTAbLE 

067? SIZTAbLt  EQUALS  TEMTAbLE  -20000 


&677  s PLUS 


0678  THIS  CODE  OPERATE*  BY  ADDING  THe  LOCATION  COUNTER  VALUE!  TO  THe  ADDRESS  FIeLD  K,ODIFItR  AND  PROCEEDING 

7T&F0 LXACILY  AS  FOR  EQUALS. THEREFORE  REMARKS  SIMILAR  TO  THOSE  FOR  »MINU5  APPLY  TO  =PLU5,  THOUGH  THe  CA5E  IS  MUCH 

06fl2  LESS  LIKELY. 


(1 

06h3  BANK 


06 77  THIS  CODE  OPERATES  SIMILARLY  10  BLOCK , AS  WSCRIBe'D  AT  Y/77*  Ex^-tPT  IN  TWO  RE^PfCTS;  Thl  BLOCK  SI2L  IN 

06s6  BLK2  AND  AGC  IS  102aD  . 2000,  AND  THE  BANK  NUMBERS  ARE  4 LESS  THAN  THE  CORRESPONDING  BLOCK  NUMBERS,  BECAUSE  BANK 

“B68TT  750  STARTS  AT  P5EUDO.ADDKE55~  JXOUO~  rHSTEAD  QF T).  ~L* AMPULS:  “ 

' ~ 06fl  9 BAN*:  20  FTND  “FTRS  T UNUSeTT  XOCSTI  ON~rN  "BANK  "20 

O69O  BANK!  0 ♦1400  FIND  FIRST  UNUSED  LOCATION  IN  LAST  pARAGRApH  oF  BANk  uO 

567? ETANTT 5 13  "ILLEGAL:  TTTATF5- NONEXISTENT  MEMORY 

06^3  BANKi  FIND  FIRST  UNUSeD  LOCATION  IN  SAME  BANK  AS  LOCATION  COUNTER  VALUE 


06q5  "SEE  ALSU  NOTE  ON- BLOCK". 


0696  BBCON* 


06«7  BITS  7-5  OF  A BBCON  WORD  CONTAIN  THE  CURRENT  SBANKs  SETTING  (000  IF  NONE  HAS  uEEN  ESTAbLI SHlD  IN  THt 

0699  PROGRAM F 0R7  IF  THE  FTXED-tfANK  MUMBERIS  3Q  ORMOKEFlF  CONTAINS  THE  CORRESPOND  TNG  SUPEP-BANK  NUMBER,  WH I CH  IS 

0701  ALWAYS  THe  El&HTS*  DIGIT  OF  THE  BANK  NUMBER.  IN  THE  AGC  ASSEMBLER*  THt  E-BANK  VALUE  MUST  Bf  GIVEN  BY  A ONe-SHOT 

07o3 EBANr.—OEQ.ARATl-Otn — THIS  ISOPTrONAx  IN-  BE*?.  “ “I  IF  TM  HE*  “ASSEMBLER*-  A ONE-SHOT  SBANK=  PAY  BE  USED  UNlESS  IF 

0705  CONFLICTS  WITH  THE  FIXED-BANK  VALUE. 


0706  THE  STARRED  VERSION,  BBCON*,  IS  A SPECIAL  IMPLIeD-ADDReSS  CONSTANT  LRtATED  FOR  THE  bANKSUM  CHECKING  IN 

T3708  SELTCHECK. TMF^  ADORE5S-FTELD^uST~BL~  LEFT  “aCAN|C7"AND-TFF  W°RD  ~T5  ASSEMBLED- AS  TF  THE  ADDRESS  HAD  BFEN  THE 

07i 0 HIGHEST  ADDRtSS  OCCUPIED  BY  A WORD  IN  THIS  ASSEMBLY,  ASIDE  FROM  THAT,  ALL  THt  BBCON  RULES  APPLY.  THE  EFFECT  OF  II 

757TF  THFXXCON*  WORO  FS-TO  TELL  5FLFCHECK  WH I"CM  TSTFELASTBANK  THAT  NelOS  ITS  BANKSUM  CHtCktD, 


Ji 

Z 

L 

07i» 

eCaiJIDt  TO_oP_COOiS  R^CoGNIZ^BY  VUL  SYSTEM  FQR  BLK?  ANDAGC USfcR«S  OWN  PaGf  NO.  \/  pA6t  12 

BLOCK 

~ — * 

■:»  0715 

07 1 7 

THE  MEMOkY  BLOCK  SIZE  IN  BL<2  AND  AGC  IS  10240  = 2000,  CONTRARY  TO  1 rn . WHICH  GIVES  THE  BLOCK  1 ACC 
"PARSMeTE^S^  Tfffc-~BL0C1C  "NOMFeR  THEREFORE  oBJRIRlO^FY  “5TTrf  T1nG“THe  PSeUDO-ADDReSS  ^ IuffT  10  BTlS,  I.E. 

• 07)9 

07?  1 

BLOCK  01  0 1 2,3  4 5 10  11  ...  N 

MEMoRY:  E0-E3  E4-E7  FIXED-FIXED  BANK  00  BANK  01  BANK  04  BANK  05  ...  BanK  N-A 

» 07?  3 

07?5 

as  fixed-fixed  memory  has  2 block  numbers  but  no  bank  numbers,  it  is  necessary  to  ust  block  rathfr  than  ban* 

WHEN  SEEKING  A FREE  LOCATION  IN  FIXED-FIXED.  8 

<•  07?6 

AN  AUDREYS- FORMAT  HAS  BEEN  ADOtO  TO  BLOCK  AND  BANK  5INCe  Y/77  WAS  WRITTEN:  BLANK  OR  PLUS-SIGNeD  NUMt  RIC i 

07?e 

• 0730 

bCock  Find  HRst  free  Location  in  same  bloCic  as  location  counter  value  01 

BLOCK  .1000  find  FIRST  FREE  LOCATION  IN  LAST  HALF  oF  SA^e  BLOCK  AS  LOCAlION  COUNTER  VALUj 

0732 

• 07  3^ 

THe  EFFECT  IS  TO  ALLOW  A BLOCK  OR  BANK  CqDe  TO  OfF^ND  ON  A SYMBOLIC  ADuReSS  FIeLD,  WHICH  IS  LOCATtO  IN  A PRt.  fl 

CEDING  SETLOC. 

• 07  35 

BNKSUM 

0736 

• 0738 

0740 

this  coDt  generates  the  end_of„bank  pattern  Recognized  by  selfcheck  in  its  checksum  tesf  of  fixed 

“MeMORYV  FTORe  rMMEDrATELT,  f^E  PRfTtWrS  I^C0WIZeU^T’TUL~PAS5  3,  "SMITH  COMPUTES  CHj CKSUM  WORDS  AND  MAKES  THi M 
THE  LAST  OCCUPIED  WORDS  IN  EACH  BANK.  THf  RLK2  AND  AGC  ASSEMBLERS  TREAT  BNKSUM  THf  SAMf  IN  THf  FOLLOWING 

074  2 

RESPECTS! 

07*3 

( 1 > the  location  field  should  be  blank. 

* 074* 

0746 

(2)  the  ADDReSSTIeTD  MUTy  CONTAIN  ElTHfR  A BANK  NUMBER  <THe  USUAL  CASt)  OR  AN  AOoRfSS  In  FIxED  MEMORY. 

FOR  BNKSUM  PURPOSES,  FIXED-FIXeO  IS  INDICATtD  BY  BANK  NUMBERS  2 AND  3. 

• 0748 

0750 
0752 

(3)  IF  THe  INDICATED  BANK  IS  EMPTY,  AND  NO  HIGHER  BANK  IS  OCCUPIED,  BNKSUM  GENeRAIeS  NO  WORDS.  AND  PRIN1S 

"RO-NeeO* “T R "tHe  ASSfMBLY  LISTING.  ~~ THUS  K COMPLETE  LIST  OF  "BNKSUM  CARDS"  WIL L SERVe  A PROGRAM  OF  VARY I NG 
LENGTH. 

0753 

( 4)  BNK5UM  TRIES  TO  GENERATE  TWO  CONSECUTIVE  ADReS-SeLF  WORDS,  THAI  IS,  TC_TO_StL*  WORDS  FLAGGED  AS  CON- 

U7S5~ 

0 ,2  0757 

0?  59 

,,  0761 

0 

0762 

STAN |S  TU  STOP  AN  ALL-DIGITAL  SIMULATION  QUICKER  THAN  A TRUE  TL-TO-SlLF,  IF  EaECUTEd.  T HE  PLACING  OF” 

THt  FIRST  WORD  IS  GOVeRNeD  BY  A SEARCH  FOR  THe  FIRST  UNUCCUPIeD  WORD  IN  THe  brtNK , Rt GARDLeSS  OF  WHeIHlR 
TRE”Rt"5T" OF~TTHET BARK"T5~ EMRTTi — rN  PART ICULAR ,“ TF  THE' FOLLOWING"  LOCATION  IS  OCCUPIED,  THE  SECOND  ADR g5- 

self  word  goes  there  anyway,  with  a conflict  cuss.  o 

IN  the  (3LK2  ASSEMBLER.  AND  IN  AGC  PROGRAM  SUNBURST.  SELFCHECK  LOGIC  REQUIRES  l,0TH  ADRES-SELF  WORDS 

076* 

0 9 0766 

0768 

. 0770 

f 0772 

FOLLOWED  by  A CHECKSUM  WORD,  the  latter  CHOSEN  Such  that  the  SUM  OF  all  words  IN  THl  dank  ADD  UP  TO  THt  ban* 
number,  the  sum  is  computed  in  a slightly  special  way,  with  plus  or  minus  overflow  being  carried  eno-around  as 
A PLUS  OR “MTNU5"  00001.  THE  REQUrRE^T^TT0ITB07lT~ADRE"5ASELF  WORDS  MEANS  THAT  THE  FIRST  MAY  BE  PLACED  NO  LATlR 
THAN  LOCATION  3775  OF  THE  BANK.  IF  ALL  WORDS  200U-3775  ARE  OCCUPIED,  THE  ADReS-SELF  ,.OFDS  GO  INTO  LOCATIONS 
3775  AND  3776  WITH  A CONFLICT  CUSS. 

f 6 

0 


5 

/ 

-i 

- 

< 3 

2 _ 

/ 


* 

L 

S&UIDe  to  oP  COOeS  ReCoGNIZeD  by  YUL  SYSTfcM  FOR  BLK2  AND  AGC  USER'S  OWN  PAGf  No.  13  PA&t  n fl 

0773 

BNKsUM  (CONTINUED) 

* 077* 

“15776-' 

0776 

* 07h0 
D7h2 

THE  AGC  ASSEMBLER  RULeS  CORRESPOND  To  A CHANGE  IN  SeLFCHECK  THAI  WAS  MADE  AFTl«  BURSTl 16  WAS  FROZEN 
THE  CH  ANG  p IS  THAT^THeT  TOR  EG- SELF  WORDS  A*E  PARTCr  OFOVHULU'r  OKI  TTLU~rN  A NEARLY  FULL  BANK,  THAT  IS,  1 7 s 

LOCATjONs  2000-3775  ArE  OCCUPIED,  EjTHEr  Or  BOTH  OF  THE  ADrES-SELF  WORDS  ArE  UMjTTED  iN  SUCH  A WAY  THAT  THE 

~T  RECKS  UM—WOFn)  r5“llT  LOCATION-3777.  TO  ELTHTNATE  CONFUSION  ABCTUT  THE  AMOUNT  OF  ROOM  LlFT  IN  A bARK  , T^E  AGC  9 

BNKSUM  PROCEDURE  PRINTS  the  NUMBER  OF'  WORDS  (IN  DtCIMAL)  FROM  THe  LOCATION  OF  THE  FIRbT  aDReS-SlLF  WORD  THROUGH 

078* 

* 0786 
0786 
07<j0 

*  -on? 

079* 

LOCATION  3776,  JHA1  IS,  | Hfc.  ABSOLUTE  MAXIMUM  OF  WORDS  |HA[  CAN  »e  ADDED  IN  iHaT  BANK  'AND  STILL  LEAVE  ONE 4 

LOCATION  FOR  THe  CHECKSUM,  THe  REOUIREMeNT  FOR  THE  CHECKSUM  IN  THe  AGO  ASSEMbLpR  IS  DIFFERENT  TOO:  THe  BANK 
MUST  ADO  UP  TO  PLOG  OFT  MIUUS  THE  BANK  NUMBER,  TG'5EE^WT(7,~rMAGTnE“THAT_BAHK  25  TS  FUlITAND  THAT  1.0GAfIGNi5  ' " 

2000-3776  ADD  UP  (CHECKSUM-FASHION)  TO  40000.  OR  -37777,  NOw  NU  CHECKSUM  WORD  CAN  bE  CHOStN  THAT  WILL  YIELD  {] 

GOOZ5  WHEN  ADDED  TO  “WOU(T,  BOF  A CHECKSUM  WORD  OT  37752  YIELDS  77752  a -2  b.  TATS- CAN”  NEVER  HAPPEN  IN  BLK2 
BECAUSE  THe  last  TWO  WORDS  BEFORE  the  CHECKSUM  WORD  CONTRIBUTE  at  Least  ,4001  TO  THE  sum,  WHICH  THEREFORE  has  A 

O796 

* 0798 

Possible  range  of  - j 377*  to  +37777,  ff  BRKbUM  finds  a bank's  10240  words  all  occur itu,  n puis  03777  into 
location  3777  of  the  bank,  with  a conflict  cuss. 

0799 

* O60T 

0bo3 
0805 

this  is  a good  place  to  say  something  about  the  computation  of  the  checksum  word  in  pass  3,  It  will 

~ ACCENT  TH|f~  FTRST“CONSeCU f 1 YE  PAIR  OF  TC-SfLFS  (OR  ADReS-SeLFS)  IN  A BANK  AS  THE  E NIT- 07 -FA NK  MARKeR,  AND  TRY  10 “ 21 

put  the  checksum  word  in  the  following  location,  but  It's  perfectly  happy  if  there  is  no  such  pair  (meaning  no 

CHECKSUM  is  WANTED), THe  GENERAL  PRINCIPLE  IS  TO  GIVE  TDU  EITHER  A CHECKSUM  OR  A RfcASON  WHY  NOI. TF~F  ’ BANK  15 

0607 
08o9 
061 1 

* 158  lT 

0815 

COMPLETELY  FILLED,  WITH  NO  CONSECyT I VE  PAIR  Op  TC-SELfS,  THE  LAST  WORD  IN  THe  bANK  GETS  THE  PREFIX  "NOSUM"  IN 
— THET” OTTAr  “STORAGE  MAP.  TF“THETRT  l$  AN  UNOCCUP iEDLUCAriGNEETOHET  ANY  PAir“OF  TC-$ELFS,  IT  IS  MARKED  "NO 

CHECKSUM, n AND  NO  ATTEMPT  IS  MADE  TO  CoMPUTp  ONE,  IF  A LOCATION  IS  EITHER  A «BAD  WURu«  OR  A "CONFLICT,"  THERE  D 

-lST-RCrOFTECKGUM,  IF  THe  LOCATION  WHERE  THe  CHECKSUFT'KORD^SHaUUD  GU  15  "DCCUF1  ED,  THE  OFFENDING  WORD  IS  PReFI^eD 
"■SUM"  AND  THE  CHECKSUM  IS  ABANDONED,  IF  ANY  WORDS  AFTE«  THe  CHECKSUM  WORD  ARe  OCCUPIED,  THe  FIRST  IS  PREFIXED 

t)8l  7 

4 08i9 

_ur?r‘ 

0623 

3 0»>5 

"'■"EOS'"  TEND- OF -BANK  ERROR),  THE  PREFIXES  BEGINNING  WITH  * COUNT  AS  CUSSED  LINES,  A PECULIAR  CASE  ARISES  IF  THj 
TC-SELFS  ARE  THE  LAST  TWO  WORDS  OF  A PARAGRAPH  BUT  NOT  THe  END  OF  A BANK,  AND  THE  FoLl OWING  PARAGRAPH  IS 
- UTOCCOFl^ir  rtfY  TXPrrCim)UrNG',nARYWP^T.'  'A'-PARAGRTTPR^MUST  BE  CREATED  JUST  F OR  t^E  "CHECKSUM  WORD,  AND  ThE  ONLY 
FACILITY  that  DOES  IT  AUTOMATICALLY  IS  THF  BNKSUM  ROUTINE  IN  THe  AgC  ASSEMBLER. 

IN  TH£  AGC  COMPUTATION  OF  THE  CHECKSUM  WORD,  THe  RULE  Is  TO  GIVE  IT  THE  SMALLlST  MAGNITUDE  POSSIBLE, 

0827 

* 0829 

— IF  THE  SUM  FROM  1 HE"BE^TNnTNtr  OF  THE  BANK  THROUGH  THE  LAST  WURD  BeFORe  THe  CHECKSUM  Ij  POSITIVE  (NeGATIVl),  THe 
CHECKSUM  WORD  IS  CHOSEN  TO  MAKE  THE  WHOLE  BANK  ADD  UP  TO  PLU5  (MINUS)  THE  BANK  NUMBER.  IN  A&C  OR  BLK2,  BY  |Ht 
“WAY,  “BANK  ~00  7TA5  TDADD  OPTO  77777  f-OI. 

fl 

0832 

ebank» 

• u 0833 

08  35 

THE  AGC  ASSEMBLER  REQUIRES  THE  ADDRpSS  VALUE  FOR  LBANK»  TO  BE  AT  LEaST  10  AND  AT  MOST  3777— THAT  IS,  AN 
ADDRESS! R TRRSAOLE^KEMORY.  ' THE  BLK2  ASSEMBLER  ALLOWS”  THE5E,  AND  ALSO  ALLOWS  E-BANK  NUMBERS  0-7. 

W3T“ 

08  39 

THE  AGC  ASSEMBLER-  ITeOUIReS  A~ONE-SHOT  El^NK*  DECLARATION  1ieF  0Re  eVekY  BECON  OR  PBCON*  AND  2BCAOR  OR 
2CADR ; THE  BLK2  ASSEMBLER  DOES  NOT. 

• 9 

0840 

EDRUPT  « 

* “ 0841  ' 

0843 

0B*3 

mE“BOC2“SSSEMBtER“RE:GART5S^15KUPT  AS !TFrTMPLTED-ADWt55  EX TWCOPE“ AND  ALWAYS  ASSEMBLES  IT  0/000,  THE 

agc  assembler  regards  it  as  a full  extracode  requiring  a fixed-memory  address,  and  it  is  thl  agc  programmer's 

RE5P0N5ISIL1 |Y  10  See  THAT  ]He  APDRp5S  15  BETWeeN  7000  AND  ////. THIS  IS  bECAUSE,  IN  The  FT IGHT-KOPe  APPLU-A- 

• 0847 

0649  " 

tion,  control  returns  (afteR  certain  resumes>  to  the  edrupt  instruction,  not  to  the  l>tfnd  before  it,  so  that  ii 

— IS  EXECUTeD“AS  a to  1 NSTRULTI ON 7 -SEE  T5JOBIN  SUNDANCE  FOR  FURTHER  INFORMATION. 

5 

• 

• 3 

0 

2 


L 

'f 

0851 

etaUlDE  TO  OP  CODf.S  KfcCoCjNIZfcD  bY  YUL  SYSTEM  FOR  BLK2  AND  AGC  USLR'S_DWN  PAGE  NO.  16  PAftf  16 

EUEN 

0852 

085* 

0856 

08b8 

THIS  CODt  TAKgS  NO  LOCATION  OR  AODRFSS  FItLDS.  IF  THf  LOCATION  COUNTER  VALUt  IS  EVlN,  1 T HAS  NO  fFFpCT 

— IT" "TFlE~tUCATrON^  COUHTeR- VAtU? “I^ ~0DD"7 “I T”  Ts  INCREMENT Et^i  TffIS" “1 5“  USEFUL  IT  U 'S  DESlkEir  TO  ALIVN  DoUBLE-WOHD  s ' 

QUANTITIES  ON  EVtN  LOCATIONS,  WHICH  INCIDENTALLY  GUARDS  AGAINST  BANK.StRADDLInG,^  HoWt,VrR}  U SHOULD  b£  USkD  IN  [| 

"CONjUNTTfloN  WTtTTLeFTOVeR  CONSTATS  TO  F [LL  UP  Tht  RESULTING  HOLE.  DON'T  FEEL  uAD  IF  YOU  CAN'T  USE  IT  “ 9 

OBfeO 

0861 

0863 

MM_ 

THIS  CODE  IS  EQUIVALENT  TO  DeC  E*cEPT  THAT  THt  ARGUMENT  IS  LIMITS  TO  A MAGN1  fUDf  01  99^  lT  WAS  INTRO- 

~duCeD“  to  e^Fe  fwi  transition  from  octal  to  decimal  major  mo£Tes,  and  now  has  mostly  eyeball  value.  6 

jD8fe5 

MODIFY 

0866 

0868 

0870 

0872 

067* 

0876 

0878 

THIS  CODE  IS  LISTED  H£Re  MOSTLY  FOR  THE  BENEFIT  OF  THOSE  (LIKE  THE  VUL_i60  PEOPLei  WHO  KeAD  THe  YUL-  1! 

iboo“pfocrr7vt,  the  code  rs  Recognized tjctftt ^thot  now  “intended  to  be  “used,  at  Least  in  flight  programs,  it 

TAKES  NO  LOCATION  OR  ADDRESS  fIeLD,  AND  ITS  FUNCTION  IS  TO  ArrEPT  ALL  (ARD  ImAGFS  rOMlNG  IN  pROM  TAPE  IN  A 

r’evtstun  or  version  assembly  or  from  the  ^isc  in  a transferred  assembly,  up  to  and  including  the  Ne*t  of- 

CARD  image,  WHICH  Marks  the  END  of  EVERY  PROGRAM  and  SUBROUTINE  file  on  tape.  tH£N  further  CHANGe_ CAROS  FROM 
THe  Card-  Re^DeR“  ARe”MeRCeD^WIT>FA  ^BROUtTNe^ALLLIFH?  TRe  rA1N  PROGRAM,  FOR  THe  DURA  [ION  OF  THe  CURRENT  A5Sem. 

BLY  ONLY.  TH£  SUBROUTINE  FILeS  ON  TAPE  A«E  UNCHANGED,  THe  YUL-360  PEOPLE  ARt  BEGINNING  TU  USL  THe  WOHD 

0880 

"modify"  in  the  “Sense  of  "Revise  a subroutine." 

0881 

0882 

088* 

0886 

0888 

SljBRO# 

THIS  Code  May  ONLY  Be  USED  in  A program,  I.e.  SUBROUTINES  CAN.T  CALL  oxHjeR  SUBROUTINES  THt  SUPPRESSION  fl 

OFHRTNTrTNGTfiLLED  FOF  BY  tHe“3UBDIR|-^T0R  "SUPPReSS  IHACtIVe  SUBRoUTTNtF"  WORKS  THIS  wAY:  IF  A SUBROUTINE  HAS 
NOT  Been  CHAN&eD  SINCf  jHfc-  LAST  ASSEMBLY  of  THe  PROGRAM  CALLING  It*  It  IS  "1NACtIVf*"AND  IF  tHf  SUPPRESSION  IS 
— ON,  THe  only  LINES  PRINTED  ARE  THe  "LND  oF«  LINE  AND  ANy  CUSSeD  line  WITH  IIS  CUSSES.  tHe'Sl  Akl>,aDe  to  Ape eAR  “ 

0890 

UNDER  THF.IR  PROPER  LOG  SECTIONS.  /) 

O89I 

0893 

0895 

a subroutine  may  be  made  permanently  active  with  Reject  to  a given  program  if  it  is  called  bY  subrl* 

HHST eATF ~0 F ^UB R07  AU7 ~S UBR 00 flH £S “CTILT eD—  IH ~A“Ne W,- Ve RST OR , OR  TRANSFERRED  PROGRAM  ASSEMBLY  ARt  NeCeSSARIlY 
ACTIVE.  SINCE  A NEW  PROGRAM  IS  BEING  CREATED. 

0896 

0897 
0899 
0901 

, 0903 

VN«  <NV>  „ 

G 

thtsts~a  variation  on  dec  to  pacf'two  5 e v en-bt rflt lds,  Representing  a verb  and  a noun,  into  oNl  agc 

WORD,  THe  VERB  and  NOUN  NUMBERS  ARE  WRITTEN  IN  the  ADDRESS  FIELD  IN  DECIMAL,  in  THE  1 ORM  VVNN  (OR  INDEED  ANY  H 

Form  acceptable  to  dec  that  comes  to  ihe  same  value),  the  magnitude  of  this  expression  is  limited  to  9999.  ^ 

THE  PARTS  w AND  NN  ARE  IN  EFFECT  CONVERTED  TO  BINARY  SEPARATELY  AND  PLACED  IN  bITS  U-8  AND  7.1  OF  THE  WORD,  'j 

09o5 

RESPECTIVELY.  £ 

6 

5 

~) 

a 

> 

3 

;> 

Th7C7£i~ 


z 


L 

pGuIDE  TO  OP  CODES  RtCOoNlZtD  BY  YljL  SYSTEM  FOR  BU2  AND  A(,C  uSLRtS  OWN  pAt,F  NO.  lt>  pa&F  is  f! 

0906 

0.  1 « 2 , 3*  A.  5*  6 , 7 

0907 

T79o9~~ 

09ll 
0913 
091  5 

THESE  are  THE  ONLY  NUMERIC  OP  CODfS.  they  ARt  ALL  ReGARDeD  AS  REGULAR  CODeS  (NCN-tXTRALODE,  AND  AS  FULL 
“ C OOFS,  TAICTNG- A"~  I2_Bl  T AUDRTS5“  PAR  T.  THUSr  COD  E 2,  FUR  “I  NSTANCE,  C OUCTT  STAND  ROR  DA5  , CXCR,  INCR  7 OR  ADS,  Dl  5 

pending  on  the  value  of  the  address,  it  could  also  stand  for  msu,  oxch,  aug,  or  dim  if  the  preceding  word  is  a 
5eGPE7^EXT lND'^  T . L.~OP TODe  "o1*  AND'7TDDRESS_ir6lr,  “A  NDMeRIG  OPHQDe  ~I5~USUALtrY  U5lD~0NLY  WHERE  THe  OP  CODt.  9 

itself  will  be  modified  by  indexing. 

09  1 6 

2&CADR * 2CADR  ~~  9 

091  7 
091  9 

TFT  THE  “AGC“AS^eMBLP7  THE  E-BARK  TTATUe"MUSt~Re  “GTVeN  D>^A“0"Ne."SH0T  t&ANK-~DtCLARAfIuN.  fl<TS  IS  OPfTONAL 
IN  BLK2.  IN  EITHER  ASSEMBLER,  THe  SUPeR-RAnK.  VALUE  MAY  BE  GIVEN  bY  A ONE-SHOT  SBANK.=  DFCLARATIuN.  SEE  ALSG  THe 

09?  1 

NOTE  GN'BB'COW.  “ — 01 

twD  0^  ReVI S Ion  j>_qF_  _PKoGR  AM  qPGU  1 Dg_  byhb-s 


L 


Roooi- 

R0003 


OOOA 


0005 


R0006 

R0008 

R0010 

R0012 

ROOIA 

R0016 

R0018 

R0020 

R0021 

R0023 


R0025 

R0026 

R0028 

R0030 
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we  are  deeply  indebted  to  the  one.  the  only»  the  sreat  john  c,haw  for  the  following  strong  magic.... 

JS3CT- 


SETLOc.lC  0 B 1 

MAS<0rP,1  s.o  f.o 


YUL  SYSTEM  Pass  0 iS  LOADED  BY  THE  MOsiiTOR  in  RESPONSE  TO  THE  MONITOR  card 
* YUL  (ANY  SUBSEQUENT  WORD  IS  INTERPRETED  AS  THf  NAME  OF  A tAPe  OTHeR  THAN  YULPROGS.) 

it  th-n  Performs  tasks,  such  as  assembling  a new  3L<2  program,  under  control  of  yul  director  cards,  which  are 
DISTINGUISHED  3 Y »Y"  IN  COLUMN  1.  THESE  TASKS  ARe  PERFORMED  IN  SUCCESSION  until  another  MONITOR  card  I 5 READ. 
NOTE  IN  PARtICJLaR  THAT  THE  FIRST  CARD  FOLLOWING  [He  * YJL  CARD  MUST  Be  A YUL  DIRECTOR  CARD. 

rJL  DIRECTOR  CARDS  are  READ  as  SENTENCES,  that  IS,  SPELLING  is  CRITICAL  but  INTERWORD  SPAC- 
ING AND  (TO  SOME  Degree)  PUNCTUATION  are  NOT.  the  RESTRICTION  ON  PJNCTUATION  IS  that  THeRe  may  Be  only  ONE  TER 
minatdr  CHARACTER  AFTER  each  word.  See  Next  TWO  JAGES  FOR  EXAMPLES. 

YJL  system  PROGRAMS  OCCUPY  BANKS  1-3'  AND  RUN  IN  ANY  3 GROUPS.  tHeY  USE  AS  MANY  AS  5 TAPES 

use  The  2200  for  tape  punching,  and  snatch  and  Re_ease  the  card  punch  As  needed. 


cast  of  characters: 

EMPEROR  HUGH  BLA IR-SMI TH  IL7-238E  XT  2 1 5 

y/ICEROY  for  block  II  POLISH  ASSEMBLY  (YUL=ASS2f6L0C<I I ) . . ; CLIFFORD  F.  IDE  IL7-109  XT  1 5 1 

MINISTER  FOR  MANUFACTURING  (YULMANUFCAGCA,  YULMAN JF cBL0C<1 I ) ' " " " 


L 


USER'S  OwN  PAGE  NO 


2 


PAGE 


P0032 


R0039 

R00391 

R0035 

R0036 

R00361 

R0037 

R0038 

R0039 

R00901 

R00A02 

ROOA1 

R00a2 

R0049 

ROO96 

ROO A7  I 

R00972 

R00A8 

ROO  99 

R00501 

R0051 

R0052 

RQ0531 

R00532 

R005A 

R0055 


gYUL  SYSTEM  — PASS  0 

EXaMP.ES  OF  aLL  CURRENTLY  AVAILABLE  YUL  DIRECTOR  CARD  TYPtS.  ON  THIS  PaGE:  ASSEMBLY-TYPE  DIRECTORS. 


Y ANDY  ASSEMBLE  NEW  3l*2  PROGRAM  BUGFULL  BY  DR.  TERRY-THOMA* 

Y NAN  ASSEMBLE  NEW  AGC  SEGMENT  PIZZA  BY  JOE  5 N-MQ 

Y LYNN,  ASSEMBLE  NEW  AGC*  SUBRDJtINE  INTPReT  BY  MJNyZ 

Y YJ.  ASSEMBLE  REVISION  15  OF  AGC*  PROGRAM  HI<E  BY  JF< 

Y YJ.  ASSEMBLE  REVISION  1 OF  AGC  SEGMENT  SPL1TF-E  BY  DR.  CROOK 

Y NAN  ASSEMBLE  REVISION  112  OF  BL<2  SUBROUTINE  .EADON  BY  MACBETH 


(Required  with  Version  assembly) 
(required  with  version  assembly) 
(required  with  version  assembly) 


Y EX 3 ASSEMBLE  VERSiON  NEWBJGgY  BY  SOMEBODY  ELS- 

S FROM  REVISION  2 OF  AGC4  PROGRAM  3JGS  BY  3 JNNY 

Y LYNN,  ASSEMBLE  VERSION  NEWSlG  BY  NEW  FELLER 

s from  revision  o of  saco  segment  dldseg  ar  old  feller 

Y ANDY  ASSEMBLE  VERSION  PINBALL  BY  A.  I.  GREEN 

s from  revision  22  of  bl<^  subroutine  ball?-en  by  "Pop»  bumper 


y 2N0?  assemble  transferred  blk2  program  ous<  by  nasa  2019999-099 
S FROM  P I CKYOUR -ILenAMe 

Y FRJZ  ASSEMBLE  TRANSFERRED  aGG*  SEGMENT  TWILIGHT  BY  NASA  1021199 

S FROM  U1SCTW1JIGHT 

Y YJ.  ASSEMBLE  TRANSFERRED  SACO  SUBROUTINE  DEMJReS  BY  G,  WASHINGTON 

S FROM  WASpARTD'APRQG 

S UPGRADE  TO  REVISION  123 


(see  Transfer  verb  on  next  page) 
(Required  with  transferred  assembly) 

(required  with  transferred  assembly) 


(required  with  transferred  assembly) 

(OPTIONAL  WITH  TRANSFERRED  ASSEMBLY) 


Y FRDZ  REPRINT  REVISION  15  OF  AGC*  PROGRAM  HI<E  BY  JF< 

S FOR  PIERRE  SAJINGER 

Y NAN  REPRINT  NEW  AGC  SEGMENT  CLIPPING  BY  XEROX 

S FOR  DENNISON 

Y YUL  REPRINT  REVISION  o OF  SaCO  SUBROJTINe  CARIES  BY  TOOTH  DECAY 

S FOR  NOYS  E.  SORING,  D.D.S. 


(REQUIRED  WITH  REPRINT) 
(REQUIRED  WITH  REPRINT) 
(REQUIRED  WITH  REPRINT) 


L 

P0'057 


R0058 

R00581 

R0059 

Roo&o 

RCOfcl 

ROO&3 

R006A 

R0068 

R0069 

ROOVl 

R0072 

R0073 

R0O7W 

R0074  1 

R0075 

R0077 

R0078 

ROO  79 1 

R00792 

Roobo 

R0081 

R0083 

R0085 

R0087 


R00B8 

R0069 

R0091 

R0093 

R0095 

R0096 

R0097 

ROIOO 

R0101 


R0103 

ROIOA 

ROIOAI 
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EXaMP.eS  OF  YUL  DIRECTOR  Card  tYPES  CONCLJDeD,  ON  His  PaGe.  NON_ASSEMBLY  and  INTeRNAL»USe  DIRECTORS. 


y yjl  delete  Revision  o op  3c  program  bjgfull  3y  dr.  terry  - thomas 
y ex 3 delete  Revision  12  op  3l<2  segment  bugaboo,  by  spoo< 

Y L Y M vl.  DELETE  REVISION  7 OF  AGCa  SUBROUTINE  BED3JG  BY  SIMMOnS 

Y YJ.  CONTROL  NEW  SACO  SUBROUTINE  BICUS3ID  BY  LEFTY  CHOMP 

s authorised  by  percival  q,  nibble  (required  with  subroutine  control) 

Y NA  N,  DECONTROL  REVISION  256  OF  BLK2  SUBROUTINE  UNBRIDLE  3y  UlM  ORGIES 

S AUTHORISED  BY  IMA  NOH  PURITAN  (REQUIRED  WITH  SUBROUTINE  DECONTROL) 

Y YUL  MANUFACTURE  REVISION  1 uF  3C  PROGRAM  ZA?  BY  UoVE 

y anoy  manufacture  new  agc  segment  zot  3y  uohnny  hart 

Y LYNN  PRINT  REVISION  2 OF  AGCa  PROGRAM  3U&S  3Y  3UNNY 

Y L Y MN  PUNCH  REVISION  2 OF  AGCa  PROGRAM  3UGS  3Y  3UNNY 

Y LYNN  PRINT  * PUNCH  REVISION  2 OF  AGCa  PROGRAM  3UGS  3Y  BUNNY 

Y LYNN,  PUNCH,  PRINT  REVISION  2 OF  AGCa  PROGRAM  3jGs  3Y  3JNNY 

Y FROS  PUNCH,  PRINT  REVISION  o OF  BLK2  SeGMENT  FRAMMIS  3Y  OINGBAT 

Y LYNN  PRINT*  PUNCH  NEW  AGCA  SUBROUTINE  INTPRET  3Y  MUNTZ  (I.E.,  PRiNT  OR  PUNCH  OR  BOTH  A}£  0<.) 


Y NAN  TRANSFER  NEW  3LK2  PROGRAM  DUSK  BY  NASA  20i9999-099 

S AS  PlC<Y ouRp I LENAME 

Y ANOY  TRANSFER  REVISON  3 OF  AGC  SEGMENT  TWILIGHT  BY  WAGNER 

S AS  DISCTWILIGHT 

Y EX>  TRANSFER  REVISION  12  OF  AGCa  SUBROUTINE  LeADON  BY  TEaSeR 

S AS  SOP, EOtHER  NAME 

Y YU_  TRANSFER,  PRINT  NlW  SACq  PROGRAM  CHEWCHEW  BY  EL  MASTICATOR 

S AS  kASPArtOF A3R0G 


(REQUIRED  WITH  TRANSFER) 

(REQUIRED  WITH  TRANSFER) 

(REQUIRED  WITH  TRANSFER) 
(OR  "PRINT,  TRANSFER") 
(REQUIRED  WlTh  TRANSFER) 


Y NAN,  MESSAGE  TYPE  THIS  MESSAGE  TO  THE  OPERATOR 


MAINTENANCE  OP  YUL  SYSTEM  SOFTWARE  STATUS  — INTERNAL  USE. 

Y ANDY  ADD  NEW  COMPUTER  NAME  BLK2 

Y LYNN,  REMOVE  OLD  COMPUTER  NAME  MOD  3C 

Y YUL  ASSEMBLY  PASS  1 FOR  3C  IS  AVAILABLE 

Y EX?  ASSEMBLY  PASS  2 FOR  MOD  BLK2  CHEC<ED  OUT 

Y FROZ  ASSEMBLY  PASS  3 FOR  MjD  3C  IS  OBSOLETE 

Y ANDY  MANUFACTURING'  FOR  BL<2  IS  AVAILA3LE 

Y YUL  ASSEMBLY  PASS  3 FOR  AoCa  = ASSEMBLY  PASS  3 FOR  M3D  tC 

Y LYNN.  MANUFACTURING  PqR  MOD  AA  = MANUFACTURING  FOR  AGCa 


("NEW",  "NAME",  AND  "MOD"  ARe  OPTIONAL.) 
("OLD",  "NAME",  AND  "MOD"  ARE  OPTIONAL.) 

("IS"  IS  OPTIONAL.) 


OPERATOR  OPTIONS. 

y creatf  backus 

Y CLOSE  MONAIN  TAPE 
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P0105 

6 1 * 0000 

THROUGH  B 1 . 0076 

(OCTAL) 

constitute  interpass  storage,  note  that  pass  o changes  c(Prog  name). 

0107 

YUL  PASS  0 

TS 

YUL  MMS<S 

z.mxr 

snatch  o first  instruction  for  all  yul  syst  Jo3s. 

0109 

PROG  NAME 

EQUALS 

YUL  PASS  0 

(FOR  INTERPASS  STORAGE  PURPOSES). 

0111 

NEXT  NAME 

ALF 

END  SYLT 

0112 

SWITCH! 

OCt 

0 

0113 

L OLD  LINE 

SPEC 

Old  LINE 

01 1A 

OLD  LINE 

ALF 

-0000000 

INITIAL  SKIP  TO  HEAD  OF  FORM. 

0116 

ALF  *5 

0117 

ALF  .5 

0118 

ALF  . 5 

0119 

PAGE  HEAD 

ALF 

03000000 

0120 

ALF  .5 

LOGNO.  YUL 

SYSTEM 

FOR 

0121 

ALF  *5 

0122 

ALF. 5 

(MAIN)  PAGE  0 

0123 

PAGE  NO 

DEC 

+ 0 

0 1 2 A 

SYM  P.ACE 

SPEC . B6 

DAMN  ZERn 

0125 

SYM  TAB  XS 

DEC 

+ 0 

0126 

L COP  BJFS 

SPEC  *67 

768 

1” 


0 


L 

@YUL  SYSTEM 

— PftSS  0 

POI27 

inter3ass 

storage  continued. 

0128 

MID  POINT 

RESERVE 

1 

0129 

LIN  COUNT 

RESERVE 

1 

0130 

N W D RECS 

OCT 

0 

0131 

E SYLT  BAN 

RESERVE 

1 

0132 

L PROS  FIL 

RESERVE 

1 

0133 

N LINES 

OCT 

0066 

0135 

L COM3  NAM 

RESERVE 

1 

0136 

N COPIES 

OCT 

0 

0137 

PAPER  PLY 

OCT 

0 

0138 

ERR  PAGES 

OCT 

0 

0139 

N ERR  LINS 

dec 

0 

01  AO 

L AUT-i  NAM 

RESERVE 

1 

0 1 A 1 

SORS  NAME 

ALF 

01A2 

COMP Jl ER 

OCT 

3737373 

01  A3 

SEG  ONNER 

ALF 

0 1 A A 

SU3STRAB 

OCT 

o 

o 

o 

1" 
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STANDARD  SA  LINES  PER  PAGE. 


END  OF  IN1ERPASS  STORAGE. 
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L 

@YUL  SYSTEM  --  PASS  0 

PO 146 

FIELD  AND 

0147 

B.3IT9 

OCT 

0148 

B.3IT10 

OCT 

0149 

B.3IT36 

OCT 

0150 

B.311T12 

OCT 

0151 

B * P 1 T 3AV 

OCT 

0152 

B.OEC^LFMl 

OCT 

0153 

B.DECTEST 

OCT 

0154 

B.TEM^MASK 

OCT 

0156 

B. CHARI 

OCT 

0157 

B.CHAR2 

OCT 

0158 

B.CHAR3 

OCT 

0159 

B.CHAR4 

OCT 

0160 

B.CHAR5 

OCT 

0161 

B.CHAR6 

OCT 

0162 

BtCHAR7 

OCT 

0163 

B»CHAR8 

OCT 

0164 

B.C1T4 

OCT 

0165 

B.C1T6 

0C1 

0166 

B.3THRED10 

OCT 

0167 

B.THREAD10 

OCT 

0168 

B.THREADll 

OCT 

0169 

B.3IT2 

OCT 

0170 

B.BAN3ITS 

OCT 

0171 

B.CAC3 

DEC 

0172 

B, 3231  1 

OCT 

0173 

B.C7T3 

OCT 

0174 

B37T43 

equals 

0175 

B.BIT12 

OCT 

0176 

B.C5T3 

OCT 

0177 

B.BIT25 

OCT 

0178 

B.B1T33 

OCT 

0179 

b.datemask 

OCT 

0180 

B,  3361  37 

OCT 

SHIFT  MASKS  FOR  PaSS  0 


OUl 

0004 

-1  0000  . 
0003 

0001 

0000 

6060 

0 

0001 

7777 

6060 

0001 

0000 

6060 

7777 

6060 

77 

0077 

0000 

0000 

77 

00  77 

-7700  0000 
-77  0000 
-7700 

-n 

7777  7777 
7777  7777  7777 
-3776  0000 
-3776 

-3777 

2 

-760  0000 
— GGGG 

2002 

-7777 

C7T8 

0001 

-7777  7777 

-4000  0000 
-10  0000 
-77  7700  7777 
-14000 
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P0182  FURTHER  SHIFT  MASKS  FDR  PASS  0. 


0183 

S t 35  T 9 

OCT 

037 

0 1 8 A 

s*3iori2 

OCT 

0007 

0185 

SOI 

DEC 

G 

0186 

s * b i r i 

OCT 

A 

0187 

S012 

DEC 

-G 

0188 

S * ACH  a 

DEC 

000  OOG 

0189 

S t ACH  5 

OCT 

-1700  0000 

0190 

StClT 7 

OCT 

7777  7777 

7777 

7 7 30 

0191 

St  Cl T 3 

OCT 

7777  77 

0192 

S * C3T  5 

OCT 

0000  7777 

77 

0193 

S.C3T6 

OCT 

0000  7777 

7777 

0 1 9 A 

SOECALFM2 

OCT 

007 A 007A 

007A 

007A 

0195 

SOECALFM3 

OCT 

1717  1717 

1717 

1717 

0196 

S t C AC  1 

DEC 

GGGG 

0197 

S.CAC2 

DEC 

0000  GoGG 

0198 

S * AT  HREDlO 

OCT 

0000  3776 

0199 

S t T W3 

OCT 

-2 

0200 

St  THREE 

OCT 

-3 

0201 

S * SEY  EN 

OCT 

-7 

0202 

SONES 

DEC 

GGGG  GGGG 

GGGG 

0203 

St  3D 3 

DEC 

-3  0000 

02  OA 

St  7D3 

DEC 

-7  0000 

0205 

St313T2A 

OCT 

0000  7777 

0206 

StBIT  HRU12 

OCT 

7777 

0207 

C 1 T 2 

EQUALS 

B 1 THRJ  12 

0208 

StDNE 

OCT 

-1 

0209 

S t 7C6 

OCT 

-7  0000 

0210 

S t D8  T 12 

DEC 

— GGGGG 

0211 

S t FO J 9 

OCT 

-A 

0212 

S t LOW  5 

OCT 

-37 

0213 

S t AT  H 9ED1 1 

OCT 

0000  3777 

02  1 A 

S t DT  H RED  10 

OCT 

3776 

0215 

St YYNNYYYY 

OCT 

7777  0000 

7777 

7777 

USER'S  OWN  PAGE  NO.  7 
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P0217  TRANSrER  VECTOR'  USED  bY  SERViCE  MODULE.  MaNUF ACT  JR  I No , ETC. 


0218 

YUL  TYPER 

simjlate 

0220 

ts 

Z.AU2 

TYP  RTURN 

TYPIST 

0222 

RD  S3DIRC 

TS 

Z.SH 

Z.Xl 

RO  S JBDRr 

02  2 A 

hOwzat 

TS 

WhODUNI r 

Z.AJ1 

HOWZ  ThAt 

0226 

PCH  L-DER 

TS 

Z.SH 

Z,Xa 

PnCH  leo» 

0228 

IGN  SJBDR 

TS 

Z.SH 

Z,Xa 

IGN  SBDIR 

0230 

UNRC  SUBR 

TS 

Z.SH 

Z , X A 

JnRC  S30r 

0232 

E SYLT  OK 

TS 

Z,SH 

Z , X A 

EN  SYLT  nK 

023A 

fetch  ss 

TS 

Z.SH 

Z , X A 

fetch  ssin 

0236 

NO  CORE 

TS 

STAR  COL  1 

6,1 

NO  DIRECT 

0238 

PCH  TITLE 

TS 

Z , SH 

z.so 

PTP  TITLE 

02  AO 

TX 

Z.SH 

- 

BKB  PLACf 

02A2 

PCH  FRAME 

TS 

switch 

Z.Sh 

PNCH  FRAm 

02  AA 

MAN JF  RTN 

S,  MON  ty  3 er 

BLANKS 

SPRA  +8 

END  M TASK 

02  A6 

YUL  MASKS 

MASKBASE 

S.O 

F , 0 

02  A8 

OCTAL  20 

OCT 

-20 

0250 

SERCH  KEY 

RESERVE 

1 

0252 

whodjnit 

RESERVE 

1 

025A 

6 COMMA  19 

SPEC.B7 

619 

0256 

L GP3  STT 

SPEC.B7 

707 

0258 

L DIRECTY 

CAC 

20A8 

1 A336 

0260 

CHAS  2500 

DEC 

-2500 

0262 

FRAME 

reserve 

1 

026A 

MASK  5AVE 

TS 

yul  Masks 

Z.MXR 

DO  BACKJd 

0266 

PUNCH  CD 

SIMJLATE 

0268 

TS 

Z.MXR 

frame 

PNCH  CARn 

0270 

TYP  A30RT 

S,  MON  TY3ER 

Y ABORT 

SPR AMR  +16 

TYP  BORTA 

02  72 

L OBJC  MSG 

SPEC 

03JCT  MSr, 

027a 

rejec  dir 

S,  MON  TY3=R 

reJec  msg 

SPR  AMR  +32 

- 

0276 

S,  YUL  TY3ER 

6,2 

Am  T F +9 

TYP  ABORT 

0278 

TASK  MSG 

ALF  , A 

0260 

E TASKi  OBJ 

TS 

Z.SH 

z,sc 

TASK  OBJC 

0282 

TYP  TSKOB 

TS 

whodunit 

Z.Xo 

TYP  1K03J 

02  BA 

E KND«N  PS 

TS 

Z , SH 

Z.Sc 

KNOWN  PSr 

0286 

TAP  S-RCH 

TS 

L GPB  STT 

z.csc 

TAPE  SRCH 

02e8 

L PGHED  P3 

CAC. 

30720 

PAGE  HEAD 

0290 

ASSY  5BDR 

TS 

_ 

ASSY  SJ3n 

0292 

common, 

RESERVE 

2 

USER'S  OWN  PAGE  NO 
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ASSIGNED  TO  0.63  (FROM  OUTSIDE  3ANK  l). 
PRESERVE  MANDATORY  C ADDRESS. 

TO  SUBDIRECTOR  READER  (0.65). 
UNRECOGNIZED  WORD  ABORT  (0.66). 

punch  "Begin..."  s object  msg  (3,57) . 

IGNORE  a NON-VITAL  SUBDIRECTOR  (0,6b). 
cuss  unknown  word  in  subdir  10.59). 

MAKE  GB  STOP  BYPT  SEEK,  STT  Pom  (0,70). 

FETCH  ANY  SUBSTRAND.  (0.71). 

RETURN  FROM  CORE  SNATCH  FAIL  0,72). 
VISIBLY  PUNCH  N WDS  ON  TAPE  (0,73). 

(EXIT  FROM  PCH  FRAME) . 

PROCESS  PAPER  I APE  FRAME  (0,75). 

RETURN  FROM  MANUFACTURING  TASK  (0,76). 

(0.77) . 

(0,78)  . 

MATCH  FOR  WD  2 OF  YULPROGS  RECD  (0.79)  . 
ADDRESS  OF  UNRhCOG.  SUBDIR.  WD  (0,80). 
2ND  WD  OF  SENTENCE-READ  OUTPUT  (0,81). 
START  ADDRESS  FOR  SIDE-GROUP  B (0,82). 

ADDRESSES  OF  Bl,  B7  (0,83). 

CHARLIE-WORD  VALUE  OR  INCREMENT  (0,8A). 
PAPER  TAPE  FRAME  TO  Be  PUNCHED  (0.85). 
FOR  MASKBASE  OF  MANUFACT  ETC.  (3,86). 

general  card-punching  subro  (o»b7>. 

(0.88)  . 

FINAL  ACTION,  ALL  ABORTS  (0,89). 

(0,90) . 

director  or  suddirector  Rejected  (o»9i). 

TYPE  TEXT  of  CARD  (0,92) . 

TASK  and  COMPUTER  name  FOR  TYPING  (0,93) 
EXTERNAL  ENTRY  TO  TASK  OBJC  (0,97). 

EXTERNAL  ENTRY  TO  TYP  TKObJ  < 0 » 98 ) . 
EXTERNAL  ENTRY  TO  KNOwN  pSR  (0,99). 

general  call  to  tape  srch  <o,iod). 

DEPAGINATOR  6 HEADLINE  ADDRESS  (0,101). 

EXTERNAL  CALL  FOR  PRINT  SUBdS  (3,102). 
GENERAL  TEMP.  STORAGE  (0,103,  D , 1 OA ) . 


L &YUL  SYSTEM  — PASS  0 USER'S  OwN  PAGE  NO.  9 PAGE 

P0299  TRANSFER  VECTOR  CONTINUED. 


R0295 

MINOR  SJBRqUjI nes  in  p 

ASS  0 TO  PUj  A 

CHARACTER. 

S2 

is  Major  index 

, CSC 

is  minor  index.  character  in  c,  3f 

R0297 

COmMDM,  COSEQUENCE  CA.« 

L.  0,105  THRU 

0,113. 

02y8 

PUT  CHAR 

ss 

COMMON 

CHARI 

N.S2 

0299 

SWS.  CHAR  2 

common 

A,  1 

N.S2 

0300 

SWS.  CHAR 3 

COMMON 

A, 2 

N.S2 

0301 

SWS.  CHAR9 

COMMON 

A, 3 

N.S2 

0302 

SWS.  CHAR5 

COMMON 

A » 9 

N ,52 

0303 

SWS.  CHAR  5 

common 

A, 5 

N.S2 

0309 

SWS.  CHARY 

COMMON 

A , 6 

N.S2 

0305 

SWS,  CHAR  3 

common 

A. 7 

N.S2 

0306 

TS 

Z.S2.1 

- 

PUT  CHAR 

c 

0307 

WRITE  OBU 

TS 

Z.SH 

Z » SB 

WRIT  03 Jr 

external  call  ro  writ  objc  <o»ii9>. 

0309 

label  yul 

TS 

Z.SH 

Z.X5 

LABL  TEST 

ONLY  ENTRY  TO  LABEL  TAPE.  (0,115) . 

0311 

POSIT  YUL 

TS 

Z , SH 

Z.S3 

POSIT  REW 

ONLY  ENTRY  TO  POSITION  TAPE  <0,u&). 

0313 

PHI WAA 

SPEC.B7 

600 

sentence  reader  AREA  SPEC  (0,117). 

0315 

GROUP  A 

RESERVE 

1 

MAIN  GROUP  NUMBER  (0,118). 

0317 

yul  da  lzs 

TS 

N.Aul , 1 

PHI  ARg 

YjL  D2 A 7S 

EXTERNAL  CALL  TO  YUL  D2A  ZS  (0,U9). 

0319 

FOUND  BUF 

reserve 

2 

COMMUNICATION  WITH  IAPE  SRCH  (0,120-1). 

0321 

GROUP  NAP 

TS 

_ 

_ 

MON  SLEEd 

c 

STALL-TYPE  sleeping  SUBROUTINE  (0,122). 

0323 

wD 

Z.SH 

ONE 

z.sc 

s 

EXIT  FROM  ABOVE. 

0325 

SYMS  OR  NO 

DEC 

-GG6G 

ALL  ONES  FOR  SYMBOL  TABLE  (0*129.)  . 

0327 

5B  ThREDS 

TS 

- 

NO  MO  SU3S 

+ 1 

SJB  ThRDS 

c 

EXTERNAL  CALL  TO  SUB  THRDS  (0,125). 

0329 

D1SASIER 

MPC.H 

Z.l 

301 

MON  PCR 

EXTERNAL  CALL  TO  DISASTER  (0,120 . 

0331 

ALF 

DISASTER 

(0.127).  FOR  ALL  UNMANAGEABLE  TROUBLES 

0333 

COMP  NAME 

RESERVE 

1 

RESULT  FROM  FIND  COMP  <0*128) • 

0335 

1 comma  8 

SPEC  *B7 

8 

ADDR  OF  1ST  THREAD  WD  IN  LABEL  (0,129). 

0337 

ACCEPl  M2 

TS 

- 

• 

ACCEPl  -? 

ENTRY  AFTER  LABEL  CHANGE  (0,130). 

0339 

DCOD  CNAM 

TS 

z,sc 

Z,S2 

DeCOD  C?m 

EXTERNAL  CALL  TO  DECOD  CPN  (0,131). 

0391 

cpn  fixer 

TS 

z.sc 

Z , S2 

mod  che<  3 -2 

EXT.  CALL  TO  SUBSET  THEREOF  (0»i32>* 

0393 

give  3AIR 

TS 

Z.AUl.l 

Z.AJ2 

GIVE  pR 

c 

ONLy  ENTRY  TO  GIVE  PAIR  (0,133). 

0395 

find  COMP 

TS 

ZERO 

Z.R9 

FIND  CN Am 

L 

ONLY  ENTRY  TO  FIND  COMP  (0,139). 

0397 

find  3R 

IS 

- 

- 

Find  pair 

c 

EXTERNAL  CALL  TO  FIND  PAIR  (0.135). 

0399 

L 3LANCD 

SPEC 

blancard 

ADDRESS  OF  ZERO  6 15  BLANK  WDS  (0,136). 

0351 

REVNO 

RESERVE 

1 

DECIMAL  REVISION  NUMBER  (0,137). 

0359 

w SERYICe 

ALF 

YULSERVl 

PASS  0 SERVICE  MODULE  NAME  (0,138). 

0355 

PASS  1 

ALF 

YuLPASSl 

ASSEMBLY  GENERAL  PASS  1 NAME  (0,139). 

0356 

PAR  MANJF 

ALF 

????MANU 

SPECIAL  MANUFACTURING  SEG  NAME  (0.190). 

0358 

ACa  3 the 

aLF,2 

ACA  OlHERWISE 

LETS  OPERATOR  REFUSE  THINGS  (0,191-2). 

i" 


T n : 
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P0359  • RESEKvaT I O'NS. 


0360 

TRONOEX 

RESERVE 

0361 

AUTH  mAME 

RESERVE 

0363 

TYP  RTJRN 

RESERVE 

036A 

SORS  -1 NE 

RESERVE 

R0365 

NUMERIC  CONSTANTS 

0366 

SIXE5 

OCT 

0373 

ZERO 

OCT 

037A 

PL JS  ZERO 

DEC 

0375 

5A  LINES 

OCT 

0376 

BIT  6 

OCT 

0377 

1 C7 

OCT 

03775 

YUL  FILE 

OCT 

0378 

B1AT1  3 

OCT 

0379 

SNTRACOD 

DEL 

0380 

PAV  3 I TS 

OCT 

0381 

B2 A 336 

OCT 

03815 

AA  MI  'JUS  A 

OCT 

0382 

SIX 

OCT 

0383 

NINE 

DEC 

038A 

9 C3 

0C1 

0365 

B29  332 

OCT 

0386 

DEC  9 9 

DEC 

03865 

C 259 

FXBIN 

0387 

C 255 

fxbin 

03909 

TEN  Cl 

OCT 

0392 

HEXB  C5 

OCT 

0393 

TEN 

OCT 

15 
2 

1 

16 


12  * 06.  0606*  060606 
0 

+ 0 

0066 

01 

-100 

-7002 

0000  37 
-31 

0001  0001  0001  0001 
-1  0001  0000 

-3  7777  777 A 

-6 

-9 

0000  11 
-220  0000 

-99 

-259 

-255 

12 

-1200  0000 
-12 
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P03931 

NUMERIC  CONSTANTS 

CONCLUDED. 

03932 

FIFTY 

DEC 

-50 

03  93  A 

CW  FACTOR 

DEC 

Gb465 

0394 

A C6 

OCT 

-A  0000 

0395 

CAC12 

DEC 

GGGG  GGGG 

0396 

CAC3  M,1 

OCT 

-177776 

0397 

BIT  32 

OCT 

-20  0000 

0398 

C 1 T A 3A8 

DEC 

GGGGGo  000001 

0399 

B2  B 1 3 

OCT 

20004 

0400 

D11D12 

DEC 

-GG 

0401 

BIT  17 

OCT 

0000  02 

0402 

BIT  37 

OCT 

-4000 

0403 

BIT  13 

OCT 

0000  A 

04035 

BIT  7 

OCT 

004 

040  A 

BIT  8 

OCT 

002 

0A05 

BIT  35 

OCT 

-2  0000 

OA06 

B34T35 

OCT 

-b  0000 

0 A 07 

B 1 A 318 

DEC 

000  AA 

0A03 

B15  319 

DEC 

00022 

0A09 

B 1 6 320 

DEC 

00011 

0 A 1 0 

B18T2D 

DEC 

00007 

0 A 1 1 

SUPP  3 I TS 

DEC 

00077 

0A12 

GROJP  IND 

OCT 

-74000 

USER'S  OWN  PAGE  NO. 
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P0A13 


0414 

W BACKUP 

ALF 

backup 

0 A 1 5 

w freeze 

ALF 

freeze 

0 A 1 6 

accepted 

ALF 

ACCEPTED 

0 A 1 7 

BLOTS 

ALF 

OA 1 8 

CHECKERS 

DEC 

B95  B95  B95  B95 

0 A 1 9 

COLON  Cl 

ALF 

: 

0A20 

W A J T RMEM 

ALF 

authmemo 

OA2  1 

W INACT1V 

ALF 

INACTIVE 

OA22 

GC  FRE  MSG 

ALF 

G7  FREE 

OA2  3 

W END  SYPf 

ALF 

END  SYPT 

OA2A 

W END  SYLT 

ALF 

END  SYLT 

0A25 

w JPoRADti 

ALF 

UPGRADE 

0A26 

W BEFORE 

ALF 

before 

0427 

W ALL 

ALF 

ALL 

0 A 2 8 

RIGHT  HO 

ALF 

(SIGH) 

0A29 

STAR  COL  1 

ALF 

* 

0A30 

TAPE  NO 

ALF 

20000000 

0A32 

W BLOT  DBS 

ALF 

■»OBS« ■ 

0A33 

W BY 

ALF 

BY 

0 A3A 

W SYM30L 

ALF 

SYMBOL 

0A35 

W OCTAL 

ALF 

OCTAL 

0A36 

w dletion 

ALF 

deletion 

0 A 3 7 

W FOR 

ALF 

FOR 

0A38 

W TO 

ALF 

TO 

0A39 

W MOD 

ALF 

mod 

OA  AO 

W NEW 

ALF 

new 

OA  A 1 

W OF 

ALF 

OF 

OA  A2 

W PROGRAM 

ALF 

program 

OAA21 

w segment 

ALF 

segment 

OA  A3 

LOG  COMMA 

ALF 

, 000000 

OA  AA 

W LINES 

ALF 

lines 

0AA5 

W COPIES 

ALF 

COPIES 

0446 

W 

FROM. 

ALF 

from 

0447 

w 

FROZYUL 

ALF 

frozeyjl 

0448 

w 

2ND  FROZ 

ALF 

2NDFRUZE 

0449 

w 

SOJRCE  C 

ALF 

source: 

0450 

w 

MONAIN 

ALF 

MoNAlN 

0451 

w 

TAPE 

ALF 

tape 

0452 

w 

SYM3LS  0 

ALF’ 

SYMBOLSO 

0453 

ZERO  Cl 

ALF 

0 

USER • S OWN  PAGE  NO 
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PASS  0 


P0454 

ALPHA3ET IC 

CONSTANTS 

— FIRST  OF  7 PAGES. 

0455 

AUTHOR, YZ 

ALF>2 

AUTHORIZED 

0457- 

BAUTH  MSG 

ALF  i 4 

BLANK  WqRl)  IN  AUTHOR  NAMe. 

0458 

w SU3R0TI 

ALF  * 2 

SUBROUl INE 

0460 

BLCPN  MSG 

ALF  *3 

COMPUTER  NAME  IS  3LANK. 

0461 

BLPSN  MSG 

ALF  , 3 

PROG/SUB  NAME  IS  3LANK • 

0462 

CONPN  MSG 

ALF  ,5 

conflict  with  existing  prog/sjb  name. 

0463 

0464 

TSFRO  MSG 

ALF  * 3 
ALF, 4 

TRANSFERRED  ASSEM3LY  NEE 
DS  SUbDiRECTOR  SPECIFYING  SOURCE 

0465 

X I M WRS1Z 

ALF  ,4 

DISCFILe  NAME  VOIO  OR  TOO  LONG 

0466 

XIN  TE«MS 

ALF,  5 

DiSCFiLz  NAME  CONTAINS  TERMINATOR  CHARS 

0467 

DIFUL  MSG 

ALF  ,4 

YUL  FiLe  DIRECTORY  IS  TOO  LONG. 

0468 

IN  S J 3 MSG 

ALF  ,3 

INACTIVE  SUBROUTINES 

0469 

VER  PR  MSG 

ALF  ,3 

this  program  WAS  AS 

0470 

VER  S3  MSG 

ALF, 3 

THIS  SUBROUTINE  WAS  AS 

USER'S  OWN  PAGE  NO.  13 
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PO  A 7 1 

ALPHABETIC 

CONSTANTS 

--  SECOND  OF  7 PAGES. 

0 A 72 
OA  73 
0 A 7 A 
OA75 

LA JT H MSG 
LCPN  MSG 
LPRoN  MSG 
LREV\|  MSG 

ALF  ,3 
ALF  * S 
ALF  .5 
ALF  »s 

author  name  is  too  long. 

TOO-LoNo  COMPUTER  NAME! 
TOO-L  JNvj  PROG/SU3  NAME  5 
IOO-LOnG  REVISION!  no.: 

0A76 
OA  77 
OA  7 8 

TSFR  lINE 
XN3DF  MSG 
NOFIL  MSG 

ALF  * 3 
ALF 
ALF  . 3 

sembleO  from  disc  file 

US  DISC 

FILE  NOT  FOUND  ON  DISC 

OA82 
OA83 
0 A 8A 

NASSY  MSG 
NAJTH  MSG 
VERS  _1NE 

ALF  » A 
ALF  ,3 
ALF  *3 

CAN ' 1 ASSEMBLE  FOR  THAI  COMPJteR 
AUTHOR  NAME  IS  MISSING. 
sembled  as  a version  of 

USER'S  OWN  PAGE  NO 


1A 


PAGE 


1 A 
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PASS  0 


L 


POA85 

ALPHA  3ET 1 C 

CONSTANTS 

— THIRD  OF  7 PAGES. 

OA  86 

cons j msg 

ALP  » 5 

controlled  subrqJtine  cannot  be  diddled 

0A87  ’ 

NUM  ;\10NS 

ALF  .2 

cards  bypassed; 

OA88 

NON  WISE 

DEC 

0 

OA89 

OBJCT  MSG 

ALF  , 5 

0 A 90 

ALF  * 2 

0A9 1 

OC  MA 3 MSG 

ALF  , 3 

octal  storage  map 

0A92 

RDJND  MSG 

ALF  ,2 

redundant 

0A93 

REJEC  MSG 

ALF  , A 

therefore  this  card  is  Rejected: 

0A9A 

SY  T A 3 MSG 

ALF  ,3 

SYMBOL  table  listing 

0A95 

ASCBJ  MSG 

ALF  .3 

ASA  TO  create  BAC<UP? 

0A97 

NTPCH  MSG 

ALF  .2 

no  tape  punching 

0A98 

NR  FR?  MSG 

ALF, 5 

can't  Revise  a program  on  a frozen  tape 

USER'S  OWN  PAGE  NO.  15  PAGE  15 


L 6?YUL  SYSTEM  — PASS  0 


P0A99 

alpha 

3ETIC 

CONS'  ANTS 

— FOURTH  OF  7 PAGES. 

0500 

.UDRYN 

MSG 

alf,a 

unDeOiMal  Revision  no.' 

0501 

UNRCA 

MSG 

ALF,  A 

author  name  not  recognued. 

0502 

UNRCO 

MSG 

ALF  i A 

CoMPUieR  name  not  RECoGNIEED. 

0503 

UNRCP 

MSG 

alf  * a 

program  NAME  Not  RECOGNiZED. 

050A 

UNRCS 

MSG 

ALF  ,A 

SUBROUTINE  NAMe  NOT  RECOGNIZED. 

0505 

UNRDY 

MSG 

ALF  * a 

UNREADY  OPERATION  REQUESTED. 

0506 

WAJ1  H 

MSG 

ALF  .5 

wrong  author,  should  be: 

0507 

W END 

YUL 

ALF,  2 

END  YUL  SYSTEM 

0508 

WREVN 

MSG 

ALF, 5 

wrong  revision  njmber.  should  be: 

0509 

WUNRC 

MSG 

ALF  ,5 

I HI S nORD  UNRECOGNISED! 

0510 

AU  SJ3.  MSG 

ALF  , 5 

Control  oh  decontrol  reojiRes  ajthortZin 

0511 

ALF  , 2 

g subdirector 
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1 


* 


1 

3 

1 

3 

3 

3 

3 

3 

3 

3 

J 

2 

1 

f 

2 

r 


L 

(?YUL  SYSTEM 

— PASS  0 

P0512 

-ALPHABETIC 

constants 

OS  13 

blancard 

OCT 

05  1 A 

BLAN<  5 

ALF, 5 

0515 

ALF.5 

0516 

ALF  ,5 

0517 

CDREN  MSG 

ALF  ,2 

0518 

SET  L H MSG 

ALF  » 3 

0519 

N COPS  MSG 

ALF  ,3 

0520 

WH  PLY  MSG 

ALF  .2 

0521 

WAA  10060 

ALF  *3 

0522 

DUPSR  MSG 

ALF, 3 

0523 

NF  wSZ  MSG 

ALF  ,3 

052A 

NW  NDC  MSG 

ALF, 3 

0525 

Nw  RGE  MSG 

ALF  ,3 

0526 

IL  ROT  MSG 

ALF  ,3 

0527 

VRSNS  MSG 

ALF, 5 

0528 

ALF, 2 

- fifth  of  7 pages. 


o 


RENUMBER  cards 
PRINT  oo  LINES  PER  PAGE 
00  COPIES  WILL  BE  MADE  5 
WHAT  PLY  PAPERS 
W A A 1 0060  ODOOOOOP 

DUPLICATE  SUoDlRECTOR 
NUMERIC  FIELD  WROHG  SIZE 

numeric  word  not  decimal 
numeric  word  range  error 

ILLEGAL  REQUEST  FOR  TA5K 
VERSION  ASSEMBLY  MUSy  HAY 

pecifying  source 
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SJBDIreCtoR  S 


L 

<2 YUL  SYSTEM 

— PASS  0 

P0529 

ALPHA  3ET I C 

constants 

— SIXTH  OF  7 PAGES. 

0530 

22  OUT  MSG 

ALF  , 3 

2200  READY  TO  DO  MoNAQJI 

05301 

NO  MO 5 MSG 

ALF  , 3 

NO  MONA  IN  DATA  STORED 

0531 

FRSU3  MSG 

ALF  * 3 

FREEZE  SUBROUTINES 

0532 

PRO  C O'  MSG 

ALF  .9 

PROGRAMS  CANNOT  Br  CoNTRO.LED. 

0533 

NUMUS  MSG 

ALF  * 3 

NUMBER  UF  USERS  = 

0539 

PROBS  MSG 

ALF  ,5 

program  obsoleted  by  sJSro^tine  CHANGES 

0535 

SUP  C3  MSG 

ALF  , 3 

SUPPRtSS  conditionally; 

0536 

REP  9 LINE 

ALF  *3 

this  reprint  is 

0537 

9WH0M  MSg 

ALF  ,5 

REPRINT  REQUIRES  "FOR  /jHOM"  SJBDIRECTOR 

0538 

Y ABORT 

ALF, 2 

8 TASK  ABORT 

0539 

W CON 0 I T 

ALF,  2 

Condi i Iunally 

0590 

W TRANSFD 

ALF  ,2 

transferred 

05902 

OLRvN  MSG 

ALF,  2 

old  Revision  no. 

05903 

NTHIS  MSG 

ALF,  2 

NOT  ON  (HIS  DISC 

05909 

FDISC  MSG 

ALF  , 2 

found  on  disc 

0591 

AS  Hr"  MSG 

ALF, 2 

ASA  TO  TRY  AGAIN 

USER'S  OrtN  PAGE  NO 
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L 

&YUL  SYSTEM 

— PASS  0 

P05A2 

ALPHABETIC 

COinST  a fM  t s 

— SEVENTH  OF  7 PAGES. 

05  A3 

N MAN J MSG 

ALF.5 

can't  manufacture  for  that  compjteR 

05  AA 

DT  ERR  MSG 

ALF  ♦ 2 

CAN'T  Read  FILt 

05  A5 

IGNOR  MSG 

ALF  .A 

therefore  this  card  is  ignored: 

05  A6 

W JR  I \|G  FC 

ALFiZ 

uring  for 

05A7 

MANSJ  MSG 

ALF  ,5 

subroutines  may  not  be  manufacture^ 

05  A8 

ND  NM  - MSG 

ALF  * 5 

no  Disc*  cannot  .manufacture  old  Revision 

05A9 

SD  MI  5 MSG 

ALF » 3 

sobdirector  card  missing 

0550 

DR  JMA  MSG 

ALF  * 5 

desired  revision  is  unmanjFacturaele 

0551 

TAPE  3.  MS<o 

ALF  .A 

CAN'T  PUNCH  TAPE  WITH  THIS  1800 

0552 

WR  T A 3 MSG 

ALF  * 5 

WRONG  TAPE  NAME  A3BREVI At  ION  IN  COLS  2-7 

055A 

CP  JN  V MSG 

ALF  *3 

CARD  PUNCH  UNAVAILABLE 

0555 

NCOJT  MSG 

ALF  ,2 

NO  CARD  OUTPUT 
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L 

P0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 
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SYUL  SYSTEM  — PASS  0 

ADDRESS  CONSTANTS. 


endir 

-cs 

SPEC 

L 

DIR 

ects 

SPEC 

L 

END 

THR 

SPEC 

L 

SJB 

STRB 

SPEC 

RLS  C 

0 PCH 

CAC 

L 

SN 

CPNCH 

SPEC 

L 

Six 

ES 

SPEC 

L 

T < M 

3S  PI 

SPEC 

l 

T<  M 

SG  P2 

SPEC 

L 

SYM 

THR 

SPEC 

*B5 

L 

AV 

table 

SPEC 

’ B4 

L 

MSG 

AREA 

SPEC 

’B  7 

Y 

FIL 

E LIM 

SPEC 

*B7 

GB 

| SW 

ITCH 

SPEC 

»G0 

BAN< 

3: 

SPEC 

» BB 

BK 

3 P 

-ACE 

SPEC 

. BB 

END  3 

AN<  B 

SPEC 

. BB 

I 

SYM 

THRS 

CAC 

ISY  SJB  TH 

OCT 

L 

ONE 

s 

SPEC 

♦ B7 

BUF  N 

<\MES 

SPEC 

’ B5 

SPEC 

»B5 

SPEC 

»B5 

SPEC 

’ B5 

numerals 


8192 

5000  0000  0003  4007 


L 3 LISTS 
SPEC  ONE 
L SERVICE 


SPEC . B5 
SPEC . B6 
SPEC  *B6 
SPEC  *B6 

SPEC » B6 
SPEC  * BO 
SPEC.  B4 


Las  DiREr 
directs 

END  THR 
SJBSTRA3 

16  -z 

SN  CPJNCm 
SIXES 

TAS<  MSG  +1 
TAS<  MSG  +2 


836 

DAMN  ZERn 

590 

500 

N.R2 

DAMN  ZERn 
DAMN  ZERn 
2039 

8192 

7 

928 

1193 

1458 

1723 


1988 

205 

470 

735 

2028 

1 

damn  zero 


L 

&YUL 

SYSTEM 

--  PASS  0 

P05  88 

ASS I GnMEN I S. 

0589 

■ MONI 

T OP 

ASSIGN 

7 

.0 

0590 

PHI 

TAPE 

ASSIGN 

7 

1 1 

0591 

PHI 

snach 

ASSIGN 

7 

.2 

0592 

PHI 

?EE< 

assign 

7 

,3 

0593 

EOR 

ASSIGN 

7 

*9 

0599 

PHI 

LOAD 

ASSIGN 

7 

.7 

0595 

PHI 

read 

ASSIGN 

7 

.15 

0596 

MON 

R.EAS 

ASS  I Gn 

7 

.19 

0597 

PHI 

PRINT 

assign 

7 

.23 

0598 

MON 

E0FR1 

ASSIGN 

7 

.31 

0599 

PHI 

DATE 

ASS  I Gn 

7 

.36 

0600 

PHI 

SENTR 

ASSIGN 

7 

.90 

0601 

PHI 

A2D 

ASSIGN 

7 

.91 

0602 

PHI 

A30RT 

ASSIGN 

7 

.96 

0603 

BASE 

ADDR 

ASSIGN 

7 

.97 

0609 

MON 

jnlok 

ASSIGN 

7 

.85 

0605 

MON 

SoSNA 

ASSIGN 

7 

.91 

0606 

MON 

WAKE 

ASSIGN 

7 

.99 

0607 

MON 

rel  gp 

assign 

7 

.100 

06072 

MON 

REL0X 

ASSIGN 

7 

,103 

0608 

MON 

SN.  3 IP 

ASSIGN 

7 

,111 

0609 

Dl SCA3 

ASSIGN 

7 

, 119 

0610 

MON 

SLEEP 

assign 

7 

.166 

0611 

MON 

PRADS 

ASSIGN 

7 

,179 

0612 

MON 

LCARD 

ASSIGN 

7 

,178 

0613 

MON 

relcd 

ASSIGN 

7 

,180 

0619 

MON 

PUNCH 

ASSIGN 

7 

,191 

0615 

PHI 

LABEL 

ASSIGN 

7 

,195 

0616 

DISC 

STAT 

assign 

7 

,210 

0617 

MON 

SNCOR 

ASSIGN 

7 

,212 

0618 

MON 

TYPER 

ASSIGN 

7 

,215 

0619 

MON 

PCR 

ASSIGN 

7 

,220 

0620 

DISC 

CHEK 

ASS  I GN 

7 

,221 

0621 

MON 

taddr 

ASSIGN 

7 

,223 

0622 

GET 

LDG  NO 

ASSIGN 

7 

,225 

06229 

DISC 

READ 

ASSIGN 

7 

,239 

0623 

1800 

ab  sw 

assign 

7 

,291 

0629 

DISC 

writ 

assign 

7 

,297 

0625 

PAC< 

DATE 

ASSIGN 

6 

,100 

0626 

YUL 

DATE 

ASS  I Gn 

6 

,101 

0627 

YUL 

LOG 

ASSIGN 

6 

,109 

0628 

YUL 

LOG  A 

ASSIGN 

6 

,105 

0629 

SPAR  IDLE 

ASSIGN 

6 

,106 
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L 

e?YUL  SYSTEM 

— PASS  0 

P0630 

eguivalenc 

ES. 

0631 

A 

equals 

128 

0632 

AMTF 

EQUALS 

389 

0633 

amtfncr 

EQUALS 

896 

06  3 A 

SPRA 

EQUALS 

128 

0635 

SPRAM 

EQUALS 

656 

0636 

SPRAMRi 

equals 

389 

0637 

DAMN  EERO 

EQUALS 

0 

0638 

ATAPE  PCH 

equals 

69 

06382 

CH<  Or  ERR 

EQUALS 

512 

0639 

BIT  39 

EQUALS 

9 C6 

0695 

1 C6 

equals 

BIT  36 

06952 

thojsand 

equals 

BIT  36 

06959 

DEC  13000 

equals 

BIT  32 

0696 

Y COLJMN  1 

EQUALS 

DIFUL  MSG 

0697 

W RE Y 1 SON 

EQUALS 

DR  UMa  MSG  +1 

0699 

W YERSION 

EQUALS 

VRSNS  MSG 

0650 

end  thr 

EQUALS 

19392 

0651 

INIT  * 5 

EQUALS 

ERR  PAGES 

0652 

PUNCH  ADR 

equals 

SORS  LINE  +19 

0653 

T AS<  .03 

EQUALS 

SORS  LINE  +15 

0655 

S COLJMN  | 

EQUALS 

W SYMBOL 

0656 

BANK.  1 

EQUALS 

L DIRECTY 

0657 

AC02 

EQUALS 

BIOT  12 

0658 

AMPRSANS 

EQUALS 

dec  alf  M3 

0659 

W NE 

EQUALS 

W SUBR01 I +1 

0660 

w renjmbr 

EQUAL  s 

CDREN  MSG 

0661 

NUM  3 ASE 

EQUALS 

RLS  CD  PCH 

0662 

CRD  COUNT 

equals 

L SN  CPnCH 

0663 

L STOPPER 

EQUALS 

CAC3 

0669 

w sjp3r£s 

EQUALS 

SUP  CO  MS 3 

0665 

SAVE  KS 

EQUALS 

SORS  LINE 
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P0666 

R0668 

BANK  7 

special  routine*  done  at 
, beyond  the  sentence-RladeR 

THE  3EGINNIN3  Of  a Y jL  job.  pACKDATE  and  the  two-word  YUL  date  are  kept  in 
area.  THe  log  Number  in  NUMERIC  and  ALPHABETIC  form  IS  Kept  THERE  a. so. 

R0671 

CALLED 

from 

1 InIT  pas 

0 * 

Four  pages 

hence. 

0675 

SETLOc.A 

0 

BA 

0679 

begin 

job 

TX 

L PAR  IDLE 

Z ,R0 

0680 

TN 

PARA  IDLE 

9 

N.RO 

set  up  bed  for  side  groups  to  sceep  in. 

0682 

TS 

Z * R 0 * 3 

C , ♦ 1 

MjN  SGSNa 

SNATCH  and  start  GROUPS  B AND  C. 

0689 

L PAR 

idle 

SPEC  »B7 

706 

0685 

T5 

B39TA7  BJ 

Z.Rl 

RETRY  GPr 

(FOLLOWS  SUCCESSFUL  SNATCH  OF  GROUP  B). 

0687 

TX 

SAY  DIE 

- 

C , + 2 

IF  CAN'T  GET  LVLN  ONE  SIDE  GROJp,  DIe. 

0689 

NO  oRDJP  C 

S * MOn  ty  = 

ER 

ND2SG  MSG  ■ 

SPR AMR  +32 

"YUL  SYSTEM  NEEDS  TWO  SIDE  GROUPS". 

06902 

TX 

BANK  1 BJ 

- 

z,xo 

UNDO  DAMAGE  DONE  BY  GROuP-SNA T CHER . 

0691 

TX*  CHAR3 

ACA  0THE  B 

- 

BJ  try  MsG 

0692 

s,  mon  ty3 

£R 

BJ  TRY  MSG 

SPR AMR  + 

16 

"ASA  TO  TRY  AGAIN". 

0699 

s,  mon  t y 3 

ER 

ACA  01  He  b 

SPRA  +16 

C , + 3 

"ACA  OTHERWISE  ". 

0696 

STOP 

- 

S 

ASA  OR  ARA  OR  DON  A WILL  TRY  AGaIN. 

0698 

SAY  DIE 

s,  mon  TY3 

ER 

BJ  END  YUL 

SPRA  +16 

MJNI TOR 

ACA  CQMlS  HERt. 

0700 

TS 

B 3 9 T 9 7 BJ 

Z.Rl 

C,-2 

c 

PREPARE  TO  TRY  AGAIN. 

0702 

RETRY 

GPC 

TS 

Z ,R0 

C , + 1 

MON  sGSNa 

0703 

RESERVE 

1 

0709 

TS 

Bank  i bj 

Z,Xd 

snach  tap 

(FOLLOWS  SUCCESSFUL  SNATCH  OF  GrqJP  C). 

0706 

LA 

Z,R1 

zero  bj 

NO  GRQJP  C 

seek  help  after  TWO  FAILURES  IN  1/2  SEC. 

0708 

NA 

Z ,R  1 , 1 

one  bj 

C,-l 

COUNT  DOWN  FROM  32766. 

0710 

TS 

- 

•» 

RETRY  GPr 

0711 

SNACH 

TAP 

eBA 

MqN  LCARD 

zero  bj 

Z.AJl 

FORM  ADDRESS  OF  SAVeD  MONITOR  CaRD. 

0719 

TN 

N.AUl 

10 

6,1 

0715 

TS 

ONES  BJ 

6,11 

Prll  SENTR 

RE-SENTENCE-READ  monitor  call  card. 

0717 

TS 

H1800B 

YUL  LOG 

A MjN  ReL  CD 

c 

Release  mon  card  communication  area. 

0719 

NA 

6,19 

ONES  Bu 

C , + 2 

BRANCH  IF  THeRe'S  a WORD  AFTER  "YJL". 

0721 

TS 

Z,SC,l 

- 

phi  snach 

IF  NONE,  USE  TAPE  YULPRoGS. 

0723 

IS 

6,19 

C , + 2 

phi  snach 

OTHERWISE,  USE  tape  named. 

0725 

ALF  ♦ 2 

N10<000lYULPROGS 

0726 

DEC 

GGG  Goo  GGG 

GGG 

0727 

TS 

comma  '62 

YUL  DATE 

+ i get  log  no 

c 

0728 

SWE*  ClTA 

N , AU2  , A 

D » 1 ,L 

YJL  LOG 

PROTECT  LOG  NUMBER  FROM  MULT  1 J03S. 

0730 

TS 

ONES  dJ 

N,  Au2 

MON  JNLDie 

c 

KILL  MON  LINE  LIMIT,  UNLOCK  YULpRDGS. 

0732 

RF.l 

- 

- 

- 

0733 

TS 

YUL  LOG 

PHI  ARG 

3 J PHI  TAPE 

0739 

LOAD  . 

,abl 

RF.l 

1,0 

- 

- 

LABEL  TO  BANK  7 FOR  DURATION  OF  JDB. 

0736 

TS 

Z,SC 

Z.AJl 

YJL  OA  L/S 

convert  log  to  alpha,  suppress  zeros. 

07372 

PHI  ARG  BJ 

RESERVE 

1 

07379 

TX 

Z , SH 

- 

Z,X9 

0738 

SSL,  ONE 

1800  AB  SW 

29 

C,  + l 

APPEND  "A"  OR  "B"  TO  LOG  NUMBER. 

0 7 AO 

WD 

YUL  LOG  A 

1 C7  BJ 

YJL  LOG  a 

07  A 1 

S*  MOn  TY3 

ER 

begin  yjl 

SPR  AMR  ♦ 

16 

07  A2 

S,  MOn  TY3 

ER 

blanks  bj 

SPRA  +8 

- 

TYPE  "BEGIN  YUL  SYSTEM". 

07  AA 

TS,  Cn6 

A, 2 

YUL  LOG 

A PHI  TAPE 

07  A5 

RF*  1 

- 

- 

- 

VERIFY  THAT  LABEL  IS  READ  IN. 

I 

i 

► 

k 


L @YUL  SYSTEM  --  PASS  0 


P 0 7 A 7 

VERIFY  THAT  ThE  DATE  IS 

reasonable. 

0748 

DO  mov.th 

SWE*  D1 

PHI  DATl 

8.L 

0750 

na * chari 

'PHI  DATE 

ZERO  BJ 

0751 

LA.  CHAR2 

HEXB  C2 

PHI  DATE 

0753 

NA 

PACK  lVAIE 

ZERO  BJ 

0755 

I LLEo  DAT 

S » MOim  ty  3 er 

Phi  date 

SPRAM  + 8 

0756 

S.  MOM  TY3EK 

W ILLEGAL 

SPRAmR  +8 

0758 

S,  MOn  tY3£K 

fix  date 

SPRA  +16 

0760 

oc  mov  dec 

NA.  CHARl 

phi  datL 

1 Cl 

0762 

LA.  CHAR2 

3 C2 

PHI  DATE 

076  A 

WA- 

PACK  DATE 

B Dl 

0766 

PRINT  MO 

SWE.  D12 

PACK  DATE 

D , 1 1 

0768 

WA 

6,1 

L MONTHS 

0769 

TX 

N.AUl 

- 

07  71 

print  day 

sws.  C7T8 

PHI  Date 

A * 3 

0773 

NA.  CHAR7 

YUL  DATE 

ZERO  BJ 

0775 

SWS.  C7T8 

YUL  DATE 

A.l.L 

0777 

LA.  CHAR7 

YUL  date 

ZERO  BJ 

0779 

TX.  ChAR8 

CuMMA  Ca 

- 

0780 

do  day 

NA*  ChaR4 

phi  date 

ALF  DAY  30 

0782 

LA.  CHAR5 

2 C5 

PHI  DATE 

0784 

SWS.  B5T 9 

PHI  DATE 

21*1 

0785 

WA 

Pack  date 

BIN  DAY  30 

0787 

TEN  DAYS 

ts 

- 

- 

0789 

WA 

PACK  DATE 

BIN  DAY  10 

0790 

WA 

pack  date 

BIN  DAY  20 

0792 

DAY  1129 

LA.  C’HAR4 

ALF  DAY  30 

PHI  DATE 

0794 

la.  C^AR5 

HEXB  C5  BJ 

phi  date 

0796 

SWS,  B5T9 

phi  Date 

21', L 

0797 

SSL,  CHAR3 

phi  date 

A, 4 

0799 

6o  year 

SWS.  CHARb 

phi  date 

A, 2 *L 

0801 

NA,  CHAR7 

phi  date 

6 C 7 

0803 

LA,  CHAR8 

phi  date 

ONE  BJ 

0805 

LA,  CHAR8 

HEXB  C8 

PHI  DATE 

0807 

NA,  CHAR4 

phi  date 

zero  bj 

0809 

SWS,  C1T7 

yul  date  +i 

A.l.L 

0811 

WD 

PHI  DATE 

TWO  BJ 

0813 

SWS,  BIOT  1 2 

N,X6 

12 

0815 

. 

TX 

PHI  DATE 

- 
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pack  datf 

OC  NOV  OEC 

illeg  oat 
print  mo 

UNITS  DIGIT  OF  MONTH. 

branch  if  non-decimal  month. 

BRANCH  IF  MONTH  NOT  ZERO. 

PHI  ABORT 

"MM.DD.YY  ILLEGAL". 
"FIX  DATE  6 RERUN". 

ILLEG  DAt 
Illeg  oat 
PACK  DATE 

BRANCH  IF  MONTH  = 20  OR  MqRe* 

branch  If  MONTH  = 13  OR  more, 
put  packed  month  in  the  range  17-12. 

6.1 
Z.AJl 
YJL  DATE 

guarantee  no  ASTERISK  INITIALLY  IN  6,1. 
store  ALPHABETIC  month  name. 

yjl  Date 

DO  day 
YJL  DATE 
I LLEG  0 At 
YJL  DATE  . 

tentatively.  2-digij  day  to  al?ma  date* 
branch  If  day  = 10  or  more, 
shift  up  1-digit  day. 
branch  if  DAY  = 0. 

day  1 t 2 9 
ILLEG  DAt 
PACK  DAT  f 
PACK  DATE 

BRANCH  IF  DAY  LESS  fHAN  30* 
BRANCH  IF  date  = 32  OR  MORE. 

PUT  DAY  30  OR  31  IN  PACKED  DAit. 

Do  year 

PACK  DATf 

pack  datf 

(used  when  day  less  than  10  oR  over  29) 
finish  packed  day  number. 

ILLEG  DAt 
Illeg  dat 
PACK  DATE 
ten  DAYS 

C 

BRANCH  IF  DAY  = 40  OR  MORE. 

branch  if  non-decimal  day  NO. 
insert  day  number  into  packed  date. 

YJL  DATE  +1 
Illeg  dat 
ILLEG  OAT 
ILLEG  DAt 

C.  + 2 

yjl  date  +1 

N.X6 

pack  datf 

l.A 

put  UNITS  DIGIT  OF  YEAR  NUMBeR  INTO  ALF 
recode  this  on  dec.  3i,  1969. 

BRANCH  IF  60  OR  61. 

BRANCH  IF  NON-DECIMAL  YEAR  NO. 

BRANCH  IF  DAY  WAS  TWO  DIGITS. 

otherwise  shift  up  alpha  year. 

GUARANTEE  N.X6  INITIALLY  NOT  ALi'  ONES. 

put  diminished  year  no.  into  rack  date, 
put  date  in  yul  file  directory. 
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L <2YUl  5 If  STEM  — PASS  0 

Pq8  1 7 SET  J3  SPECS  AND  BUFFERS  FOR  A-LINE/RECORD  COPY-WOR<TAPE  WRITING. 


0018 

SETUP  COP  TX 

L COPBS  BJ 

- 

Z.AJ2 

0819 

TX 

Z.AU2.1 

- 

Z.XA 

0820 

MT 

zero  bj 

33 

N.AJ2.1 

CLEAR  A X 16  + 2 WORDS  IN  FIRST  BJFFeR. 

0822 

TS 

Z.XA 

A . 6 8 

C.-l 

c 

SPEC  TO  START  OF  BUF  FOLLOWS  BJ?. 

082  A 

RT 

A * 1 

A » 6 t 

A, 69 

PRE-PLANT  EOR  FOR  END  BUFFER  D£ [ ECT 1 ON. 

0626 

TX 

Z.AUl 

- 

n.xa 

EACH  BUF  IS  PRECEDED  BY  SPEC  TO  OTHER. 

0828 

TS 

Z.AU1 

N . A J2 

MON  sN  CnR 

c 

0829 

DEC 

G600  0000  0018 

SNATCH  UPPER  MEMORY  BANKS  0-3. 

0830 

TS 

L SET  PG  HD 

z.sc 

C . + 2 

c 

0831 

S,  MOn 

TY3£R 

ND19B  MSG 

SPR AMR  +32 

NO  CORE 

"YUL  SYSTEM  NEEDS  19  BANKS;  1-3'". 

08312 

• TX 

BANK  i BJ 

- 

z.xo 

c 

UNDO  DAMAGE  DONE  BY  CORE  SNATCH. 

0832 

N A i CHAR8 

1 ,0 

ZERO  bj 

C * + 1 

5 

EXIT  TO  Set  PG  HeD  IF  GOT  CURRENT  TAPE. 

0833 

S.  PH! 

LOAD 

B SERVICE 

0 

DO  B< JP  Li J 

R083A 

ALPHA  3ET IC 

constants 

"Ok  the  begin* JOB  SJ3SEGMENT 

• 

083A1 

BLANKS  BJ 

alf 

08  3A2- 

H 1 8 0 0 3 > 

ALF 

B 

083A3 

COMMA  '62 

alf 

, 1962 

083AA 

W ILLEGAL 

ALF 

ILLEoAl 

083A5 

LUMPED  3 J 

ALF 

13  32  6, 

MULTIPLE  MASKED  CONSTANT. 

083A6 

BEGIN  YJL 

ALF  *2 

BEGIN  YuL  SYSTEM 

083A7 

FIX  DATE  ' 

ALF  .2 

FIX  DATE  6 RERUN 

0 8 3 A 0 

BJ  TRY  MSG 

ALF. 2 

ASA  TJ  TRY  AGAIN 

08  3 A9 

BJ  END  YUL 

ALF.  2 

END  YJL  SYSTEM 

0835 

ND193  MSG 

ALF  .A 

YUL  SYS  1 EM  NEEDS 

19  BANKS 

: 1-3' 

083505 

ND2SG  MSG 

ALF  . A 

YUL  SYSTEM  NEEDS 

TWO  SIDE 

grojps 

08351 

MONTHS 

ALF.  A 

JAN  FEB 

MAR 

APR 

08352 

ALF  .A 

MAY  JUN 

JUL 

A JG 

08353 

ALF  .A 

SEP  OCT 

NOV 

DEC 

L 


@YUL  SYSTEM 


PASS  0 
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P08354  NUMERIC  AND  ADDRESS  CONSTANTS  * ASSIGNMENTS  AND  E3 J I VALENCES  fOR  THE  BEGIN-JOB  SUBSEGMENT. 


08355 

ZERO 

3J 

OCT 

0 

08356 

ONE 

BJ 

OCT 

-1 

08357 

TWO 

BJ 

OCT 

-2 

08358 

ONES 

BJ 

DEC 

GGGG  oGGG  GGGG 

08359 

B34T 

47 

BJ 

OCT 

-7777b 

0836 

B D1 

DEC 

B 

08361 

1 C7 

3 J 

OCT 

-100 

08362 

HEXB 

C2 

OCT 

0012 

08363 

HEXB 

C5 

BJ 

OCT 

-1200  0000 

08364 

HEXB 

C8 

OCT 

-12 

C8365 

BIN 

DAY 

10 

OCT 

012 

08366 

BIN 

DAY 

20 

OCT 

024 

08367 

BIN 

DAY 

30 

OCT 

036 

083675 

BAN<  1 BJ 

SPEC 

08368 

L MONTHS 

SPEC 

08369 

LSET  3G  HD 

SPEC 

003695 

L C0P3S  BJ 

assign 

0,39 

0837 

NO  CORE 

ASSIGN 

0,72 

08371 

DO  B<  JP  BJ 

assign 

0,86 

08372 

YUL  DA  LZS 

assign 

0,119 

08373 

B SERy/lCE 

ass  I Gn 

0,138 

08374 

ACA  OTHE  B 

ASSIGN 

0,141 

08375 

1 

Cl 

equals 

LUMPED 

BJ 

08376 

3 

C2 

equals 

LUMPED 

BJ 

08377 

ALF  DAY  30 

EQUALS 

LUMPED 

bJ 

08378 

2 

C5 

equals 

LUMPED 

BJ 

08379 

6 

C7 

EQUALS 

LUMPED 

bJ 

0838 

COMMA  C8 

EQUALS 

LUMPED 

bJ 

2 04-8 

MONTHS  -i 
SET  PG  HfD 


L 


@YUL  SYSTEM 


PASS  0 


P08384 

ROJTI MES 

IN  67.0706 

- b ^ » o7 1 a for  side  groups  to 

SLEEP  in. 

083865 

PARA  IDLE 

TX 

z.sc  0 

Z,RO 

08385 

GPS  START 

TS 

- 

MON  SLEEd 

083855 

LA 

N»SC,3  N * R 0 

N.RO 

08386 

TX 

z.sc 

Z.RO 

083865 

GPC  START 

TS 

- 

MON  SLEEP 

08387 

LA 

N ♦ SC  N.RO 

N,RO 

083875 

TX 

N.RO 

Z,CSC 

08388 

TS 

N ,SC  N.RO 

N ,CSC 

083885 

TS 

- 

MON  SLEEP 

083895 

SET  LOCI 

R0839 

procedure 

WHENEVER  PASS 

o is  loaded 

(Not  necessarily 

between  each 

08396 

SNATCH!  0 

SPCR 

GROJP  a 

08396 

SWE.  D12 

group  a 

28 

GROJP  A 

08  AO 

SWS,  CHAR3 

group  a 

A. 3 

ACA  0] HE 

08  AO  A 

S.  MOn  taddr 

posit  rew  +1 

0 8 A 0 8 

INIT  JAS  0 

TS 

YUL  MASKS 

Z.MXR 

Set  pg  HpD 

08  a 1 2 

SWE.  CAC3 

bank  i 

32 

Z.xo 

0 8 A 1 6 

TS 

L service 

z.sc 

SET  pg  HfD  . 

08  A2 

SET  PG  HED 

TS 

L D1RECTY 

Z , X 1 

NEX  OlREr 

08  AA 

TS 

revision  +2 

OK  NOUN 

snatch  0 +2 

08A6 

NA 

1 .1 

W FROZYUL 

C » + 2 

08A7 

TS 

No  Revise 

revision 

Log  2 HEaD 

08A9 

LA 

1.1 

W 2ND  FRDZ 

C.-l 

0850 

LOG  2 HEAD 

TX 

YuL  LOG  A 

page  head  +1 

0851 

TN 

YUL  DATE 

2 

page  head  +12 

0853 

TS 

yul  log 

WOR<ERS  *c 

MqN  jnlok 

0855 

RF.l 

- 

m 

- 

0857 

S.  PH 1 LOAD 

W SERVICE 

0 

C.  + l 

0859 

YUL  MASKR 

TX 

yul  masks 

- 

Z.MXR 

0860 

TS 

eqr 

seRCh  key 

POSIT  YJf 
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INITIALLY,  ESTABLISH  SLEEP  ADDRESS, 
C (REPLACED  WITH  A SPEC  TO  WAKE  J3). 
GO  BACK  TO  SLEEP  IF  FALSE  ALARM. 


C 

SAME  AS  ABOVE  FOR  GROUP  C. 

EITHER  GROUP  COLLECTS  WAKE  ADD*.  HERE. 
MAKE  THE  BED  AND  GO  TO  WORK. 


TASK),  ENTERABLE  AT  1NIT  PAS  q. 


keep  main  group  no.  in  transfer  vector. 
s also  keep  it  Ready  for  use  by  3ass  o. 
skip  if  yulprogs  not  already  SMUTCHED. 
entry  to  lesser  rl-initializati on. 

set  up  INDEXES  FOR  BeGIN-JOB  SUBSEGMENT. 

c 

C SET  xi  AND  Xfc> , 

c reset  update-revision-number  switch, 

forbid  Revisions  on  a frozen  ta^e. 


put  log  and  date  in  page  heading. 

C MINOR  IDENTIFICATION  for  ASSEMBLY  wr<rs. 
unlock  yulprogs. 

LOAD  SERVICE  MODULE. 

negate  search  flag,  position  yj.progs. 


I 
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P0862 

main  loop  of 

pass  o.  reads  each  direc 

tor  card  and  goes 

to 

THE  APPROPRIATE  ROUTINE.  if  the  director 

R086A 

CARD  DOES 

not  have  a Recognized  code 

In  its  first 

field,  the  card 

IS 

typed  on  the  console  and  the  next  director 

R0866 

CARD  IS  Rt AD.  IF  A MONITOR  CARD  IS 

read,  yulprogs  is  labeled  and 

the 

Job  ended,  each  contiguous  batch  of  non- 

P 0 86  8 

YUL-OiReCjOR  CARDS  15  CuUdtlD  AND  THe  COJNT  TY?tD 

on  the  console. 

(THIS  HAPPENS  when  AN  ILL-FORMeD  ASSEMBLY 

R0870 

director  card  is  read  and  rejected. 

FOR  INSTANCE) 

• 

0871 

NeX  direc 

TX 

phi  waa 

- 

Z,X6 

address  of  sentence  reader  in/djt  area. 

0873 

NA 

N »X6 

one  5 

END  CHeCk 

BRANCH  Ip  THeRe’S  no  invisible  director. 

0875 

TX 

N . X 1 

- 

N,X6 

erase  invisible  director  flag. 

0877 

TS 

NO  TYPIST 

typist 

C , + 3 

TURN  OFF  TYPEWRITER  FOR  TASK  DURATION. 

0879 

RD  DIRECT 

5*  PH  I read 

6.1 

0880 

NA,  CHAR1 

6,1 

Y COLUMN  1 

NO  DIRECT 

BRANCH  IF  NOT  A YUL  DIRECTOR  CAtd. 

0882 

TX 

ONES 

6,11 

SET  COL.  81  STOP. 

088  A 

TS 

GB  SWITCH 

INI T X5 

phi  Sent d 

break  up  yul  director  card  into  fields. 

0886 

NN 

NON  WISE 

ZeRD 

TYP  NON  vS 

type  count  of  NON-YUL-DIKeCtuRS  if  nz. 

08872 

SWS,  CHAR 3 

1,1 

A, 7 

6,1 

MAKE  BLANKS  IN  CoLS  2-7  LOOK  GOOD. 

08873 

sws , ones 

6,1 

A » 1 , L 

6,1 

08  87  A 

na.  chari 

6,1 

blanks 

C , + 3 

normalize  contents  of  columns  2.8. 

08875 

TS 

- 

C , -2 

08876 

S,  MOn  TY^ER 

WR  TAP  MSG 

SPR AMR  +A0 

REJEC  DId 

"WRONG  TAPE  NAME  ABBR  IN  COLS  2.7". 

08877 

na,  Chari 

6,1 

1,1 

c,-l 

initial  letter  must  match  that  df  tape. 

0888 

Y DREC  TLU 

TS 

L DIRECTS 

z,x5 

C3MP  D1RC 

Set  up  TAbLE  LOOK-UP  ON  1ST  WORy. 

0890 

try  direc 

NA 

Z,X5,i 

endirecs 

CdMP  D1RC 

branch  if  not  end  of  table. 

0892 

TN 

6,16 

2 

WJNRc  MSr,  +3 

0893 

s,  yul  ty3er 

WUNRC  MSG 

AIMtF  +5 

REJEC  dir 

ANNOUNCE  UNReCqGNITION  of  FIRS]  WdRD, 

0895 

COMP  OIRC 

NA 

N.Xgti 

6*15 

TRY  DIREC 

0896 

NA,  C1T6 

5,0 

6,17 

TRY  DlREr 

LOOK  FOR  1A-cHARAcTER  MATcH  OF  1 ST  WDRd* 

0898 

SS 

N ,X5 

THREAD  11 

C,  + l 

0899 

rs 

6 COMMA  19 

Z.X5 

0 

GO  TO  APPROPRIATE  ROUTINE. 

0901 

NO  DIRECT 

NA.  CHARl 

6 * 1 

star  col  i 

NOT  MON 

BRANCH  IF  NEITHER  YUL  DIRECTOR  NOR  MON. 

0903 

TS 

Z , SC , 2 

6,110 

MDN  WAKE 

C 

HAUL  GROUP  C OUT  OF  BED  

0905 

SPCR 

C , + 0 

...  LET  IT  ANNOUNCE  ITS  IDENTITY  ... 

0907 

TS 

zero 

c , + 1 

MON  REL  r,P 

...  AND  FIRE  IT. 

0^09 

wD 

z,sc 

one 

z,sc 

WAIT  FOR  GROUP  C TO  SAY  WHO  IT  IS. 

0911 

SWS.  AC02 

C.-3 

8 * L 

Gc  FRE  MSG 

0912 

NA.  CHARS 

1,0 

ONE 

C * + 2 

BRANCH  IF  NOT  COPYING. 

09 1 A 

s,  mon  ty=>er 

Go  FRE  MSG 

SPRA  +8 

_ 

TYPE  "GC  FREE"  IF  IT  WILL  DO  ANY  GOOD. 

0916 

LA.  CAC3 

1,0 

B 3 6 T 3 7 

END  CHECK  -2 

BRANCH  IF  THERE  WAS  NO  TAPE  PUNCHING. 

09178 

s.  MOn  ty^er 

22  OUT  MSG 

SPRA  + 2 A 

. 

"2200  READY  TO  DO  MONAOUT". 

0^18 

S.  MOn  PUNCH 

Zero 

AT A3E  PC H + 

ao  zero 

let  2200  begin  punching  tape* 

0920 

na,  chars 

1,0 

ZERO 

label  YJf 

RELABEL  YULPROGS  ONLY  WHEN  NhC£  5SARY , 

0922 

NA,  CHAR8 

1,0 

ZERD 

DO  BACKUP 

Do  backup  procedure  if  appropriate. 

092  A 

end  check 

na,  chari 

6,1 

star  col  i 

rd  Direct 

go  read  director  unless  enojob  was  read. 

0926 

LA 

ONES 

6.2 

RD  DIRECT 

BUT  BRANCH  AFTER  CREATING  A bAC<U°. 

0928 

TS 

Z , SC » i 

6,107 

MDN  ^ AKE 

C 

0929 

TS 

zero 

c,  + l 

mdn  Rel  gp 

DISMISS  GROUP  B. 

0931 

wD 

z,  sc 

ONE 

z,sc 

WAIT  UNTIL  IT'S  OUT  OF  SIGHT. 

0^33 

s.  MON  TY3ER 

w end  yul 

SPRA  +16 

monitor 

TYPE  "END  YUL  SYSTEM"  AND  END  JdB. 

! 


( 
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p0935 

SUBROUTINE  IN  PASS  0 TO 

TYPE  THe  SlGNI 

= I CANT  *0RDa  IN  AN  N 

-Word  alphabetic  message,  entry  is  a sim_ 

R0937 

ulate  call 

(TO 

THE  TRANSFER  Vector) 

WITH  ADDReSSe 

5 AS  per  pr*  except 

for  word  count  in  right  6 bits  of  3 address 

R0939 

— main  pass  o 

masks  are  assumeu. 

the  SIGnIFiCan 

Ce  processing  is:  omit  blank  words  at  Beginning  and  end  of  MeS- 

R09A1 

SAGe,  ReOUCe 

each  im3edded  string 

of  blank  words 

TO  one  BLANK  WORD, 

ACTIVE  c ADDRESS  IS  COMPULSORY. 

0993 

TYPIST 

PR 

(SILENCED  BY  NA  N.AUl  BLANKS  N.AJ2), 

0995 

TS 

Z.MXR 

TYPER  MXR 

yjl  maskr  c 

0996 

SWE 

* CHAR  3 YUL  TYPER 

12 

Z.CSH 

0997 

WA 

Z,CSH 

Z.AJl 

Z . CSH 

FORM  LWA  + 1 OF  MESSAGE. 

0999 

TS 

L MSG  AREA 

z.csc 

send  typ  w 

0^50 

end  typ  q 

LA 

Z .CSH 

Z * A Jl 

send  typ  w +2 

branch  when  whole  message  scanned. 

0952 

NA 

N.CSC.l 

BLANKS 

SEND  iyp  w 

always  send  next  if  last  not  blank. 

09  5 A 

NA 

N*AU1 

blanks 

send  typ  w 

send  non-blank  when  last  word  was  blank. 

0956 

WD 

Z,CSC 

ONE 

Z.CSC 

ignore  blank  word  that  follows  a blank. 

0958 

send  typ  w 

TS 

N . AU  l , i 

N.CSC 

END  TYP  0 

send  a word  to  be  typed  out. 

0960 

SM 

Z*csc*l 

Z.SC.5 

- 

CONFIRM  LAST  WORD  SEN1  TO  MSG  A9EA. 

0962 

NA 

N.CSC 

blanks 

C.-l 

CONFIRM  LAST  WORD  UNLESS  It  IS  3LANK. 

0969 

NA 

Z.CSC 

L M5G  AREA 

TYP  COJNt 

branch  unless  blank  msg  (end  of  task;. 

0966 

LA 

TYPIST 

CAC3 

send  typ  w +i 

BRANCH  Unless  TYPEWRITER  IN  SlLrNT  MODE. 

0966 

TS 

Zero 

typist 

set  pg  hfd  c 

RESTORE  TYPEWRITER  after  secret  task. 

0970 

TS 

N * X 6 

N . X 1 

N.AJ2 

ALSO  RESTORE  FORMER  BACKUP  STATJS. 

0972 

typ  count 

wD 

Z.CSC 

L MSG  AREA 

Z.CSC 

tentatively,  no.  of  words  to  be  typed. 

0979 

TX 

L MSG  AkEA 

- 

Z.AJl 

SET  AUl  FOR  MONITOR  TYPEWRITER. 

0976 

LA 

z.csc 

ONE 

7 OR  LeSa 

omit  following  check  for  i-woRD  message. 

0978 

NA 

N.AU1 

BLANKS 

C , + 2 

0979 

SM 

Z.AUl.l 

Z.CSC. 1 

- 

remove  leading  blank  words  from  msg. 

0981 

LA 

z.csc 

SEVEN 

7 OR  LESa 

branch  if  one  monitor  call  will  do. 

0983 

wD 

z.csc 

SEVEN 

TYPIST 

0989 

SWS 

. CHARS  TYPIST 

1 5 . l 

SPRAM  WD 

SPECIFY  1 OR  2 WORDS  FOR  FIRST  ;AlL. 

0986 

w A 

TYPIST 

Z.AJl 

TYPIST 

save  starting  address  for  second  call. 

0988 

TS 

Z.SC.l 

- 

MON  TYPER  +1  C 

fake  a spram  call  TO  the  MONITOR  TYPeR. 

0990 

spram  wd 

PR 

SPRAM 

- 

0991 

SWS 

, chars  seven 

15.1 

YJL  TYPER 

ALWAYS  type  7 WORDS  ON  THE  SECOND  CALL. 

0993 

TS 

typist 

Z.AJl 

7 OR  LESa  +1 

SET  UP  ADDRESS  OF  REMAINDER  OF  MESSAGE. 

0995 

7 OR  .ESS 

SWS 

* CHARS  Z.CSC 

1 5 » L 

YJL  TYPER 

0996 

TX 

typ  rturn 

- 

Z.AJ2 

0997 

TX 

TYPER  MXR 

_ 

Z.MXR 

0998 

TS 

YUL  TYPeR 

N.SC.l 

MON  TYPER  +1  C 

MAIN  SYNTHETIC  CALL  TO  MON.  T YP£R. 

1000 

TYPER  MXR 

RESERVE  1 

RlOOl 

INSTRUCTION  USED  to  DISABLE  YUL  SYSTEM  TYPEWRITER 

for  secret  iasks. 

1002 

NO  TYPIST 

NA 

N.AUl 

BLANKS 

N.AJ2 

R 1 003 

PROCEDURE 

FOR 

A CARD  WHICH  SHOULD  HAVE  "Y"  IN  COLJMN  l BJl  OnES  NOT. 

1009 

NOT  MON 

DS 

NON  wlSE 

ONE 

NON  WISE 

1005 

TS 

- 

- 

NEX  D1REC 

STEP  COUNT  AND  READ  AGAIN. 

< 


« 
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1008 

DIRECTS 

ALF 

add 

1009 

M.A. 

A, 

a. 

ADD  COM? 

ADD  A NEW  COMPUTER  NAME. 

1011 

ALF 

REMOVt 

1012 

M»  A. 

A, 

A, 

RMOV  COMP 

remove  an  existing  computer  name. 

1 0 1 A 

ALF 

MESSAGE 

1015 

M.A, 

A, 

A, 

message 

TYPE  OUT  ARBITRARY  MESSAGE. 

1017 

ALF 

DELETE 

1018 

M.A, 

A , 

A, 

ELI M PRSU 

INITIATE  deletion  OF  PROG  or  SJ3. 

1020 

ALF 

assemble 

1021 

M.A, 

A , 

A, 

assembly 

PROGRAM  or  SUBROUTINE  ASSEMBLY  }R  revn. 

1023 

W REPRINT 

ALF 

REPRINT 

102A 

M.A. 

A, 

A* 

reprint 

REPRINT  ASSEMBLY  LISTING. 

1032 

W MNU-ACT 

ALF 

MaNUFaC i 

1033 

M.A.Ur 

A , E 

A* 

man jfact 

MANUFACTURE  ASSEMBLED  PROGRAM. 

1035 

ALF 

CLOSE 

1036 

M.A. 

A , 

A, 

CLOS  MONa 

let  2200  MANUFACTURE  PAPER/DI GI ST  ORE  TP 

1038 

w control 

ALF 

control 

1039 

M.A, 

A , 

A, 

control 

BAR  REVISION  OR  DELETION  OF  SUBROUTINE. 

1 0 A 1 

W DECdNTR 

ALF 

DtCONi RO 

10A2 

M.A.L 

A . 

A, 

deconi r 

ALLOW  REVISION  OR  DELETION  OF  S jBRO. 

10AA 

W TRANSFR 

ALF 

TRANSFER 

10A5 

M , A . 

A, 

A, 

XFeR  psr 

MAKE  CARD  IMAGE  DISC  FILE  OF  PRO  OR  SUB 

1 0 A7 

W PRINT 

ALF 

PRINT 

10A8 

M.A* 

A, 

A, 

PRINT  PSr 

PRINT  SYMBOLIC  LISTING  OF  PROS  oR  SUBRO 

1050 

ALF 

PUNCH 

1051 

M.A, 

A, 

A, 

PJNCH  PSR 

PUNCH  SYMBOLIC  PROG.  OR  SUBRO.  DECK. 

1053 

W ASSMBLY 

ALF 

ASSEMbLY 

105A 

M.A. 

A , 

A, 

PASS  STAT 

assembly  pass  status  operations. 

1056 

ALF 

MANUFAC T 

1057 

M.A. Ur 

A,  IN 

A.o 

MaNJ  STAT 

manufacturing  status  status  operations. 

1052 

ALF 

CREATE 

1053 

M.A, 

A, 

A, 

CREATE  3U 

create  BACKUP  tape  in  miduob. 

1065 

ALF 

LIST 

1066 

LAS  OIREC 

M.A, 

A, 

A, 

JNREADY 

list  Portions  of  YUL  file  DIRECTORY. 

1068 

unready 

s,  yul 

ty^er  unrdy  msg 

AMTF  +a 

Re-JEC  dir 

TYPe  "UNRlADY  qPeRaT  ION  REUUt_ST-D". 

..e 


i 


< 


i 


L 

©YUL  SYSTEM 

— PASS  0 

USER'S  OWN  PAGE  NO.  31  PAGE  31 

P 1 0 70 

ROUTINE  TO'  RESPOND  Tu  requests  for  a5S 

EMBLY  Or  REVISION 

OF 

A PROGRAM  Or  SUBROUTINE. 

1.0  72 

AS5EM3LY 

LA*  CAC3 

1*8 

YFIuE  LIM 

C , + 2 

1073 

s,  YUL  ty^er 

DlFUL  MSG 

amtf  +5 

REOEC  Dir 

CUSS  and  ABORT  IF  FULL  DIRECTORY, 

1075 

T5 

W ASSM3LY 

TAS<  MSG 

task  o3Jr 

break  down  and  reform  rest  of  Director. 

1077 

s.  yul  TY3ER 

TASK  MSo 

AMTF  +4 

C»  + l 

1078 

TYP  ASOBJ 

S,  YUl  ty^er 

OBJCT  MbG 

A +7 

c,  + l 

type  task  AND  OBJECT  of  task. 

1080 

WA 

Z,X6 

OCTAL  20 

Z,X5 

include  computer  name  in  page  heading. 

1082 

TN 

N ,X5  * 2 

2 

COMMON 

1083 

TS 

L PGHeD  P3 

Z*S2 

PJT  CHAR  +7 

C 

move  first  character. 

1085 

wA 

N»X5 

1 C5 

N,X5 

INCLUDE  A BLANK  AFTER  COMPUTER  NAME. 

1087 

TS 

z,sc 

Z,S3 

WRIT  OB Jr 

move  full  object  msg  io  page  heading. 

1089 

TS 

PROG  name 

SORS  NAME 

6 1 9 tO  X5 

c 

omit  computer  name  from  "end  of»  line* 

1091 

WA 

L old  LINE 

SIX 

Z,S2 

GIVE  IT  TO  PASS  l VIA  OlD  LINE. 

1093 

NA 

N,Xs 

W REVISoN 

NEW  END  OF 

branch  if  new  PROGRAM  or  SUBROUTINE. 

1095 

SWS*  CHARI 

N,X5*3 

A * 1 

N*S2 

Move  "N"  OF  "REVISION". 

1097 

TS 

N , X 5 * 2 

COMMON 

PJT  CH^R  +2 

c 

MOVE  1ST  DIGIT  of  revision  NO. 

1099 

TS 

- 

- 

C , + 2 

1100 

NEW  E MD  OF 

TS 

N , X5  » 2 

COMMON 

PJT  CHAR  +3 

c 

move  "n"  of  "new". 

1102 

TS 

z,sc 

Z * S3 

WRIT  OB Jr 

move  OBJECT  MSG  TO  "END  OF"  LINE. 

1104 

TN 

PAGE  HEAD  +12 

2 

OLD  LINE  +12 

INCLUDE  date. 

1106 

TS 

L DIRECIY 

z , x 1 

FIND  COMo 

c 

seek  computer  name  IN  DIRECTORY. 

1108 

s,  YUl  TY3cR 

unrco  Msg 

amtf  +4 

TYP  aBORt 

cuss  AND  exit  if  not  THERE. 

1110 

knwn  comp 

tx 

Z,Xo 

- 

L COMP  NaM 

address  of  computer  name  for  pa^p  calls. 

1112 

la,  P 1 T 3 A V 

ONES 

0*1 

CAN  ASSE 

branch  If  passes  1-3  AVAILABLE  ?or  it. 

1114 

S*  YUL  TY^ER 

NASSY  MsG 

amtf  +4 

TYP  ABORt 

1115 

CAN  ASSE 

NA 

TASK  MSG 

w assmbly 

reprint  ? 

branch  if  doing  reprint,  not  assembly. 

1117 

na*  bit  12 

switch 

zero 

NEW VERS2 

BRANCH  IF  DOING  VERSION  ASSEMBLY. 

1119 

NA*  bIT10 

SWITCH 

ones 

new  prsjr 

branch  if  new  program  or  SUBROUTINE. 

1121 

REVISION 

ts 

c,  + l 

ok  NOUN 

0<  REVN  q 

MODIFY  "KNOWN  PROGRAM/SUBROUJ I Ne"  SEARCH 

1123 

TS 

c,  + l 

OK  NOUN 

C,  + l 

because  here  alone  the  revision  number 

1125 

SSL*  ONE 

3*1 

23 

OK  No JN  -3 

c 

is  being  changed. 

1127 

DA 

common 

ONE 

COMMON 

INCREMENT  OLD  REVN,  ASK  FOR  MATCH. 

1129 

NA*  B36T37 

3,1 

ONES 

OK  NO JN  *1 

BACK  TO  KNOWN  PSR  IF  NOT  CONTROLLED  SJB. 

1131 

SS 

W REV  ISON 

CAC12 

CONS J MSG  +4 

1132 

S,  MON  TY=Ek 

CuNSU  MSG 

SPR  AMR  +40 

TYP  ABORT 

cuss  attempt  to  revise  controlled  sjbro. 

1134 

no  Revise 

S,  MON  T 7 3 Ek 

NR  FRZ  MSG 

SPR AMR  +40 

TYP  ABORt 

replaces  revision,  above,  if  fr3ze  tape. 

1136 

ok  Re vn  q 

TS,  H1T2 

ONES 

Switch 

<N0wN  PSR 

Request  merging,  check  program  njame  etc. 

1138 

TS 

Z,X4 

L PROG  FIL 

REVNO  SSL 

SAVE  ADDRESS  OF  PROG/SUB  ENTRY  IN  FILE. 

1140 

SWS*  B13T29 

REVNO 

24  * L 

4*1 

NEW  REVNO  FOR  PRO&/SUB  WITH  NO  SU3R0S. 

1142 

SWS.THREAOl 1 

4,1 

24 

Z ,X5 

c 

1143 

SWS,B1THR  JI12 

REVNO 

36  * L 

N,X5 

NEW  REVNO  FOR  PROG/SUB  WITH  SU3T0S. 

1145 

REVNO  SSL 

SSL*  ONE 

4*1 

23 

C,-3 

c 

L 

feYUL  SYSTEM 

— PASS  0 

Pi  146 

PLACE  PROGRAM  0«  SUBROUTINE  NAMe  AT 

head  of  auth 

114-7 

NA*  bIT9 

switch 

ZERO 

1148 

TS 

W end  SYPT 

next  name 

1150 

SS 

4,1 

thread  10 

1152 

NA 

Z ,X2 

L END  THR 

1153 

TS 

W END  SYLT 

NEXT  NAME 

1155 

TX 

N,X2 

- 

1157 

au  latest 

la 

PLUS  4ER0 

3*1 

1159 

SS 

4,1 

B THRED  10 

1161 

SWS,THREAD10 

3,1 

12 

1163 

LA 

3,1  . 

plus  zero 

1165 

SWS  * BTHRE  D 10 

3*1 

1-2 

1167 

SWS,AthRE01O 

Z,X4 

24, L 

1169 

X5  is  NR4 

NA,  Bit  9 

switch 

ZERO 

1171 

WA 

init  xs 

TWO 

1173 

LA,  CAC3 

1,9 

L END  THR 

1175 

NA,  Bit  9 

SW ITCH 

zero 

1177 

WD 

INIT  X5 

ONE 

1179 

TS 

L SYM  THR 

Z.Sl 

1180 

NEW  PRSUB 

TS 

Z,Xo 

Z*X2 

1162 

s,  yul  ty^er 

CONPN  MSG 

AMTF  +5 

1184 

SSL,  TWO 

SWITCH 

34 

1186 

SWE  + ONES 

SUBSTRAB  +2 

24 

1188 

new  DniTRy 

TS 

- 

- 

1190 

TS 

PROG  NAME 

N,X3 

1191 

TS 

z , sc 

Z»xi 

1192 

s,  mon  msR 

TsFRD  MsG 

5PRAMR  +56 

1194 

NA 

6,16 

W FROM 

1195 

TX 

L D1RECTY 

- 

1196 

LA,  ChaRI 

ONES 

6,13 

1198 

LA,  CHAR6 

6,21 

zero 

1200 

LA,  CHAR6 

6,21 

BIT  32 

1202 

s,  mon  ty^er 

XIN  WRSIZ 

SPR AMR  +32 

1204 

LA,  CHARI 

ones 

6,22 

1205 

s,  mon  ty3er 

xin  terms 

SPR AMR  +40 

3” 

1207 

TN 

6,19 

2 

1209 

S,  MOn  TY^ER 

w source  c 

SPRAM  +6 

1210 

s,  mon  ty^er 

SUBSTRAB 

SPRA  +16 

1212 

la,  chars 

ONES 

DISC  STAT 

1213 

s,  mon  ty^er 

TSFRD  MSG 

SPRAM  +24 

1214 

s,  mon  ty=er 

xnodf  msg 

SPR AMR  +8 

2" 

1216 

EX 

disc  STAT 

B 1 4 T 1 8 

1" 


> 
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S LIST. 

C » + 2 

AJ  LAT  ESt 
Z,X  2 

C , + 2 

AJ  LATEST 
NeXT  NAME 

X5  IS  NR4 

3,1 

Z,X3 

C , - 1 


A , 1 
3,1 

C » + 2 

I M I T X5 
I MI T ASSv 
G3R2  GBR3 
I NIT  X5 
INIT  ASSv  +1 

FIND  PROG  +1 
T TP  ABORT 

C , + 2 

SJBSTRA3  +2 
FIND  pAIp 
DIRENT  RT 

RD  SJSDRr 

typ  abort 

C,-l 
Z,X1 
C,-3 
C , + 2 
C,  + 2 

ReJEC  Dio 

C * + 2 

ReUEC  DIr 
SjBSI RA3 


C , + 3 

TYP  aB0Rt 
SJBSIRA3  +3 


PROGRAM  GOES  ON  T^Pe  BEFORE  END  SYPT. 
POINT  TO  SUCCESSOR  OF  SUBRO  ON  TAPE. 

LAST  SUBRO  GOES  ON  TAPE  BEFORE  -NO  SYLT. 

in  general,  subro  stays  put  in  revision. 

BYPASS  IF  THIS  IS  1ST  IN  AUjHOR'S  LIST. 
SEW  UP  AUTHOR'S  LIST  AROUND  THIS  PR/SJB. 
FOLLOW  THE  THREAD... 

...UNTIL  AUTHOR  NAME  ENTRY  IS  FOUND. 

POINT  TO  PR/SUB  LAST  HANDLED  BY  A JTHOR. 
LET  AUTHOR  NAME  POINT  TO  THIS  ^ROG/SJB. 


BRANCH 

CHANGE 

BRANCH 

BRANCH 

otherw 


if  doing  subroutine  re^i 

GB,R2  TO  GB,R4. 

if  there  are  no  deletes 

IF  DOING  SUBROUTINE  re^i 
se  CHANGE  GB,R4  TO  GB,R3 


SION. 

WAITING, 

SION. 


SEER  PROGRAM/SUBRO  name  IN  DIRECTORY. 
CUSS  CONFLICT  AND  EXIT  IF  FOUND. 

"BRANCH"  IF  DOING  TRANSFERRED  ASSEMBLY. 

position  log  number  for  pass  i. 

FIND  2 DIRECTORY  locations  for  3/S  name. 


CUss  LACK  OF  "FROM  FILENAME"  SJ3DIRECTR. 


branch  IF  INPUT  FILE  NAME  IS  MISSING. 
BRANCH  IF  INPUT  FILE  NAME  IS  BLftN< , 
BRANCH  IF  LENGTH  OF  NAME  IS  16  OR  LESS. 

Reject  ill-sized  input  file  namt, 

CUSS  TERMINATOR  CHARACTERS  IN  File  name. 
SAVE  file  name  IN  INTERPASS  storage. 

"SOURCE!  INPUTF ILENAME  ». 


"TRANSFERRED  ASSEMBLY  NEEDS  DISC  ». 

SEND  NUMBER  of  DISCS  IN  file  TO  PASS  l. 
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218 

TR ANS - EPRED  ASSbMbLY: 

E 1 Np  H 1 GhEST 

LOG  NJMBER  FOR  FI 

LE*  IGNOoING 

DISABLED  FILES  and  DELETING  UNCONFIRMED  ones. 

220 

TS 

SUBSTRAB 

TRONDEX 

XIN  ANY  LG 

221 

XIN  LJKUP 

rs 

SUBSTRAB  +1 

TRONDEX  +1 

DiSCAP 

c 

222 

OCT 

-15 

223 

SPEC 

TRONOEX 

224 

TS 

BIT  10 

SORS  LINE 

found  fii 

225 

NA 

SUBSTRAB  +2 

zero 

C*  +2 

branch  if  a satisfactory  file  was  found. 

227 

s,  non  tys 

|R  NqFIL  MSG 

SPRAMR  +24 

TYP  ABORT 

"file  not  found  on  disc  ", 

229 

SSL*  ONE 

switch 

39 

VERS  PSD 

c 

230 

TN 

TSFR  LINE 

3 

N.AJ2 

231 

TN 

TRONDLX 

2 

N * A J2 

232 

SWE*  ONES 

SUBSTRAB  +2 

D * 2 

PHI  ARS 

233 

TS 

z.sc 

Z*AJ1 

YJL  02 A 7 S 

234 

SM 

log  comma 

N * SH 

SORS  LINE  +9 

235 

TN 

BLANKS 

5 

SORS  LINF  +10 

236 

TS 

blanks 

SORS  LINE  + i 5 

new  dntry  -i 

cobble  up  line  showing  source  file  name. 

238 

FoJNO  fil 

NA’  C7T8 

TRONDeX  +3 

sntRaCod 

XIN  LJKJP 

look  again  if  file  type  is  wrong. 

240 

SSL*  ONE 

TRONDLX  +4 

0 

C*  + l 

test  PSEUDO-CONFIRMATION  bit. 

242 

TS 

Z*SC,2 

- 

DiSCAP 

c 

GO  TO  RELEASE  UNCONFIRMED  TRACK, 

244 

LA 

TRONDeX  +2 

SUBSTRAB  +2 

XIN  LJKJp 

BRANCH  IF  NOT  GREATEST  FOUND  LOG  NUMBER. 

2 46 

TS 

TRONOeX  +2 

SU3STRAB  + 2 

XiN  LJKJP 

plant  HIGHEST  log  number  yet  FOUND. 

248 

OCT 

-1017 

249 

SPEC 

TRONOEX 

250 

XI  M A VI Y LG 

TS 

ONES 

TRONDEX  +2 

XIN  LJKJp 

restart  search  after  track  releasf. 

252 

TS 

- 

- 

disaster 

bad  return  should  be  impossible  here. 
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259 

enter  the 

NAME  Of  a new 

PROGRAM 

OR 

SUBROUTINE  in 

the  DIRECTORY. 

255  ' 

direntry 

TX 

Z,X3,1 

_ 

L PROG  F r L 

257 

tx 

PACK  DAT 

E 

_ 

N,X3 

259 

SWS  * BIT  35 

Sw 1 TCH 

27 

N,X3 

261 

NA,  B 1 i 9 

SWITCH 

ZERO 

C , + 2 

262 

TS 

W END  SYPT 

NeXT  name 

POSN  PRoN 

269 

TX 

L END  ThR 

_ 

Z,X5 

265 

SWS*tHREAD10 

N ,X0 

12 

Z,X5 

267 

TS 

Z,XO 

2 , X 2 

FIND  SU3n 

268 

NA»  Bh36 

5,1 

zero 

find  su3m  +2 

270 

TX 

Z »X5 

Z,X2 

271 

SS 

2,1 

THREAD  10 

Z,X5 

273 

FIND  SUBN 

NA 

Z,X5 

L end  thr 

C , -3 

275 

TS 

W END  SYLT 

NeXT  Name 

PoSN  SU3i\i  +2 

277 

na.  bit  12 

Switch 

ONES 

C , + 2 

279 

NA 

N,X2 

SoRS  NAME 

FIND  SU3N  -2 

281 

TS 

N,X5 

NEXT  NAME 

POSN  SU3n  +2 

2 83 

POSN  SUBN 

SS 

Z,X5 

THREAD  10 

N,X3 

285 

TS,  THREA}10 

L PROG  F 

IL 

2,1 

POSN  PRGN  +2 

2 87 

NA 

Z,X2 

z,xo 

POSN  SU3m 

289 

POSN  3RGN 

SWS,  THREADlO 

N»Xo 

12 

N,X3 

291 

sws.bthredio 

L PROG  F 

IL 

12, L 

N ,X0 

292 

ts 

ONES 

1,6 

find  auth 

299 

ts 

- 

.. 

ADD  AUTHR 

296 

LA 

B 1 THRU  1 2 

3,1 

C , + 2 

298 

wA 

3,1 

BIT  12 

3,1 

300 

TS 

L PROG  F 

IL 

Z , X 2 

SET  LAUTM 

301 

sws.bthredio 

3,1 

12 

2,1 

303 

SWS.AtHREDIO 

L PROG  F 

IL 

29, L 

3,1 

3031 

na,  bit  12 

Sw I T CH 

ZERO 

G3R2  GBRh  “1 

3032 

EX 

switch 

BIT  7 

common 

3033 

LA 

common 

zero 

G3R2  GBR3  -1 

3039 

NA,  CAC3 

1,9 

L END  THR 

C , + 2 

3035 

WA 

I NI  T X5 

ONE 

INIT  X5 

3036 

wA 

INIT  X5 

ONE 

INIT  X5 

3037 

TS 

- 

- 

INIT  ASSv 

309 

LA,  LAC3 

1,9 

L END  THR 

INIT  ASSv 

.306 

GBR2  0BR3 

WA 

INIT  X5 

SPEC  ONE 

INIT  X 5 
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SAVE  ADDRESS  IN  FILE. 

DATE  OF  LAST  HANDLING  GOES  WITH  NAME. 
SHOW  WHETHER  PROGRAM  OR  SUBROUTINE. 

program  goes  on  tape  before  end  sypt. 


POINT  TO  ElRsT  PROG  OF  COMPUTER. 


branch  if  found  a subroutine, 
advance  pointer  pair  thru  list. 

BRANCH  IF  MORE  PROGS  OR  SUBS  TO  SEE. 

IF  NO  SUBS  (OR  NONE  AFTER  SoURCr),  LAST. 
BRANCH  If  not  DOING  VERSION  ASSTM3LY. 

version  subro  goes  on  tape  after  source. 

NeW/TRANSFeRRED  SUBRO  goes  1ST  IN  SYLT. 

NEW  SUBRO  POINTS  TO  SUCCESSOR. 
PREDECESSOR  POINTS  TO  NEW  SuBRO. 

BRANCH  UNLESS  NOTHING  PRECEDES  mEW  SJB. 

NEW  P/S  NAME  TO  HEAD  OF  MACHINE’S  LIST. 


seek  author  name  in  directory. 

INCLUDE  IT  NOW  IF  NOT  FOUND. 

BR.  IF  AUTH  HAS  255  OR  MORE  PR03/SUBS. 
OTHERWISE  INCREASE  HIS  TOTAL. 

NEW  P/S  NAME  TO  HEAD  OF  AUTHOR'S  LIST. 

BRANCH  IF  DOING  A VERSION  AssEM3LY. 

BRANCH  IF  NOT  IN  A SEGMENT  ASSEMBLY. 

IF  NO  DELETES  WAITING,  MAKE  IT  GB.Ra. 

if  deletes  are  waiting,  make  it  G3,R3. 

branch  if  tHeRe  are  no  deletes  waiting, 
CHANGE  GB,R2  To  -GB,R3. 
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1308 

PROCEDURE 

to  initialize 

a permissible 

ASSEMBLY  or 

reprint. 

1309 

INI T ASSY 

TX 

L SYM  THR 

- 

Z,S1 

1310 

MT 

I SYM  THRS 

13 

N , S 1 , 1 

INITIALIZE  SYMBOL  TABLE  CAC-THR- A;)S. 

1312 

TX 

I SY  SuS  fH 

- 

N,Sl * l 

SPECIAL  INITIAL  VALUE  FoR  SUBRD  DIR  ORG. 

131 A 

MT 

I SYM  THRS 

50 

N * S 1 * 1 

1315 

TX 

L A V TABLE 

Z,S1 

1316 

SM 

CaC12 

ISY  SUB T H 

N,S1 , 1 

initialize  first  spec  pair  in  sym  TABLE. 

1318 

TS 

L GPB  STT 

Z * X 4 

C,-l 

c 

1319 

WA 

OCTAL  20 

OCTAL 

20 

Z,R6 

1320 

MT 

CmCi2 

62 

N,S1  ,1 

initialize  AVAILABILITY  table. 

1322 

NA 

Z * R6 , 1 

ZERO 

C,-l 

1323 

TX 

L B LISTS 

• 

Z,S1 

1 3 2 A 

MT 

ZERO 

4 

N*sl ,1 

INITIALIZE  joint  buffer  list. 

1326 

TN 

BUF  NAMES 

8 

N,Sl*u • 

INITIALIZE  FREE  BUFFER  LIST. 

1328 

MT 

Zero 

8 

N,Sl , 1 

initialize  input  and  sapo  BUFFER  LISTS, 

1330 

TS 

Z , SC  , 5 

N * X 4 

MoN  WA<E 

c 

WAKE  group  B to  ASK  it  ITS  NAME. 

1332 

SPCR 

COMMON 

1333 

TX 

YUL  MASKS 

- 

Z,MXR 

1 3 3 A 

SWE*  ONES 

COMMON 

17 

COMMON 

1335 

SS 

common 

GROJP 

INO 

INIT  X5 

PLANT  TRUE  name  OF  GROUP  B. 

1337 

TX 

z,ro 

- 

Z,SC 

go  back  to  bed  until  pass  i. 

1339 

SSL*  ONE 

SWITCH 

35 

C,  + l 

FOR  TRANSFERRED  ASSEMBLY*  PRINT  SOURCE. 

13A1 

LA*  0 1 1 T 1 2 

Switch 

ZERO 

C , ♦ 2 

FOR  REPRINT*  PRINT  NAME  OF  CUSTOMER. 

1 3 A3 

S,  PM  I PRINT 

SuRS  LINE 

FOR  VERSION  ASSEMBLY,  PRINT  SOURCE  NAME. 

13A5 

SNACH  WRK 

SWS * CHAR b 

TAPE  NO 

A, 7 

workers 

13A6 

SWS,  CHAR/ 

TAPE  NO 

A , 6 

workers  +i 

PUT  TAPE  NUMBER  IN  SNATCHING  PARAMETERS. 

1 3 A8 

S,  MOn  taddr 

TAPE  NO 

SKIP  if  worker  must  Be  snatched. 

1350 

TS 

L 5T0PPER 

Z * X 4 

POSI IION  +2 

1351 

TS 

L STOPPER 

Z*X4 

PHI  SNACm 

1352 

WORKERS 

ALF*3 

W10Y010»YULWRK 

1353 

position 

TS,  LHaR1 

TAPE  NO 

C,  + l 

PHI  TAPE 

1 3 5 A 

rw.eh 

- 

- 

reposition  workers  in  any  case. 

1356 

ts,  Chari 

TAPE  NO 

C , + 1 

phi  tape 

1357 

rf,eh 

4,0 

- 

DISASTER 

1358 

TS,  CHARI 

TAPE  NO 

c , ♦ 1 

PHI  TAPE 

1359 

RF,EH 

- 

- 

DISASTER 

1360 

wA 

TAPE  NO 

BIT  6 

TAPE  NO 

1361 

NA,  CHAR8 

WORKERS 

FO  JR 

SNACH  wRic 

WORKERS  ARE  CALLED  2,  3,  AND  4. 

1363 

TS 

Z,SC 

Z.Xl 

RD  SJBDrc 

Go  TO  Get  SUBDIRECTOR  IF  ANY. 

1365 

load  3AS  i 

l s»  PHI  LOAD 

PASS  I 

1 

BAsE  ADDR 

LOAD  and  GO  TO  PASS  l WHEN  ThtY  RjN  OJT. 

PI 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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— 

PASS  0 

USER'S  OWN  PAGE  NO,  36  PAGE  36 

367 

subrojt InE 

IN 

PAss  0 TO 

PROCESS  ASSEMBLY  AnD/OR  PR] 

[NTlNG  SJ3niRECT0RS. 

368 

assy  subd 

wD 

Z,Xi 

ONE 

Z,Xa 

Xa  IS  USED  TO  RETURN  TO  RD  SUBOrC  CALL. 

370 

wA 

Z,X6 

OCTAL  20 

WH00JN1 T 

371 

LINS  COPS 

NA 

6,16 

W PRINT 

REN  SJP  f. C 

372 

WA 

WHOOUnIj 

THREE 

WHOO ON  I T 

Set  up  to  examine  no.  of  lines  or  Copys. 

374 

SWE 

, CHARS 

6,21 

12 

Z.AJl 

375 

LA 

Z , AU 1 

zero 

NJM  Wr  siZ 

376 

LA 

three 

Z.AJl 

NJM  WR  StZ 

i or  2 decimal  digits  form  either  no. 

378 

SWE 

, CHAR  3 

6,19 

A, 7 

COMNON 

Get  TENS  or  ones  digit . 

380 

LA 

TEN 

COMNON 

NJM  NDEC 

381 

LA 

Z,AUl 

ONE  . 

TEST  NVAI 

BRANCH  if  NUMBER  was  1 DIGIT  ONlY. 

383 

BT 

COMMON 

10 

COMNON 

384 

SWE 

, cHAR3 

6,19 

A, 6 

Z.AJ1 

UNITS  DIGIT  of  2-digit  NUMBER. 

386 

LA 

TEN 

Z»AJl 

NJM  NDEC 

387 

wA 

common 

Z , A Jl 

common 

388 

TEST  NVAL 

LA 

Common 

ONE 

NJM  RNG  pR 

389 

la 

common 

CHAR  8 

lin  or  cop 

limits  here  are  2 and  63. 

391 

MUM  R\|G  ER 

S, 

MOn  ty^er 

nw  roe  msg 

SPR  AMR  +24 

IGN  SBDIR 

392 

nun  ndec 

s » 

MOn  TY3ER 

NW  NDC  MSG 

SPR  AMR  +24 

IGN  SBDlo 

393 

NUN  Wr  SlZ 

s. 

MOn  TY=ER 

NT  WSZ  MSG 

SPR AMR  +24 

ion  sboir 

CUSS,  OUST  SUBDIRS  with  Bad  NJM3ERS. 

395 

LIN  OR  CoP 

WA 

whoduni r 

THREE 

WRODJNI T 

396 

NA 

6,22 

w lines 

C<  COPIED 

397 

LA 

common 

NINE 

NJM  RNG  eR 

MINIMUM  LINES/PAGE  = 10. 

399 

NA 

N LINES 

54  LINES 

DJPLISJ3 

400 

sws 

1 CHAR i 

common 

A, 2 

N LINES 

set  temporary  length  OF  PAGE. 

402 

SWS 

, C7T8 

6,19 

A, 6 

set  Ln  M<;G 

403 

S, 

non  ty^er 

set  ln  msg 

SPRA  + 24 

4,0 

ANNOUNCE  AND  Go  TO  GET  NEXT  SU3J1 RECTOR, 

405 

CK  COPIES 

NA 

6,22 

W COPIES 

JnRC  S30R 

406 

NA 

N COPIES 

ZERO 

DJPL1SJ3 

407 

TX 

COMMON 

- 

N COPIES 

TO  Be  modified  when  ply  is  knowm. 

409 

SS 

6,19 

b 1 T HRO 1 2 

N COPS  MSG 

410 

s ♦ 

non  ty^er 

N COPS  MSG 

SPR AMR  +24 

- 

411 

s * 

non  TY^ER 

WH  PLY  MSG 

SPR AMR  +16 

- 

412 

s. 

non  typer 

WAA  10060 

SPRA  +24 

4,0 

413 

ASSEN3lY/R£PR1 

NT 

SUBjireCioR  checking 

and  cussing. 

414 

DUP  SJ6  CH  LA 

l service 

Z i X 4 

IL  Re^ESt 

branch  if  not  an 

assembly-type  task. 

416 

duplisub  s, 

non 

TY3-R  dupsr  msg 

SPR AMR 

+ 24 

IGN  SBDIh 

cuss  and  ignore 

duplicate  subdi rectors. 

418 

IL  REOEST  S, 

non 

TY^er  IL  RUT  MSG 

SPR AMR 

+ 24 

IGN  SBOIR 

cuss  renumber  in 

reprint  and  li<e  that. 

L 

<®YUL  Sf STEM 

— PASS  0 

USER'S  OWN  PAGE  NO.  37  PAGE  37 

p1420 

processing 

FOR  ASSEM3UY/PRINT  SUDDIReCtORS  0tHER 

THAN  LINES  OR  CoPI 

es 

Requests. 

1422. 

REN  SJP  &C 

NA 

6,17 

blanks 

jnrc  SBDr 

1423 

NA 

6,16 

W RENUMBR 

SUPP  OR  6C 

"RENUMBER"  OR  "SUPPRESS"  OR  ETC. 

1425 

RENJM3ER 

LA,  B2Bll 

ONES 

switch 

IL  ReOEST 

refuse  to  renumber  during  reprint. 

1427 

SSL,  ONE 

SWITCH 

47 

DJP  SJ3  CH 

c 

CHECK  DUPLICATION  AND  CALL  FROM  PRINT. 

1429 

SM 

SWITCH 

BIT  1 

SWITCH 

SET  SWITCH  TO  MAKE  PASS  1 RENUM3ER. 

1431 

s,  mon  ty^ek 

CUREN  MSG 

SPRA  +16 

4,0 

TYPE  "RENUMBER  CARDS",  GET  NEXT  SJBDIR. 

1433 

SUPP  .OR  bC 

NA 

6,16 

W SJPPRES 

FrZ  34  Jp(j 

6C  = "FREEZE",  "BtFORE" , OR  "U3SRADE». 

1435 

WA 

WHODUNIT 

three 

WHODJNI T 

1436 

NA 

6,19 

W CONDIt 

jncondit 

BRANCH  IF  NOT  "CONDITIONALLY"  ( oN  BAD), 

1438 

NA 

6,20 

W CONDIT  +1 

JNRC  S30R 

1439 

TN 

6,22 

3 

6,19 

1440 

TS 

B 1 3T  20 

tem3  mask 

JNCONDIT  +1 

BoBTAIL  MASK  For  CONDITIONAL  SJaPRESSlON 

1442 

UNCONDIT 

tx 

SUPP  BITS 

_ 

TEMP  MASi/ 

1443 

NA 

6,19 

W 5YMB0L 

SP  0C1  MaP  ' 

"SUPPRESS  SYMBOL"  SUFFICES  HERE. 

1445 

SP  SYMi  TAB 

SSL,  ONE 

SWITCH 

29 

DJP  SJB  r H 

c 

CHECK  DUPLICATION  AND  CALL  FROM  PRINT* 

1447 

SM»  TemPMASK 

switch 

B 1 5 B19 

Switch 

1440 

TS 

zero 

whoounit 

TYP  SJPPp 

1449 

SP  DC  I ^AP 

NA 

6,19 

w octal 

SJP  INACt 

"SUPPRESS  OCTAL"  SUFFICES  HeRE. 

1451 

SSL,  ONE 

SW I T CH 

28 

DJP  SJB  CH 

c 

CHECK  DUPLICATION  AND  CALL  FROM  PRINT. 

1453 

SM,  TeMPMASK 

SWITCH 

B16  B20 

SWITCH 

1454 

TS 

ONE 

whodunit 

TYP  SJPPp 

1455 

SUP  IsjACT 

NA 

6,19 

w inaCtiy 

JNRC  SBDR 

"SUPPRESS  INACTIVE"  SUFFICES  Here. 

1457 

NA 

6,20 

BLANKS 

Jnrc  sbdr 

1458 

SSL,  ONE 

Switch 

30 

DJP  Sj3  CH 

c 

check  duplication  and  call  from  print. 

1460 

SM,  TeMPMaSK 

switch 

B14  B18 

SWITCH 

1461 

TX 

T wO 

- 

WHODJNI T 

1462 

TYP  SJPPR 

NA 

TEMP  MASK 

sup3  bits 

C , + 2 

1463 

5,  v|On  T Y ->  ;R 

w suppres 

spram  +8 

C,  + 2 

"SUPPRESS"* 

1465 

s,  mon  ty3er 

SUP  Cq  MSG 

SPRAM  +24 

- 

"SUPPRESS  CONDITIONALLY:  ". 

1467 

SSL,  THREE 

WHODUimH 

0 

C , + 1 

1468 

s,  mon  ty3er 

SY  TAB  MSG 

SPRA  +24 

4,0 

» SYMBOL  TABLE  LISTING". 

1470 

S,  MOn  ty^ek 

OC  MAP  MSG 

SPRA  +24 

4,0 

» octal  storage  map". 

1472 

s,  mon  ty3ek 

IiM  SUB  MSG 

SPRA  +24 

4,0 

" INACTIVE  SUBROUTINES". 

R 1474 

PROCEDURE  F0R  the  SU3DI 

RECToR  "FREEZE 

SU3R0UT I Nts" » 

Tj  incdrdqRatf  subroutines  into  a program. 

1476 

FRZ  3',  JPG  NA 

6,16 

W FREEZE 

OR  UPGR 

IF  not  "FREEZE"?  "BEFORE"  OR  "JsGRADe". 

1478 

TS 

6,19 

WHODUNIT 

renjmber  c 

REFUSE  TO  FREEZE  DURING  REPRINT. 

1460 

NA 

6,19 

MAN5U  MSG 

jnrc  sbdr 

1481 

NA,  C!T4 

6,20 

MANSU  MSG  +1 

jnrc  sbdr 

"SUBROUTINES"  IS  REQUIRED. 

1483 

NA,  B j j 9 

switch 

ZeRD 

IL  ReOEST 

require  program  assembly. 

1485 

SSL,  ONE 

switch 

31 

DJP  SJ3  CH  C 

QUIT  IF  THERE  HAS  BEEN  ANOTHER  "FREEZE". 

1487 

SM 

switch 

BIT  1 7 

switch 

SHOW  THAT  A "FREEZE"  HAS  BEEN  RECeIVEO, 

1489 

S,  MON  TY3ER 

FKSuB  MSG 

SPRA  +24 

4,0 

"FREEZE  SUBROUTINES". 

< 


L 
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— PASS  0 

P 1 A 9 1 

processing 

FOR  The  SJ6DIRECT0R  "BEFORE 

. SJ3rnAME" 

1493 

B4  OR  UPGR 

NA 

6,16 

w before 

1494 

TS 

6 COMMA  19 

whodunit 

1496 

NA,  B i T9 

Switch 

ONES 

1498 

SSL,  ONE 

switch 

40 

1500 

SM 

switch 

BIT  8 

1502 

NA 

6,20 

BLANKS 

1504 

NA,  C 1 T4 

6,19 

W END  SYLT 

1505 

BeFOReND 

TS 

w END  sylt 

ne*t  name 

1507 

TX 

L COMP  NAM 

1508 

SWS*  ThREADIO 

N,X2 

12 

1509 

ts 

Z , SH 

Z.csc 

1511 

NA,  bIT36 

2,1 

zero 

1513 

ss 

2,1 

thread  id 

1515 

NA 

Z,X2 

l end  thr 

1517 

NA 

6,19 

W ALL 

1519 

B4  WHICH 

NA 

6,19 

w all 

1521 

NA 

Z,*2 

L PROG  FIL 

1523 

ACK  BeFOR 

s,  yul  ty=er 

6,2 

A +9 

1525 

TS 

N,X2 

NEXT  NAME 

1527 

NA 

6,19 

N,X2 

1529 

NA 

Z,*2 

L PROG  FIL 

1531 

S,  MOn  tyrer 

UNRCS  MSG 

SPRAMR  +32 

1533 

SS 

2*1 

THREADio 

1535 

NA 

Z,X2 

L END  ThR 

1537 

BAD  BeFOR 

S,  MOn  tyser 

UNRCS  MSG 

SPRAMR  +32 

PAGE  36 


used  im  subroutine 
UPGRADE 

RENUMBER  C 

IL  REUeSt 

DUP  5JB  CH  C 

SWITCH 

J MR C SBDR 

G * + 2 

ACK  BeFDR 

Z,X2 

Z,X2 

Bi+  WHICH  -2 

Bl  WHICH 
Z,X2 

C,-2 

bad  beFdr  c 

ACK  -3EF  Dp  +2 
ACK  BEFDo  +1 
4,0 

AC<  BEFDR 

BAD  BEFDr  -2 

C,-2 

IGN  SBDIR 
Z»X2 

AcK  BEFDr  +2 
IGN  SBDIR 


USER'S  OWN  PAGE  NO.  36 
ASSEMBLY  to  position  A subroutine  DN  tape. 
IF  NOT  "BEFORE" » MUST  Be  "UPGRADE". 

point  to  subro  name,  uuit  if  reprint. 
REOUIRE  SUBROUTINE  assembly, 
quit  if  there  has  been  another  "Before", 
show  that  a "Before"  has  been  received, 
quit  if  subro  name  is  too  long. 

subdirector  said  "Before  end". 


start  search  for  named  subrouiime. 

branch  if  found  a subroutine, 
advance  through  list  of  PROGRAMS. 

BRANCH  Unless  THERE  are  no  SUBRdUtINeS. 
if  "before  all",  drop  into  beFdrend. 

branch  if  really  need  to  find  sjbro. 
branch  unless  subro  is  already  FIRST. 
acknowledge  subdirector  by  typing  IT. 

IF  "before  ALL",  1ST  SUBRO  IS  SJCCESSDR. 

branch  if  didn't  find  names  subroutine. 

OK  UNLESS  SUBRO  WAS  TO  PRECEDE  ITSELF. 
"SUBROUTINE  NAME  NOT  RECOGNIZED". 
CONTINUE  SEARCH  FOR  NAMED  SUdRDJTINE. 
BRANCH  IF  SEARCH  DlD  NOT  FAIL. 
"SUBROUTINE  NAME  NOT  RECOGNIZED". 
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Pl539  PROCESSING  FOR  THt  SJ3D1RlCtOR  "UPGRaDE  TO  REGION  NNN",  JSED  IN  TRANSFERRED  ASSEMB|_Y  TO  ASSIGN  AN  aR3jTRARY 

R 1 5 3^2 . Revision  number  to  a 3f<oGram  qR  subroutine  dein&  :reatEd  from  a disc  file*  typically  in  a i aPl-to-taPe  move. 


539A  UPGRADE 

NA 

6,16 

W JPGR AOE 

JNRC  S30R 

5396 

LA.  CHAR3 

SWITCH 

B1ATI6 

IL  ReUESt 

BRANCH  IF  NOT  TRANSFEEReD  ASSEM3LY. 

5398 

TX 

DUPLISUB 

- 

C,  + 0 

COME  THRU  HERE  JUST  ONCE  PER  ASSEMBLY. 

5 AO 

TS 

6 COMMA  19 

WHOOUNIT 

619  TO  X5 

C 

5A02 

NA 

N.X5.3 

W TO 

jnrc  sbor 

5 AOA 

WA 

Z.X5 

SIX 

whodjnit 

5 A06 

NA 

6,28 

ONES 

UNRC  S30R 

GIVE  UP  IF  THERE  ARE  EXTRA  WORDS. 

5 A08 

TS 

W OF 

6,28 

finger 

c 

FAKE  UP  THE  FORM  "REVISION  NNN  ->F". 

5 A 1 

NA 

N , X 5 , l 

W REVISON 

jnrc  sbor 

5AI2 

NA 

N.X5.2 

blanks 

JNRC  SBOR 

GUARD  AGAINST  IAsK  ABORT. 

5 A 1 A 

TX 

N.SC.2 

- 

ReJEC  DIr 

CHANGE  TASK  ABORT  TO  SUBDIReCTOR  IGNORE 

5 Al  6 

TS 

C.  + l 

R E J'E C DIR 

1GN  SJ30R 

restore  task  abort  routine. 

5 A 1 6 

S.  MOn  TY3ER 

REJEC  MSG 

SPR AMR  +32 

- 

5 A2 

TS 

z,sc 

Z,S2 

CvRT  REVn 

JUDGE  AND  CONVERT  REVISION  NUM3- R. 

5 A22 

TX 

C.-2 

- 

REJEC  dir 

RESTORE  TASK  ABORT  ROUTINE. 

5 A2A 

TX 

L PROG  FIL 

- 

Z ,XA 

5A26 

SWS,  B13T2A 

REVNO 

2A,L 

A , 1 

(TRANSFERRED  assy  starts  SANS  SJBROS). 

5 A2  8 

SS 

zero 

bit  10 

SWITCH 

UNDO  damage  FROM  DETECTION  OF  He V NO. 

5 A3 

S»  YUl  TY3ER 

6,2 

A +? 

C , + 1 

"UPGRADE  TO  REVISION  NNN". 

5 A3  I 

TX 

COMP  NAME 

- 

6,2 

5 A32 

TX 

W REV  ISON 

- 

6,3 

5 A33 

SWE*  ONES 

W OF 

A, 5 

6, A 

5 A3A 

SWS.  C 1 T A 

6,25 

A , 1 

6 , A 

5A35 

TN 

OBJCT  MSG 

6 

6,5 

5 A36 

TS,  CiTA 

BLANKS 

6,5 

PHI  SENTR 

MODIFY  OBJECT  MESSAGE  PER  UPGRADING. 

5 A3  7 

TS 

COLON  Cl 

COMMON 

TYP  ASOB  i +1 

c 

5 A38 

TS 

z,sc 

Z,S2 

MJD  CHE<  3 -1 

5 A39 

TS 

Z,X5 

Z,S2 

PJT  CN  C*  -2 

c 

MAKE  AND  DISTRIBUTE  NEW  OBJECT  MESSAGE. 

5 A395 

TS 

Z.X5.21 

_ 

GO  DO  A JtH 

c 

advance  xs  to  author  name  and  decode  it 

5 AA 

TS 

C,  + l 

KINWN  COMP 

TYP  ASOB J +1 

5 AA  1 

TS 

c , + 1 

KNWN  COM3 

LOAD  PASi  -1 

5 AA2 

TX 

z.xo 

_ 

L COMP  NAM 

r* 


L 
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USER'S  OWN  PAGE  NO.  40 
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PI  5 449 

procedure  TO 

RESPOND  TO  a 

reuuest  for 

A REPRINT  Of  AN 

assembly  listing,  do  not  confuse  this  with 

P 1 5 46 

PRINT 

function,  which,  make5  a symbolic  listing  on„y.  the  Reprint 

FUNCTION  IS  jU5t  LIke  ASSEMBLY  exCep t that 

P 1 5 48 ■ 

the  R 

^VISION  NUMBER  I5  Nor  ADVANCED, 

no  input  is 

accepted,  and  Renumbering  may  not  Be  done,  sypi  , sylt  and 

R 1 5 50 

BYPt 

are  not  changed  in 

any  way.  in 

particular. 

T H £ 3YPT/N0  BYPt 

bit 

FoR  A PROGRAM  DOE5  not  CHANGE  tvEN  IF  1 

R 1 552 

SUBROUTINES  Have  CHANGE0  since  ]He  LaSj  ASSEMBLY 

in  SUCH  a Wa Y AS 

TO 

change  the  gooD/Fair/Bad  rating  of  the 

R 1 5 54 

DUMMY 

assembly  inherent 

IN  REPRINTING 

• 

1555 

REPRINT  T5 

w reprint 

task  msg 

TASK  oBUr 

break  down  remainder  of  yul  director. 

1557 

SWS , C1T7 

TASK  MSG  +1 

A * 1 , L 

TASK  MSG  +1 

1558 

SWS,  CHAR8 

TASK  MSG  *2 

A * 1 * L 

TASK  MSG  +1 

1559 

SWS,  C1T7 

Task  msg  +2 

A , 1 , L 

TASK  MSG  +2 

normalize  task  message. 

1561 

S,  YUL  tY^ER 

TASK  MSG 

AMT  F +4 

TYP  AS03  1 

type  TASK,  Go  U01N  ASSEMBLY  process. 

R1563 

RETURN  TO  HeRE  IF  We  LAN  ASSEMBLE  FOR 

THE  NAMED 

computer. 

1564 

REPRINT  2 TS 

Z,SC 

Z*X1 

rd  subdrc 

1565 

S,  MON  tY3£R 

awhom  msg 

SPR AMR  +40 

typ  abort 

reuuire  subdirector  »for  custom^rname 

1567 

NA 

6,16 

W FOR 

C »-l 

1568 

s,  yul  ty?er 

6,2 

A +9 

C,  + l 

TYPE  OUT  ENTIRE  SUBDIRECTOR  CAR3. 

1570 

TS 

bit  10 

sors  line 

set  PG  HfD 

c 

1571 

TN 

REP  4 line 

3 

sors  LINf  +1 

1572 

TN 

6,2 

9 

N,AU2 

1573 

MT 

BLANKS 

3 

N , AU2 , 1 

make  UP  LINE  about  WHO  GETS  THE  RePRI 

1575 

TS,  B2BH 

ONES 

SWITCH 

KNOWN  PSr 

request  reprint*  check  prg/sub  mame  e 

1577 

SSL*  ONE 

4,1 

35 

C,  + l 

TEST  OBSOLESCENCE  BIT. 

1579 

TS 

Z,X4 

L PROO  FIL 

X5  IS  NR4 

UoIN  ASSEMBLY  initialization. 

1581 

S*  MON  TY3ER 

probs  msg 

SPRA  +40 

- 

CUSS  OBSOLETE  REPRINT  ON  TYPEWRITER* 

1583 

TS 

w blot  obs 

PAGE  HEAD 

♦14  Ct-2 

CUSS  OBSOLETE  REPRINT  on  every  JAGE. 

R 1 585 

procedure  TO 

CREATE  a backup  t ape  in 

MlDUoB,  Al  t^E 

oPeratoR 

'S  discretion,  evoked  by  the  director 

R 1 5 87 

CARD  "CREATE  BACKUP". 

1588 

create  bu  tx 

Z,X5 

• 

whoduni t 

1589 

NA 

N » X 5 , 3 

W BACKUP 

HOwZAT 

DEMAND  "BACKUP". 

1591 

TX 

Z ,X5 

- 

whodunit 

1592 

NA 

N ,X5 

ONES 

HOWZAl 

forbid  superfluous  words. 

1594 

SS 

ACA  OTHe 

CHAR  3 

ASCBU  MSr, 

1595 

S,  MOn 

ty=er 

ASCBU  MSG 

SPR AMR  +24 

- 

"ASA  TO  CREATE  BACKUP?'' 

1597 

S*  MOn 

ty^er 

ACA  OTHE 

SPRA  +16 

C*  + 3 

"ACA  OTHERWISE" 

1599 

stop 

» 

s 

1600 

s,  MOn 

ty  = er 

RIGHT  HO 

SPR AMR  +8 

ACCEPI  ♦ * 

" (SIGH)  » 

1602 

ts 

- 

_ 

C , -2 

c 

ara  or  don  a creates  backup. 

1604 

NA*  CHAR8 

1*0 

ZERO 

C , + 2 

1605 

ts,  chars 

ONE 

1*0 

C , + 3 

BYPASS  LABEL  and  ReVeRT  IF  M0ND4 Y MOR 

1607 

SS 

one 

CHARS 

N , X 1 

Be  sure  to  do  full  tape  copy. 

1609 

TS 

star  col  1 

6*1 

LABEL  YUl 

PLANT  CREATE  FLAG,  LABEL  6 REPOSITION 

1611 

TS 

ONES 

6*2 

do  backup 

PREVENT  ENDUOB  AFTER  BACKUP  CREATION. 

1" 


L 
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'1613 

variations 

1 ASSEMBLY  for 

THE  CASE  OF 

assembling  , 

A Nl 

■1615 

exiting 

one. 

acts  -Ike 

. revision  except  that  the 

sojrce  PROGRAM 

1617 

newvers 

TS 

z,sc 

Z,S2 

DECOD  PSR 

+ 1 

1619 

TS 

Z,sc 

Z,X3 

CJSS  NA J r 

-1 

1621 

. tn 

6,22 

9 

6,91 

1623 

TS 

Z,SC 

Z , X 1 

RD  SJBDRC 

1624 

s, 

MOn  ty=eR 

VRSNS  MSG 

SP  R AMR  +56 

Reuec  DIr 

1626 

NA 

6,16 

W FROM 

C , - 1 

1627 

TX 

L DIRECIY' 

- 

Z,X1 

1628 

NA, 

bit  9 

Stv 1 TCH 

ZERO 

C,  + 4 

1630 

LA, 

C AC3 

1,9 

L END  THR 

C,  + 2 

1632 

TS, 

B I T 33 

zero 

INIT  X5 

C,  + 2 

1634 

wA 

init  as 

TWO 

INIT  X5 

1636 

TS 

6 COMMA  19 

Z,X5 

TASK  oBJr 

1638 

S , 

YUl  TY^er 

TASK  MSG 

AMTF  +4 

C , + 1 

1639 

NA 

6,19 

W REVISON 

C , + 4 

1641 

TX 

W NEw 

_ 

6,19 

1642 

wA 

6,27 

1 cs 

6,21 

1644 

TN 

6,28 

3 

6,22 

16  46 

TN 

6,91 

9 

6,25 

1648 

WD 

Z , AU2 

three 

Z,X4 

1650 

wA 

L OLD  LINE 

SIX 

Z,S2 

1652 

TS, 

bit  u 

ONES 

SWITCH 

619  TO  Xs 

1653 

TS 

N , X5 , 2 

COMMON 

PJT  CHAR 

1654 

TS 

Z,SC 

Z , S 3 

WRIT  OBJr 

1655 

S, 

yul  ty=>er 

OLD  LINE  +6 

AMT  F +6 

C,  + l 

1657 

TN 

OLD  LINE  +5 

6 

OLD  LINE 

+ 6 

1659 

S, 

mon  ty3er 

w source  c 

SPRAM  +8 

TYP  AS03.I 

1661 

return  to  here 

if  we  can 

i assemble  for 

THE  NAMeO  c 

ompjteR. 

1662 

NEWVERS2 

TS, 

bit  2 

ONES 

SWITCH 

known  PSR 

1664 

TS 

6,91 

PROS  NAME 

set  hlvn 

1666 

TX 

6,97 

ajth  NAMf 

1668 

TS 

6,98 

AUTH  NAME  +1  C,+3 

1669 

VERS  =S0 

TN 

VeR  PR  MSG 

3 

SORS  LI NF 

♦1 

1670 

TN 

VER  SB  MSG 

3 

SORS  LINf 

+ 1 

1671 

SSL 

* ONE 

SWITCH 

39 

C , -2 

1672 

TN 

VERS  LINE 

3 

N * A J2 

1673 

TN 

OBJCT  MSG 

7 

N,AJ2 

1674 

TN 

blanks 

2 

N,AJ2 

1676 

TS 

bit  io 

SOR 5 LINE 

N£w  PRSJr 

’16772 

ROJTINE 

to  startle  the  operator  and  give  him  a message. 

16774 

message 

s* 

mon  ty3er 

BLOTS 

SPR AMR  +8 

16776 

S 9 

yul  ty  = er 

6,2 

AMTF  +9 

C,  + l 

16778 

S 9 

mon  ty=er 

blots 

SPRA  +8 

NEX  OlREr 
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1 PROGRAM  (Or  SUBROUTINE)  AS  A VERSON  OF  AN 
(OR  SUBRO)  IS  PRtSERVED.  AUiHqR  MAY  CHANGE. 


DECODE  PROS  OR  SUBRO  NAME. 

decode  and  standardize  author  name. 

SAVE  THESE  QUANTITIES  IN  PARSEO  FORM. 
CUSSaBoRt  IF  SUBDIReCTOR  "FROM"  MISSING. 


BRANCH  IF  DOING  A SUBROUTINE. 
branch  if  there  are  no  deletes  waiting. 
COMPENSATE  FOR  ACTION  OF  GBR2  3BR3. 
OTHERWISE  change  GB.Rz  to  gb.ra. 

BREAK  DOWN  AND  RE-FORM  SUBDIRECTOR. 

BRANCH  IF  SOURCE  PRoG/SUB  IS  NEW. 


CALL  VERSION  "NEW". 

CLOSE  UP  SENTENCE  TO  SUIT. 

SUPPLY  PROG/SUB  AND  AUTHOR  NAMES. 

MARK  END  OF  REVISED  SENTENCE. 

TYPE  SYNTHETIC  OBJECT  MSG  FROM  dLD  LINE. 

L 

c 

TYPE  SYNTHETIC  OBJECT  MESSAGE. 

MOP  UP  THE  AREA. 

JOIN  regular  assembly  procedure. 


CHECK  PROG/SUb  name,  REvNO,  author,  etc. 
c recover  new  progname,  force  revision, 
recover  author  name  of  version. 


c 


SET  UP  VERSION  SOURCE  line  for  3R INTER. 

go  Join  procedure  for  new  proG/subro, 


make  stomping  noise  before  and  after 


L. 
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P 1 6 7 8 

procedures  in  pass  0 TO  respond  to 

A REQUEST  TO  ConTROL 

OR 

DECONTROL  a SUBROUTINE.  a COmTRO.LED  sub- 

Pl680 

ROUTINfc  CANNOl  Be  ReYJSeD  OR  DeLeTED 

. both  controlling  and  decontrolling  require  a subdirector  starting  n i t m 

R1682 

the 

W 3RD 

"AUTHORIZED",  SO  THAI  THErE 

will  Bt 

a Record  (on  the  console 

TYPeOUtS)  of  who  DID  IT. 

1 6 8 A 

control 

TS 

W CONTROL 

task  ms 

G TASK  OBJc 

analyze  rest  of  director  card. 

1686 

SWS , C1T7 

task  msg  + i 

A , 1 , L 

TASK  MSG  +1 

1687  ■ 

SWS , CHAR 3 

TASK  MSG  +2 

A*  1 *L 

TASK  MSG  +1 

1688 

SWS,  C1T7 

TASK  MSG  +2 

A , 1 , L 

1 ASK  MSG  +2 

NORMALIZE  TASK  MESSAGE. 

1690 

ts,  «it  36 

ONES 

switch 

CON  QECOw 

set  up  for  Redundancy  test. 

1692 

DeCONjR 

T$ 

W DeCqNtR 

TASK.  MSG  TASK  oBUr 

analyze  Rest  of  director  card. 

1 6 9 A 

SWS,  ONES 

TASK  MSG  +2 

A » 1 

TASK  MSG  +2 

1695 

SWS,  CHARI 

TASK  MSG  +1 

A * 1 

TASK  MSG  +2 

1696 

SWS,  ONES 

TASK  MSG  +1 

A , 1 

TASK  MSG  +1 

1697 

ss 

W DECQNTR  +1 

CHAR  1 

TASK  MSG  +1 

NORMALIZE  TASK  MLSSAGt. 

1699 

SM 

switch 

B36T37 

SWITCH 

SET  UP  FOR  REDUNDANCY  TEST. 

1701 

CON 

decon 

TS 

z,sc 

z,x3 

TTP  TK03  1 

TYPE  TASK  AND  OBJeCT  MeSSAGES. 

1703 

TS 

z,sc 

Z,X1 

RD  5UBDRC 

170A 

S,  MOn  TY^EK 

AU  SUB  MSG 

SPRAMR 

+56  TYP  ABORT 

REQUIRE  "AUTHORIZED  BY  SOMEBODY"  subdir. 

1706 

NA 

6,16 

AUTHORYZ  C »-l 

1707 

NA 

6,17 

AUTHORYZ  +1  C,-2 

1708 

S,  YU|_  TY^ER 

6,2 

A +9 

C,  + l 

type  out  ENTIRE  subdirector  CARO. 

1710 

NA,  BIT  9 

SWITCH 

ZERO 

C , + 2 

1711 

s,  non  ty3ek 

PRO  CO  MSG 

SPRAMR 

+32  TYP  aBORt 

cuss  attempt  to  control/decont rol 

PROG. 

1713 

TS 

L DIReCtY 

Z,Xi 

known  P SR 

CHECK  SUBRO  NAfME  * REVNO,  AUTHOR,  ETC. 

1715 

NA,  B36T37 

A , 1 

switch 

C,  + 3 

branch  if  subro  already  in  desired 

STAT. 

1717 

HA 

A , 1 

BIT  37 

A , 1 

CONTROL  OR  Decontrol  SUBROUTINE, 

1719 

TS 

- 

- 

ACCEPT  -7 

1720 

s,  non  ty^er 

RDUND  MSG 

SPRAMR 

+16  TYP  ABORT 

R 172  1 

SUBROUTINE  in  PASS  0 TO  PRESENT  SUCCESSIVE  SUBROUTINE  CALL 

THREADS  OF  A PROGRAM  or  SUBROUTINE. 

WITH 

R 1 7 23 

the 

ADDReSS  qP  IHe  PRoG/SUBRq  Il\|  X2 

and  bank 

INDICATOR  7 IN  X3  AND 

Xa 

, FILL  IN  tHe  NO-MqRe-THReADS  DlBP3SlTlDN 

r1725 

AT 

NO  MO 

SUBS  +1  AND  ENTER  AT  SUB  THRDS  (At  0 

,125  PROM  AniOTHfR  BANK). 

switch  into  coSeuuence  for  more  calls. 

1727 

SUB 

thrds 

SWS»THREADll 

2*1 

2A 

z,x3 

£ 

point  to  first  subro  thread  wort. 

1729 

NA,  BIT25 

2,1 

ZERD 

A THREAD 

r 

branch  if  THERE  are  any  SUBCALL  threads. 

1731 

TS 

- 

- 

NO  NO  SU«S 

c 

1732 

OP 

thread 

SWS,ThREADU 

n,x3 

0 

Z,X3 

r 

follow  thread  to  next  subRo  thread 

word. 

17  3A 

sws.threadio 

n,x3 

36 

Z , X A 

s 

present  op-field  thread. 

1?36 

A THREAD 

SWS*  THREAD10 

n*x3 

2A 

Z , X a 

s 

PRESENT  A-ADDRESS  THREAD. 

1738 

TX 

bit  13 

temp  mask 

c 

branch  IF  A-ADDReSS  THREAD  was  tHe 

LAST. 

1739 

NA,  TpINPMASK 

3,0 

zero 

NO  Mo  SUnS 

C 

1 7 A 1 

SWS,THREAD10 

N,X3 

12 

Z,XA 

s 

present  b-address  thread. 

17  a3 

NA*  B 1 T2 5 

3*0 

zero 

NO  MO  SURS 

c 

branch  if  b-address  thread  was  the 

last. 

17  A5 

LA,  B37TA3 

3,0 

thread 

II  OP  thread 

r 

BRANCH  If  THERE  is  another  thread 

WORD. 

1 7 A7 

SWS,ThREAD10 

N,X3 

0 

Z,XA 

S 

present  c-address  thread. 

1 7 a9 

NO 

NO  SUBS  SWS»ThREADiu 

2*1 

0 

Z.XA 

c 

follow  thread  to  next  prog/subro. 

1751 

PR 

(TO  BE  FILLED  IN  AT  FIRST  CALL.) 
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P 1 7 5 3 

PROCEDURE  in 

Pass  o to 

respond  to  a reduest  for  dfletion  of 

A PROGRAM  OR  SUBROUTINE.  DETaL-US  the 

R1755 

PRD& 

R A1*!  OR 

subroutine  name  from  irs  author  and  its 

CqMPJTeR,  and 

PUTS 

It  in  the  delEte  thread  For  destRjction  on 

R 1 7 57 

the 

next  assembly. 

ddes  not  delete  a controlled  subroutine  nR 

A 

SUBROUTINE  that  is  CALLED  BY  any  PROS  OR  sjb. 

1759 

elim 

3R  SU 

ts 

w DLETlON 

TAS<  MSG 

TAS<  03JC 

analyze  rest  of  direcior  card. 

1761 

ts 

Z.SC 

z.xo 

TYP  U03  i 

type  task  and  object  messages. 

176  3 

ts 

- 

- 

known  psr 

see  if  program  or  subro  is  known. 

1765 

TN 

Z.X2 

3 

OBJCT  NSG 

17  66 

na,  bit 

35 

A . 1 

ONES 

elinprog 

no  restrictions  on  program  deletion. 

1768 

NA.  «36T37 

A . 1 

ONES 

C » + 3 

1769 

ss 

W DLE1 ION 

CAC12 

CONS J MSG 

♦ A 

1770 

S,  MOn 

TY^ER 

CONSU  NSG 

SPR  AMR  +A0 

TYP  ABORT 

cuss  attempt  to  delete  controlled  subro. 

1772 

TX 

zero 

COMNON 

initialize  count  of  users  of  subroutine. 

1 7 7 A 

SWS, 1 HREAJ10 

n.xo 

12 

Z.X2 

POINT  TO  1ST  PROG/SUB  OF  THIS  COMPUTER. 

1776 

DSJB 

-OOP 

TS 

N *SC » i 

NO  No  SUBS  .1 

SJB  T HRD<; 

c 

start  looking  at  subro  threads  prom 

1778 

TS 

Z.XA 

Z.X2 

DSUB  VESt 

each  program  and  subro  of  the  computer. 

1780 

NA 

Z.Xa 

OBJCT  MS3  +2 

C , + 2 

branch  if  DIDN'T  FIND  USE  OF  HlS  SU3R0. 

1782 

DA 

COMMON 

ONE 

COMNON 

COUNT  UP  THE  NUMBER  OF  USERS. 

1 7 8 A 

wD 

Z.SC 

three 

Z.SC 

c 

(REDuNDANI  AF'TlR  A match,  but  No  harm.) 

1786 

DSJ8 

vest 

NA 

Z.X2 

L END  THR 

DSUB  LOOP 

Branch  IF  THERE  IS  ANOTHER  PR03/SJBR0. 

1788 

TN 

ObJCT  NSG 

3 

Z.X2 

1789 

LA 

common 

ZERO 

deletion 

AN  UNUSED  SUBROUTINE  MAY  Be  DELATED. 

1791 

TN 

WREYN  NSG 

+ 2 3 

OBJCT  MSr, 

1792 

TN 

NuMUS  NSG 

3 

WREYN  NSG 

+ 2 

1793 

TS 

c * + 1 

2013  revn  -i 

BAD  REYNn 

BORROW  BAO-REVISION-NUMBER  CUSS-R. 

1795 

S»  NON 

TY  = ER 

WREVN  NSG 

+ 2 SPR  AMR  +2A 

C.  + l 

"NUMBER  OF  USERS  = XXX". 

1797 

TN 

ObJCT  MSG 

3 

WREVN  NSr, 

+ 2 

1798 

TS 

C.  + l 

20 i 3 Reyn  -i 

TrP  abort 

1799 

S,  NON 

ty^er 

WREVN  NSG 

SPRAMR  +A0 

TYP  ABORr 

R 1 800 

DELETION 

procedure  Comm0n  To 

Programs  and  SUBroUTIN 

es;  RELEASE  all 

SUBRo  THREAD  WqRDS  » DETACH  PRoG/SUB  maME  fr0m 

R 1 802 

AUTHORI'S 

LIST 

(Decrement  his 

SCuRE 

, Deleting  him 

IF 

it  became  zero) 

* 

detach  proG/sub  name  from  computers  list, 

R180H 

PUT  THE  ' 

COMPUTER  name  IN  with 

THE 

PROG/S J3  NAME, 

AND  put  THe  modified 

ENTRY  at  THe  TOP  OF  the  DeLlTE  list. 

1806 

DELETION 

TN 

OBJCT 

MSG 

3 

Z.X2 

1807 

NA, 

B 1 7 25  A , I 

ONES 

DE  a jT Hop 

BRANCH  IF  NO  SUBRO  THREAD  WORDS. 

1809 

SWS 

» T HREA  0 1 1 A , 1 

2A 

Z , X 3 

POINT  TO  FIRST  SUBRO  THREAD  WORO. 

18U 

TS 

Z.X3 

Z.AJl 

C.  + 2 

o 

prepare  to  release  subro  thread  word. 

1813 

TS 

Z ,X5 

Z.X3 

c.-i 

s 

SUPPLY  ADDRESS  Of  next  one. 

1815 

SS 

N , X3 

THREAD  11 

Z.X5 

c 

MAYBE  follow  THREAD  to  next  sub  thrd  wd. 

1817 

LA, 

B37TA3  3,0 

THREAD  11 

give  slot 

c 

release  nun-last  sub  thrd  WORD. 

1619 

TS 

Z.CSC 

z.sc 

give  slot 

c 

release  last  subro  thread  word. 

1821 

TX 

Z.XA 

Z.X5 

DUPLICATE  final  CONDITIONS  OF  KNOWN  PSR 

1823 

TS 

OBJCT 

MSG 

+1  Z.X3 

DE  Aul HOo 

AND  DO  EFFECT  Of  DELETION  ON  AjTHOR. 

L 
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P1825  WHEN  AN  OBSOLETE  PROGRAM  jS  DELETED,  ERaSE  THE  OBSOLETING  3itS  IN  ITS  SUBROUTINES  IF  THEY  PERTAINED  UNL y’  TO  THE 

R1627  PROGRAM  BeING  DELETE-^.  THIS  iS  DONE  IN  HO  PHASES.  PHASe  1j  STARTING  WITH  OBSOLETE  PROGRAMS,  FOLLOW  SJBRO  CALL 

r1829  THREADS  jHAj  HAVe  OBSOLETING  6lTS  AND  PLANT  OBSOLeTING  B1TS  qN  THe  SUBROUTINES  So  INDICATED,  MAKING  TH£M  L00< 

R 1 8 3 1 LIKE  OBSOLETE  PROGRAMS  (TO  A B1 | L3  TEST).  REPEAT  THIS  UNTIL  A COMPLETE  pASS  THROUGH  THE  COMPUTER'S  PRt&RAMS 

R1833  AND  SJBROUtINES  IS  MAOe  WiTHOJT  ADDING  ANY  OBSDL£TlNG  BITS.  THE  RESULT  IS  THAT  ONLY  THOSE  SUBROUTINES  THAT 
P1835  STILL  CONTRIBUTE  TO  SOME  PROGRAM'S  OBSOLE5cENcE  ARE  MARKED  wTH  A BIT  13.  PHASE  2!  MAKE  ONe  PASS  THROj^H  ALL 

R 1 837  THE  SJBROUtINeB,  CLEARING  THE  OBSOLetING  3 1 T S OF  SUBRO  CALL  THREADS  OF  UNMARKeD  SUBRoU]INES,  AND  REMOVING  THe 


R1839 

MARKS  FROM 

THE 

marked  subroutines. 

1 8 AO 

ELIM  3R0G 

SWS 

, B I T 3 6 

A,1 

- 23 

Switch 

TRANSPLANT  OBSOLESCENCE  bit. 

1 8 A2 

SS 

zero 

BIT  13 

A , 1 

remove  IT  FROM  PROGRAM  BE.ING  De.ETED, 

1 8 AA 

NA, 

B 1 T 36 

switch 

ONES 

deletion 

IF  PROG  WASN'T  OBSOLETE,  DON'T  30THER. 

18A6 

ndi  oelep 

SWS 

,THrEAjIO 

n.xo 

12 

Z,X2 

point  TO  FIRST  PROG/SUB  OF  COM3  iTER. 

18A8 

NA, 

B 1 T36 

SWITCH 

ONES 

LP2  OeLEp  +1 

BRANCH  WHeN  BIT-PLANTING  PHASE  IS  DONE. 

1850 

TS, 

B I T 36 

zero 

switch 

LP  1 DeLeP  +1 

start  a pass  of  the  bit-planti N-,  phase. 

1852 

LP 1 OELEP 

SWS 

'ThREADIO 

2*1 

0 

Z , X 2 

FOLLOW  THREAD  TO  NEXT  PROG/SUB  R 3 , 

185A 

LA 

Z ,X2 

L END  THR 

NOl  OELEP 

END  OF  PASS  IF  THREAD  IS  VOID, 

1856 

SSL 

, FOUR 

2,1 

33 

LP 1 DeLfp 

TEST  OBSOLESCENCE  OR  OBSOLETING  BIT, 

1858 

TS 

Z , XA 

Z , X 2 

LP  1 DELEP  + 1 

1859 

TS 

c,-i 

NO  Mo  SU3S 

+ 1 SJB  THRDS 

c 

call  for  subro  call  threads  of  jroC/sjb 

1861 

wD 

Z,CSC 

OnE 

Z.AJ1 

1862 

SS 

N , AU 1 

CHAR5 

C,  + l 

use  same  shift  count  that  presented  hr 

1 8 6 A 

SSL 

* ONE 

N , X 3 

C , + 3 

TEST  OBSOLETING  BIT  OF  CALL  THREAD. 

1866 

SM 

A , 1 

BIT  13 

A * 1 

PLANT  OBSOLETING  Blr  IN  SUBROUTINE  entr 

1868 

SM 

SWITCH 

BIT  36 

SWITCH 

CALL  FOR  ANOTHER  PASS* 

1870 

WD 

z.sc 

SIX 

z.sc 

c 

go  and  ask  for  another  thread. 

1872 

SSL 

, TWO 

A , 1 

34 

C ,-3 

TEST  OBSOLETING  BIT  OF  SUBROUTINE. 

187A 

oBSLING  q 

SWS 

.THREAD! 1 

2,1 

2A 

Z ,X3 

POINT  TO  1ST  SUBRO  THREAD  WD  OF  SJBRO, 

1876 

NA, 

BIT  25 

2,1 

ZERO 

C , +2 

BRANCH  IF  THERE  REALLY  IS  ONE. 

1878 

SS 

Z , SC , 7 

BIT  13 

2,1 

CLEAR  OBSOLETImG  BIT  OF  SUBROUTINE. 

1880 

SS 

zero 

B2A  B36 

N*X3 

CLEAR  OBSOLETING  BITS  OF  THREAD  WORD  1. 

1882 

SSL 

» ONE 

N ,X3 

11 

C » + 1 

BRANCH  If  there  IS  ONLY  ONE  THRrAD  WORD 

188A 

TS 

Z , SC , 2 

op  thread 

c 

GO  AND  GET  NEXT  SUBCALL  THREAD  WORD, 

1886 

SWS 

, ONE 

Z , SC , 3 

16 

N,X3 

CLEAR  LAST  OBSOLETING  BIT,  DO  NrXj  SJB. 

1888 

TS* 

PlT3AM 

zero 

3*0 

OP  THREAD 

c 

clear  obsoletIng  bits,  get  next  thRD  wd 

1890 

SSL 

* TWO 

N,X3 

10 

C , - 1 

TEST  FINAl-SuB-THREAD-WORD  Bil. 

1892 

SS 

zero 

PA  V BITS 

N,X3 

CLEAR  LAST  OBSOLETING  BITS,  DO  MEXT  SJB 

189a 

LP2  DeLeP 

SWS 

'THREADIO 

2*1 

0 

Z,X2 

Follow  thread  to  next  prog  or  sjb. 

1896 

LA 

Z ,X2 

L END  THR 

deletion 

branch  If  phase  2 op  obs-lsIt  pRoc  done. 

1898 

NA, 

B I T 36 

2,1 

ONES 

LP2  DeLep 

branch  if  program,  NOT  SUBROUIINE. 

1900 

SSL 

, TWO 

2,1 

3A 

OBSLING  n 

TEST  OBSOLETING  BIT  OF  SUBROUTIME. 
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1902 

detach  pro 

G/SU3  NAME  rROM  AUtHOk  AND 

computer  lists 

, ADD  fO  DeLeTE 

list 

• 

1903 

de  AJtHOR 

LA 

3,1 

PLJS  ^ERD 

NOT  1 ( A J) 

BRANCH  IF  NOT  1ST  IN  AUTHOR'S  LIST. 

1905 

SWStATHREDlO 

4 , 1 

1 2 * L 

3*1 

REMOVE  FROM  HEAD  OF  AUTHOR'S  LIST. 

1907  . 

TS 

Z.X3 

Z.X5 

DECR  AJTu 

LET  X5  POINT  TO  AUTHOR  NAME. 

1909 

NOT  1(AU) 

SS 

4,1 

B THRED  10 

3,1 

REMOVE  FROM  MIDST  OF  AUTHOR'S  LIST, 

1911 

SWS.THREAD10 

5,1 

12 

Z,X5 

X4  AND  X5  WERE  EQUAL  AFTER  KNOWN  PSR. 

1913 

la 

5,1 

PL JS  ZERO 

C.-l 

LET  X5  POINT  TO  AUTHOR  NAME. 

1915 

DECR  AJTH 

SWS , THREAD  10 

5,1  . 

24 

Z,X3 

Let  X3  POINT  TO  AUTHOR'S  ACt1V£ST  PROG, 

1917 

TS 

plus  zero 

COMMON 

LIVE  AJTu  +2 

c 

STAY  away  if  author  HAS  MoRe  PRtGRAMS. 

1919 

SWE , CAC3 

1,9 

16 

Z,X6 

AUTHOR  HAS  NO  ACTIVE  PROGRAMS  OR  SUBROU- 

1921 

NA 

Z,X6 

Z,X5 

A JDL  SRCh 

TINES,  so  delete  HIS  NAME. 

1923 

sws»threadio 

5,1 

12 

Z , X 3 

Sew  UP  AUTHOR  NAME  thread  AROJNy  author 

1925 

SWS , CAC2 

Z,X3 

16,-L 

1,9 

WHO  WAS  FIRST  IN  THE  DIRECTORY. 

1927 

TS 

- 

- 

DELE  AJTu 

1928 

TX 

Z,X3 

Z,X6 

1929 

AUDI  5RCH 

SWS»  THREAOIO 

6,1 

12 

Z,X3 

KEEPING  X6  ONE  CYCLE  BEHIND  X3, 

1931 

NA 

Z , X 3 

Z,X5 

C,-2 

FIND  PRECEDING  AUTHOR  NAME. 

1933 

SS 

5,1 

B THRED  10 

6,1 

SEW  UP  thread  around  author. 

1935 

DELE  AJTH 

SS 

5,1 

THREAD  11 

Z , X6 

let  X6  point  to  2nd  half  of  author  name. 

1937 

TS 

Z ,X5 

Z,  AJ1 

give  pais 

c 

1938 

TS 

Z,X  6 

Z,AJ-1 

give  slot 

c 

vacate  space  occupied  by  DEFUNCT  name. 

1940 

TS 

Chari 

TEM3  mask 

set  ol  thr 

GO  TO  PREPARE  delete  LIST. 

1942 

LIVE  AJTH 

wA 

Common 

one 

common 

count  up  author's  score  (easiest  way). 

1944 

sws.threadio 

3 , 1 

12 

Z ,X3 

1945 

la 

3,1 

PLJS  ZERO 

LIVE  AJTH 

thread  until  author  name  found  again. 

1947 

LA*  CAC3 

common 

Dll  D 1 2 

C , + 2 

1948 

SS 

Dll  D12 

CAC3 

common 

REDUCE  ANYTHING  OVER  254  TO  255. 

1950 

SPS.BiTHR  J'12 

COMMON 

8 

5,1 

1951 

TX 

CHARI 

- 

TEMP  MASk 

1952 

SET  D_  THK 

SS 

par  manuf 

C 1 T 4 B48 

4*1 

clear  low-order  bit  of  delete  thread. 

1 95  A 

SS 

N,XO 

TEM=  MASK 

4,1 

supply  computer  name  for  IMPROVED  SERCH. 

1956 

SWE.  C1T4 

temp  mask 

A,  1 

TEMP  MASK 

1957 

NA.  TeMPMASK 

0,0 

BLANKS 

C,-2 

1958 

NA 

Z,X2 

z , x o 

C,  + 3 

branch  IF  NOT  1ST  IN  COMPUTER'S  LIST. 

1 960 

SWS.BjHRE 010 

4,1 

1 2 * L 

N,XO 

DETACH  NAME  FROM  COMPUTER'S  LIST. 

1962 

TS.  CAC3 

1,9 

4,1 

C.  + 2 

THREAD  THIS  TO  FORMER  FIRST  uEl-TE. 

1964 

TS.THreADIO 

A , 1 

2,1 

C,-l 

DETACH  NAME  FROM  COMPUTER'S  USr. 

1966 

SS 

Z,X4 

CAC3 

1,9 

PUT  THIS  PROG/bUB  AT  TOP  OF  DELETE  LIST. 

1968 

SSL.  TWO 

TYPIST 

28 

C,  + l 

1969 

na.  chars 

1 ,0 

zero 

ACCEPT 

BRANCH  IF  SOME  BACKUP  ALREADY  ORDERED. 

1971 

SS 

TWO 

CHAR8 

N , X 1 

CALL  FOR  BACKUP  LABEL  AMENDMENT. 

1973 

ACCEPT 

S.  YUL  TY3£R 

ACCEPl EU 

AMT  F +1 

c*n 

type  acceptance  of  name. 

1975 

S.  YUL  TY3£K 

blanks 

A +1 

NEX  OlREr 

L 
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P 1 9 76  SUBROUTINE  IN  PASS  0 TO  ANALYZE  ALL  BJT  THE  FIRST  WORD  OF  A DIRECTOR  CaRD  WHICH  SPECIFIES  A TASK  TO 

R 1 9 7 8 Be  DOME  ON  A SINGLE  3R0GRaM,  SJCH  AS  ASSEMBLY , De.ETION,  MANUFACTURING,  ETC.  INITIALIZES  VARIABLE  ALPHABETIC 

R 1 9 bo  fields,  sets  up  com^  name,  prog  name,  re '/no,  aJth  name,  iask  msg,  and  oBjct  msg,  sets  bits  9 and  10  or  switch. 

Ri982  puts  [He  sentence  into  standard  form  and  returns  only  if  it  is  syntactically  correct. 


1984 

Manuf  OBJ 

TN 

w UR  I No  Fo 

2 

TASK  MSG  +1 

entry  when  task  is  manufacturing. 

1986 

TX 

BLANKS 

- 

TASK  MSS  +3 

198? 

TX 

N , SC , 4 

- 

P JT  CN  CZ 

ALTER  and  go  TO  MAIN  PROCEDURE. 

1989 

TS 

L TKMSG  P2 

Z,S2 

p jt  Char  +2 

C 

1990 

cp jt  cn  c& 

TS 

L T<  MSG  Pi 

Z,S2 

P JT  CHAR  +5 

C 

USED  TO  RESTORE  ALTERATION. 

1992 

TAS<  oBJC 

SWE,  ONES 

W FOR 

A , 1 

TASK  MSG  +1 

1993 

TN 

BLANKS 

2 

TASK  MSS  +2 

some  initializations. 

1995 

TX 

Z , SH 

- - 

Z,XO 

1996 

TX 

ZERO 

- 

switch 

19962 

TX 

L SUBSTRB 

- 

Z , A J2 

19964 

MT 

zero 

8 

N , A J2 , 1 

1997 

TN 

BLANKS 

15 

OLD  LINE  +1 

1998 

TN 

BLANKS 

8 

PAGE  HEAn  +4 

1999 

TN 

BLANKS 

7 

OBJCr  MSr, 

2000 

TS 

Z,SC 

Z*S2 

PROG  ADJ 

Decode  "NEW" ."REVISION  N 0F"0R" VE RSI DN" . 

2002 

TS 

z,sc 

Z,S2 

DECOq  CPm 

decode  and  standardize  computer  name. 

2004 

TN 

N,X5 

3 

6,16 

MOVE  COMPUTER  NAME  TO  HEAD  OF  S-NTENCE. 

2006 

TS 

6,55 

COMMON 

cover  j= 

C 

cover  its  old  place  in  the  list. 

2008 

TX 

COLON  Cl 

.. 

common 

2009 

wA 

Z,X6 

OCTAL  20 

Z,S2 

FORM  ADDRESS  EQUIVALENT  TO  6,16. 

2011 

SSL,  D12 

6,18 

12 

P JT  CHAR 

C 

append  colon  to  computer  name. 

2013 

TN 

6,16 

2 

common 

2014 

PUT  CN,  C6 

TS 

L TKMSG  Pi 

Z,S2 

P JT  CHAR  + 5 

1ST  CHAR  OF  COMPUTER  NAME  TO  TASK  MSG. 

2016 

SWE,  D12 

6,18 

12 

Z,SO 

COUNT  OF  CHARACTERS  MINUS  1. 

2018 

TS 

Z,SC 

Z , 51 

move  cara 

move  rest  of  computer  name  to  task  msg. 

2020 

TS 

z,sc 

Z,S2 

decod  psr 

decode  "Program"  or  "subroutine". 

2022 

NA 

N,X5 

ones 

C , +2 

above  also  stored  prog  or  SubRo  name. 

2024 

CUSS  NA'JT 

s,  YUL  tY^ER 

nauth  MSG 

AMtF  +3 

ReUEC  DIr 

complain  about  missing  author  name. 

2026 

TX 

Z,X5 

WhODJnI T 

2027 

NA 

N ,X5 , 3 

W BY 

HOWZAt 

REJECT  If  this  WORD  Is  NOT  "BY". 

2029 

GO  Do  A'JtH 

TS 

Z,  SC 

Z * S3 

DCOD  AJTu 

decode  and  standardize  author  niMe. 

2031 

wD 

4,2 

1 C6 

4,2 

use  decreased  character  count. 

2033 

TX 

L OBJC  MSG 

_ 

Z,S2 

2034 

619  TO  X5 

TX 

6 COMMA  19 

_ 

Z,X5 

omit  COMPUTER  NAME  FROM  OBJECT  MESSAGE. 

2036 

TX 

N ,X5 » 1 

_ 

COMMON 

2037 

SEND  OBJC 

TS 

N , X 5 , 1 

COMMON  +1 

P JT  CHAR 

c 

object  message  begins  with  »new»  or 

2039 

TS 

z,xo 

Z , S3 

WRIT  03 Jr 

"REVISION"  AND  ENDS  WITH  AUTHOR  NAME. 

L 

p209l 

R2093 

R2095 

p2097 

r2CK9 

r205  1 

2052 

2053 

2055 

2057 

2059 

2061 

2063 

2065 

2067 

20&9 

2071 

2072 

2074 

2076 

2078 

2080 

2082 

2089 

2085 

2087 

2088 

2090 

2092 

2099 

2096 

2098 

2100 

2102 

2109 

2105 

2106 

2108 

2109 

2110 

2111 

2113 

2119 

2115 

2116 

2117 

2118 


<®YUL  SYSTEM 


PASS  0 


USER'S  OWN  PAGE  NO.  97 


PAGE  97 


SUbROU  f I N £ IN  PASS  0 TO  CH^CK  A ReOJeSj  FOR  ACTION  ON  A KNOWN  PROGRAM  oR  SUBROUTINE  BY  VgR I F 7 1 NG  jRat 

the  computer  name,  program  or  subroutine  name.  Revision  njm3fR,  and  author  name  are  mutually  consistent,  also 
Delivers  IN  xo  the  AOOReSS  OF  the  COMPUTER  name,  in  X2  tHe  AdDReSS  OF  the  PRECEDING  PROGRAM  name  FOR  H:  comp j_ 
teR,  in  X3  the  address  of  the  preceding  program  3y  the  auhor,  and  in  x^  the  address  of  the  prog/subro  ^ame. 
note  that  IN  the  case  OF  X2  and  X3,  THE  INDEX  REGISTER  is  Set  TO  THe  ADDRESS  of  the  COMPUTER  name  OR  AUTHOR  NAMe 
RESPECTIVELY  if  THERE  IS  no  PRECEDING  program. 


<nown  psr 

TS 

Z ,SH 

WA J T H MSG  *3 

find  comd 

c 

s»  yul  ty3er 

Unrco  msg 

AMT  F +9 

TYP  ABORT 

cuss  and  abort  if  no  such  computer. 

TS 

Z , Xy 

Z,XA 

find  prog 

c 

See  IF  name  EXISTS  aS  EITHER  PROG  OR  SR 

SSL,  TWO 

switch 

38 

C , + 2 

CHOOSE  PROGRAM  OR  SUBRO  TEST  IF  FOUNO. 

SSL,  TWO 

switch 

38 

C , + 2 

CHOOSE  PROG  OR  SUBRO  CUSS  IF  NOr  FOUND. 

NA,  Bit  36 

3,1 

ONES 

0<  NOUN 

BRANCH  IF  DID  AND  SHOULD  FIND  PROGRAM. 

s,  yul  ty^er 

UNRCP  MSG 

AMTF  +9 

TYP  ABORt 

CUSS  UNRECOGNIZED  PROGRAM  NAME,  ABORT. 

NA,  Bit  35 

3,1 

zero 

0<  NOUN 

BRANCH  IF  DID  AND  SHOULD  FIND  SjBRO. 

S,  YUL  TY3ER 

unrcs  msg 

amjf  +9 

TYP  ABORt 

CUSS  UNRECOGNIZED  SUBRO  NAMe,  A30R1. 

SWE»  B 3 7 T 9 3 

3*1 

29 

common 

get  revno  of  prog/sub  with  subr-,s. 

sws.threadii 

3,1 

29 

Z,X9 

c 

SWE,  B37T98 

N,X9 

36 

COMMON 

get  revno  OF  PROG/SUB  with  no  SJBROS. 

ok  nojn 

SSL,  ONE 

3,1 

23 

OK  NOUN  -3 

c 

SELECT  REVNO-FETCHING  METHOD. 

NA 

Common 

ReVNO 

bad  Revno 

BRANCH  IF  REVISION  NUMBER  DOESN'T  MATCH 

TN 

Z ,X3 

2 

Z,X9 

ADDRESS  OF  PROGRAM  NAME  TO  X9*  *5. 

sws.threadio 

3,1 

12 

Z,X3 

THREAD  TO  NEXT  PROGRAM  BY  SAME  AUTHOR. 

LA 

3,1 

pl js  zero 

C,-l 

REPEAT  UNTIL  AUTHOR  NAME  IS  FOUND. 

SET  LAUTH 

TX 

Z,X3 

_ 

L AJTH  NaM 

SS 

3,1 

THREADli 

Z,X5 

thread  to  second  half  of  author  name. 

NA 

N , X 3 

authname 

RONG  AUTH 

NA 

N,X5 

auth  name  +1 

RONG  AUTH 

branch  if  AUTHOR  name  IS  WRONG. 

SWS’THREADl 1 

3,1 

29 

Z , X 5 

THREAD  to  1ST  PROG/SUB  NAME  IN  aUtHLIST 

TS 

Z,XO 

L COMP  NAM 

C , + 3 

save  address  of  computer  name. 

TX 

Z,X5 

_ 

Z,X3 

KEEP  X3  ONE  STEP  BEHIND  X5. 

SWS, THREADlO 

5,1 

12 

Z,X5 

thread  to  next  program  OR  sub  By  author 

NA 

Z,X5 

Z,X9 

C ,-2 

RPT  TIL  X5  POINTS  TO  THIS  PRoG/sUB  NAME 

TX 

wauth  msg  +3 

- 

z,sc 

RETURN  WHEN  ALL  IS  WELL. 

rong  auth 

TX 

n,x3 

- 

WAUTH  MSG 

+ 3 

TELL  THE  MAN  THE  CORRECT  AUTHOR  NAMe. 

TX 

N,X5 

- 

WAUTH  MSr; 

+ 9 

S,  YUL  TY3£R 

wauth  msg 

AMTF  +5 

TYP  ABORT 

Bad  RrVNO 

LA 

common 

DEC  99 

2DI0  re vm 

PROCEDURE  TO  CUSS  A WRONG  REVISION  NO. 

SWS,  CHAR  3 

common 

22, L 

WREVn  MSG 

♦ 9 

SWS , ACH9 

common 

20, L 

WREVN  MSG 

+ 9 

SWS,  ACH5 

common 

18,L 

WREVN  MSC, 

♦ 9 

s,  mon  ty^er 

WREVN  MsG 

SPR  AMR  +90 

TYP  ABORT 

ANNOUNCE  CORRECT  ONE  AND  ABORT. 

2DIG  RE VN 

LA 

common 

NINE 

101 G REVN 

SWS  » CHAR 3 

common 

26, L 

WREVN  MSG 

+ 9 

SWS,  ACH9 

common 

29,  L 

WREVN  MSG 

+ 9 

TS,  CHAR5 

blanks 

WREVN  MSG  +9 

20 I G REVN 

-1 

1DIG  RE VN 

SWS*  CHAR 3 

common 

30,L 

WREVN  MSG 

+ 9 

TS,  CHAR9 

BLANKS 

WREVN  MSG  +9 

1 01 0 REVN 

-1 

PASS  0 
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P2119 

subroutine  1 H 

1 PASS  0 TO 

DECODE  A PrDGr 

R2I21 

ISTER  ACCORDINGLY  (0  IF 

NEW,  1 IF 

REVISION).  tHe 

R2  1 2 3 

Decimal  number  in  the  range  0-999. 

the  value  of 

R2125 

reVnd,  zero  being  used  as  the  rlvision  imjmber  of 

R2127 

violation 

of  these  constraints,  with  x$  set  to  t 

R2129 

TS 

Z,SC 

Z,S2 

2130 

trans;d  q 

NA 

N»X5 

W TRANSFD 

2132 

NA 

5,1 

w TRANSFD  + 

2133 

SM 

SWITCH 

B2  3i 3 

2135 

wD 

A Cb 

1 CS 

2136 

TS 

W NEW 

N,X5 

2138 

PROG  ADJ 

NA 

N , X 5 

W NEW 

2139 

TX 

ZERO 

- 

2 1 A 1 

TS 

Z,X5,3 

- 

2 1 A3 

SHJD  3.  REV 

TS 

Z,X5 

WHODUNIT 

2 1 A 5 

NA 

N , X 5 

W VERSION 

21A7 

NA 

TASK  MSG 

w assmbly 

21  A8 

NA 

6,16 

W FROM 

2150 

NA 

N , X 5 , 1 

W REVISON 

2151 

NA 

N,X5,2 

BLANKS 

2153 

CVRT  REVN 

SWE»  ones 

5*2 

12 

2155 

la 

FOUR 

Z,S1 

2157 

LA.  ChaR8 

OCTAL  20 

5,2 

2159 

WA 

L SIXES 

Z,S1 

2160 

«A 

N , X 5 

N , SO 

2162 

NA,  UeCTEST 

COMMON 

zero 

2 1 6A 

TS 

Z,X5 ,2 

Z , X A 

2166 

RESERVE 

1 

2167 

NORM  REVN 

na,  chari 

A ,0 

ZERO 

2168 

LA 

zero  ci 

N , X a 

2170 

SWS,  C1T7 

N,XA 

A , 1 , L 

2172 

TS 

Z , S 1 ♦ 1 

- 

217A 

SAVE  REVN 

SWS,  CHARS 

Z,S1 

12*L 

2176 

TX 

Z ,X5 

2177 

NA 

N,X5,3 

W OF 

2179 

SET  REVN 

SM 

switch 

BIT  10 

2181 

TS 

NORM  REVN 

-1  ReVNO 

R 2 1 8 3 

PROCeOURe 

TO  CJSs  A R£V  1 

Sion  number  of  a or  more 

2 1 8 A 

LONG  RE VN 

TN 

N,X5 

2 

2185 

s,  yul  typer 

LREVN  MSG 

AMT  F +5 

R 2 1 86 

PROCEDURE 

TO  CJSs  a NDN- 

•decimal  revision  number* 

2187 

NDEC  REVN 

TX 

N,X5 

2188 

s.  yul  typer 

UDRVN  MSG 

AMTF  ♦ 

AM  OR  SJBROiiTinE  ADJECTIVE  AND  SET  BIT  10  OF  THE  SWiTCh  REG- 

aojective  is  either  "New»  or  "Revision  n of»,  where  n is  a 
t He  revision  number  is  stored  in  right-justified  decimal  in 
A NEW  PROGRAM  or  SJBROUTINe.  ERROR  EXITS  aRE  PROVIDED  FOR  ANY 
HE  FIRST  OrD  of  the  adjective,  ENTRY  ISi 


PROG  ADJ 

SHUD  B RpV  +i 

HOwZAT 

SWITCH 

5,2 

C,  +2 

branch  if  adjective  isn't  "transferred" 
set  switches  for  merging  and  xfprred  in 
FOLLOW  NEW  assembly  PROCEDURE. 

SHUD  B RpV 
REVNO 
N *S2 

REVISION  NUMBER  = 0 IF  NEW. 
STEP  WORD  INDEX  AND  EXIT. 

TRANSFD  Q 
C,  + 3 

HOWZAT 
NEW  VERS 
HOWZAT 
HOWZAt 

IN  CASE  WORD  IS  NOT  "REVISION", 
"VERSION",  OR  "TRANSFERRED". 

branch  on  recognizing  version  assembly, 

branch  if  word  unrecognizld. 

z , S 1 

LONG  RE Vm 
NDEC  Re Vn 

z,so 

COMMON 
NDEC  RE Vm 

length  of  revision  number, 
four  and  up  is  illegal, 
error  if  revision  no.  not  hex. 

zero  length  looks  NON-DeCIMAL  l-ngth  l. 
error  if  revision  no.  not  decimal. 

PHI  A2D 

CONVERT  ALF-DEC*  USING  so,  S3*  R7. 

SAVE  RE Vm 
SAVE  REVN 
N,XA 

NORM  REVM 

SUPPRESS  LEADING  ZEROS  BUT  LEAVe  LONE  0 
SIMULTANEOUSLY  left-normal i ze... 

...AND  DECREMENT  CHARACTER  COUNr. 

N »X5 » 1 
WHODUNIT 
HOWZAT 
SW I T CH 
N,S2 

STORE  ADJUSTED  LENGTH* 

ERROR  IF  3RD  WORD  IS  NOT  "OF". 

SIGNIFY  REVISION  RATHER  THAN  NEW. 

fetch  decimal  revision  number  amd  exit. 

DIGITS. 

LREvN  MSr,  +3 
REJEC  dir 


JDRvN  MSG  ♦ 3 
REJEC  Dio 


1" 


L 

@YUL  sr 

STEM 

--  PASS  0 
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P2189 

SUBrOutIN£  in 

1 Pass  0 to 

DECODE  AND  STANDARDIZE  A COMPUTER 

NAME.  THE  WORD  "MOD"  IS  IGNORED  I-  lT  PRE- 

R2191 

cedes 

the 

CoMPJTeR  NAMe. 

the  Raw 

name  is  stored  in 

COMP  NAMf.  eRRDR 

EXU  IF  NAME  IS  MORE  THAN  A CHARACTERS 

^2193 

long. 

IF 

THE  NAMe  Bfo'INS  WITH  A D 

IGIt,  It  IS  SHIFTED  right  a chara 

CteRS  and  II MOD  " INSERTED  (IN  THe  S^nTfNCe 

R2195' 

ONLY, 

NOT 

IN  COMp  NAMf)  . 

WITH  X5 

set  to  the  word  in 

1 the  SENTENCE, 

entry  is: 

R2197 

TS 

z,sc 

Z , 52 

DeCOD  CPn 

(THIS  IS  IN  TRANSFER  VECTOR  AT  0»l3l.) 

2199 

DECOO 

CPN 

NA 

N,X5 

W MOD 

C , + 2 

2200 

rs 

6,55 

COMMON 

COVER  JP 

c 

move  up  sentence  to  cover  "mod". 

2202 

LA 

ONES 

N , X 5 

CJS  NO  COM 

BRANCH  If  COMPUTER  NAME  Is  MISSING. 

2209 

LA,  CHAR6 

5,2 

9 CS 

C , + 3 

2205 

TN 

N ,X5 

2 

LCPN  MSG  +3 

2206 

s,  yul  ty^er 

LCPN  MSG 

AMT  F +5 

reJec  D I r 

ERROR  IF  NAMe  LONGER  than  A CHARACTERS. 

2208 

TX 

N*X5 

_ 

COMP  NAMf 

2209 

NA 

COMP  NAME 

BLANKS 

C , + 2 

2210 

CU5  NO 

COM 

S,  YUL  T79£R 

bLCPN  MSG 

amtf  +3 

REJEC  DIR 

CUSS  BLANK  COMPUTER  NAME  AND  A3dRT. 

2212 

EX 

par  manuf 

Cl  T 9 

COMPJTER 

FORM  UP  A BLANKLESS  COMPUTER  NAME. 

2219 

SSL*  SEVEN 

5,2 

12 

C , tO 

SELECT  ON  LENGTH  OF  COMPUTER  NAME. 

2216 

ts*  chari 

COMP  NAME 

COMPTER 

C , + 9 

2217 

TS*  CHAR2 

COMP  NAME 

COMPUTER 

C,-l 

2218 

TS,  CHAR3 

COMP  NAME 

COM3UT  ER 

C,-l 

2219 

TS*  CHAR9 

COMP  NAME 

COMPUTER 

C,-l 

2220 

SS 

blanks 

C5TB 

N,X5 

enter  here  for  general  compname  fixer. 

2222 

LA 

TEN  Cl 

N,X5 

N,S2 

exit  if  name  does  not  begin  with  digit. 

2229 

mod  chek  3 

LA*  CHAR3 

5*0 

9 C3 

C , + a 

but  EXIT  iF  3RD  CHARACTER  IS  ALSO  DIGIT. 

2226 

SWS,  ONES 

N ,X5 

A, 9 

N ,X5 

2227 

SS 

W MOD 

C 1 T 9 

N ,X5 

2228 

wA 

5,2 

9 C6 

5,2 

INSERT  "MOD"  AND  ADJUST  LENGTH. 

2230 

TX 

Z * S2 

Z,sc 

R22  3 1 

minor 

subroutine  IN  3ASS 

1 0 TO  CLOSE  UP  THE  SENTENCE 

So  AS  TO  COVER 

JP 

the  word  just  examined,  entry  is: 

R22  33 

TS 

6,55 

COMMON 

cover  jp 

r 

2239 

COVER 

UP 

IT 

5,3 

6,55 

N , X 5 

c 

MOVE  UP  REST  OF  SENTENCE. 

2236 

MT 

ONES 

2 

N » A J2 , 1 

c 

GUARANTEE  END  SIGNAL. 

2238 

TX 

COMMON 

6,55 

restore  word  replaced  by  eoi  and  exit. 

R2  2 AO 

procedure 

TO  CJSS 

AN  JNREC0GN1 

ZED  WOrD  WHICH  w As 

SET  JP  BY 

Pi  iT  T i NG  ITS  ADDRESS  IN  WHODUNiT.  (SEE  XFER  VECTOr). 

22  a2 

H0WZ  THAT 

TN 

N,AU1 

2 

wjnrc 

MSC,  +3 

2 2 A3 

S,  YUl 

ty?cr  wunrc 

MSG  AMTF  +5 

rejeg 

DIr 

L 6?YUL  SYSTEM  — pASS  0 
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R 2 2 96 


program  or 


SUBROUTINE  IN  pAss 
SUBROUTINE  name  IS 


0 TO  DECODE  nOun  aND  NaME.  T Hf  N°Un  IS  EITHER  "PROGRAM"  Or  "SUBROUTINE".  THE 
STORED  IN  PROGNAME.  ERROR  exit  IF  NAME  Is  LONGER  THAN  8 CHARACTERS.  ENTRY  IS; 


R22A8 

TS 

Z,SC 

Z.S2 

DeCOO  PSp 

WITH  X5  Set  to  the  word  in  THE  SENTENCE 

r2250 

BIT  9 

OF 

THe  s 

w i tch  regiSieR  is  set 

TO  0 IF  PROGRAM 

OR  l IF  SUBROUTINE. 

2251 

DECOD 

PSR 

NA 

N»X5 

w program 

C . + 2 

2252 

TS 

Z ,Xs . 3 

- 

WHAT  PROG 

leave  swiich  alone  if  program. 

22532 

NA 

N.X5 

W SEGMENT 

C . + 3 

2253L 

SM 

switch' 

BIT  7 

SWITCH 

SET  SEGMENT  flag  ANd  TREAT  lI<E  PROGRAM 

22536 

TS 

Z ,X5 , 3 

- , ■#- 

what  prog 

2259 

FINGER* 

TX 

Z , X5 

WHODJnI t 

S 

2255 

NA 

N.X5.1 

W SJBROTI 

HOWZAt 

2256 

NA 

N.X5.2 

W NE 

HOWZAl 

BRANCH  IF  UNRECOGNIZED  NOUN. 

2258 

SM 

switch 

BIT  9 

switch 

2259 

WHAT 

3R0G 

NA 

5.1 

BLANKS 

Long  prgm 

branch  if  name  is  too  long. 

2261 

NA 

N.X5 

BLANKS 

C , 2 

2262 

s, 

YUl 

TY  = ER 

BLPSN  MSG 

AMTF  +3 

REJEC  Dip 

CUSS  BLANK  PROGRAM/SUBRO  NAMt  AmD  ABORT 

2269 

TS 

N.X5 .3 

PROG  NAME 

N.S2 

STORE  NAME  and  exit. 

2266 

LONG 

3RGN 

TN 

N.X5 

? 

LPRGN  MSG  + 3 

2267 

S» 

yul 

TY  3ER 

LPRGN  MsG 

AMTF  +5 

REJEC  DIR 

cuss  name  of  more  Than  8 characters. 

R2269 

ENTRIES  to 

ROUTINES 

in  service 

module. 

2270 

DO  BACKUP 

TS 

z.sc 

Z.AJ1 

SERVICE 

2271 

PRINT  PSR 

TS 

Z.SC.l 

Z.AJl 

SERViCE 

2272 

PUNCH  PSR 

TS 

Z.SC, 2 

Z.AJ1 

SERVICE 

2273 

xfer  3SR 

TS 

Z.SC. 3 

Z.AJl 

SERVICE 

2279 

ADD  COMP 

TS 

Z.SC, 9 

Z.AJl 

SERVICE 

2275 

RMOV  COMP 

TS 

Z ,SC , 5 

Z.AJl 

service 

2276 

PASS  STAT 

TS 

Z.SC, 6 

Z.AJl 

SERVICE 

2277 

MANU  STAT 

TS 

Z.SC, 7 

Z.AJl 

SERVICE 

R2279 


GENERAL  entry  to  SERVICE  module  routines. 


2280 

SERVICE 

SWE 

2281 

wD 

2282 

WA 

2283 

TX 

BANK  1 32  Z,XO 

Z.SH  Z.AJl  Z.AJ1 

Z.AUl  L SERVICE  Z.AJl 

N.AUl  - Z.SC 


CAC3 


1 

< 
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SUBROUTINE  IN  PASS  0 TO 

DECOUE  AN  aJHOR 

name  uno  store 

IT 

IN  STANDARDIZED  FROM  In  AUTHNAME  aNO 

R2266 

AUTHN4ME+1 

and  in  the  s 

entence  replacing  the  first 

rtORD  OF  T we  AUTHOR 

name,  standardizing  here  Means  c.osing 

r2288 

THe  W ords 

with  only  He 

non-blank 

lERMlNATORS  INTERVENING.  ERROR 

EXITS  IF  THE  AUTHOR  NAMe  IS  MISSING  OR  IS 

r2290 

longer.  than  i6  charawIeks  when  standardized,  with 

xs  set  to  the  first 

WORD,  ENTRY  is; 

R2292 

TS 

Z,SC 

Z , S3 

DCOD  AJTH 

2293 

DCOD  AUTH 

TX 

Z,X5 

Z,X4 

SAVE  LOCATION  OF  FIRST  WORD. 

2295 

TX 

Z ,X5  »z 

- 

Z,S2 

SET  UP  ADDRESS  FOR  CLOSING  UP. 

2297 

LA 

ONES 

N,X5 

CUSS  NA Jt 

error  if  ajthor  name  is  MISSING, 

2299 

TS 

zero 

Z , R 6 

C , + 2 

INITIALLY  CLEAR  LENGTH  COUNTER. 

2301 

HOW  LONG 

wA 

Z,R6 

ONE 

Z , R6 

ADD  LENGTH  OF  TERMINATOR. 

2303 

SWE»  CHAR  3 

N , X 5 » 3 

12 

common 

2304 

NA 

COMMON 

ZERO 

C , + 2 

2305 

S,  YUL  TY^EK 

BmUTH  MSG 

AMT  F +4 

ReJEC  0 1 o 

CUSS  BLANK  WORD  IN  AUTHOR  NAME,  ABORT 

2307 

WA 

Z,R6 

COMMON 

Z,R6 

ADD  LENGTH  OF  COMPONENT  WORD. 

2309 

NA 

N ,X5 

ONES 

HOW  LONG 

2310 

LA 

Z ,R6 

OCTAL  20 

LAUTH  3< 

2311 

s » yul  ty=er 

LAUTh  Meg 

AMTF  + 3 

REJEC  Dlu 

error  if  name  more  than  u characters 

2313 

LAJH  0< 

TX 

Z,X4 

Z,X5 

2314 

LA 

ONES 

4,5 

SAVE  A JT w 

BRANCH  IF  1-WORD  AUTHOR  NAME. 

2316 

LA » CHAR6 

4,2 

7 C5 

C,  + 2 

2317 

tx 

Z »S2 , 1 

- 

- 

IF  CLOSING-UP  BEGINS  IN  WORD  2. 

2319 

TX 

4,2 

- 

COMMON 

2320 

SSL,  SEVEN 

4,2 

12 

p Jt  char 

r 

move  terminator  of  first  word. 

2322 

TS 

Z ,X5 , 3 

- 

CLOS  AJTu  +1 

2323 

CLOS  AUTH 

TX 

N,X5*1 

COMMON 

Q 

MOVE  TERMINATOR  CHARACTER. 

2325 

TN 

N , X 5 , 2 

2 

COMMON 

2326 

SWE,  CHARS 

N ,X5 

12 

z,so 

2327 

TS 

z,sc 

Z,5l 

move  car^  +3 

insert  component  word. 

2329 

NA 

5,3 

ONES 

CLOS  AJTH 

2330 

SWS , CHAR  5 

Z,R6 

12, L 

4,2 

length  of  standardized  name. 

2332 

SAVE  AUTH 

TX 

NiX4 

_ 

AuTH  NAMf 

2333 

TS 

4,1 

AUTH  NAME  +1 

N»s3 

STORE  AUTHOR  NAME  SEPARATELY  AN}  EXIT 

I 
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P2335  SUBROUTINE  IN  PASS  0 TO  MoVE  PART  OF  A SENTENCE.  ASSUMES  A PREVIOUS  ENTRY  T0  PUj  CHAR  ANO  StOPS 

R2337  AFTER  MOVING  THE  WOR3  WHOSE  ADDkESS  IN  Xa»  OR  3eFoR£  IF  THAT  WORD  HAS  LeNGtH  q.  ENTRY  1ST 


R2339 

TS 

2. SC 

Z » S3 

WRIT  03 Jr 

23AO 

WRIT  0BJC  SWE,  CHARb 

N,Xs»l 

12 

z,so 

length  of  component  word. 

23<+2 

TS 

Z.SC 

Z,Sl 

move  cars 

move  all  but  ist  char  of  word. 

234A 

tn 

N.X5 

2 

common 

c move  ist  character  of  next  woro. 

23A6 

NA 

Z *X5  » 2 

Z.X4 

WRIT  OB Jc 

23A7 

SWE » CHAR  3 

N *X5 

12 

Z,SO 

2348 

LA 

z,so 

ZERO 

N * S3 

exit  If  last  word  HAS  ZERO  LeNstH. 

2350 

TS 

Z * S3 

z*5l 

MOVE  CARS 

Move  LAST  WORD  AND  EXIT. 

R2352 

subroutine 

IN  pAss  0 TO 

move  The 

CH^R^CTBRs  Of  a wORd*  Assuming  a PREVIOUS  ENTRY  TO  put 

char. 

h235A 

the  word 

IN  COMMqN  AND 

COMMON +i  AND 

THe  FIRST  CHARACTER  MOVED,  eNtrY  IS: 

R2355 

TS 

z,sc 

Z,S1 

move  cars 

2356 

MOVE  CARS 

SWS*  ONES 

COMMON 

A * 1 * L 

common 

2357 

SWS*  ONES 

COMMON  +1 

A , 1 , L 

COMMON  +1 

2358 

SS 

COMMON  +1 

CHAR8 

COMMON  SHIFT  COMMON  AND  CoMMoN+1 

left  i ci 

2360 

ss 

blanks 

CHAR8 

COMMON  ti  C MOVE  ONE  CHARACTER. 

2362 

NA 

Z,S0*1 

ONE 

MOVE  CARS 

2363 

TX 

Z»S1 

- 

Z,SC 

r236A 

MINOR 

SUBROUTINE  to 

POSITION  YUlPROGs 

oust  after 

THE  LABEL.  ENTER 

AT  POslT  YUL  IN  TRANSFER  VECTOR. 

2366 

POSIT 

REW  TS 

Z,Xo 

Z,S2 

phi  tape 

SAVE  XO. 

2368 

RW  * 1 

- 

• 

- 

(USUALLY  SUPERFLUOUS). 

2370 

TS 

L STOPPER 

Z*X3 

PHI  TAPE 

2371 

RF*1 

0,0 

- 

- 

2372 

TS 

Z,S2 

ZtXD 

PHI  TAPE 

RESTORE  XO. 

2374 

RF  * 1 

- 

- 

• 

2375 

TX 

Z , S3 

- 

ZtSC 

L 
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P2376 

SUBRO|jTINe 

in  Pass  o to 

FIND  AN 

AUTHOR  name  in  Trp  yul 

FILE 

directory,  with  the  name  in  authname. 

R2378 

entry 

IS 

ts 

ones 

1*6 

find  ajth 

C 

RETURNS  to  L+2  WITH  ADDRESS  OF  AUTHOR 

r2380 

name 

IN  X3 

IF  FOUND,  OR  TO  L+i  WITH 

ADDRESS 

' OF  NeXT 

ALPHA-LArLIeR 

AJtHOR  NAMe  IN  X5  <N,Xs  = 1,6  IF  NONE)  IF  NOT. 

2382 

find 

AUTH 

SWE,  CAC3 

1 ,9 

16 

Z ,X3 

c 

ADDRESS  OF  AlPHA-EARlIEST  NAME. 

2389 

TS 

L end  thr 

Z,X5 

C,  + 2 

c 

INITIALIZE  ADDR  OF  PREVIOUS  NAM.r. 

2386 

sws.threaoi 

0 3,1 

12 

Z , X 3 

c 

FOLLOW  THREAD  TO  NEXT  NAME. 

2388 

LA 

auth  name 

N,X3 

PLAC  ajth 

c 

branch  when  this  name  not  great-r. 

2390 

TS 

Z,X3 

Z,X5 

C,-2 

c 

UPDATE  ADDR  OF  PREVIOUS  NAME. 

2392 

PLAC 

AOTH 

LA 

N * X 3 

AUTH 

Name 

C.  + 2 

c 

BRANCH  ON  EQUALITY  OF  1ST  a CHARACTERS. 

239-9 

TX 

- 

- 

otherwise  exit  on  NO  MATCH. 

2396 

TX 

Z,X3 

_ 

Z,AJl 

£ 

2397 

SS 

3,1 

THREAD  11 

Z , A J 1 

c 

ADDR  OF  2ND  8 UHARS  OF  FOUND  NAME. 

2399 

NA 

N , AU 1 

AUTH 

NAME  *1 

C » + 2 

c 

BRANCH  IF  MATCh  FAILS  ON  2ND  H A _F . 

2901 

TX 

Z,sc,l 

- 

- 

EXIT  SKIPPING  WHEN  NAME  IS  FOUNi. 

2903 

LA 

N , AU  1 

AUTH 

NAME  +1 

PLAC  AJTui  -1 

c 

LOOK  AGAIN  WHEN  FOUND  NAME  SMALLER. 

2905 

TX 

"" 

* 

R2906 

SUBrOuI inE 

IN  PASS  0 TO 

include 

the  ajthor  naml  SjVEn 

in  authnAme  in  the  yul  file  directory,  entry: 

R2908 

TS 

• • • 

• • • 

ADD  AJTHr 

WITH  X5  Set  UP  BY  FIND  auth,  RrTJRNS 

R2910 

with 

address  of  author 

NAME  IN  X3. 

2911 

ADD 

AJTHR 

TS 

Z * SH 

Z * S3 

Find  pair 

c 

find  2 consecutive  unused  locations. 

2913 

TX 

AUTH 

NAME 

- 

N,X3 

STORE  1ST  HALF  OF  NAME. 

2915 

TX 

PLUS 

zero 

3.1 

FLAG  JO  SIGNIFY  AUTHOR,  NOT  PROS  OR  SJB. 

2917 

SWS, AjHREDlO 

Z,X3 

29. L 

3,1 

program  thread  of  barren  author  to  self. 

2919 

NA 

Z,X5 

L END  THR 

2ND  aJTHr 

BRANCH  IF  not  ALPHA-EARLIeSt  AJtHOR. 

2921 

sws*«thredio 

1 *9 

/. 

3,1 

INSERT  AT  HEAD  OF  LIST. 

2923 

SWS.  CAC2 

Z ,X3 

16  * L 

1,9 

2929 

TS 

Z,SC, 

3 

- 

FIND  SLOt 

C 

find  a single  unused  location. 

2926 

2ND 

AJTHR 

SS 

5*1 

BTHREOlO 

3*1 

INSERT  new  Name  in  list  IN  ALPHABETICAL 

2928 

SWS * BThRE  DlO 

Z ,X3 

1 2 * L 

5,1 

order. 

2930 

TS 

- 

- 

FIND  SLOt 

c 

FIND  A SINGLE  UNUSED  LOCATION. 

2932 

SS 

Z,X5 

THREAD  11 

3,1 

SET  THREAD  TO  2ND  HALF  OF  NAME. 

2939 

TS 

AUTH 

NAME  +1 

N,X5 

N , S3 

STORE  SECOND  HALF  OF  NAME  AND  EXIT. 

PASS  0 
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SUBROUTINE 

IN  PASS  0 

TO  FIND  HE  ADDRESS 

OF  A 

SINr.LE 

UNUSED 

LOCATION  IN  THE  YUL  FILe  DIRECTORY.  IF 

R2A38 

jHeRe  are 

NO  INTERNA. 

SLOTS  (AS 

FROM  AN  eARLIeR 

Deletion) 

, the  directory  is  lengthened  by  2 words,  only  the 

R2AAO 

first  be i 1 

•JG  RESERVED. 

enter  by 

cosequence  gall 

td 

find 

slot  . 

the  address  is  returned  in  xs. 

2AA2 

FIND  SLOT 

SWE , 

CAC3 

1.8 

32 

Z.xs 

c 

set  up  address  if  internal. 

2 AAA 

NA 

z.xs 

L END  THR 

not  adDi 

c 

BRANCH  IF  AN  INTERNAL  LOCATION, 

2AA6 

TX 

I»8 

_ 

Z.X5 

c 

USE  END  OF  DIRECTORY  AS  ADDRESS. 

2AA8 

EX 

1.8 

CACl 

5,1 

c 

Thread  following  location  into  - 1 s t . 

2A50 

. wA 

1.8 

ONE 

1.6 

c 

2 A 5 1 

sws. 

CACl 

1.8 

32. L 

1,8 

c 

NEW  SLOT  heads  THE  LIST. 

2A53 

wA 

1.8 

ONE 

1.8 

FINISH  LENGTHENING  AND  EXIT. 

2A55 

NOT  ADD1 

SS 

N.X5 

CACl 

1.8 

c 

delete  location  from  list. 

2A57 

EX 

Z.X5 

CAC3  Ml 

Z.RS 

c 

SET  UP  TO  SEE  IF  A PAIR  IS  AFFECTED. 

2A59 

TS 

1 CoMVi  A 

8 Z » X 2 

pair 

SRCh  +a 

c 

ADDRESS  of  initial  THREADS. 

2 A6  1 

pair  srch 

SWE  ’ 

CAC3 

N.X2 

16 

Z . X 2 

c 

FOLLOW  THE  THREAD  THROUGH  PAIR  -1ST. 

2 A63 

NA 

Z.X2.1 

Z.R5 

C , + 2 

c 

branch  if  pair  not  contain  this  slot. 

2A65 

SS 

N.X2 

CAC2 

n.xa 

sew  up  gap  around  pair,  exit. 

2 A67 

LA 

ONES 

N.X2 

N.SC, 

1 

r 

EXIT  IF  end  OF  PAIR  LIST. 

2A69 

TS 

Z.X2 

Z , X A 

PAIR 

SRCw 

c 

UPDATE  ADDRESS  OF  PREVIOUS  PAIR. 

R2A71 

minor 

1 subroutine  in 

PASS  0 TO  TYPE  OUT  a 

TASK 

MESSAGE 

. Sjch 

AS  "ASSEMBLY  FOR  MOd  3C".  ANd  THE  OBJECT 

R 2 A 7 3 

OF  THE  TASK,  SJCh  AS 

"NEW  PROGRAM  BUGGY  3Y  JOE 

BLOW' 

R2A7A 

ENTRY  IS 

TS 

z.sc 

Z . X D 

TYP  TK03J 

2A75 

TYP  TO  OBJ  S* 

yul 

TY^ER 

TASK  MSG 

AMT  F + A 

C.  + l 

2A76 

5 ♦ 

YUl 

ty  = er 

OBJCT  MSG 

A +7 

0.0 

R2A77 

SUBROuTiN 

E IN  PASS  0 TO 

vacate  a pair  OF  WORDS 

1 N THE  DIRECTORY. 

CSC 

call  with  address  in  Aji. 

R 2 A 79 

ENTER  AT  0,133  IN  TR 

ansfer  VECTOR. 

2A80 

give  3r  tx 

1,8 

N,AUl 

C 

make 

2ND 

wd  point  along  pair+sljt  lists 

2A82 

SWS»  CACl 

Z.AU2 

32  » L 1.8 

c 

2A83 

SWS,  CAC2 

Z.AU2 

1 6 » L 1.8 

c 

set 

PAIR. 

SLOT  POINTERS  TO  1ST  W D. 

2A85 

SWS,  CACl 

Z,AUl 

32, L N.AJ2 

let 

WD  1 

POINT  TO  WD  2,  EXIT. 

£ 
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SUBROUTINE 

TO  FIND 

a computer  name  in 

THE  YUL  FILp  D 

IRFCTORY. 

with  name  in  comp  name  , entry  IS 

R2489 

L 

ts 

• • • 

• • • 

Find  comp 

C 

Returns  with  address  of  the  nexi  lower 

R 2 4 9 1 

NAME  IN  R4 

(OR  ZERO  I 

r NONE) 

AND  with  ADDRESS  of 

name  (or  next 

HIGHER  IF 

NO  MATCH)  IN  XO*  TO  L + 2 IF  NAME  FOUND, 

R2493 

otherwise 

TO  L+l.  FI 

ND  CuMP 

IS  IN  the  TRANSFER 

VECTOR  at  0,134 

• 

2494 

find  cnam 

SWE*  CAC3 

1,9 

32 

z , xo 

C 

get  thread  TO  1ST  computer  name. 

2496 

TS 

ONES 

1,6 

C , + 2 

c 

SET  UP  LIMITING  VALUE. 

2498 

SS 

N,X0 

THREAD  is 

z,xo 

c 

FOLLOW  THREAD  TO  NEXT  HIGHER  NAME. 

2600 

LA,  CiT4 

COMP 

NAME  0,0 

C , + 2 

C 

2501 

TS 

Z,XO 

. Z,R4 

C , -2 

c 

2502 

NA,  CiJ4 

COMP 

NAME  0*0 

C , + 2 

c 

2503 

TX 

z » sc  * 

1 

- 

EXIT  SKIPPING  IF  NAME  FOUND. 

2505 

NEWP  -ITS 

TS 

- 

- 

- 

EXIT  WHEN  NAME  NOT  FOUND. 

R 2 5 0 7 

SUBROUTINE  TO  find 

a program  or  subrouiine  name  im 

THE 

directory,  with  name  in  prog  name  * entry  is 

R2509 

L 

ts 

• • • 

• • • 

FIND  PROr, 

c 

IF  name  is  found,  return  IS  to  _+i  WITH 

fR  2 5 1 1 

location 

IN  X3 

and  location  of 

preceding  name 

IN  X2. 

IF  NOT  FOUND 

, 1 

RETURN  IS  TO  L+2  with  87,6  IN  X3  ANo  LOCA- 

R2513 

TION 

OF  LAST  PROGRAM  NAME  IN  X2. 

2514 

FIND 

= ROG 

TX 

z,xo 

Z,X2 

2515 

TX 

Z*XO 

- 

Z,X3 

c 

TO  set  BANK  INDICATOR  AND  BIT  43. 

2517 

sws 

, T HREA  0 1 0 N,XO 

12 

Z , X 3 

c 

THREAD  TO  FIRST  PROGRAM. 

2519 

TS 

PROG  NAME 

1,6 

C , + 3 

c 

ensure  apparent  finding  anyway. 

2521 

TX 

Z,X3 

_ 

Z,X2 

c 

2522 

SS 

2,1 

thread 

10 

Z , X 3 

c 

PROGRAM-TO-PROGRAM  THREAD. 

2524 

NA 

N,X3 

pros  name 

C , -2 

c 

2525 

TX 

ONES 

1*6 

c 

restore  end-of-list  sentinel. 

2527 

NA 

3,1 

ONES 

N , SC  , 1 

c 

EXIT  IF  REALLY  found. 

2529 

TX 

Z , SC  , 1 

- 

- 

exit  skipping  if  not  found. 

R2531 

minor 

SUBRqUT 1 

NE  IN  5 ASS  0 JO 

LaBEL 

YULPROGS. 

enter 

: AT  La3ei~ 

YUL 

IN 

transfer  Vector. 

2533 

LABL 

test 

NN 

NON  Wl 

5e 

zero 

TYP  NoN  yS 

TYPE  count  OF  NON-YUL-DIReCTOIRS  if  nz. 

2535 

SS 

N,X1 

BIT  35 

frame 

2536 

SS 

Zero 

BIT  35 

N , X 1 

remove  tape  PUNCH  call  bit  FROM  LABEL. 

2538 

TX 

1,8 

Z,SH 

2539 

CC 

N,X1 

• 

N,SH 

2540 

TS 

1,1 

FIX  SNACH  +1 

PHI  LABei 

ORTHOCOUNT  and  WRITE  YULPROGS  LaBeL. 

2542 

wF , 

1 1 ,0 

- 

2543 

TS 

1,2 

FIX  SNACH  ♦? 

PHI  SNACH 

undo  apparent  TYPE-3-DISP0SI r ioh  SNATCH 

2545 

FIX  5NACH 

ALF 

,3  N00<0: 

01 YULPROGS 

caused  by  labeling. 

2547 

SS 

FRAME 

BIT  35 

N,X1 

2548 

TS 

Z,X5 

Z , S3 

POSIT  REW 

POSITION  AFTER  label  AND  RETURN. 

I 

1 


□ 
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P2550 

subroutine 

TO  FImD  The 

ADDRESS  OF  an 

unused  word  pair 

IN  THE 

YUL  FILE  DIRECTORY.  ENTRY  IS 

R2552 • 

L 

TS 

• • • 

• • • 

find  pair 

C 

RETURNS  WITH  ADDRESS  IN  X3. 

2554 

find  ^AIR 

SWe* 

CAC3 

1*8 

16 

Z,X3 

C 

Get  address  of  first  unused  pah. 

2556 

NA 

Z,X3 

L END  THR 

NOT  ADDz 

r- 

branch  if  ADDRESS  not  vacuous. 

2558 

TX 

1,8 

m 

Z.X3 

r 

THUS  UNUSeD  pair  IS  AT  END  OF  THE  FILE. 

2560 

wA 

1,8 

TWO 

1,8 

LENGTHEN  end  MARKER  ACCORDINGLY,  EXIT. 

2562 

NOT  4DD2 

TS 

i comma  s 

Z , X A 

C,  + 2 

r 

A WORD  PAIR  IS  ALSO  T«0  SINGLETyNS. 

2564 

TX 

Z ,X2 

- 

Z,X4 

c 

2565 

SWE* 

CAC3 

N,X4 

32  • 

Z,X2 

c 

THREAD  UNTIL  FIRST  SINGLETON. 

2567 

NA 

Z * X2 

Z , X 3 

C , -2 

c 

2568 

WA 

Z*X3 

ONE 

Z,R3 

c 

FORM  ADDRESS  OF  SECOND  SINGLET  ON. 

2570 

ss 

N * X2 

C AC  1 

N,X4 

C 

SEW  UP  CAP  AROUND  1ST  SINGLETON. 

2572 

TS 

1 COMMA  8 

Z,X4 

C . + 2 

c 

reset  singleton  thread. 

2574 

TX 

Z,X2 

_ 

Z,X4 

c 

2575 

SWE  * 

CAC3 

N * X4 

32 

Z,X2 

c 

THREAD  UNTIL  2ND  SINGLETON. 

2577 

NA 

Z.X2 

Z , R 3 

C,-2 

c 

2578 

SS 

N*X2 

CACl 

N*XA 

r 

SEW  UP  GAP  AROUND  2ND  SINGLETON. 

2580 

ss 

3,1 

CAC2 

1,8 

SEW  UP  GAP  AROUND  PAIR  AND  EXIT. 

R2582 

SUBROUTINE 

IN  PASS  o 

to  vacate  a word 

IN  the  directory. 

cosequence  call  with  address  in  aui. 

2584 

GlvE  SLOT  SS 

1,8 

CACl 

N.AJ1 

c 

make  word  POINT  along  slot  list. 

2586 

SWS,  CACl 

Z.AUl 

32,  L 

1.8 

c 

set  slot  pointer  to  word. 

2588 

HA 

Z.AUl 

ONE 

Z.AJ2 

V 

form  addresses  of  oiher  half  of  pair. 

2590 

SWE*  CAC3 

N,AU1 

32 

Z,AJl 

c 

FOLLOW  THE  SLOT  THREAD. 

2592 

LA 

ONES 

N,  AJl 

N » SC  * l 

c 

EXIT  WHEN  WORD  IS  NOT  PART  OF  VyID  PAIR. 

2594 

NA 

Z.AUl 

Z.AJ2 

C,-2 

c 

FALL  THRU  if  OTHER  half  IS  VaCAMT. 

2596 

SS 

zero 

ONE 

Z , A Jl 

c 

2597 

SM 

Z.AU2 

one 

Z.AJ2 

c 

force  ORDER  OF  ADDRESSES  IN  AJl,  AU2. 

2599 

SS 

1,8 

CAC2 

N,AU2 

c 

2600 

SWS,  CAC2 

Z.AUl 

16, L 

1,8 

include  pair  in  pair  list  and  exit. 

L 

SYUl 

Sr  STEM 

— PASS  0 

USER'S  OWN  PAGE  NO,  57  PAGE  57 

P2602 

ROUTINE  to  RESPOND  10  REQUESTS  to  mrnj 

:ACT JRE  an  pXiSTinG 

PROGRAM,  LOOKS  0|V|  DISC  FOR  THE  SP-C1F1ED 

R2604 

REVISION; 

If-  LATEST  h AS 

specified 

AND 

IS  NOT  ON  DISC,  USfS  TflPE. 

ABORTS  IF  SPECIFIED  REVISION  IS  UNMAN JF ACT  JR- 

R2605 

ABLE 

. IF 

ALL  is  WeL_,  loads  tHl  MANUFACTURING  PROGRAM  For  the 

NAMED 

computer. 

2606 

MANJFACT 

ts 

NEXt  NAME 

serch  key 

tape  SRCh 

-1 

C 

set  grp  B TO  SEARCHING  For  End  3YLT+ 

2608 

ts 

W MNUFACT 

tas<  msg 

manuf  03 j 

bReak  down  and  reform  rest  of  director. 

2610 

ts 

CAC3 

SYMS  OR  NO 

elim  PR  SU 

+ 1 

c 

ASSUME  No  SYM  TAB  CALL,  TYPE  TASK,  OBJ. 

2612 

TS 

CPUT  CN  C6 

PUT  CN  C6 

find  comp 

c 

SEEK  COMPUTER  NAME  IN  DIRECTORY. 

2614 

S*  YUL  TYPER 

UNRcO  MSG 

AMTF  +4 

TYP  abort 

CUSS  AND  EXIT  IF  NOT  THERE. 

2616 

SSL , ONE 

0,1 

0 

C,  + l 

CAN  WE  MANUFACTURE  FOR  THIS  COMPUTER... 

2618 

S , YUl  TY p£R 

N MANU  MSG 

AMT  F +5 

TYP  ABORT 

CUSS  AND  EXIT  IF  NOT. 

2620 

TS 

C . + 1 

typ  abort 

SAY  ABORT 

+ 1 

26201 

TS 

TYP  wREvN 

2DIS  REVN  - 

1 C.  + l 

ABORT  MUST  RESTORE  REVlsION-INO.  CJSSER. 

26203 

TX 

SAY  AdORT 

- 

TYP  ABORT 

s 

..and  then  restore  itself. 

26205 

SAY 

A30RT 

S,  MOn  T Y 3 £R 

Y ABORT 

SPR  AMR  +16 

TYP  30RTA 

26206 

TS 

C.  + l 

2DI 3 REVN  - 

1 TYP  WREVN 

+ 1 

26207 

TS 

SAY  ASOrT 

TYP  ABOrT 

C,  + l 

WrOnG-rEV-nO.  must  RESTORE  ABO t I « 

26209 

TX 

TYP  WREVN 

_ 

2DIG  RE Vn 

-1 

s 

..then  restore  itself.. 

2621  1 

LA 

revno 

COMMON 

0<  NOUN  +2 

..AND  SEE  IF  Revno  IS  Really  0<  For  mfg. 

26213 

typ 

W 7E  VN 

S,  MON  TYPER 

WREVN  MSG 

SPR AMR  +40 

TYP  AbORT 

fall  into  here  if  spec,  revno  too  big. 

26215 

na,  bit  9 

switch 

ONES 

C , + 2 

26216 

Si  M0N  typer 

MAnSU  MjG 

SPrAMR  +40 

TYP  ABORT 

CUSS  AND  EXIT  if  ASI4ED  TO  MANJF  SJBrO. 

26218 

ts 

z.xo 

L COMP  NAM 

known  psr 

returns  if  THE  SPECIFIED  REVISION  number 

2622 

SWEi  ONES 

ReVNO 

D , 4 , L 

PHI  ARG 

is  less  than  or  equal  to  the  latest. 

26222 

TS 

z,sc 

Z , A J1 

YUL  D2 A 7 S 

26223 

SM 

computer 

PHI  ARG 

TRONDEX 

26224 

SWS.  CHARS 

1,1 

A, 4 

trondex 

form  first  word  of  required  disc  name. 

26226 

TS 

ones 

TRONDEX  +2 

SAY  AB0Rt 

-1 

c 

restore  abort  and  wrong-revi si  on-no.... 

26228 

TS 

ZtRO 

COMMON  +1 

TYP  aREVn 

-2 

c 

...AND  INITIALIZE  LOG-NUMBER  LOCATIONS. 

2623 

LA 

common 

REVNO 

manu  seek 

BRANCH  IF  LATEST  REVISION  WAS  S3eCIFIED. 

26232 

SWS,  C3T5 

trondex 

A , 3 ,L 

WREVN  MSg 

+ 4 

26234 

NA*  ChAR3 

wrevn  msg 

+ 4 

ZERO 

C , + 2 

26235 

SWS*  C3T5 

WREVN  Msg 

+ 4 

A , 1 , L 

WREVN  MSG 

♦ 4 

26236 

NA.  CHAR3 

wrevn  msg 

+ 4 

ZERO 

C » + 2 

26237 

SWS.  C3T5 

WREVN  MSG 

+ 4 

A , 1 , L 

WREVN  MSg 

+ 4 

LeFT-NORMALIZe  and  zero-suppress. 

26239 

S,  MOn  TYPER 

OLRVN  MSG 

SPRAM  +16 

m 

2624 

S.  MOn  typer 

WREVN  MSG 

♦ 4 

SPRA  +8 

m 

"OLD  REVISION  NO.:  NN  ". 

26242 

LA.  CHAR5 

ONES 

DISC  STAT 

C , + 2 

26243 

S.  MON  TYPER 

NO  NMF  msg 

SPRAmR  +40 

TYP  ABORT 

WITHOUT  DISC,  REFUSE  TO  MANuf  3-D  REV. 
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p26245 

SeARCHi  through  THe  D 

26247- 

MANU  SEEK 

TS 

26248 

OCT 

26249 

SPEC 

2625 

TS 

2o252 

NA 

26254 

LA 

26256 

S,  MON  TY 

26258 

LA,  C7T8 

2626 

s,  mon  tY 

26262 

GOOD  SEEK 

N A , C7T  8 

26264 

LA 

26266 

TS 

26268 

GOT  3 1 NF 

TS 

26269 

OCT 

2627 

SPEC 

26272 

NA,  C7T8 

26274 

LA 

26276 

S*  MOn  TY 

26278 

SWE 1 CST8 

2628 

EX 

26281 

SWE*  C5T8 

26282 

DS 

2628A 

LN 

ac  index  for  the  program  fil 


PROG  NAME 
-15 

TRONDEX  *1 

L , X A 

COMMON  +1 

L PROG  FIL 
ZERO 

common 

ER  NTHlS  MSG 
bit  37 

revno 

SPRAmR  +16 

4,1 

-R  DR  UMa  MSG 
TrOnDEX  +3 
TRONDEX  +2 
TRONDeX  + 2 

SPRAMR  + AU 
YUL  FILE 
COMMON  +1 
COMMON  +1 

common  +1 

-1 

TRONDEX  +2 

TRONDeX  +3 
BIT  1 

YUL  FILE 
TRONDEX  +11 

ER  FDISC  MSG 
TRONDLX  +5 
TRONDEX  +5 
YUL  LOG 
COMMON 
fifty 

SPR  A *16 
24 

C5T8 

24 

COMMON  +1 
COMMON 
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FOR  THe  THE 

DiSCAP 

TRONOEX 
GOOD  SEEK 
GOT  31 NF 

C»  + 2 

TYP  AbORt 
MANU  IAPe 

TYP  AB0RT 
M A (sj J SEEK. 
MAN J SEEK 
MANJ  SEEK 

DiSCAP 

TRONOEX 
DISASTER 
GOOD  SEEK 


COMMON 
TRONOEX  +5 

common 
common 
no  NEfl  CwD 


specified  revision  with  the  highest  log  dumber. 

c 


GOT  ONE.  NOW,  IS  IT  THe  RIGHT  ONE? 
BRANCH  IF  WE  GOT  A FILE  AS  SPECIFIED. 

BR  IF  LATEST  IS  WANTED  BUT  NOT  ON  DISC. 
"NOT  ON  THIS  DISC". 

IF  LATEST  REV  IS  GOOD,  MANUF  FR3M  TAPE, 
CUSS  AND  exIT  IF  UNMANUFACTURAB.e. 

try  again  if  wkOnG  type  (disabled,  e.g.) 
TRY  again  IF  NOT  A HIGHER  LOG  NjMBeR. 
record  higher  log  number,  try  asain. 

c 

get  back  whole  index  entry  for  winner. 

(IF  LOG  NUMBERS  ARE  REALLY  SCREWED  UP), 

1 CUSS  AND  EXIT  IF  UNMANUFACTURA3.E. 

"FOUND  ON  DISC  ». 

SAVE  LOG  NUMBER  OF  LAST  REFERLNcE. 


compute  period  of  idleness, 
no  new  charlie-woRd  if  very  short. 


L 
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COMPU  [ E THE  DECAY  of  FHe  CHARLIe_W0RD 

(a  figure  of 

Merit,  named  for  its 

DeSIGNeR*  CHaRLES  P.  WeRNeR)  S> I mCf  tHf 

R262854 

LAST  JSE  OF  THIS  FILE,  / 

APPLYING  A FACTOR  OF  0.8465 

FOR  EYERY  1000  LOG  NUMBERS  OF  IDLENESS.  THEN  ADD  2530  AND 

R262856 

APPLY  A LIMIT  OF  lOOOD, 

so  that  the  file  does  not 

long  outlive  its  last 

use. 

26286 

dm 

TRONDeX  +3 

cw  factor 

TRONDeX  +5 

26287 

OS 

COMMON 

thousand 

COMMON 

26288 

LN 

common 

ZERO 

C ,-2 

APPLY  EXPONENTIAL  DECAY  FOR  IDLENESS. 

2629 

DA 

TRONDeX  +5 

CHAS  2500 

TRONDEX  45 

26291 

LA 

TRONDEX  +5 

DEC  lOOOD 

C , + 2 

26292 

TX 

dec  10000 

- 

TRONDEX  +5 

APPLY  LIMITED  REWARD  FOR  INDUSTRY. 

26294 

NO  NEW  CWD  TS,  CiT4 

YUL  LOG 

TRONDEX  + 5 

D1SCAP  C 

APPLY  CURRENT  LOG  NUMBER  AND  REWRITE. 

26296 

OCT 

-12 

26297 

SPEC 

TRONDEX 

26298 

SWE,  ONES 

TRONDeX  +6 

24 

TRONDEX  +6 

ALIGN  DISC  ADDRESS  OF  FIRST  SU3FILE. 

2630 

TX 

zero 

_ 

SRCH  TEST 

WIPE  OUT  SEARCH  UP  TAPE... 

26302 

NA 

SeRCH  Key 

EOR 

C,-l 

...AND  WAIT  FOR  IT  TO  ABORT. 

26304 

TS 

found  BUF  +1 

Z,X5 

phi  tape 

fetch  buffer  name  and  rewind  ta3e. 

26306 

RW , 1 

- 

- 

26307 

s,  disc  read 

5,3 

CH<  DF  eRR  ♦ 

4 TRONDEX  *6 

read  authmemo  record  of  program. 

26309 

s,  mon  ty3er 

DF  ERR  MSG 

SPRAM  +15 

MDF  ERROe 

CUSS  AND  exit  if  File  IS  UNREADABLE. 

2631 

tx 

w authmem 

*. 

5,2 

2631  1 

TX 

PROG  NAME 

- 

5,1 

good  read:  fill  out  first  three  words. 

26313 

TS 

COMPUTER 

N,X5 

C , + 2 

26314 

MAN J IAPe  TX 

Zero 

- 

TRONDEX  +6 

NO  DISC  ADDRESS  means  manuf  from  tape. 

2634 

ss 

0,1 

THREAD  10 

Z,X0 

2635 

TX 

CHAR  1 

- 

TEMP  MASk 

26355 

TX 

PAR  MANUF 

- 

COMMON 

2636 

SS 

N,Xo 

tem3  mas< 

common 

form  name  of  manufacturing 

2638 

SWE,  C1T4 

temp  mask. 

A,  1 

temp  MASK 

program  for  this  computer. 

2640 

NA,  TeMPMASK 

0,0 

blanks 

C , -2 

2641 

TS 

z,sc 

z , X i 

RD  SJBDRr 

Go  TO  SENTENCE-READ  FIRST  SUBDI tECTOR. 

2643 

S,  YUl  TV3.ER 

SD  MIS  MSG 

AMT  F +3 

TYP  ABORT 

cuss  and  ABORT  if  NO  SUBDIRECTOR. 

2645 

SS 

W SOURCE  C 

CHAR  6 

LOAD  PAS  1 

set  to  back  up  21  programs  to  3aSS  1. 

2647 

S,  PH  1 LOAD 

Common 

2 

Base  addr 

Load  and  go  to  manufacturing  program. 

R26A81 

R0J7  I \|£  TU 

RESPOND  TO'  AIN 

1 OPERATOR'S 

REUUESy  70  CloSE 

: the  monain 

TAPE  ON  ThE  2200  AND  BEGIN  PUNCHING  0R  WRITING. 

26482 

CLOS  MONA 

TX 

Z,X5 

WHODJNI T 

264821 

NA 

N , X5 , 3 

w monain 

howzat 

26483 

TX 

Z,X5 

. 

WHODJNI T 

264831 

NA 

N ,X5 , 3 

W TAPE 

HOWZAl 

26484 

TX 

Z ,X5 

- 

WHODUNIT 

264841 

NA 

N ,X5 

ONES 

HOWZAl 

26485 

LA,  CaC3 

B36T37 

1,0 

C,  + 2 

BRANCH  IF  THERE  IS  SOME  MONAIN  OATA. 

26486 

S,  MOn  ty^er 

NO  MDS 

MSG 

SPRAMR  +24 

REUEC  Dio 

"NO  MONAIN  DATA  STORED". 

26487 

SS 

zero 

BIT  35 

N,X1 

CLEAR  MONAIN  DATA  PRESENCE  BIT. 

26488 

S',  MOn  PUNCH 

zero 

AT A3E  PCH  +40 

zero 

send  end-of-uob  signal  to  monain. 

26489 

S,  mon  ty 3ER 

22  OUT 

MSG 

SPRAMR  +24 

MANUf  R Tn 

"2200  READY  to  DO  MONAOUT". 

L 
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P26A9  SUBROUTINE  TO  SEARCH  YULPROGS  FOR  A ReCORO  WHOSE  SECOND  WORD  IS  THE  ARGUMENT  PROVIDED  IN  SER"H  KeY. 

■r2651  WHeN  -INISHeD.  WAKeS  3ROUP  A AND  RESTORES  tHe  eND-OF-ReC3RD  WORD  TO  SerCH  KeY.  YULPROGS  IS  POSITIONED  AFTER  THe 
r2653  RECORD  FOLLOWING  [He  ONE  THAT  SATISFIED  THe  SeARCH,  3qtH  RECORDS  ARe  AVAILABLE  IN  MeMoRY  VIA  X],  AND  X2  OF  GRP 

r2655  b.  t Re  search  may  be  cut  off  in  case  of  abort  by  putting  a proceed  in  srch  test.  enter  at  tap  serch  in  trans_ 

r2657  Per  V-CTOR,  OR  At  t A 3 E SRCH  -1  WHEN  THerE  IS  NO  COMPJTER  NAMp. 


2658 

ts  l service 

L COMP  NAM 

TAP  SeRCm 

c 

use  oooo  for  computer  name  if  none. 

2660 

TAPE 

srch 

WA  Z,CSC 

ONE 

N.CSH 

c 

2661 

TS  Z,SC 

Z , C5C 

MON  WA<E 

c 

EXIT  and  LET  GROUP  B CARRY  ON. 

R2663 

GROJP 

b action  begins  here. 

2664 

TX  YUL  MASKS 

_ 

Z»MXR 

2665 

tn  buf  names  +6 

2 

Z,Xl 

USE  ASSEMBLY  BUFFERS  7 AND  8. 

2667 

HA  SERCH  <lY 

ONES 

2,1 

ENSURE  NO  FALSE  ALARM  FIRST  T 1 M £ . 

2669 

TS  Z*Xl 

Z * X 3 

PHI  TAPE 

2670 

RF  * 1 1*0 

- 

disaster 

2671 

TN  Z*X2 

2 

z,xi 

SWAP  BUFFERS. 

2673 

SRCH 

TEST 

NA  1.1 

SERCH  Key 

SRCH  IESt  -3 

2674 

LA  SRCH  TEST 

zero 

C,  + 3 

SKIP  OUT  IF  SEARCH  WAS  CUT  OFF. 

2676 

LA  N.X1 

C5T8 

C , + 2 

assume  agreement  if  no  computer  name. 

2678 

NA,  C1T4  1,0 

COMPUTER 

SRCH  TESt  -3 

search  again  if  wrong  computer. 

2680 

SRCH 

DONE 

TS  Z,Xl 

FuJND  BUF 

PHI  TAPE 

2681 

RF.l 

- 

• 

26812 

TX  Z,X2 

• 

found  3Jf  +i 

2682 

TS  EOR 

serch  key 

MoN  wa<E 

c 

SIGNAL  SUCCESS  OF  SEARCH,  WAKE  GROUP  A 

2684 

TX  Z , RO 

- 

z,sc 

GO  TO  BED  UNTIL  NEEDED  AGAIN. 

r2686 

pROctnuRt  TO 

MAKE  uRuuP  8 

appear  to  annojNce  a iac,k  abortion. 

If  A SEARCH  OF  YULPROGS  Is  IM  PROG- 

r2  6 88 

RESS,  HALTS  IT 

and 

POSI floNS  YULPROGS 

JUST  AFTER  ThE  LABEL.  ENTRY  is  in 

i transfer  vector. 

2690 

TYP  3 ORTA  S. 

MON 

TY3ER 

tn 

< 

CD 

SPRA  *8 

2691 

TX 

ZtRO 

SRCH  TESi 

2692 

NA 

SeRCH  Key 

EOR  C , - 1 

WAIT  FOR  Search  to  be  INTERRUPTED. 

2694 

TX 

fetch  ssi 

Fetch  ssn 

RESTORE  SUBSTRAND  FetCHeR. 

2696 

TX 

NO  TP  TASK 

pnch  fram 

RESTORE  TAPE  PUNCHING  TO  INI T I A_  STATE 

2698 

TS 

N , SC, i 

SRCH  TEST  PoSIl  YJt 

restore  instruction,  position  yjlprogs 

2700 

NA 

1 , 1 

SERCH  Key  SRCH  TEST  -3 

2701 

T 5 

YUL  MASKS 

Z , MXR  SET  PG  HfD 

proceed  to  NeXT  task. 

L 
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P27D3 

SUBROJTINe 

IN 

PASS  0 

TO  PtEK  AT  AND 

sentence-read 

CAROS.  EXTTS  TO 

L+2  IF  THe  NeXT  CARD  IS  A SUBDIRfCTOR  ("S"  IN 

R2?05 

COLUMN  1 ) * 

OR 

TO  L+l 

IF  NOT*  ENTER 

WITH  1*1  IN  x 

1 (CALLING  FROM  BANK 

i)  or  by  sequence  call  to  rd  sbdi?c  in  the 

R2707 

TRANSFER  VECTOR. 

2708’ 

RD  SJ30RC 

TX 

z,mxr 

Z,R6 

2709 

T 5 

yul  masks 

Z , MXR 

NEX  OlREr 

c 

2710 

TS 

PHI  WAA 

Z , X 4 

phi  peek 

c 

peek  at  next  card. 

2712 

NA , 

chari 

4.0 

s column  1 

not  s card 

BRANCH  IF  NOT  A SUBDIRECTOR. 

2714 

s, 

ph i rea 

0 6,1 

set  up  for  sentence  reading. 

2716 

SET  COL  81 

TS 

ONES 

6,11 

phi  sentr 

break  down  subdireCtor. 

2718 

TS 

Z.R6 

Z.MXR 

i.i 

2 7 1 9 

NOT  S CARD 

TS 

Z , Rfe 

Z.MXR 

N»Xi 

non-skipping  exit  in  this  case. 

p272l 

MANUFACTURING  SU0R j J | I NE 

IN  PASS  o TO 

WAIT  FOR  GRnUP  B 

TO 

find  end  sylt,  and  set  it  going  on  a 

R2723 

searchi  for 

THE 

first 

subs [Rand  uf  he  program  Being  manufactured. 

ENTER  WITH  RETURN  IN  X4  (BANK  i>  OR  3Y  Se- 

R2725 

QUeNCe  call  to 

E SYL  1 

OK  IN  the  TRANSFER  VtCTOR. 

ASSUMES  Hat  PROG  name  IS  Set.  ALTERABLE  FOR  SYMBOL  table. 

2727 

EN  SY.T  OK 

TX 

L GPB  STT 

_ 

Z,X3 

2728 

NA 

seRch  key 

eor 

GROJP  NAP 

SLEEP  IF  GB  STILL  SEEKING  ENu  SYLT. 

2730 

TX 

ZERO 

- 

SERCH  KEy 

2731 

WA 

z.sc 

ONE 

N,X3 

2732 

TS 

Z,X<, 

z,sc 

MON  a/AKe 

C 

SET  GB  GOING  AND  EXIT. 

R2734 

GROUP  B ACTION 

at  end 

sylt. 

2735 

E SYlr  LUP 

TS 

Z.Xl 

Z , X 3 

RO  PARAG 

2740 

NA 

1,1 

PROG  NAME 

E SYLT  Li iP 

BRANCH  IF  NOT  DESIRED  PROGRAM. 

2742 

LA 

N.xi 

C5T8 

C * + 2 

assume  agreement  if  no  computer  name. 

2744 

NA. 

C 1 T4 

1,0 

COMPUTER 

E SYLT  Li  iP 

LOOK  AGAIN  IF  WRONG  COMPUTER. 

2746 

LA 

SYMS  jR  no 

1,2 

E SYLT  LUP 

BRANCH  IF  NOT  RIGHT  TYPE  OF  RECARO. 

2748 

TS 

CrtC3 

SYMS  OR  NO 

SRCH  DONF 

USE  normal  end  search  procedure. 

R2752 

manufacturing  subrou,ine 

in  pass  o to 

-ETCH  A SJ3STRAND 

• 

enter  with  return  in  X4  ibank  h op  by 

R27b3 

sequence  call 

TO  FETC 

H ss  IN  THE  TRANSFER  VECTOR. 

returns  TO  L+2 

IF 

THeRe  is  A SUbSTRaND,  OTHERWISE  10  L+l. 

2754 

Fetch  ssn 

ts 

zero 

fetch  ssn 

AWAIT  G3 

BRANCH  IF  GROUP  B SEEKING  FIRST  SS. 

27544 

TS 

Z , MXR 

FETCH  SSN 

YJL  MASKr 

C 

2755 

TS 

Z.Xl 

Z , X 3 

RO  PARAG 

2756 

await  ob 

NA 

seRch  <ey 

EUR 

group  nap 

SLEEP  IF  GB  STILL  SEARCHING, 

2757 

TX 

found  buf 

_ 

Z,X1 

2758 

TS 

FOUND  BuF  +1 

Z,X2 

PICK  EXIT 

set  up  group  a indexes,  get  substrano. 
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P27S85 

SUBROJTINe 

TO  READ  THE  i 

AU|HMeMO  RECORD,  a SYMBOL 

table  Record,  or 

A PARAGRAPH  from  DISC  OR  tape  as  ReOJiReD. 

2759 

RD  PARAG 

NA 

TRONDtX  +8 

ZERO 

C , + 3 

27592 

NA 

2,1 

EOR 

FROM  T A?f 

BRANCH  If  USING  tape,  NOT  Disc. 

27594 

TS 

EoR 

1,1 

FROM  TA=E  -1 

SET  UP  SECOND  EOF  RECORD  JUST  IN  CASE. 

2760 

WA 

TRONDeX  +6 

A4  MINUS  4 

TRONDEX  +6 

ADD  4 TO  DISC  ADDR,  SUB  a FROM  COUNT. 

2762 

NA,  C7T8 

TRONDeX  +6 

zero 

FROM  DISC 

branch  unless  recd  was  last  of  subfile. 

2764 

SWE,  ONES 

TRONDeX  +7 

24 

TRONDEX  +6 

MAYBe  move  UP  ADDRESS  of  2ND  SJ3FI LE. 

2766 

NA 

TRONDeX  +6 

zero 

C , + 2 

BRANCH  TO  BEGIN  2ND  SUBFILE. 

2768 

TS 

EoR 

i,i 

PROC  DISC  -1 

END  OF  FILE.  SEND  LAST  RECORD  oF  FILE. 

2770 

TX 

zero 

- 

TRONDEX  +7 

SHOW  THAT  WE  ARE  IN  2ND  SUBFILE, 

2772 

FROM  DISC 

S,  DISC  READ 

1,3 

CH<  DF  err 

+4  TRONDeX  +6 

read  a paragraph  of  256  words. 

2774 

S,  M0N  TY  3 ER 

Dp  ERR  MSG 

SPRAm  +16 

MDf  error 

2775 

TS 

prog  name 

1,1 

PROC  DISC 

supply  program  name  after  good  read. 

2777 

MDF  ERROR 

S,  MOn  TY3ER 

TRONDEX 

SPRAM  +16 

- 

2778 

s,  M0|\1  TY3ER 

TRONDeX  +2 

SPR AMR  +72 

- 

cuss  unreadable  file  (Log  number  in  hex) 

2780 

s,  MON  TY3E« 

Y ABORT 

SPR  AMR  +16 

manjf  rtn 

vary  normal  ABORT  procedure. 

27B19 

TS 

ONES 

1,2 

DISC  CHEic 

2782 

PROC  DISC 

WA 

Z,X2 

C 259 

z,csc 

2783 

cc 

N,X2 

- 

N , CSC 

move  eor  to  right  place. 

27831 

NA 

2,2 

w AJtHMeM 

SYMBOLS  o 

BRANCH  UNLESS  ABOUT  TO  DELIVER  aUtHMeMO. 

27833 

W A , C5T8 

2,71 

C 255 

MID  POINT 

27834 

SWE,  CAC3 

mid  point 

8 

mid  point 

FORM  NUMBER  OF  SYMBOL  TABLE  RECORDS. 

27836 

TN 

2,5 

8 

SJBSTR A3 

27837 

TS 

W SYMBLS  0 

E SYLT  BAN 

SYMBOLS  o +1 

PREPARE  TO  SET  UP  TITLES  ON  5YM  T AB  RCS, 

27839 

SYMBO-S  Q 

NA’  CiJ6 

2,2 

W SYMBLS  0 

PARA  LASt  -1 

branch  unless  delivering  sym  tah  record. 

27841 

la 

mid  point 

ZERO 

PARA  LAST  +1 

branch  if  no  more  sym  tab  Records. 

27843 

wD 

mid  point 

ONE 

MID  POINT 

count  down  symbol  table  records. 

27845 

WA 

E SYLT  BAN 

ONE 

E SYLT  3aN 

count  up  char  a of  »symbolsn». 

27847 

TS 

E SYLT  BAN 

1,2 

FROM  TA?F  -1 

278478 

LA 

OrjES 

1,2 

FROM  TAPp  +2 

branch  if  delivering  LAST  PARAGRAPH. 

27848 

PARA  .AST 

rtA 

MiD  POInT 

one 

MlD  POINT 

ADVANCE  PARAGRAPH  nJMBER. 

2785 

SWE,  L0W5 

MID  PoIimT 

0 

E SYLT  3 aN 

PARAGRAPH  NUMBeR  WlfHIN  SUBSTR4H  WORD. 

27852 

wD 

N , SC  , 2 

E SYLT  BAN 

E SYLl  3AN 

compute  shift  count  for  ssl  and  jab. 

27854 

OCT 

-55 

27855 

PARA3  YES 

TS 

mid  point 

1,2 

from  tape  -1 

put  paragraph  number  into  record. 

27857 

SWS,  CHARS 

E SYL|  ban 

A , 3 , L 

manjf  ssi 

27858 

SWE,  SEVER 

mid  point 

5 

E SYLT  3aN 

27859 

WA 

L SUBSTRB 

E SYLT  BAN 

Z , A J 1 

select  a substrab  word. 

27861 

MANUF  SSL 

SSL,  FOUR 

N,AUl 

para  last 

go  to  parag  yes  if  got  next  parag  no. 

27868 

TS 

computer 

N , X l 

from  tapf  +2 

27869 

FROM  TAPE 

TS 

- 

- 

phi  iape 

2787 

RF,1 

1 ,0 

- 

DlSASl er 

double-buffered  read. 

2789 

TN 

Z,X2 

2 

Z,X1 

SWAP  BUFFERS. 

2791 

LA 

StRCH  <EY 

zero 

E SYLT  LilP  +1 

RETURN  to  en  sylt  ok  loop. 

27922 

TX 

fetch  ssn 

. 

Z.MXR 

2793 

PlC<  EXIT 

LA 

1 ,2 

CAC3 

4,1 

SKIPPING  EXIT  IF  NEW  REcD  IS  PARAGRAPH. 

2795 

TX 

Z,X4 

z,sc 

EXIT  WITH  AUJHMEMO,  SYMBOLS,  OR  EDFRI. 

1 
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P2797  manufacturing  and  simulation  subroutine  in  Pass  o to  ignore  and  cuss  a Bad  but  not  vital  submrectdr. 

r2799  ENTER  WlyH  CARD  IN  SENTENCE  RtAuER  AREA  AND  WITH  RETURN  IN  x4  (BANK  1)  OR  SEqUeNCe  CaLL  TO  IGN  SUbDR  IN  THE 

R2801  TRANSFER  '/ECTOR • 

2802  IGN  S3DIR  S,  YUl  TY3ER  IGNOR  MSG  AMTF  +A  C.  + l TYPE  "THEREFORE  THIS  CARD  IS  IGNORED:". 

2809  S.  YUl  TY3ER  6.2  A+9  9,0  TYPE  SiGniFICAnT  WORDS  AnD  EXIT. 


r2806 

MANUFACTURING 

AND  SIMULATION  SUBRqUtI 

r2808 

and  cause 

the  card  td  be 

IGNORED, 

ENTER  ^ i th  Cl 

R2810 

UNRC.  SUBR 

in  THE  TRANSFER  VECTOR. 

2811 

UNRC  sbdr 

TX 

whoduni I 

_ 

2812 

IN 

N , SH 

2 

2813 

S,  YUl  TY3ER 

WUNRC  MSG 

AMTF  +5 

N - IN  PASS  o TO  CUSS  AN  UNRECOGNIZED  WoRD  IN  A SUBDlRECfOR  CARD 
WHODUNIT)  Set  AND  RETURN  IN  Xa  (BANK  j. ) OR  SeUUENCE  CAL.  TO 


Z.SH 

WJNRC  Msr,  + 3 

IGN  SBDIr  CUSS  BAD  WORD  AND  IGNORE  CARD. 


,.i 


R2815  manufacturing  subroutine  in  pass  0 to  punch  on  tape  the  obuect  message,  thus  identifying  com3LEtely 

R2817  THE  PROGRAM  REPrESENT£D.  ENTER  WITH  ReTJRN  IN  XA  (BANK  1)  OR  BY  SEOUENcE  CALL  TO  PCH  lEDlR  IN  THE  TRANSFER 

R 2 8 1 9 VECTOR'.  PROVIDE  ONE  PREFATORY  WORD  IN  FRAME. 


2820 

pnch  _edr 

TX 

frame 

- 

2821 

TN 

OuUCT  MSG 

7 

2823 

TS 

Z , SC , 7 

z.si 

2829 

LEADR  MSG 

RESERVE 

8 

2825 

TX 

Z.X9 

- 

leadr  MSG 

LEADR  Msg  +1  MOVE  OBUECT  MESSAGE  FOR  PUNCHES. 

PCH  TITLF 

z,sc 


R2826 

subroutine  an  pass  o to 

combine  The  functions  of  the  monitor 

DECImAl-T0-ALPhABET1c  CONVERTER  ANp  left 

R2828 

zero  suppressor,  sequence  call  with  return  in  aji 

, TO  Y JL  DA  LzS 

IN 

THfc 

transfer  vector  with  argument  at  n.aui. 

R2830 

or 

ENTEr 

HeRe  wItH  argument  in  phi 

ARG.  USE  LITHE 

R ReSUL)  (FIRST 

IS 

at 

N.SH  UPON  RETURN)  OR  BOTH. 

2832 

YUL 

D2A 

ZS  TS 

Z.MXR 

Z.AU2 

YUL  MASKR 

r 

2833 

SWS,  C5T3 

PHI  ARG 

8 

PHI  ARG 

2839 

SWS,DECAL’Ma 

PHI  ARG 

9 

PHI  ARG 

2835 

SWS,DECALFM2 

PHI  ARG 

2 

PHI  ARG 

2836 

SWL  ,DECAL.-  M3 

PHI  ARG 

2 

PHI  ARG 

spread  left  a digits  to  alphabetic. 

2838 

TS 

CITY 

tem3  mask 

PHI  ARG  *1 

2839 

SWS.  C1T7 

TEMP  MASK 

A.l.L 

TEMP  MASK 

28  AO 

NA«  TeMPMASK 

PHI  ARG  +2 

ZERO 

C.-l 

28  A 1 

ss 

BLANKS 

tem3  mask 

PHI  ARG  +2 

BLANK  OUT  AS  MANY  AS  7 LEADING  ZEROS. 

28a3 

TS 

Z.AU2 

Z.MXR 

N.AUl 

28  a9 

phi 

ARG 

RESERVE 

1 

28  A5 

TS 

c»-i 

C.  + l 

C , -9 

28A6 

RESERVE 

1 

28A7 

ALF  ,9 

CARDS  PUNCHED  BY  LOG  AND 

TASK 

these  must  Follow  phi  arg  +2. 

1" 
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P2849 

5U3RD JT InE 

TO  SEND  N WOrDS  OF  ALPHABETIC  I DEnT  I F I CAT  I On  TO  MHn-A, 

TD 

be  punched  into  paper  tape  in  bldc<-letter 

R 2 8 5 1 

FORM.  ENTRY  IS  TO  ME 

TRANSFER  VECTOR,  THUS; 

R2852 

TS 

Z,SC, ( N- l > 

Z,si 

PCH  TITLp 

FOLLOWED  BY  the  n words  to  Be  3 jnched. 

R2854 

leaves  esc 

SET  To  PC  H FRAME  AS  IF  FOR 

DATA  TRANSMISSION. 

2855 

PtP  TITL'e 

NA 

PNCH  FRaM 

end  flag  o 

In  tp  task 

c 

branch  if  no  tape  punching  tas<  going. 

2857 

NA 

BKB  PLACE 

BAN<  B 

send  data 

r 

clean  out  data  FRAME  BUFFER. 

2859 

TS 

Z.so.l 

Z * 52 

BeG  PH  ALF 

s 

form  history  and  lwa,  return  to  s mode. 

2861 

BEo  PH,  ALF 

SS 

SWITCH 

B34T35 

TITL  SENn 

copy  end  flag  as  begin-paragraph  bit. 

2863 

SS 

zero 

B34T35 

SWITCH 

clear  OUT  end  flag  (INCLUDES  END  TASK). 

2865 

TN 

z,xo 

2 

SAVE  XS 

2866 

TN 

Z,S1 

2 

z,xo 

SET  UP  FWA  AND  LWA  OF  TITLE. 

2868 

titl  send 

5,  MON  PUNCH 

0*0 

ATA3E  PCH  +16 

1*0 

send  n words  of  block-letter  i.d. 

2870 

TS 

bkb  place 

Z,SH 

BeG  PH  Ai~F 

c 

remove  possible  begin-paragraph  bit. 

2872 

TN 

SAVE  XS 

2 

z,xo 

2873 

TS 

Z,SO 

z,sc 

PCH  FRAMp  -1 

c 

SET  UP  CSC  for  caller  AND  return. 

R2875 

MINOR  SJBKoUtINE  to  1 Ml  TlAL-lZ^  a TAPe 

punching  jaS^ 

WHtN  ITS  FIRSt  FRAMe  qR  TlTLE  Is  SuBMItTEd* 

2877 

IN  TP  TASK 

TX 

Z *CSH 

_ 

SAVE  XS  *2 

c 

2878 

EX 

1800  AB  SW 

B24  B36 

SAVE  XS 

c 

2879 

LA 

save  xs 

C5T3 

C * + 2 

c 

BRANCH  IF  RUNNING  on  1800  A. 

2881 

S,  MOn  TY3ER 

tape  B MSG 

SPR  AMR  +32 

TYP  aBORt 

••CAN'T  PUNCH  tape  WITH  THIS  1800". 

288^ 

TS 

Z,SC 

SAVE  XS  +1 

Ct  + 1 

s 

2895 

TX 

L DIRECTY 

- 

Z,S2 

2896 

SS 

N*S2 

bit  35 

grade  lim 

SET  BIT  IF  NOT  1ST  TAPE  PUNCHING  TASK. 

2900 

SM 

switch 

C5T8 

save  xs 

Form  paper-grade  and  data-unlimit  word. 

2902 

SS 

zero 

ACH4 

switch 

RfVeRT  PAPER  Grade  TO  PINK  01L£D  PAPeR. 

2904 

GRADE  L1M 

S,  MON  PUNCH 

save  xs 

ATA3E  PCH  +1 

save  xs 

specify  paper  grade,  kill  data  °imit. 

2906 

ts 

end  flab  q 

PNCH  FRAM 

C * + 2 

INITIALIZE  title  and  frame  ROUTINES. 

2908 

S,  MON  ty^er 

NTPCH  MSG 

SPR AMR  +16 

TYP  ABORt 

"NO  tape  PUNCHING". 

29092 

SM 

N.S2 

BIT  35 

N*S2 

SHOW  that  some  PUNCHING  IS  TO  3;  DONE* 

29094 

TN 

SAVE  XS  +1 

2 

z + sc 

c 

NOW  PROCESS  FIRST  FRAME  OR  T I T le . 

R2910 

MINOR  SUBROUTINE  TO  Trp 

e out  the  count  of  cards  3yPasseO  Because 

they 

lacked  a "Y»  in  column  i. 

2912 

TYP  NON  YS 

TX 

Z * SH 

_ 

TYP  RTU^n 

2913 

SWE*  ONES 

NON  WISE 

D » 4 * L 

PHI  ARG 

2914 

TS 

z,sc 

Z * A J 1 

YUL  D2A  7 S 

2915 

TX 

PHI  arg 

- 

NON  WISE 

2916 

na*  chari 

NON  WISE 

ZERO 

C , + 3 

2917 

swe,  ONES 

NON  wISl 

A * 1 , L 

NON  WISE 

ALPHABETIZE  and  normalize. 

2919 

TS*  CHAR8 

BLANKS 

NON  WISE 

C * -2 

2920 

s*  mon  ty^er 

NUM  NONS 

SPR AMR  +24 

• 

2921 

s»  MOn  T Y 3ER 

blanks 

SPRA  +8 

- 

2922 

TX 

ZERO 

_ 

NDN  WISE 

2923 

TX 

TYP  RT URN 

- 

z * SC 

1" 
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p2924 

SUBROUTINE 

TO 

PRqCeSS  data  frames 

destine?  for  Ra3er  tape,  tollects 

UP  TO  2040  FRAMES  IN  BANK  B BeFoRe  CALLING 

p2926 

IN  MOM-A  TO  HA JL  tHe^i  AWAY.  INITIALLY,  MAKE  COSEDUenCe  CALL  TO 

pch  frame  in  the  transfer  Vector  with  Data  in 

p292  8 

LOW 

8 BITS 

OF 

FRAME,  SUBSEQUENTLY 

MAY  ENTER  BY  PJtTINo  DAtA  t'N 

frame 

AND  SWITCHING  TO  COSeQUeNCe  MODe. 

2930 

PNCH 

pram 

TS 

END  FLAG  G 

1 PNCH  FRAM  In  TP  IA<;K 

c 

(INITIAL  STATE  OF  PNCH  FRAM). 

2932 

LA 

BKB  Place 

end  bank  b set  frame  - 

2 C 

BRANCH  IF  BANK  B BUFFER  NOT  BLOATED, 

2934 

TS 

Z ,CSC , 3 

send  data 

C 

SHIP  2040  FRAMES  OF  DATA  TO  MON. A. 

29  36 

end 

F _aG  D 

NA 

bkb  place 

ban<  b send  data 

c 

clear  oQt  buffer  at  end  of  paragraph. 

2938 

SS 

Switch 

B34T35  DATA  SENq 

c 

set  begin-para^raph  bit  for  next  xmit. 

2940 

ss 

ZtRO 

B34T35  SWITCH 

c 

clear  end  flag  (INCLUDES  END  TASK  BIT). 

2942 

SET 

Frame 

TX 

BKB  PLACE 

~ Z , SH 

c 

2943 

TS 

FRAME 

N,SH,1  PCH  FRAMc  - 

1 c 

SET  FRAME  into  buffer  and  exit. 

2945 

END 

F _ Ao  0 

LA 

bit  34 

Z,SH  END  FLAG  D 

c 

branch  if  end  flag  is  on. 

R2947 

minor 

SUBROUTINE  TO  b 

ENq  UP  TO  2040 

ACCUMULATED  paper  TAPE  FRAMES 

TO 

MON-A. 

2949 

SEND 

DATA 

TS 

z,sc 

SAVE  XS  +2  C,+I 

s 

2950 

TS 

Z,CSH 

save  xs  ♦ 3 beg  ph  ai  f +2 

c 

SAVE 

RETURN,  XO*  XI. 

2952 

TX 

BANK  B 

z,xo 

2953 

WD 

BKB  PLACE 

ONE  Z,X1 

295A 

TX 

BANK  b 

BKB  PLACf 

SHOW 

THAT  BUFFER  WILL  BE  EMPTY. 

2956 

DATA 

SEND 

s,  MOn  pun 

CH  0,0 

ata3e  pch  +32  1,0 

send 

PAPER  tape  DATA  FRAMES. 

2958 

ss 

zero 

B34T35  data  send 

clear 

possible  begin-paragraph  bit. 

2960 

TN 

SAVE  XS 

2 Z,XO 

2961 

TN 

SAVE  XS  +2 

2 Z,SC 

c, 

R2962 

PROCEDURE 

At  mANUF  R 1 N 

(Return  from 

any  TASK  USlNS 

PASS  0 As  A 

MONITOR) 

TO  RE-INItIAlIZE  SUBSTRAND  FETCHING  and 

R2964 

TAPE  PUNCHING  ROUTINES. 

enter  at  end  m task. 

2965 

end  send  q 

NA 

bkb  place 

ban<  b 

Send  data 

C 

CLEAN  OUT  data  BUFFER. 

2967 

TS 

z,csc 

z,sc 

BeG  PH  AI  F 

>1  c 

clear  end  flag,  REVERT  TO  SeuJemCe  mode 

2969 

end  m task 

NA 

pinch  fram 

NO  Tp  TASK 

C,  + 2 

branch  if  ending  a tape  punching  task. 

2971 

TS 

FETCH  SSl 

fetch  ssn 

IN1T  PASO 

INITIALIZE  FETCHING  and  exit. 

2973 

TS 

NO  TP  TASK 

PNCH  FRAM 

END  SEND  (J 

c 

2974 

NO  TP  TASK 

TS 

end  flag  q 

PNCH  FRaM 

IN  TP  TASK 

r 

2975 

fetch  SSI 

TS 

zlro 

fetch  ssn 

A w A 1 T 3 3 
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P 3-0  2 5 

genERaL-pj-rpdse  card  punching  subroutine  im  pass  n. 

always 

PUNCHES  On-Line,  BUT  BENEFITS  FroM  drjn 

R3027 

buffering 

OF  CAKDS  IN  the  200  OR  2200.  T Ht  FIRST 

CARO  PJNCHfD 

For  any 

TASk  is  an  IDENTIFIER  which,  VIEWED  from 

R3029 

THe  Rear« 

displays  the  1 

-OG  AND  TASK 

numbers  in  block  letters,  the  last 

card  PUNCHED  in  a task  is  a CHECKERBOARD. 

R3031 

ENTRY : 

8*0*87 

card  cw 

ret jrn 

WHeRe  the  CONTROL  WORD  GiVES  I4r  NODE. 

^3033 

to  close  out  a card-punching  task, 

a call  must  be 

made  in  /HtCH 

card  cw 

1 ADDRESSES  AN  EOR  WORD.  AT  0»8B  IS 

R3035 

TS 

Z , MX  R 

frame 

pnch  catd 

0,87  IS  TAGGED  PUNCH  CD. 

3037 

SET  LOc  * 3C 

1986 

B 1 

3038 

pnch  card 

TX 

YUL  MASKS 

_ 

Z , M X 3 

3039 

EBA 

Z',AUl 

zero 

PJNCH  AOR 

SAVE  ADDRESS  OF  CARD  CONTROL  W^D. 

3061 

SS 

Z.AU2 

CAC3 

PJNCH  CO 

SAVE  RETURN  ADDRESS. 

3063 

LA 

BIT  32 

CRD  COUNT 

LAST  CRO  0 

branch  if  not  first  card  of  task. 

3065 

SN  CPJNCH 

TS 

OCTAL  20 

Z,AJl 

NsN  SN  0 r P 

c 

SNATCH  CARD  PUnCH  FoR  ON-LINE  PUNCHING. 

3067 

TS 

PH  I WAA 

Z,X6 

1ST  CARo 

access  intertask  storage  area. 

3069 

S,  M0N  TYP-ER 

CPUNV  NbG 

SPRAMR  +26 

- 

"Card  punch  unavailable". 

3051 

SS 

ACA  OtHe 

CHAR3 

ASTRY  MSr, 

PUT  GROUP  A IDLNTITY  INTO  MESSAGE. 

3053 

S.  NON  ty^er 

ASTRY  MSG 

SPRAMR  +16 

- 

"ASA  TO  TRY  AGAIN". 

3055 

S,  NON  TYPER 

ACA  OTHE 

SPRA  +16 

- 

"ACA  OTHERWISE". 

3057 

TS 

L SN  CPNCH 

Z,SC 

C , + 1 

c 

3058 

STOP 

- 

s 

ASA  OR  ARA  OR  DON  A WILL  TRY  AG6 I N. 

3060 

S,  NON  TYPER 

NC0U1  MSG 

SPRAMR  +16 

TYP  aBORt 

"NO  CARD  OUTPUT". 

3062 

1ST  CARD 

DA,  CAC3 

6,106 

ONE 

A, 106 

increment  CARD-PUNCH-TASK  number. 

306A 

SWE*  ONES 

A , 1 0 A 

2A 

TASK  LOG 

FETCH  DATA  FOR  bLOCK-LETTER  IDENTIFIER. 

3066 

TX 

bank  a 

- 

Z , A J2 

3067 

NT 

zero 

21 

N,AJ2,1 

BLANK  OUT  BINARY  CARD  IMAGE. 

3069 

SWE,  CAC3 

NUMBASE 

16 

Z,X6 

POINT  TO  ARRAY  OF  BlOCK-NUMeRAL  CODES. 

3071 

BB  Y I A AU2 

TX 

bank  b 

- 

Z , A J2 

s 

3072 

SWE,  ONES 

THREE 

17 

N,AJ2 ,11 

CONTROL  BITS  TO  SET  BINARY  PUNCr  NODE. 

307A 

SWE,  ONES 

C1T7 

A , 1 

TEMP  NASkt 

SYNTHETIC  C2T8  MASK. 

3076 

OUTLI NES 

SWS*  ACH6 

TASK  LOG 

2A 

C , + 1 

3077 

TX 

A ,0 

- 

N , A J2 , 1 

plant  block  numeral  in  card. 

3079 

SWE, TeMPMASK 

TASK  LOO 

D , 1 

TASK  LOG 

3080 

NA 

TASK  LOO 

zero 

ojtlines 

LOOP  END  CAUSES  ZeRO-SUPPReSS  of  task. 

3082 

TS 

Bank  b 

Z,X6 

punch  heo 

c 

USE  SPECIAL  ENTRY  INTO  CARD-PJNCH  SUBRO. 

3086 

LAST  CRD  0 

EBA 

PUNCH  ADR 

zero 

Z,X6 

recover  address  of  control  word. 

3086 

NA 

n,xa 

lor 

send  card 

BRANCH  if  not  the  CLOSING-OUT  call* 

L gYUL  SYSTEM  —PASS  0 USER'S  OWN  PAGE  NO.  67  PAGE  67 

P3088  on  receiving  a close-out  call,  punch  a checker3qard  card,  type  the  number  of  cards  punched,  and  punch  a blan< 

R 3090  ■ CARD  | 0 RUN  OUT  THE  RJNCH. 


3091 

LAST  CARD 

wA 

bank  b 

one 

Z.AU2 

3092 

MT 

checkers 

20 

N.AU2.1 

CREATE  CHECKERBOARD  CARD, 

3094 

TS 

bank  b 

Z i X 4 

PUNCH  ONf 

V- 

PUNCH  THE  CHECKERBOARD. 

3096 

TS 

CRD  CjJimJ 

PHI  ARG 

TYP  NON  YS  +2 

c 

3097 

s,  mon  ty^er 

phi  arg  +2 

SPRAM 

+ 40 

- 

" NNNN  CARDS  PUNCHED  BY  Loo  aNO  TASK" 

3099 

TS 

PHI  WAA 

Z * X 4 

33  VIA  4U2 

c 

3100 

TX 

ZERO 

- 

N.AU2.1 

3101 

MT 

BLANKS 

10 

N.AU2.1 

create  blank  alphabetic  card  image. 

3103 

s.  mon  typer 

A,  104 

SPRA  + 

72 

- 

hex:  "lll  lll  ooo  ttt". 

3105 

TS 

bank  b 

Z » X4 

PUNCr  ONf 

c 

PUNCH  FINAL  BLANK  CARD  IN  ALPHA  MdDe. 

3107 

EX 

cRd  cojnt 

CAC3 

CRD  COUNT 

RESET  cARq  COUNT  TO  ZERO. 

3109 

TS 

RLS  CD  PCH 

Z . A J 1 

mon  sn  oip 

c 

release  the  card  punch. 

3111 

TS 

PUNCH  CD 

z.sc 

PNCH  EXIT 

c 

'3112 

EVERY  CARD 

SENT  BY  A CALLER  COMtS  HERE  EVENTUALLY 

• 

3113 

send  card 

TS 

_ 

PUNCH  ONF 

C 

normal  way  to  send  a card. 

3115 

TS 

PUNCH  Cd 

z.sc 

PNCH  EXIt 

c 

3116 

PNCH  EXIT 

TX 

frame 

- 

Z.MXR 

s 

3117 

PUNCH  HED 

TN 

4.17 

4 

4.3 

r 

move  task  NUMBER  to  place  ON  CAhD. 

3119 

TN 

N.CSC.4 

4 

4,7 

c 

PLANT  BLOCK  LETTERS;  "TASK". 

3121 

ocr 

-00  422a  1076 

. -22 

5252 

5244 

3122 

OCT 

-70  2422  2470 

. -02 

0276 

0202 

3123 

TN 

N.CSC.5 

4 

4,17 

c 

PLANT  "Log:"  and  tab  to  punch  one. 

3125 

OCT 

-DO  0000  2424 

. -72 

5242 

4234 

3126 

OCT 

-34  4242  4234 

, -40 

4040 

40  76 

3127 

wF , Da 

_ 

I NCR  CDCt 

BRANCH  IF  200  GOT  CARD  INFO  0<. 

3129 

PUNCH  ONE 

SWS,  CHARI 

Mon  praus 

A.2.L 

C,  + l 

c 

SUPPLY  TRUE  ADDRESS  OF  PUNCH. 

3131 

wF  * da 

4,0 

- 

- 

3132 

ts.  chari 

C.-l 

PUNCH 

ONE  - 

1 PUNCr  ONf  -1 

c 

3133 

I NCR  CDCj 

da 

CRD  CoUNT 

BIT  32 

crd  Count 

s 

INCREMENT  count  of  cards  in  TAS<. 

SEOBrK 


END 
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L rUL  SYSTEM  PASS  o SERVICE  MODJLt 


R0001  ^E  ARE  Deeply  INDeBte5  TO  THE  ONe*  the  ONLY*  the  SReAt  JOHN  <;HAW  For  ThE  FOLLOWING  StRoNG  Magic.... 
R0003  USOCT  _ 


OOOA  SETLOc.2  0 Ba 


0005  MAS<GrP,I  s,o  f*o 


rooo6  the  yul  System  pass  0 service  module  is  loaded  (iijo  ban<  a)  whenever  pass  0 is  loaded.  it  serves  to 

Rooos  prevent  pass  0 from  overflowing  its  bank,  the  contents  of  the  service  module  fall  into  three  main  classes: 

Rooio  i>  srsTEM  functions  not  Related  to  a particular  computer  or  program  — e.u.  backup  tape  processing. 

R00I2  2)  OPERATIONS  On  a PARTICULAR  Program  Or  SUBROUTINE  that  Arf  alike  for  all  computers  — E.G.  PUNCH  SYvB.  deck. 

RqOIA  3)  OPERATIONS  On  the  STATUS  of  a PART iCJLAR  COMPUTER  — L.O.  ADD  COMPUTER  NaMe. 

R0016  main  pass  0,  running  in  bank  1,  references  the  service  module  by  augmenting  spec,ba...o  and  using  the  spec 

R0018  CONSTANT  REFERENCED  HEREBY. 


R0019  RUDIMENTARY  TRANSFER  VECTOR  AT  BASE  oF  SERVICE  MODULE: 


0020 

L 

BACKUP 

SPEC 

backup 

0021 

L 

PRINT  PS 

SPEC 

PRINT  PS 

0022 

L 

PUNCH  PS 

SPEC 

PUNCH  PS 

0023 

L 

XF  E R PS 

SPEC 

xfer  ps 

002  A 

L 

ADD  COM 

SPEC 

ADD  COM 

0025 

L 

RMOV  COM 

SPEC 

RMOV  COM 

0026 

L 

PASS  STA 

SPEC 

pass  sta 

0027 

L 

MAN  J1  STA 

SPEC 

manu  sta 

,«  u 


L YUL  SYSTEM  PASS  o SERVICE  MODULE 

P0029  ONE-WORD  alphabetic  constants. 


0030 

A999999 

ALE 

09999990 

0031 

ASTRI 5K 

alf 

* 

0032 

COMA  1962 

ALF 

♦ 1962 

0033 

DASH  IT3 

ALF 

— 

00  3 A 

DASHES 

ALF 

0035 

PASSS  RE 

ALF 

RE5  asse 

0036 

MANUS  RE 

ALF 

re:  Ma 

0038 

PASS  S EQU 

ALF 

= asse 

0039 

MAN J S EUU 

ALF 

= Ma 

0040 

S ZERO'  Cl 

ALF 

0 

00  A 1 

4 Cl 

ALF 

4 

0042 

EQJAL5  Cl 

ALF 

= ■ 

0043 

L COLJMN  1 

ALF 

L 

0044 

T COLJMN  1 

ALF 

T 

0045 

P COLJMN  1 

ALF 

p 

0046 

Y COLYUM  1 

ALF 

Y 3 

0047 

PMAX9  MS J 

ALF 

PMAX  = 9 

0048 

S 3LAN<S 

ALF 

0049 

S 3L0IS 

ALF 

0050 

S COLON  Cl 

ALF 

: 

00505 

S SIGH 

ALF 

(SIGH) 

0051 

SW  CM3JTR 

ALF 

CoMPUl ER 

0052 

S W MOD 

ALF 

MOD 

0053 

Sw  PRINT 

ALF 

PRINT 

0054 

SW  PJmCH 

ALF 

PUNCH 

0055 

W 2 54 3 

ALF 

254  + 

0056 

w amended 

ALF 

amenued 

0057 

W AS 

ALF 

AS 

0058 

W AJTHORC 

ALF 

author: 

0059 

w che:<ed 

ALF 

checked 

0060 

W COM3UTR 

ALF 

COMPUTER 

0061 

W CONIRL 

ALF 

control 

0062 

S FOR 

ALF 

FOR 

0063 

W IS 

ALF  

IS 

0064 

W NAME 

ALF 

NAME 

0065 

S NEW 

ALF 

NEW 

0066 

WM  NEW 

ALF 

(NEW) 

0067 

W NO 

ALF 

NO 

w Leu&Tff 


A LF 
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a 


L 


YUL  SYSTEM  PASS  0 SERVICE  MODULE 


P 0 0 6 8 

Qf\ 

e-word  alphabetic 

constants  concluded 

0069 

W 

NONE 

alf 

(NONE) 

0070  ' 

W 

DBS 

ALF 

■OBS" 

0071 

VJ 

36S3LET 

ALF 

OBSOLETE 

0072 

DLO 

ALF 

OLD 

0073 

tl 

OUT 

ALF 

OUT 

00  7 A 

w 

PASS 

ALF 

PASS 

0075 

w 

PASS  0 

alf 

YULPASSO 

0076 

w 

PNC-UNG 

ALF 

PUNCHING 

0077 

PRNTlNG 

ALF 

PR  I NT  1 NG 

0078 

PROGRMS 

ALF 

PROGRAMS 

0079 

w 

softwar 

ALF 

software 

0080 

w 

SNONE 

ALF 

s:  NONE 

0081 

w 

STATUS 

ALF 

status: 

0082 

s 

NO  DISC 

ALF 

no  disc; 

0083 

JNJSED 

ALF 

UNUSED 

00  8 A 

YES 

ALF 

YES 

008A1 

YUL  0 LIST 

ALF 

YULDLlST 

0085 

ZSJP  ONE 

ALF 

1 

R0086 

alphabetic 

ARRAYS. 

0088 

bk.jp  , 

-1NE 

ALF  ,9 

DIRECTORY  LISTING  OF  YJL^OGs  * 

0089 

BUREL 

MSG 

ALF  .2 

BACKUP  RELABELED 

0090 

chedl 

MSG 

ALF,  3 

CHECK  DIRECTORY  LISTING 

0091 

COMP  J 

LIN 

ALF. 2 

0092 

COM  JS 

MSG 

ALF  , 3 

COMPUlER  IS  STILL  IN  JSt 

0093 

CONCN 

MSG 

ALF  ,5 

conflict  with  existing  comPjteR  name 

009A 

DCLAV 

MSG 

ALF  ,3 

DECLARED  AVAILABLE 

0095 

DCL03 

MSG 

ALF  ,3 

declared  obsolete 

0096 

DCLO< 

MSG 

ALF,  3 

DECLARED  CHECKED  OUT 

0097 

MANJS 

MSG 

ALF, 2 

NUFAC[JriNG  FOR 

USER'S  OWN  PAGE  NO 
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L 

YUL  SYSTEM 

PASS  o 

service  module 

PC098 

alphabet  I c 

arrays 

CO  \|  1 INUED. 

0099 

mntn  liIne 

ALF  * A 

YUL  SYSfEM  MAINTENANCE  FUNCTION! 

0100 

NEWCO  MSG 

ALF  ,3 

NEW  COMPUTER; 

0101  . 

NEW  LINE 

OCT 

0 

0102 

ALF, 5 

0103 

ALF  * 5 

0 1 0 A 

ALF  .5 

0105 

nomat  msg 

ALF, A 

no  match  found  for  this  card; 

0106 

NOTAV  MSG 

ALF  * 

NOT  AVAILABLE 

0107 

NOW  0=  MSG 

ALF  » A 

NOW  OPERATING  FROM  New  YjLPRoGS 

0108 

ObJrt<  'MSG 

ALF  ,A 

Former  backup  will  be  worker 

0109 

OP  SL3  MS J 

ALF  ,2 

OPERATOR  ASLEEP 

0110 

PASSS  MSG 

ALF  ,2 

mbly  pass  • for 

0111 

PCH  CARD 

OCT 

0 

0112 

ALF  ,5 

0113 

ALF, 5 

USER'S  OWN  PAGE  NO 
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L 

YUL  SYSTEM 

PASS  0 

service  module 

USER'S  OWN  PAGE  NO. 

5 

PAGE  72 

P0114  • 

alphabetic 

ARRAYS 

COmI inued. 

..1 

0115 

0116 
0117 

XFR  C3NFL 
LA<  TR  MSG 
W CD I MS  ON 

ALF,  4 
ALF  *4 
ALF  * 3 

conflict  with  existing  fi_e  name 
INSUFFICIENT  tracks  AYAI.ABLe? 
card  images  on  disc 

0118 

0119 

0120 

PRSJ3  HDS 

ALF  ,4 
ALF  ,5 
ALF  .5 

name  revision  AJTHdR 

LAST  ASSEMBLED  M'F'ABLE  SUBROUTINES 

(OBSOLETING  SUBROUTINES  prefixed  BY  '•/") 

..z 

01202 

01204 

0121 

0122 

0123 

0124 

0125 

0126 

ASAM3  MSG 
S AC  A OTHE 
REDUN  MSG 
REMCO  MSG 
SFWR  BEDS 

ALP  * 4 
ALF  ,2 
ALF, 2 
ALF  ,4 
ALF  ,3 
ALF  ,3 
ALF,  3 
ALF  ,5 

ASA  TO  amend  BACKUP  ta=e  LA3EL; 
ACA  OTHERWISE 

redundant 

removing  computer  name; 
assembly  pass  1 
assembly  pass  2 

ASSEMBLY  PASS  3 
MANUFACTURING 

RLe 

\" 


YUL  SYSTEM 

PASS  o 

service  module 

27 

ALPHA  3ET I C 

ARkAYs 

CO  Ml 1NUED. 

30 

STATS  MSG 

ALF  .4 

31 

STNEO  MSG 

ALF  .3 

STILL  NEEDED  By 

32 

SURC3  MSG 

ALF. 4 

COMPUTER  name  NOT  RECOGNIZED. 

33 

UNAV?  MSG 

ALF.  2 

unavailable 

332 

UNCSO  MSG 

ALF, 3 

UNNECESSARY  SUBDIReCTOR: 

34 

User  _og 

OCT 

0002 

35 

ALF,  5 

36 

ALF  ,5 

37 

ALF  ,5 

' USER'S  OWN  PAGE  NO. 

38 

w trnsfer 

ALF 

transfer 

39 

ALF, 5 

NEEDS  SUBDIRECTOR  GIVING  DlSCFllE  NAME 

40 

XFR  WRS1Z 

ALF,  4 

discfile  name  void  or  too  long 

41 

XFR  TERMS 

ALF, 5 

discfile  name  contains  ieRMinator  chars 

A3 

NO  XFR  MSG 

ALF  ,3 

CAN'T  PERFORM  TRANSFfR 

» 


USER'S  OWN  PAGE  NO.  6 PAGE  73 


y 

1 

y 

-) 

2 c 

c 

r 

3 

.e  < 

3 

3 

} 

3 

3 


) 

> 

□ 
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L 

YUL  SYSTEM 

PASS  o 

SERVICE  MODULE 

P01435 

alphabetic 

arrays 

concluded. 

0144 

WAA  13060 

ALE  * 3 

W A A10060  ODOOOODP 

0145 

W AVA-ABL 

ALE  * 2 

AVAILABLE 

0146 

CARD  DUN 

ALE  ,2 

card  ojtput  sent 

0147 

. w end  rev 

ALE  .2 

END  OF  REV  I S 10 

0148 

W L A3  AVAL 

ALE  .2 

AVAILABLE 

0149 

W LA3  CHKO 

ALE, 2 

checked  out 

0150 

W LA3  UNAV 

ALF  * 2 

NOT  AVAILABLE 

0151 

W LASI  ASS 

ALE  ,2 

LAST  ASSEMBLED  0 

0152 

W LIST  DUN 

ALf  *2 

listing  finished 

0153 

W NPR  SUBS 

ALE  ,5 

NJMbER  OF  PROGRAMS  AND  SJBRO 

0154 

W PASS  1 

ALE  ,2 

ASSEMBLY  PASS  1 

0155 

ALE  *2 

ASSEMBLY  PASS  2 

0156 

ALE  .2 

ASSEMBLY  PASS  3 

0157 

W manjf 

ALE. 2 

manufacturing 

0158 

Hi/  SU3  ROS 

ALF. 2 

SUBROUTINES 

0159 

YUL  3 J<  MSG 

ALF  .4 

PRESENT  YULPROGS  WILL  3t  BACKUP 

01591 

MONTHS 

ALF  .4 

UAN  FEB  MAR  APR 

01592 

ALE  .4 

MAY  UUN  UUL  AUG 

01593 

ALE  .4 

SEP  OCT  NOV  DEC 

i 
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L 

YUL  SrSTEM 

PASS  o 

SERVICE  MODJLe 

P0160 

NUMERIC  CONSTANTS. 

0161 

5 LINES 

OCT 

0005 

0162 

A ADRES 

OCT 

0000  7777 

0163 

B9 

OCT 

001 

016A 

BIO 

OCT 

OOOA 

0165 

B 1 2 

OCT 

0001 

01652 

B9  BIZ 

OCT 

0011 

0166 

128  3uOX 

OCT 

0000  02 

0167 

B9310 

OCT 

00  1 A 

0168 

B7T13 

OCT 

0077A 

0169' 

S 3 1 A T 1 8 

OCT 

0000  37- 

0171 

B ADDR  6 

OCT 

-6  0000 

0172 

BAN  EOFRI 

OCT 

-A20  0000 

0173 

END  D*  1 

OCT 

7611  1111  1111  1150 

0 1 7 A 

LEFT  HALF 

DEC 

GGGGGG 

0175 

OCTAL  60 

OCT 

-60 

0176 

S 1 C 6 

OCT 

-1  0000 

0177 

DISA3.ED 

DEC 

-GFO 

0178 

S 3 I T 32 

DEC 

-10000 

0180 

S 1 3 

FXBIN 

-13 

0181 

S ASPACE 

OCT 

OOOA 

0182 

S 31 T 1 

OCT 

A 

0183 

S Cl  T 2 

OCi 

7777 

0 1 8 A 

S CAC  3 

DEC 

- GGGG 

0185 

S D12 

DEC 

-G 

0186 

S NINE 

DEC 

-9 

0187 

S ONE 

OCT 

-1 

0188 

SP1 

OCT 

0001 

0189 

S PLS  ZERO 

DEC 

+ 0 

USER'S  OkvN  PAGE  NO 
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YUL  SYSTEM  PASS  o SERVICE  MODULE 


P0190 

numeric  constants 

concluded. 

0191 

sswi tch 

OCT 

0 

0192 

S TEN  Cl 

OCT 

12 

0193 

S THRED  10 

OCT 

-3776 

019A 

S THRED  11 

OCT 

-3777 

0195 

S . TWO 

OCT 

-2 

0196 

S THREE 

OCT 

-3 

0197 

S SIX 

DEC 

-6 

0198 

S ElGHiT 

DEC 

-8 

0199 

S CHAR  1 

OCT 

77 

0200 

S CHAR  8 

OCT 

-77 

0201 

S C2T  7 

OCT 

0077  7777  7777 

77  00 

0202 

S FOUR 

OCT 

-A 

0203 

SLASH 

OCT 

-61 

02  OA 

USER  =AGE 

DEC 

0 

0205 

OK  BANNER 

0C1 

-120  0000,  -120 

OOOO 

0206 

OCF 

-120  0000,  -120 

0000 

0207 

B ARG 

DEC 

OOOEEEEE 

0208 

AVCO  31 TS 

ocr 

A001  9001  AOO 1 

9001 

0209 

MANU  MASK 

OCT 

-7777 

0210 

S PAv/  BITS 

OCT 

0001  0001  0001 

0001 

0211 

PCO  BITS 

OCT 

AOOO  9000  9000 

9000 

■A20  OOOO 
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L YUL  SYSTEM  PASS  o SERVICE  MODJLE 

P0212  ASSI  3'IMENT  S IN  YuL  PASS  0 TRANSFER  VECTOR. 


0213 

PROG  \|AME 

assign 

0,0 

0214 

SW I T C + 

assign 

0,2 

0215 

L OLD  LINE 

assign 

0,3 

0216 

OLO  LINE 

ASSIGN 

0,4 

0217 

PAGE  HEAD 

ASSIGN 

0,20 

0218 

PAGE  HO 

ASSIGN 

0,36 

0219 

L COP  BUFS 

ASSIGN 

0,39 

0220 

LIN  COUNT 

ASSIGN 

0,41 

0221 

L PROG'  FIL 

ASSIGN 

0 ,4<t 

0222 

N LINES 

ASSIGN 

0,45 

0223 

L COM3  NAM 

ASSIGN 

0,46 

0224 

N COPIES 

ASS  1 Gn 

0,47 

0225 

PAPER  PLY 

assign 

0*48 

0226 

L AUTHi  NAM 

ASSIGN 

0,51 

0227 

compjter 

ASSIGN 

0,53 

0228 

YUL  TYPER 

ASSIGN 

0,63 

0229 

RD  S30IRC 

ASSIGN 

0,65 

0230 

HOWZAI 

ASSIGN 

0,66 

0231 

IGN  SJ6DR 

ASSIGN 

0,68 

0232 

MANUF  RTN 

ASS  I GN 

0,76 

0233 

YUL  MASKS 

ASSIGN 

0,77 

0234 

OCTAL  20 

ASSIGN 

0,78 

0235 

SERCH  KEY 

ASSIGN 

0,79 

0236 

WHODJHIT 

assign 

0,80 

0237 

6 COMMA  19 

ASSIGN 

0,81 

0238 

L GP3  STT 

ASSIGN 

0,82 

0239 

L DIRECTY 

ASSIGN 

0,83 

0240 

BANK  1 

ASSIGN 

0,83 

02402 

CHAS  2500 

ASSIGN 

0,84 

0241 

PUNCH  CD 

assign 

0,87 

0242 

TYP  A30RT 

ASSIGN 

0,89 

0243 

L 06 JC  MSG 

ASSIGN 

0,90 

0244 

REJEC  DIR 

assign 

0,91 

0245 

TASK  MSG 

ASSIGN 

0,93 

0246 

TASK  OB JC 

ASSIGN 

0,97 

0247 

TYP  TO  OBJ 

ASSIGN 

0,98 

0248 

KNOWN  PSR 

ASSIGN 

0,99 
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(CONTINUED) 


L 

P02485 

YUL  SYSTEM  PASS  o SERVICE  MODULE 

further  assignments. 

02  49 

TAPE  5RCH 

ASSIGN 

0,100 

0250 

.L  PGHED  P3 

assign 

0,101 

0251 

ASSY  5UBD 

assign 

0,102 

0252 

COMMON 

assign 

0,103 

0253 

PUT  CHAR 

assign 

0,105 

0254 

WRIT  3BJC 

ASSIGN 

0 , 1 1 A 

0255 

LA3EL  YUL 

ASSIGN 

0,115 

0256 

POSIT  YUL 

ASSIGN 

0,116 

0259 

PHI  WAA 

ASSIGN 

0,117 

0260 

GROJP  A 

ASSIGN 

0,118 

0261 

YUL  D2A  ZS 

assign 

0,119 

0262 

FOUND  BUF 

assign 

0,120 

0263 

GROUP  NAP 

ASSIGN 

0,122 

0264 

SU3  THRDS 

ASSIGN 

0,125 

0265 

DI5ASTER 

ASSIGN 

0,126 

0266 

COMP  NAME 

ASSIGN 

0,128 

0267 

1 COMMA  a 

ASSIGN 

0,129 

0268 

ACCEPT  M2 

ASSIGN 

0,130 

0269 

DECOD  CPN 

ASSIGN 

0,131 

0270 

CPN  FIXER 

ASS  I Gn 

0,132 

0271 

GIVE  3AIR 

assi Gn 

0,133 

0272 

FIND  COMP 

ASSIGN 

0,134 

0273 

FIND  3A1R 

ASSIGN 

0,135 

0274 

L 3LANCD 

ASSIGN 

0,136 

0275 

REVND 

ASSIGN 

0,137 

0276 

S LINE 

AS.sIGn 

2,0 
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L YUL  SYSTEM  PASS  q SERVI 


P0277 

ADDRESS-  CONSTANTS. 

0278 

BAN<  5 

SPEC  *B5 

0279 

L 

3 JF  1 

SPEC  »B5 

0280 

L 

3 JF  2 

SPEC  * B5 

0281 

L 

3 JF  3 

SPEC  * B5 

0282 

L 

TEM3  MSK 

SPEC 

0283 

L 

END  MLIS 

SPEC 

02  8 A 

L 

NEW  LINE 

SPEC 

0285 

L 

LONG  CUS 

SPEC 

0286 

L 

PJT  IT 

SPEC 

0287 

L 

PCR  CARD 

SPEC 

0288 

SPEC 

0289 

L 

S MONTHS 

SPEC 

0290 

L 

3 AM  Ci  1 

SPEC ,Bi 

0291 

L 

W PASS  1 

SPEC 

0292 

INI!  a/D  8 

CAC’B7 

0293 

S 

BANC.  1 

CAC 

02  9 A 

S 

END  THR 

SPEC  *B  7 

0295 

XFR 

3JFFS 

SPEC » B7 

0296 

xfr 

LIMIT 

SPEC  *BC 

0297 

SPEC » BC 

0298 

SPEC  * BG 

0299 

RESERVE 

R0300 

RESERVATIONS. 

0301 

TRINDEX 

RESERVE 

0302 

COMP  .OCN 

reserve 

0303 

PASS  MASK 

reserve 

030A 

SAVE  X23 

RESERVE 

0305 

SAVE  X A 

RESERVE 

0306 

T ASC  2 

RESERVE 

0307 

TEMP  MS< 

RESERVE 

0308 

PRG  OR.  SUB 

RESERVE 

0309 

D1SCA.IM 

RESERVE 

0310 

TRACK  LOG 

reserve 

0311 

DISC  ADDR 

RESERVE 

0312 

XFR  P.ACE 

reserve 

Damn  ZERn 
512 
1 02  A 
1536 

TEMP  MASkr 
END  M LIST 

new  line 

LONG  CJSS 
PJT  IT  ON 

pch  c<\ro  +i 
pch  Caro  +6 
months  -t 
DAMN  ZERO 

W PASS  1 

6 10 

MOR  SJB^  0 
6 


20A5 
20A3 
2 OA  6 
20AA 


CE  MODULt 

6 

20  A8 

2 

15 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 
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L YUL  SYSTEM  PASS  o SERVICE  MODJLe 


P0313 

EOJI VALENCES. 

03 1 A 

ALPHA. 

equals 

0 

0315 

BINARY 

equals 

16 

0316 

L JJNO 

tQUALs 

L BUF  2 

03161 

L MOR  SBWU 

equals 

S BANK  1 

0317 

s cm 

equals 

left  HALF 

0318 

SP2 

EQUALS 

USER  LOG 

0319 

SP3 

EQUALS 

page  HEAD 

0320 

S ZERO 

EQUALS 

pch  card 

0321 

DEPAGIN8 

EQUALS 

L PGHED  P3 

0322 

S STOPPER 

EQUALS 

S CAC  3 

0323 

snatrack 

EQUALS 

SLASH 

R032A 

JUMP  TABLE 

FOR 

UNSQUEEZING  card 

images  from  tape. 

0325 

expander 

MT 

N * X A * 1 

5 

N.X6. 1 

0326 

TN 

N »XA.A 

A 

6,1 

0327 

TX 

N.XA.l 

- 

N.X6 

0328 

TN 

N , XA  , 3 

3 

6,2 

0329 

TX 

N * X A * 1 

- 

N.X6 

0330 

TS 

N.XA.i 

6.1 

C,  + 2 

0331 

TX 

N.XA.I 

- 

N.X6 

0332 

TN 

N.XA, 2 

2 

6,3 

0333 

TX 

N.XA,  1 

- 

N.X6 

033A 

TS 

N.XA.I 

6.1 

C , + 2 

0335 

MT 

N.XA.I 

3 

N.X6.2 

0336 

TS 

N , X A , 1 

6.2 

C.  + A 

0337 

TX 

N.XA.I 

_ 

N.X6 

0338 

TS 

N.XA.I 

6.1 

C , + 2 

0339 

MT 

N.XA.I 

2 

N.X6.A 

03  AO 

TX 

N.XA.I 

- 

6, A 

03  A 1 

MT 

N.XA.I 

A 

N.X6.1 

03  A2 

TN 

N.XA. 3 

3 

6,1 

03  A3 

TX 

N.XA.I 

- 

N.X6 

03  AA 

TN 

N , X A » 2 

2 

6,2 

03  A5 

TX 

N.XA.i 

- 

N.X6 

03  A6 

TS 

N.XA.I 

6*1 

C.+2 

03  A7 

MT 

N.XA.I 

2 

N.X6.3 

03a8 

TX 

N.XA  . 1 

- 

6,3 

03A9 

MT 

N.XA.I 

3 

N.X6.1 

0350 

TN 

N.XA.2 

2 

6,1 

0351 

MT 

N .Xa  . 1 

2 

N.X6.2 

0352 

TX 

N.XA.I 

- 

6,2 

0353 

MT  ' 

N.XA.I 

2 

N.X6.1 

03  5 A 

TX 

N.XA.I 

_ 

6,1 

0355 

TX 

N.XA.I 

- 

N.X6 

0356 

TX 

- 

- 

- 
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L VUL  SYSTEM  PASS  o SERVICE  MODULE 


p0357 

ROUTINE  IN 

service  module  for  minting  a 

SYMBOLIC  LISTING,  PUNCHING  A SYMBOLIC  DeCK,  OR  BoH  SlMJL- 

R0359 

taned jsly 

. FOR  THE  l 

aitlR  case,  the  Verb  on  the  director  caod 

may  Be  either  "print,  punch"  or  "punch,  srint". 

r03&1 

THe  5YMBqLIC  DelK  PUN 

ched  by  this 

routine  is  heao-d 

BY  AN  EXaCt 

copy  of  the  yul  director  card,  thus  identifying 

R 0 36  3 

the  DeC< 

AND  I NC i OeN  T ALLY  SHOWING 

whether  a L I SI ING 

WAS  MADE  AT 

the  SAME  time.  THE  FORMAT  Of  THE  LISIImG  IS 

r0365 

that  of  A 

YUL 

ASSeMcu 

y listing  in 

which  all  cards  are  Remarks  Cards,  the  number  of  coPitS  and  the  number  of 

R 0 3 6 7 

LINES  Per 

Page 

are  GOVERNED  bt  the 

SAMe  SJBDIReCtoRS 

> AS  iN  ASSEMBLY. 

R0368 

ENTRY  TO 

print 

A SYMBOLIC  LISTING 

OF  A PROGRAM  or  SJBRqJTINE. 

0369 

PRINT  PS 

na 

6,19 

sw  3UNCH 

C , + 4 

BRANCH  UNLESS  PUNCHING  ALSO  WANTED. 

0371 

TN 

6,22 

33 

6,19 

SHIFT  UP  SENTENCE  TO  COVER  2ND  VERB. 

0373 

TX 

BiO 

SSWITCH 

SET  INDICATOR  BIT  FOR  PUNCHING. 

0375 

TS 

w pnching 

TAS<2 

PRINT AS< 

0376 

NA 

6*19 

W TRNSFeR 

C , + 3 

BRANCH  IF  NOT  "PRINT*  TRANSFER". 

0378 

TS* 

B I T 12 

S ONES 

s switch 

PRINT  Ps  +1 

C SET  INDICATOR  BIT  FOR  TRANSFERR I NG. 

0380 

TX 

W TRNSFER 

- 

TAS<2 

0381 

pkintask 

T 5 

w printing 

TASK  MSG 

TASK  03Jr 

BREAK  DOWN  AND  RE-FORM  REST  OF  DIRECTOR. 

0383 

TS, 

BIT9 

S ONES 

sswitch 

PRINT  pch 

SET  INDICATOR  BIT  FOR  PRINTING. 

R0385 

ENTRY  10 

PUNCH 

A SYMBOLIC  DeC<  OF 

A PROGRAM  OR  SJBRoJflNE. 

0386 

PUNCH  PS 

NA 

6*19 

SW  3RlNT 

C , + A 

branch  Unless  printing  also  wanted. 

0388 

TN 

6,22 

33 

6,19 

SHIFT  UP  SENTENCE  TO  COVER  2ND  VERB. 

0390 

TX 

Bg 

- 

SSwItCH 

SET  INDICATOR  BIT  FOR  PRINTING. 

0392 

TX 

W PRN  1 I imG 

- 

TASK2 

0393 

TS 

W PNCHING 

T ASK  MSG 

TAS<  OBJ r 

BREAK  DOWN  AND  RE-FuRM  REST  OF  DIRECTOR. 

0395 

TS, 

bitio 

S ONES 

sswitch 

PRINl  PCh 

SET  INDICATOR  BIT  FOR  PUNCHING. 

R0397 

SIMILAR  ENtRAN 

CE  FoR 

FILING  ON  tHe 

disc  all  or  part 

OF  A PROGRAM  qR  SUBROUTINE  IN  SYMBOLIC  CARD  IMAGE  F3RM,  MAY 

R0399 

also  SPeCIEY  printing 

. Requires  a 

SUBDIReCTOR  ^ 1 T FT 

"AS"  AND  A 

DISC  fill  name  chosen  by  the  user. 

0401 

XFER  3S 

NA 

6,19 

SW  3R I NT 

C , + 4 

branch  unless  printing  also  wanted. 

0403 

TN 

6,22 

33 

6,19 

shift  UP  SENTENCE  TO  COVER  2ND  VERB. 

0405 

TX 

B9 

- 

s switch 

SET  INDICATOR  BIT  FOR  PRINTING, 

0407 

TX 

W PRN | ING 

- 

TAS<2 

0408 

TS 

W TRNSFeR 

JA5<  MSG 

TAS<  OB Jr 

break  down  and  re-form  rest  of  director. 

0410 

TS, 

B I T 1 2 

s ones 

S SWITCH 

PRINT  PCm 

set  indicator  bii  for  transferring. 

L YUL  SYSTEM  PASS  q SERVICE  MODULE 


P0A12 

COMMON,  procedure,  printi 

NG,  PUNCHING, 

and  transferring. 

0A13 

PRINT  PCH 

SWE,  CAC3 

S BANK  1 

32 

z,xo 

0A1A 

SWS,  D12 

s zero 

0 

S SWITCH 

OA 16 

LA 

B9  Bio 

S SWITCH 

C , + 2 

OA  1 8 

NA 

S SWITCH 

B9  312 

C * + 3 

0A20 

S,  YUl  t y 3ER 

TASK  MSG 

AMT  F + A 

C,  + l 

0A22 

TX 

TASK2 

- 

TASK  MSG 

0 A2  3 

TS 

z,sc 

WHODUNIT 

TYP  T 03  1 

OA25 

SWE  * CAC3 

S BANK  1 

32 

Z,XO 

0A26 

TS 

Z,Xa 

SAVE  *4 

known  psr 

0A28 

SWE,  CAC3 

s bank  1 

32 

z,xo 

0A29 

TS 

PROG  NAME 

SERCH  Key 

TAPE  SRCu 

OA  3 1 

NA 1 B I T 12 

S 5W1 TCH 

S ONES 

NOT  XF'ER 

0A33 

LA,  CHAR5 

S ONES 

DISC  STAT 

C , + 3 

0A3A 

s»  MOn  ty^er 

S NO  DlsC 

SPRAM  +8 

- 

0A36 

CANT  KFER 

S,  MOn  TY=£R 

NO  XFR  MSG 

SPRAMR  . 2 A 

TYP  ABORt 

0A38 

ex 

DISC  STAT 

S BIaT 18 

discalim 

0A392 

TN 

6,16 

39 

6,120 

OA  AO 

TS 

- 

- 

RD  SBDIRr 

OAAl 

5,  MON  TY3ER 

W TRNoFtR 

SPRAMR  +A8 

cant  xfer 

OA  A3 

NA 

6,16 

W AS 

C,-l 

0 A AA 

la,  chari 

S ONES 

6,18 

C , -2 

OAAfe 

LA,  CHAR6 

6,21 

s ZERO 

C,  + 2 

0 A A8 

LA,  CHAR6 

6,21 

S Bn  32 

C , + 2 

0A50 

S,  MOn  ty=er 

XFR  WRSIZ 

SPRAMR  +3K 

ReJEC  DIr 

0A52 

la,  chari 

S ONES 

6*22 

C * + 2 

0A53 

s,  mon  t y 3 £R 

XFR  TERMS 

SPRAMR  +aO 

ReJEC  dir 

0A55 

TN 

6,19 

2 

TRINDEX 

0A56 

s,  yul  ty3er 

6,2 

A +9 

C,  + l 

0A5T2 

TN 

6,120 

39 

6,16 

0A58 

XFR  Re  tlu 

T5 

S ONES 

TRINDEX  ♦ 2 

TR  LOOKJp 

0A60 

SS 

s zero 

S D 12 

TRINDEX  +3 

0A61 

NA,  C7T8 

TRINDeX 

disabled 

SETRALOG  -1 

0A63 

TR  LOOKUP 

TS 

S ZERO 

TRINDEX  *A 

DISCAP 

0 A 6A 

OCT 

-15 

0A65 

SPEC 

TRINDEX 

0A66 

SSL,  THREE 

TR  LOOKUP  +1 

0 

C,  + l 

0 A6  8 

ts 

snatRack 

TRINDEX  .3 

SetRALoG 

0A70 

NA,  C7T8 

TriNdEX  +3 

SNATRACK 

XFR  RE  TfU  +1 

0A72 

SSL,  ONE 

TRINDeX  + a 

0 

C , + 2 

0 A 7A 

ts,  chars 

s blanks 

tr  lookup  +1 

XFR  Re  Tl  0 

0A76 

ts,  chars 

s D 12 

TR  LOOKUP  +1 

TR  LOO<JP 

0A78 

S,  MON  TY3ER 

XFR  CONfl 

SPRAMR  + 32 

TYP  ABORT 

0A80 

SETRALOG 

SWE,  C5T8 

yul  log 

D , 6 

track  log 

0A82 

TS 

CHAS  2500 

TRINDEX  *5 

PRINT  HED  -1 
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initialize  card  SELECTION  mode, 
branch  if  PRINTING  and  punching. 

BRANCH  IF  DOING  ONLY  ONE  TASK. 

TYPE  FIRST  1 ASK  MESSAGE  OF  TWO. 

type  last  TASK  AND  OBUECT  OF  TASK(S). 

CHECK  REVN,  AUTHOR  NAME,  ETC. 

set  grp  b searching  for  prog  or  sjbro. 

BRANCH  IF  not  TRANSFERRING. 


"NO  Disc?". 

" can't  Perform  transfer". 

EXTRACT  NUMBER  OF  DISCS. 


CUSS  LACK  OF  "AS  FILENAME"  SUBDiReCtOR. 


BRANCH  IF 
BRANCH  IF 
BRANCH  IF 
"DISCFILe 


file  name  NOT  ON  CARO, 
NAME  HAS  ZERO  LENGTH. 

length  is  it  or  less, 
name  VOID  OR  TOO  LONG", 


"DISCFILe  NAME  CONTAINS  TERMI N A rORS" . 


"AS  OUTPUTFILENAME  ". 

restart  lookup  after  track  release. 


ignore  disabled  files. 


TO  C , + 2 ON  LOOKUP,  TO  C,+a  ON  R-LeASe. 

there  are  no  file  name  conflicts;  Begin, 

IGNORE  OTfiER-TYPE  file  with  SaME  name. 
TEST  PSEUDO-CONFIRMATION  BIt. 

restore  lookup  mode  after  track  release. 

Release  old  unconfirmed  tracks. 

"CONFLICT  WITH  EXISTING  FILE  NAME". 

JOB'S  LOG  ON  1ST  TRACK,  1 LESS  rACH  SJC, 
SET  UP  CHARLIE-WORD  OF  2500  FOR  ALL  TRX. 
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P04835 

INITIALIZATION 

OF  PUNCHING  ANu  PRINTING. 

0484 

NOT  X r eR 

NA  * 

bitio 

SSWITCH 

s ONES 

PRINT  HeH 

branch  if  not  punching. 

0486 

TX 

Y C0LYJM  1 

_ 

pch  Caro  +1 

0487 

TN 

6,2 

9 

pch  card  +2 

0488 

S, 

punch  CO 

pch  carl 

alpha 

c,  + l 

PUNCH  YUL  DIRECTOR  CARD  AS  HEAOrR. 

0490 

NA, 

B I T 9 

sswitch 

s ONES 

I N IT  PRNt  +1 

BRANCH  IF  NOT  PRINTING. 

0492 

print  hed 

wA 

z,x6 

OCTAL  20 

Z,X5 

include  computer  name  in  page  Head. 

0494 

TX 

L PGHED  P3 

- 

Z ,52 

0495 

TS 

N , X 5 , 2 

COMMON 

PJT  CHAR  +7 

c 

0496 

wA 

N ,X5 

S 1 C6 

N,X5 

0497 

TS 

SAVE  X4 

Z,XA 

WRIT  00 Jr 

write  0BjtCT  message  in  page  head. 

0499 

TX 

S ZERO 

• 

N COPIES 

0500 

TS , 

82B  1 1 

S ONES 

SWITCH 

Rq  SBolRc 

PROHIBIT  "RENUMBER",  GET  SUBu^ECTOR. 

0502 

TX 

Z,sc,i 

- 

- 

CHECK  ON  NUMBER  OF  COPIES  WHEN  SBOS  END. 

0504 

TS 

s zero 

paper  plt 

ASSY  SJ3n 

process  printing  subdirectors. 

0506 

LA 

n copies 

s zero 

INIT  PRNt 

BRANCH  IF  NO  EXTRA  COPIES  TO  Be  made. 

0508 

PLY  WAIT 

TX 

C,+0 

0 

Z»AJ2»31 

0509 

TX 

c,+o 

0 

Z,AJ1,31 

0510 

NA 

paper  ply 

s zero 

9 PLY  CHpK 

BRANCH  WHEN  OPlRATOR  HAS  REPLIEO. 

0512 

NA 

Z *AU1 , 1 

S ONE 

C , - 1 

0513 

NA 

Z , AU2 , 1 

S ONE 

C , -3 

0514 

S, 

MOn  T Y 3 ER 

OP  SLP  MS J 

SPRA  +16 

- 

AFTER  TOO  LONG,  TYPE  "OPERATOR  ASLEEP". 

0516 

TS 

S ONE 

paper  plt 

o<  Ply 

0517 

9 PLY  CHEK 

LA 

PAPER  PLY 

S NINE 

0<  PLY 

0518 

S » 

MOn  TY  3 ER 

PMAX9  MbJ 

SPR AMR  +8 

0519 

TX 

S ZERO 

_ 

PAPER  PLY 

0520 

s. 

viOn  ty3er 

WAA  10060 

SPRA  +24 

PLY  WAIT 

ASK  AGAIN  AFTER  UNSATISFACTORY  REPLY. 

0522 

TS 

S ZERO 

N COPIES 

INIT  PRNT 

0523 

OK  PLY 

LA 

N COPIES 

paper  ply 

C,-l 

branch  if  one  run  thru  printer  WILL  DO. 

0525 

S , 

MOn  taoor 

COPY  OP 

0526 

TS 

paper  ply 

COMMON 

POSIT  CPY 

go  position  pre-snatched  tape. 

0528 

TS 

paper  ply 

COMMON 

phi  snach 

0529 

ALT 

,2 

W10Y0102YULWRK2 

0530 

S ONES 

DEC 

GGGG  ooGG 

GGGG 

L YUL  SYSTEM  PASS  0 SERVICE  MQDJLe 


P0531 

initiali ZAT 1 ON 

For  mj^uple  printer 

RUNS,  ReCe3TI0N 

of  card  tMaGi 

0532 

POSIT  CPY 

TS 

- 

_ 

phi  tape 

0533 

COPY  DP 

RW  * 2 

- 

- 

- 

053A 

TS 

s stopper 

Z.XA 

phi  tape 

0535 

RF.2 

A , 0 

- 

- 

0537 

WD 

N COPIES 

S ONE 

N COPIES 

0538 

wA 

common 

PAPER  PLY 

COMMON 

0539 

LA 

common 

N COPIES 

C,-l 

05A1 

TS 

common 

N COPIES 

PHI  TAPE 

05  A2 

RF.2 

- 

- 

- 

05  A3 

I N I T 3RNT 

tn 

page  head  +1  13 

OLD  LINE  +1 

05  A5 

TS 

L NEW  LINE 

Z,X2 

RD  SBDlRr 

05  A7 

TS 

S BLANKS 

page  head  +ia 

fetch  sym  -2 

05  A72 

S,  MOn  TY3ER  UNCSD  MSG 

SPR AMR  +2A 

- 

05  a7A 

S.  YUl  TY  3£R  6,2 

A ♦ 9 

I NIT  PRNt  +1 

05  A8 

TS 

L JUN< 

Z , X 3 

FETCH  STM 

0550 

NA 

5,2 

EUR 

Fix  CaRd 

0552 

FETCH  SYM 

NA 

SeRCH  <eY 

eor 

group  nap 

055  A 

TX 

FOUND  BUF 

- 

Z,XA 

0555 

EX 

N,Xa 

left  half 

TASK  2 

0557 

TX 

L BUF  1 

- 

Z ,X5 

0558 

RT 

N , XA 

- 

N,X5 ,2 

0560 

wD 

Z,AU2 

S 13 

Z , A J2 

0561 

TX 

Z , AU2 ,10 

- 

Z.AUl 

0562 

NA 

END  OF  1 

N , A J 'l  ♦ 1 

C,  + 2 

05532 

TS 

- 

- 

PR  PCH  RpW 

05&A 

NA 

Z.AUl 

Z , A J2 

C , -2 

05&5 

TX 

PROG  NAME 

- 

SERCH  KEY 

0566 

SET  J3  GPB 

TX 

L GPB  STT 

- 

Z , SH 

0567 

0569 

TS 

SPEC 

N , SC , 3 

N.SH 

MON  /vAKe 
SRCH  TESt  -3 

0570 

PR  PC  Hi  REW 

TS 

_ 

_ 

PHI  TAPE 

0571 

RW.l 

- 

- 

- 

0573 

fix  card 

TX 

l pch  card 

Z , X 6 

057A 

LA 

TASK  2 

s zero 

END  of  0 -1 

0576 

TX 

Z.X5 

Z , X A 

0578 

mt 

S BLANKS 

10 

N »X6 » 1 

0579 

TX 

l pch  card 

- 

Z * X 6 

0580 

SSL, 

LOWS  N,Xk,1 

0 

EXPANDER 

0582 

TX 

L PCH  CARD 

+ 1 - 

Z ,X6 

0583 

SSL, 

L0W5  N,X5 

5 

expander 

0585 

TS 

Z,XA 

Z ,X5 

END  OF  0 

0586 

MT 

N , X 5 , 1 

10 

N , X6  * 1 
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SPACE  FORWARD  OVER  LABEL. 

compute  exact  number  of  copies. 


set  up  title  on  cover  sheet. 

SLINE  IS  ASSIGNED  TO  2.0. 

PROCEED  when  OUT  OF  SUBDIRECTORS. 
"UNNECESSARY  SUBDIRECTOR:". 

FAIL-SAKE  WHEN  1ST  CARD  IS  RIGHT  PRINT. 

branch  if  more  cards  in  current  record, 
SLEEP  until  GRP  B LOCATES  ReCORd. 

SAVE  INDICATOR!  SQUEEZED  or  not. 

MOVE  RECORD  TO  SAFETY. 


see  if  this  record  contains  "end  of». 


C SET  GRP  B GOING  AFTER  NeXT  RECORD. 

REWIND  yulprogs  after  READING  LAST  RECD. 

branch  if  record  is  not  condensed, 
keep  FWA  IN  X5. 

c reconstitute  first  half  of  card. 
c reconstitute  second  half  of  card. 

MOVE  UNCONDENSED  CARD. 


L YUL  SYSTEM' PASS  o SERVICE  MODULE 


P0588  SELECT  CARD  IMAGES  FOR  SYMBGLiC-CARD-IMAGE  TYPE  TASK. 


0589 

END  dr  0 

LA 

end  OF  1 

PCH  CARD 

+ 1 

END  PR  PrH 

0591 

TEST  MODE 

SSL,  D12 

S SWITCH 

0 

c,n 

0593 

TS 

PHI  wAA 

Z » X A 

SEL  PEEK 

0595 

TS 

phi  waa 

• Z,XA 

SEEK  MTCh 

0597 

SSL,  ONE 

pch  card 

+ 1 

5 

C,  + l 

0599 

TS 

- 

- 

USE  CARD 

0601 

TX 

PHI  WAA 

_ 

Z , X A 

0602 

SEL  PEEK 

TS 

Z , X A , 1 

Z,Xb 

PHI  PEEK 

060A 

na,  Chari 

A , 0 

AST  R I SK 

C , + 2 

0605 

SSL,  ONE 

S SWITCH 

l 

C , + 3 

0607 

na,  chari 

A , 0 

Y CDLYUM 

1 

C , + 3 

0608 

SSL,  ONE 

S SWITCH 

1 

C,  + l 

0610 

TS,  CHAR8 

s three 

S SWITCH 

JSE  CARD 

0612 

TN 

N , X A 

10 

6,1 

0613 

TX 

Z,X  5 

- 

SAVE  XA 

06  1 A 

tx,  chars 

S ONE 

- 

S SWITCH 

0616 

tx 

L TEMP  MSK 

- 

Z , AJl 

0617 

na,  chari 

6,1 

T COLUMN 

1 

C , + 2 

0618 

TS,  CHARI 

L COLUMN 

1 

6,1 

C,  + 2 

0620 

na,  chari 

6,1 

L COLUMN 

1 

SEL  JNLDr, 

0622 

na,date  mask 

6,9 

S BLANKS 

C,  + 2 

0623 

TS 

S CHAR  1 

N,  AJl 

SEEK  MTCh 

0625 

TX,  CHAR6 

DASHES 

- 

6,9 

0626 

ts,  chari 

DASHES 

6,10 

C , -2 

0628 

sel  JnLOG 

sm 

S CHAR  1 

S C2T7 

N,AJl 

0630 

SWE  * YYNNY  Y Y Y 

6,1 

A , 3 

6,12 

0631 

TS 

S SIX 

Z , X 5 

C,  + 2 

0633 

CDNO  CHEK 

SWS , ONES 

6,12 

A , 1 

6,12 

063A 

LA,  ChAR2 

6,12 

END  OF  1 

C , ♦ 3 

0636 

NA,  CHAR2 

6,12 

s blanks 

SEEK  MTCh 

0637 

TX,  CHAR2 

s zero 

. 

6,12 

0639 

NA 

Z ,X5 , 1 

S DME 

CDNO  CHEk 

06  AO 

LA 

A999999 

6,12 

seek  MTCh 

06  A2 

SS 

6,12 

S C2T7 

6,1 

06  AA 

TS 

SAVE  XA 

Z,X5 

TEST  MDDf 

06A6 

SEE<  MITCH 

NA,  TeMPMASK 

PCH  CARD 

+ 1 

A*  1 

Fetch  sym 

06  A8 

TN 

PCH  CARU 

+ 1 

1 

A , 1 

0650 

TX 

S NINE 

- 

Z,CSH 

0651 

NA 

N,AUl,l 

N * A J2  * 1 

FETCH  SYm 

0653 

• NA 

Z ,CSH , 1 

S ONE 

C,-l 

065 A S,  PM  I RE  A 0 A, I 

0656  tx,  chars  s two 


S SWITCH 
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branch  if  jusj  reconstituted  "end  of», 

BRANCH  ON  A-WAY  CARU  SELECTION  MODE. 
INITIAL  MODE  = 0. 

REQUEST-SEEKING  mode  = 1. 

ACCEPT  until  SlQBREAK  (Mode  = 2). 
ACCEPT  ALL  (MODE  = 3)  OR  C0ND.  ACCEPT. 


PEEK  AT  POSSIBLE  REQUEST  CARD. 

IF  MONITOR  CARD,  TEST  MODE  AGAIm, 

IF  YUL  DIRECTOR,  TEST  MODE  AGAIN. 
ACCEPT  ALL  IF  NO  REQUESTS, 


set  up  mode  i (seek  so-column  match). 


CHANGE  "T"  CARD  TO  "L"  CARD. 

BRANCH  IF  NOT  ANY  KIND  OF  LOG  C4RD, 

DO  NOT  TEST  COLUMNS  2-8  OF  LuG  CARDS. 

PUT  DASHES  INTO  DATE. 

CHECK  ALL  BUT  COLUMN  8 OF  NoN-LoG  CARDS. 
SET  UP  CHECK  ON  6-COLUMN  CARD  No.  FIELD. 
BRANCH  IF  CHARACTER  IS  A DIGIT. 

REPLACE  BLANK  BY  ZERO. 

CARD  NUMBER  999999  IS  ALSO  A SED.  BREAK. 
STANDARDIZE  NON-SEQUENCE-BREAK  NUMBER. 

request  card  is  now  ready  to  ldik  at. 
fast  ignore  if  first  word  doesn't  match. 

SET  UP  AU1  AND  AU2. 

IGNORE  CARD  IF  ANY  NON-MATCH. 

READ  USED  REQUEST  CARD  AFTER  SJGCeSS. 

set  up  mode  2 to  accept  until  seqbreak. 
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P0658 

PRgPATE  a 

card  image  roR 

: transferring 

, PRINTING, 

^UmCHING,  09  printing 

WITH  EITHER  TRANSFERRING  OR  PUNCHING, 

0660 

USE 

card 

NA,  B I T 1 2 

S SWlyCH 

S ONES 

not  xfer  2 

branch  if  NOT  TRANSFERRING, 

0662 

TS 

s zero 

c , + 0 

SNATCH  T9 

snatch  track  here  first  time  on.y. 

06  6A 

TX 

XFR  PLACE 

- 

Z,XA 

0655 

NA 

xfr  place 

XFR  LIMIT 

Send  xfer 

BRANCH  IF  NOT  END  OF  OUTPUT  BUFFER. 

0667 

EX 

EOR 

lefi  half 

N , X A , 2 

plant  end-of-buffer  flag. 

0669  • 

TS 

EUR 

N , X A 

DISC  CHEic 

0670 

XFR 

LO  XA 

TX 

XFR  BUFFS 

- 

Z,XA 

s 

0671 

TN 

XFR  BUFFS 

2 

XFR  3UFFS  + A 

06  72 

TN 

N , AU1 

A 

XFR  3JFFS 

swap  output  buffer  names. 

067A 

S,  DISC  W R1 r 

A , 0 

128 

DISC  ADDR 

WRITE  BLOCKS  OF  8192  WORDS  ON  THE  DISC 

0676 

<mA 

DISC  ADDR 

128  BLOX 

DISC  ADDR 

0678 

TS 

XFR  BUFFS 

XFR  PLACE 

XFR  |'D  X4 

c 

0679 

NA 

DISC  ADDR 

discalim 

send  xfer 

0680 

SNAT 

CH!  TR 

SWe*  ClTA 

TRACK  LOG 

D , 6 ' L 

TRINDEX  +2 

0681 

T S * ClTA 

TRlNDcX  +2 

TRINDEX  +5 

DISCAP 

c 

0682 

tr  cooe  wd 

OCT 

-1016 

SNATCH  A TRACK,  GIVE  IT  A LOG  NJM3ER. 

06  8 A 

SPEC 

TRINDEX 

0685 

TS 

XFR  BUFFS 

Z , X A 

new  track 

TRACK  SNATCH  WAS  SUCCESSFUL. 

0687 

xfer 

r A I L 

NA,  C^^ 

TRINDEX  +2 

YUL  LOG 

c , + 2 

branch  unless  all  tracks  are  Re.eased. 

0689 

S,  mon  ty=er 

LAK  TR  MSG 

SPRAM  +32 

CANT  XFER 

"INSUFFICIENT  TRACKS  AVAILABLE?". 

0691 

DA 

track  log 

s one 

track  log 

INCREMENT  LOG  NUMBER  TOWARD  J03  LOG  NO 

0693 

SWE,  ClTA 

TRACK  Log 

D , 6 , L 

TRINDEX  +2 

06  9A 

TS 

- 

- 

DISCAP 

c 

0695 

OCT 

-1017 

0696 

SPEC 

TRINDEX 

0697 

TS 

- 

- 

XFER  FAIi 

0698 

TS 

- 

- 

DISASTER 

BAD  RETURN  should  Be  IMPOSSIBLE  HERE. 

0700 

new 

track 

DS 

TRACK  LuG 

s one 

track  log 

decrement  log  number  For  each  track. 

0702 

EX 

TR  CODE  WD 

B7T13 

DISC  ADDR 

0703 

SS 

DISC  ADDR 

B7T13 

DISCaLIM 

form  disc  addresses  of  track  and  tr  +1 

0705 

SEND 

\FER 

TN 

PCH  CARO  +1 

10 

N * X A ’ 1 0 

07052 

TX 

Z , XA 

- 

XFR  PLACp 

0706 

LA 

END  OF  i 

PCH  CARD  +1  CLOSE  XFr 

branch  if  that  was  »end  of"  card. 

YUl  SYSTEM  PASS  o SERVICE  MODuLe 
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P0708 

. PREPARE  A 

CARD 

IMAGE  = 0H 

: printing  and/or  punchin 

0709 

NOT  X-ER  2 

SSL 

, FOUR 

pch  card  +i 

3 

0711 

NA, 

CHAR7 

PCH  card  +1 

S ZERO 

0713 

TX, 

CHAR7 

s blanks 

_ 

07  1 A 

NA, 

CHAR6 

PCH  CARD  +1 

S ZERO 

0715 

TX, 

CHAR6 

s BLANKS 

- 

0716 

SS 

s zero 

OCTAL  60 

0718 

NA, 

chars 

PCH  CARu  +1 

S NINE 

0720 

TN 

pch  Card  +2 

5 

0722 

TS 

- 

- 

0723 

NA* 

B I T 9 

sswitch 

S ONES 

0725 

TN 

pch  CARD  +1 

10 

0726 

MT 

S BLANKS 

5 

0727 

SWE 

, BIT  1 

SLINE  +1 

A 

0728 

SWs 

, AC02 

SLINE  +1 

12 

0729 

TX, 

chars 

S BLANKS 

m 

0731 

SET  D_D 

TX 

L OLD  LINE 

m 

0732 

TX 

Z,X2 

m 

07  3 A 

NA, 

chari 

SLINE  +1 

L COLUMN  1 

0735 

TX, 

C5T8 

ZSUP  ONE 

_ 

0737 

TX, 

L5T8 

S B L A n K S 

- 

0739 

TN 

SLINE  +1 

10 

07  A 1 

MT 

N,AU2 , 1 

5 

07  A3 

TS 

S ONE 

user  page 

07A5 

NO  NE ^ LOG 

NA, 

chari 

SLINE  +1 

P COLUMN  1 

07A6 

NA, 

chari 

3,1 

L COLUMN  1 

07A8 

LA 

S BIT  1 

N»X3 

0750 

wA 

LIN  COJNT 

N » X 3 

0752 

LA 

lin  count 

N LINES 

075A 

TX 

S BIT  1 

0755 

PRIN  SKIP 

NA 

N COPIES 

s zero 

0756 

S , 

PH  1 PRINT 

DEPAGl Nb 

07  57 

NA 

N COPIES 

s zero 

0759 

S, 

PH  j PR  1 \1T 

3,0 

0761 

DA 

PAGE  NO 

S ONE 

0762 

SWE 

, ONES 

page  no 

D , A , L 

0763 

TS 

z,sc 

Z , A J1 

076A 

TX, 

C5T8 

serv  arg  +2 

_ 

0765 

NA 

N COPIES 

s zero 

0767 

S , 

y- 

cn 

CL 

X 

CL 

PAGE  HEAD 

0768 

TX 

page  head 

_ 

0770 

LA 

user  PAle 

szero 
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C,  + l 
C , + A 

PCH  CARD  +1 
C«  + 2 

PCH  CARD  +1 

pch  card  n 

C * + 3 
3,11 

ASK  PJNCw 

ASK  PJNCw 

SLINE  +1 
N , A J2 , 1 
SLINE 

slinf 
SLINE  +1 
2 , X 3 

L GLo  LImE 
ND  NE»v  LOG 

JSfc  RLdG  +13 
SLINE  + In 
JSLRLoG  *i 
N , A J 1 , 1 
PRIN  SKId  -l 

C » + 2 

PRIN  SKIP  -1 

PRIN  SKIP 
LIN  COJNt 
PRINT  OLn 

N ,X3 

COPY  PRT  2 

COPY  PRT2 

page  no 
serv  ars 
S D2 A ZSilP 
PAGE  HE AO  +15 
COPY  PRT? 

LIN  rOJNT 
PRINT  OLD  +2 


BRANCH  IF  CARD  IS  A SEQUENCE  BReAK. 

backwards  zero  suppress  in  coljmns  7,6. 


remove  sequence  break  flag  & asterisk, 
branch  If  card  not  right  PRINT  remarks, 
deposit  right  print  in  old  line. 


branch  if  not  printing. 


translate  upspacing  notation, 
begin  swap  of  print  buffers. 


INITIALIZE  USER'S  OWN  Page  NUM3rR. 

DELETE  Any  PAGE  NUMBER  IN  CARD. 

SET  LOG  LINE  ASIDE  AS  SUBHEAD. 

BUT  PRINT  "USER'S  OWN  PAGE  NO.  1". 
skip  before  printing  log  card. 

UNLESS  IMMEDIATELY  PRECEDED  BY  Tog  CARD, 
SKIP  BEFORE  PRINTING  "P"  CARD. 

SKIP  IF  LAST  LINE  SO  SPECIFIED. 

Add  IN  UPsPAclNG  OF  LAST  LINE. 

BRANCH  if  more  ROOM  ON  THIS  PAor, 


BRANCH  IF  MUST  WRITE  ON  COPY  TA3E. 
PRINT  LAST  LINE  ON  PREVIOUS  PAor. 


BRANCH  IF  MUST  WRITE  ON  COPY  TA^E. 

Reset  line  count  to  3. 

BRANCH  IF  NO  LOG  CARDS  YET. 


L YUL  SYSTEM  PASS  o SERVICE  MODULE  USER»S  OWN  PACE  NO.  21  PAGE  8b 


P0772 

PRINT  LOG 

line  here  on 

ITS  2ND  AND 

SUBSE3JENT  APPEARANCES. 

0773 

NA 

user  Page 

s one 

PRINT  Lor, 

branch  if  log  card  already  established. 

0775 

TS 

s TWO 

USER  page 

print  old 

+ 2 

SET  PAGE  NUMBER  FOR  NEXT  TIME. 

0777 

PRINT  LOG 

SWt*  ones 

user  PAUE 

D ,4  ,L 

SeRY  ARo 

0778 

TS 

z,sc 

Z.AJl 

S D2 A ZSilP 

07.79 

TX,  C5T8 

SERV  ARG  +2 

■ 

USER  LOG  +13 

0780 

NA 

N COPIES 

s zero 

COPY  PRT? 

branch  IF  must  write  on  copy  ta3e. 

0782 

S*PHI  PRINT 

USER  LOG 

0783 

DA 

USER  PAGE 

s one 

USER  PAGf 

0784 

TS 

5 LINES 

LIN  COUNT 

PRINT  OLD 

♦2 

0785 

print  old 

NA 

N COP  1 EG 

s zero 

copy  p«t2 

BRANCH  IF  MUST  WRITE  ON  COPY  TA^e. 

0787 

S,  PH  I PRINT 

3,0 

NORMAL  WAY  OF  PRINTING  OLD  LINE. 

0789 

TX 

Z »X3 , 1 

_ 

Z,X2 

0790 

MT 

S BLAn<S 

15 

N ,X3 , 1 

0791 

TX 

L OLD  LINE 

- 

Z ,X3 

0792 

TS 

s zero 

N , X 2 

ASX  PUNCw 

FINISH  BUFFER  SWAP,  SwAB  OUT  N En  LINE. 

RO7?^ 

minor  subroutine  to  copy  j- ach  line 

PRINTED  ONTO  THE 

COPY  TA?f 

when 

more  than  one  prinjek  Run  is  required. 

0796 

COPY  3RT2 

SS 

N,SH 

A AORES 

C»  + 2 

0797 

WA 

L COP  BUFS 

S ONE 

Z,X6 

0798 

TN 

16 

N , X6 , 1 5 

COLLECT  4 LINES  BEFORE  WRITING. 

0800 

TX 

Z , SH 

COMMON 

0801 

NA 

6,3 

EOR 

COPY  EXIt 

BRANCH  IF  RECORD  NO  T FILLED  YET. 

0803 

TX 

6,4 

- 

Z,X6 

0804 

CC 

6,1 

_ 

6,65 

0805 

TS 

N,X6 

L COP  BUFS 

phi  tape 

swap  tape  buffers. 

0807 

imF  , 2 

6,1 

- 

disaster 

0808 

TX 

common 

z,sc 

0809 

COPY  EXIT 

TS 

Z,X6 

L COP  BUFS 

c,-i 

ADVANCE  POINTER  WITHIN  BUFFER. 

0811 

0813 

AS<  PJNCH  NA,  BIllO 
NA,  UHaR8 

SSWIT  CH 

PCH  card  +1 

s ones 

S ONE 

FETCH  SYm  -1 

C , + 2 

BRANCH  IF  NOT 

punching. 

0814 

0816 

tx,  chars 
s,  PUnCH  CO 

S BLANXS 
pch  card 

ALPHA 

pch  Caro  +1 

FETCH  SYm  -1 

BLANK  OUT  "1" 

IN  COLUMN  8. 

i" 
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p08l7 

close  out 

PUNCHING,  PRINTING,  TRANSFERRING,  OR  PRINTING  W 1 t h punching 

OR  TRANSFERRING. 

0819 

END  PR.  PCH 

TS 

Page  head 

N,  X3 

sel  Peek  -1 

C 

force  SP3  before  "end  of"  card. 

0821 

TX 

Z,X9*1 

- 

Z ,X6 

0822 

TS 

S BIT  1 

SLI  NE 

PHI  PEEK 

r 

PEEK  AHEAD  FOR  (HOPEFULLY)  Y OR  *. 

0829 

TN 

W END  REV 

2 

SLINE  +1 

0825 

TN 

PCH  CARD  + 2 

6 

SLINE  +3 

0826 

TN 

W LAST  ASS 

2 

SLINE  +1, 

0827 

TN 

pch  card  +8 

2 

SLINE  +13 

form  up  complete  »end  of  » line. 

0829 

na,  chari 

9,0 

Y COLYUM  1 

C , + 2 

BRANCH  IF  NEXT  CARD  NOT  A YUL  DIRECTOR. 

0831 

ts,  chari 

pch  card  +2 

SLINE  +13 

C,  + 5 

(INCLUDE  "N"  IN  "LAST  ASSEMBLED  ON".) 

O833 

na,  ChaRI 

9 *0 

astrisk 

C , + 2 

branch  if  there's  an  unused  detail  card 

0835 

TS 

Y CQLYJM  1 

6,1 

C t-2 

HIDE  ASTERISK  FROM  "END  CHECK"  IN  BNK  1 

0837 

S,  YU|_  TY^ER 

INOMAT  MbG 

AMTF  +9 

C,  + l 

CUSS  1ST  UNUSED  DETAIL  CARD  ON  CONSOLE. 

0839 

s,  yul  JY 3£R 

9,0 

A +10 

C,-2 

0890 

NA,  BlT9 

S SWITCH 

S ONES 

CLOSfeR  0 

BRANCH  IF  NOT  PRINTING. 

O892 

CLOSE  p«T 

NA 

Z,X3 

L JJNK 

C , + 2 

0893 

TS 

L OLD  LINE 

Z , X 3 

END  pR  prH 

L 

IN  case  nothing  was  printed. 

0895 

NA 

N COPIES 

s zero 

copy  prt. 

branch  if  must  write  on  copy  ta^e. 

0897 

S,  PH  1 PRINT 

3,0 

PRINT  LAST  ORDINARY  LINE. 

0899 

NA 

N COPIES 

s zero 

COPY  PR7? 

BRANCH  IF  MUST  WRITE  ON  COPY  TA^E. 

0851 

S*  PH I PRINT 

SLINE 

PRINT  "END  OF"  LINE. 

O853 

CLDSFeR  q 

na » bit  12 

s switch 

s zero 

USE  CARD  +1 

if  transferring,  send  "end  of"  card. 

0855 

NA,  BIT10 

ssw itch 

s ones 

END  PRlNr 

BRANCH  If  not  PUNCHING. 

0857 

CLOSE  PCH 

S,  puNCH  CD 

EOR 

BINARY 

C,  + l 

CLOSE  OUT  PUNCHING. 

0859 

NA,  «IT9 

SSW ITCH 

s zero 

C , + 2 

BRANCH  IF  PRINTING  ALSO. 

0861 

S,  MOn  TY3c« 

w card  DUN 

SPR  AMR  +16 

reload  Po 

announce  end  OF  CARD  OUTPUT. 

0863 

s,  mon  typer 

W CARD  DUN 

SPRA  +16 

END  PRINT 

08639 

MT 

S ZERO 

10 

N,X9, 1 

0869 

CLOSE  XFR 

NA 

Z,X9 

XFR  LIMI T 

C,-l 

0865 

EX 

EOR 

LEFT  HALF 

N , X9 , 2 

0866 

TS 

EOR 

N*X9 

XFR  LD  Kc. 

c 

0867 

S,  DISC  WRIT 

9,0 

128 

DISC  ADDq 

close  out,  send  recd  w/  "end  of»  card. 

0869 

TS 

- 

DISC  CHEK 

PREPARE  PSEUDO-CONFIRMATION  bit. 

0871 

tconfirm 

DA 

track  log 

s one 

track  log 

INCREMENT  LOG  TOWARD  JOB  LOG. 

0873 

SWE»  C1T9 

TRACK  Lug 

D , 6 , L 

TRINDEX  + 2 

08732 

TS 

- 

- 

DISCAP 

c 

08733 

OCT 

-1 

08739 

SPEC 

TRINDEX 

LOOK  UP  each  track,  then  MODIFY  INDEX. 

08736 

TS 

S ONE 

TRINDEX  +9 

C,  + 2 

plant  PSEUDO-CONFIRMATION  bit. 

06738 

TS 

- 

_ 

DISASTER 

clean  OUT  SUPERFLUOUS  bits  in  address. 

0879 

TX 

CHAS  2500 

_ 

TRINDEX  +5 

0876 

TS,  C 1 79 

TR I INDEX  +2 

TRINDEX  +5 

DISCAP 

c 

0877 

OCT 

-12 

PLANT  PSEUDO-CONFIRMATION  BIT  IN  INDEX. 

0879 

SPEC 

TRINDEX 

0880 

NA*  C 1 79 

TRINDEX  +2 

YUL  LOG 

tconfirm 

0681 

SWS,  CHARS 

page  head  +1 

A»1  'L 

W CD1MS  nN  +2 

PUT  1800  SUFFIX  LETTER  IN  MESSAGE. 

0683 

NA,  B179 

s switch 

S ZERO 

C , +2 

branch  if  printing  also. 

0885 

s,  mon  ty^er 

w CDIMS  ON 

SPR AMR  + 29 

RELOAD  =>0 

ANNOUNCE  "CARD  IMAGES  ON  DISC  X». 

0886 

s,  non  ty?eR 

w CD  I MS  ON 

SPRA  +29 

END  PRINT 

L YUL  SYSTEM  PASS  o SERVICE  MODJLe 


P08&75 

RUN  COPY 

fAPE  ONTO  PRINTER  AS  RtQUIRED,  A\jD  EnD 

TASK. 

0888 

.end  print 

LA 

n copies 

s zero 

RJNOJl  Pp 

0890 

NA 

Z,X  6 

L.  CdP  BJFS 

C,  + 3 

0892 

TS 

L BLANCO 

Z,X2 

Copy  prt2 

0894 

TS 

2,0 

2*0 

C,-2 

0895 

S,  MOn  EOPRI 

COPY  DP 

- 

S ZERO 

0898 

COPIES 

TS 

S TWO 

Z,R2 

phi  tape 

0899 

RW»2 

- 

- 

- 

0900 

TS 

L COP  BUFS 

Z * X 4 

PHI  TAPE 

0902 

RF  » 2 

4,1 

- 

disaster 

0904 

NA 

Z ,R2  » 1 . 

S ONE 

C ,-2 

0905 

wD 

N COPIES 

paper  ply 

N COPIES 

0906 

TS 

- 

GET  LOG  mO 

0907 

SWS,  D8T12 

Z,SC,A 

16 

N,  AJ2 

0909 

PRINT  COP 

S,  PH I PRINl 

3,1 

0910 

S,  PH i PRINT 

3,17 

0911 

S,  PM!  PRINT 

3,33 

0912 

S,  PH i PRINT 

3,49 

0913 

TX 

Z,X4 

- 

Z,X3 

0914 

TS 

N ,X3 

Z , X 4 

PHI  TAPE 

0915 

RF  , 2 

4,1 

- 

disaster 

0917 

na*  banbits 

3,1 

BAN  EOFRI 

PRINT  COo 

0918 

TS 

Z,Xa 

Z,X2 

phi  tape 

0920 

RF , 2 

- 

- 

- 

0922 

NA 

n copies 

PAPER  PLY 

copies 

0924 

TS 

Z,X2,1 

- 

phi  peek 

0926 

NA,  CHARI 

4,0 

ASTR1SK 

C , + 2 

0928 

TS 

z , SC , i 

- 

MON  RLE A<; 

0930 

TS 

- 

- 

phi  tape 

0931 

RW , 2 

- 

- 

- 

0932 

RUNOJI  PR 

TS 

S 4SPACE 

N , X 2 , 1 

get  log  no 

0933 

SWS,  D8T12 

S ZERO 

N,AJZ 

0934 

MT 

S BLANKS 

15 

N ,X2  * 1 

0935 

WD 

Z,X2 

OCTAL  20 

Z ,X2 

0936 

S,  PHI  PRINT 

2,0 

0937 

S,  PH I PRINT 

2,0 

0938 

S,  PH  I PRINT 

2,0 

0940 

5,  MOn  TY  3ER 

W LIST  DUN 

SPR AMR  +16 

- 

0942 

RELOAD  Pq 

S,  MON  TY=ER 

s blanks 

SPRA  +8 

0943 

S,  PH i LOAD 

W PASS  0 

2 

BASE  AODo 
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branch  if  one  printer  run  was  enough, 
branch  when  last  copy  buffer  closed  ojt. 

FILL  OUT  LAST  COPY  BUFFER. 

CLOSE  OUT  COPY  TAPE. 


fetch  buffer  addresses. 

SPACE  OVER  LABEL,  READ  FIRST  LI^e. 


CLEAR  MONITOR'S  PRINTLINE  COUNT  rR  6 TAB. 


READ  AND  SWAP  BUFFERS. 


(IN  CASE  X2  WAS  SET  TO  BLANCaRD) . 

finish  reading  second  eofki. 
branch  if  more  runs  are  needed, 
xa  has  an  ok  value  here, 
branch  if  another  yul  task  follows, 
otherwise  release  copy  tape. 


Force  last  lines  through  BUFPRIMT. 

ANNOUNCE  end  OF  LISTING. 


reload  pass  o and  do  next  task  (if  any) 
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L YUL  SYSTEM  PASS  o SERVICE  MODJLE 

P0995  PROCEDURE  IN  THE  SeRVICe  MODULE  TO  ENSURE  THAT  THf  BACKUP  YULPROGS  IS  BROUGHT  ENTIRELY  UP  TO  DATE  AT 

R09A7  THE  EMD  OK  eALH  JOB,  AND  10  CHeCK  WHETHER  THe  3ACKUP  IS  JP  TO  DATE  AT  THE  BEGINNING  OK  A JOB.  THIS  AIM  IS  AC- 

R0999  COMPLISHeD  IN  0NE  OF  |W0  WAYS:  IF  AN  ASSEMBLY  (NOT  ReUeCTe^  AS  A BAD  MeRGe)  HAS  BEeN  ReCORDeD  ON  ONe  TAaE  BJt 

R0951  NOT  0^  THE  OTHEr,  THe  CURRENT  YULPROGS  IS  COPIED  IN  IjS  ENTIRETY  ONTO  A WORKER,  WHICH  THEN  BECOMES  THE  NEW 

Rq953  YULPROGS.  IF  A DELETION  OR  0 [ HtR  "FILe-MAINteNANCE"  ACTIVITY  (ONe  THAT  AFFECTS  THE  LABEL  RECORD  ONLY)  HAS  BeeN 

Rq955  RECORDED  ON  ONE  TAPE  3UT  NOT  ON  THE  OTHER*  THe  BACKJP  IS  CALi  eD  FOR  AND  ITS  LABeL  RECORD  IS  AMeNDeD,  THE  ENTIRE 

r0957  COPY  OCCURS  IF  at  THE  BEGINNING  OR  ENp  OF  A JOS  LOCATION  7*0000  CONTAINS  6039  0020  0020  0001.  IT  CAN  O-CjR  AT 

R0959  THE  3- GINNING  OF  a JD3  WHEN  A BACKUP  TAPE  IS  MOUNTED  AS  THE  PRINCIPAL  YULPROGS.  THIS  IS  TYPICALLY  DONe'wHeN  THE 

R0961  REGULAR  YULPROGS  HAS  3eEN  CLOBBERED  IN  SOME  WAY.  AN  ASSEMBLY  PLACES  THIS  PATTERN  IN  7,0000  AS  SOON  AS  IT  IS  AS- 

R0963  SUPeD  OF  NOT  BElNG  R-JeCTeD  FOR  BAD  (MERGING.  wHeNE^E*  A NEW  YULPROGS  IS  MADE  AT  THE  END  OF  A JOB,  jHE  PORMER 

r o 9 6 5 back J3  is  called  for  and  .returned  to  worker  staus.  label  amendment  is  evoked  at  either  end  of  a job  3y  the 

R0967  PATTERN  6039  oozo  0020  0002  in  7,0000.  THIS  is  GENERATED  3Y  deletion,  ADDING  A NEW  computer  name,  PUNCHING  A 

r0969  MASTER’  DECK , EIC.  A DIRECTORY  LISTING  IS  PRINTED  AS  DeSCR I 3pD  BELOW , BUT  IT  IS  CALLED  AN  "AMeNDeD"  LISrING. 

P0971  group  b prints  a directory  listing,  fjR  each  established  computer*  the  software  status  is  Printed* 

R0973  and  The  programs  and  SUBROUTINES  FOR  That  COMPJIeR  are  LIsFEp,*  WITH  REVISION  NUMBER*  Author,  DATE  LAsl 
R0975  ASSEMBLED,  EXISTENCE  DF  BINARY  ReCORD  (PROGRAMS)  OR  CONTROL  STATUS  (SUBROUTINES),  AND  LIST  OF  SUBSIDIARY  SUB- 

R0977  ROJTINEG  uIVeN  F0R  EACH.  ESTABLISHED  AUTHORS  ARE  LISteD,  wlfH  THe  NUMBER  OF  PROGRAMS  AND  SUBROUTINES  CREDITED 

R0979  TO  EACH.  WHEN  THe  LISTING  IS  FINISHED,  GRqUP  3 HJ-ISTS  A FLAG  AND  EMPIRES. 


0981 

BAcK  J 3 

TS 

s zero 

COMMON 

SET  jP  GdB  C 

communication 

FLAG 

for  end. 

0983 

TS 

Z , SC  , 9 

NiSH 

MON  WAKE  C 

098A 

BK 1 VIA 

xo  TX 

L BANK  1 

• 

z,xo 

0985 

TX 

L DIREC1Y 

- 

Z,X1 

0986 

TX 

PHI  WAA 

- 

Z.X6 

0987 

TS 

YUL  MASKS 

Z,^XR 

LIST  LA3i" 

START  GROUP  B 

GUING 

ON  LISTING. 

0989 

TX 

1.1 

YJL  8 J MsG  *-1 

0991 

NA,  CHAR8 

1 *0 

5 DML 

AMENO  Bj, 

branch  if  only 

MUST 

AMEND  BAC<J3  label 

L YUL  SYSTEM  PASS  o SERVICE  MODULE 


P0993 

PROCEDURE 

TO  MAKE 

A WORKER  INTO  A NEW 

YULPROGS. 

09  9 A 

S,  YUL 

ty3er 

YUL  BU  MSG 

A + A 

C,  + l 

0996 

TX 

1 , 1 

- 

SNATCH  Ta 

0997 

TS 

1,2 

SNATCH  t 5 +3 

Mon  rle a^ 

0999 

YUL  PROP 

RW  , 1 

- 

- 

- 

1000 

DA,  C?T8 

1,2 

S ONE 

1,2 

1002 

SNATCH  T 6 

TS,  C1TA 

YUL  LOG 

1,2 

PHI  SNACH 

100A 

ALF  , 3 

N00U0006YULPRUGSLl.LLRRSS 

1005 

TS 

S ONE 

TASK  2 

PHI  TAPE 

1007 

RW  , 6 

- 

- 

• 

1008 

S,  MON 

TA  DDR 

COPY  OP 

1010 

TS 

Z , SC  , l 

- 

MDN  RLE As 

1012 

TX 

Z,SC,1 

— 

- 

1 0 1 A 

RW , 2 

- 

- 

- 

1016 

TS 

L BUF  3 

Z,X5 

PHI  SNACw 

1018 

ALF  ,3 

WlOYOiOlNEWYULPR 

1019 

TS 

L BUF  2 

Z,Xa 

POSH  YUL 

1021 

TS 

S STOPPtR 

Z,X2 

PHI  TAPE 

1022 

RF , 6 

2,0 

- 

* 

102A 

TX 

L BUF  1 

- 

Z t X 3 

1025 

TN 

OK  BANNtR  +3 

3 

OK  BANNEo 

1027 

TS 

L BUF  3 

Z , X 2 

phi  iape 

1028 

RF , 6 

2,0 

- 

- 

R 1 030 

LOOP  TO  COPY  OLD 

YUL  -FROGS  TO  NEW. 

1032 

BAKU?  LUP 

TS 

Z,X3 

Z,X2 

PHI  TAPE 

103A 

RF , 6 

2,0 

- 

DISASTER 

1036 

TX 

Z , XA 

_ 

Z,X3 

1038 

NA,  CAC3 

5,0 

TAS<2 

CLOBBERD 

10A0 

LA,  BANB I T a 

5,0 

S ZERO 

1 NC  ReCNo 

10A2 

NA,  BaNBI  [ 5 

5,0 

oK  banner 

CLOBBERD 

1 0 AA 

TN 

OK  BANNER  +1 

2 

OK  BANNER 

10A6 

INC  RECNO 

wA 

TASK2 

S ONE 

TASK2 

40A7 

NA,  BaNBI TS 

5,0 

BAN  EOFRI 

C ,+sr 

1 0 A9 

S,  MON 

EO"  R I 

Y 01  PPOP 

5.0 

1051 

, 

TS 

Z , SC  , 3 

- 

~M?N-RLEA^ 

1053 

TS 

Z,X5 

Z , X A 

PHI  TAPE 

1 0 5 A 

WF,  1 

A , 0 

- 

disaster 

1055 

TS 

Z ,X2 

Z,X5 

3AKUP  LUP 

1056 

RW , 6 

- 

- 

• 

1058 

TS 

L BUF  3 

Z , X 3 

phi  tape 

1059 

RB,  1 

3,0 

- 

shorten 

1061 

TS 

Z,SC 

COMMON 

MqN  waKe 

1063 

TS 

C,+0 

C , - 1 

C , -3 
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ANNOUNCE  TASK  ON  TYPEWRITER. 

RELEASE  YULPROGS,  PREPARE  RESNAfCH. 

increment  yulprogs  serial  numbf*. 
resnatch  yulprogs,  protect  and  sAVE. 

PLAY  SAFE  WITH  T6. 

SKIP  IF  WE  POSSESS  A 1 APE  2. 

yes,  so  we  must  release  it. 

NO,  so  skip  again. 

(goes  with  release  call  above). 

SNATCH  WORKER  AS  NEW  YULPROGS. 

POSITION,  LIKE  OLD  TAPE,  AFTES  LA3EL. 

BYPASS  label  on  OLD  YULPROGS. 

INITIALIZE  CHECKING  FUNCTION  IN  COPYING. 

READ  FIRST  RECORD  TO  BE  COPIED. 

the  dance  OF  the  index  registers,  AS  IN 
PASS  3,  THE  EFFECT  BEING  AN  EFFICIENT 
AND  QUIET  TRIPLE-BUFFERED  COPY  -)F  OLD 
YULPROGS  TO  NEW. 

BRANCH  IF  RECORD  NUMBER  IS  WRONG. 

BRANCH  ON  GOOD  ReCD  NO.  AND  ZERt  BANNER. 

BRANCH  IF  WRONG  banner  bits. 

MOVE  NeXT  legal  banner  CONFIG.  JP. 

branch  unless  about  to  WRITE  1 s T EOFRI.  )*'  ^ * 

close  new  YULPROGS  OSTENTATIOUSLY ' SHU 

1N0W  RELEASE  ~OLu  yulprogs  FOR  oOtD.'  \ 

^ f/rrcrf 


goes  with  release  call  above* 

read  backward,  branching  at  beginning, 
signal  end  of  copying  Loop. 

SAVE  TIME  by  DOING  THAT  UUST  ONCE. 


I 
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P1065 

PR3C£0UR£  70  SHORieN  =AbE*-  PACKING 

UP  JSeD  WqROS 

and 

Re^ai  uing 

THe 

threads,  using  something  similar  in  Form 

R 1067 

TO  A 

simple 

; TWO-PASS  ASSEMBLER. 

this 

page;  pass  i, 

Leaving  rank  7 

ADDRESSES  IN  Bank  5. 

1069 

shorten 

TX 

BANK  5 

_ 

Z,X3 

1070 

TX 

Z ,X3 

- 

Z»R1 

1071 

TX 

Z,X3 

- 

Z.R2 

distribute  Bank  5 INDICATOR  to  71,2. 

1073 

TX 

1,8 

- 

Z,X2 

1 0 7A 

RT 

1 ,6 

N,X2 

3,6 

COPY  label  into  bank  s. 

1076 

’ INI  T 

SLOT 

TX 

INI T WO 

8 

- 

1,8 

1077 

TX 

INI T WD 

8 

- 

Z,X2 

PREPARE  TO  BUILD  SHORTER  LABEL  IN  BN<  7 

10  79 

sws,thkeadio 

3,9 

32 

Z ,R1 

bank  5 (old)  address  of  first  c-,mputer. 

1081 

ts 

S ONES 

3,6 

LAST 

COM 

Q 

MAKE  ANY  TERMINAL  THREAD  LOOK  Af  ONES. 

1083 

MOYe 

COMP 

TN 

N,Rl 

2 

N,X2 

move  computer  name  wuh  softwart  status 

1085 

TX 

Z »X2 

- 

N ,R  1 

LEAVE  FORWARDING  ADDRESS. 

1087 

SWS.ThREAOIO 

N,X2 

0 

Z,Ri 

THREAD  TO  NEXT  COMPUTER  (OLD  ADoRfSS). 

1089 

SWS,  THREAOlO 

N , X 2 * 2 

12 

Z,R2 

B5  thread  to  programs  of  computer. 

1091 

ts 

Z ,R2 

Z,R3 

LAST 

PRG 

Q 

PUT  BANK  INDICATOR  5 IN  R3. 

1093 

MOVE 

3SR 

TN 

N»R2 

2 

N,X2 

main  word  pair  of  prog/sub  entrv. 

1095 

TX 

Z,X2,i 

m 

N ,R2 

LEAVE  FORWARDING  ADDRESS. 

1097 

SWS, THREAOlO 

N,X2 

0 

Z,R2 

THREAD  TO  next  PROG/SUB  OF  COMPJTER. 

1099 

NA,  BiT25 

2,0 

S 01E5 

last 

PRG 

Q 

-1 

BRANCH  IF  PROG/SUB  HAS  NO  SUbRO JT I NES, 

1101 

sws'Threaoh 

N ,X2 

2 A 

Z,R3 

THREAD  to  WORD  3 (1ST  SUBRO  THREAD  WD). 

1103 

SM 

Z , X2 , 1 

Z,SC,1 

- 

1 1 0 A 

SWSiTHREAOl 1 

Z.AUl 

0 

Z,R3 

THREAD  TO  NEXT  WORD  OF  SUBRO  THREADS. 

1106 

TS 

N,R3 

N,X2 

PJT 

1 wOpD 

c 

STORE  THREAD  WORD  PENDING  CheG<. 

1108 

SSL,  FOUR 

Z,AUl 

9 

C,-2 

after  check,  step  back  if  moke  thredwds 

1110 

TX 

Z,X2,1 

- 

- 

(done  for  suBRo-Ltss  program  or  subro). 

1112 

LAST 

3RG  Q 

NA 

N,R2 

S ONES 

move 

PSR 

Branch  if  MORE  PROG/SUBS  FOR  T H I S COMP. 

1 1 1 A 

LAST 

COM  0 

NA 

N*Rl 

S ONES 

move 

COMd 

branch  IF  more  COMPUTERS  to  MO Vr • 

1116 

SWS, THREAOlO 

3,9 

16 

Z,R1 

BANK  5 ADDRESS  OF  FIRST  AUTHOR  MAME. 

1118 

LA 

S ONES 

N,Rl 

las 

AJTH 

U 

♦ 1 

BRANCH  if  THERE  are  no  authors. 

1120 

MOVE 

AUTN 

TN 

N , R 1 

2 

N»X2 

move  1ST  half  and  threads  OF  AJtHoRNAME 

1122 

TX 

Z »X2  » 1 

N , R 1 

leave  FORwARp I NG  ADDRESS. 

1 12A 

SWS, THREAOlO 

N,X2 

12 

Z , R 1 

THREAD  TO  NEXT  AUTHOR  NAME. 

1126 

sws,threaoii 

N,X2,1 

0 

Z,R3 

THREAD  TO  2ND  HALF  OF  AUTHOR  NAME. 

1128 

TS 

N,R3 

N,X2 

PUT 

1 WOOD 

c 

STORE  LIKE  PROG/SUB  THREAD  WORD,  ABOVE. 

1130 

LAS 

auth  q 

NA 

N ,R  1 

S ONES 

move 

AJTN 

BRANCH  IF  MORE  AUTHOR  NAME'S  TO  MOVE. 

1132 

sws»threaoio 

3,9 

0 

Z,R1 

BANK  5 ADDRESS  OF  FIRST  DELETE. 

1 13A 

lA 

S ONES 

N , R 1 

las 

dele 

0 

+ 1 

BRANCH  If  THERE  are  NO  DELETES. 

1136 

MOV 

oeles 

TN 

N,Rl 

2 

N,X2 

move  delete  entry. 

1138 

TX 

Z,X2,1 

N,Rl 

LEAVE  FORWARDING  ADDRESS. 

llAO 

SWS, THREAOlO 

N , X 2 , 1 

0 

Z,R1 

THREAD  to  next  delete. 

11A2 

LAS 

oele  q 

NA 

N,Rl 

s ones 

MOV 

OELEc 

branch  if  more  deletes  to  move. 

1 
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• shortening 

PROCEDURE  continued:  pass 

2,  USING  SJ3aDqReSSES  Im  BANK 

7 

to  reference  locations  in  bank  5 containing 

*1146 

NEW  SJBADDReSSeS  FOR  3anK 

7.  IN  OT^eR  words  fill 

in  definitions  of 

SYMBOLS. 

1H8 

ss 

Z 

»X2 

S CAC  3 

1.8 

store  length  OF  SHORTENED  LABEL. 

1150 

TX 

S 

END  Thr 

- 

3,6 

CLOSE  TERMINAL  THREAD  ON  ITsELF. 

1152 

SWS» IHREAD10 

3 

,9 

32 

Z,Rl 

BANK  5 ADDRESS  OF  FIRST  CoMPUTFR. 

1 1 5A 

SWS,  CACl 

N 

,R1 

32, L 

1,9 

...YIELDS  BANK  7 ADDRESS  OF  DlTrO. 

1156 

IX 

Z 

, R 1 

- 

Z,AJ2 

SUPPLY  BANK  5 INDICATOR  TO  AU2. 

1158 

TS 

N 

*Rr 

Z»R4 

CMPS  DJN  Q 

115^ 

XFORM  CMP 

SWS*THREA010 

N 

,R4 

12 

Z,R2 

1160 

SWS.BJHRE010 

N 

,R2 

12, L 

N , R A 

Revalue  thread  to  first  program/Sjbro. 

1162 

SWS.THREA01O 

N 

,R4 

0 

Z,R1 

1163 

SWS,THREAD10 

N 

,Rl 

0 

N,R4, 1 

revalue  thread  to  next  computer. 

1165 

TS 

Z 

,R4 

Z,AJl 

4 THREAOa 

c 

revalue  all  four  SOFTWARE  threads. 

1167 

TS 

N 

,Rl 

Z,R4 

10  BIT  THR 

set  up  thread  to  next  computer  name. 

1169 

XFORM  PSR 

WA 

N 

,R2 

S ONE 

Z,X2 

1170 

TS 

Z 

,X2 

Z , A J 1 

2 THREADS 

c 

revalue  author  and  prog/Subro  threads. 

1172 

SW5,ThREAD10 

N 

,X2 

0 

Z,R2 

SAVE  PROGRAM/SUBROUI INE  THREAD. 

1174 

SWS.ThREADIO 

N 

,R2 

0 

N,X2 

1175 

NA,  Bit  25 

2 

,0 

S ONES 

PSRS  DJN  Q 

PROG/SUBRO  WITHOUT  SUBROUTINES  IS  DONE. 

1177 

SW3*THKEADll 

N 

»X2 

24 

Z ,R3 

THREAD  TO  WORD  3 (1ST  SUBRO  THR-AD  WD) . 

1179 

SWS»AThRE0U 

N 

*R3 

24, L 

N,X2 

revalue  thread  to  word  3. 

1181 

TS 

N 

,R3 

Z.AJl 

3 THREADS 

c 

FIRST  SUBRO  THREAD  WORD  HAS  3 THREADS. 

1183 

MOR  S JBW  U 

SSL,  ONE 

N 

, AUl 

11 

C,  + 3 

BRANCH  IF  just  ONE  SUBRO  THREAD  WORD. 

1185 

SWS , T HREAD 1 1 

N 

,AUl 

0 

Z,AJi 

FOLLOW  THREAD  TO  NEXT  SUBRO  T H R r A D WORD. 

1187 

TS 

L 

MOR  SbWQ 

z,sc 

4 THREADS 

c 

SUBRO  THREAD  WORDS  HAVE  UP  TO  A THREADS. 

1189 

TX 

Z 

, SH 

- 

z,sc 

c 

DO  11-BIT  thread  and  go  around  again. 

1191 

10  bit  thr 

TX 

z 

, CSC , 3 

_ 

- 

r 

DO  10-BIT  thread  at  end  OF  PROo/SJB  PRC. 

1193 

PSRS  }JN  U 

NA 

N 

,R2 

S END  thr 

XFORM  PSd 

branch  If  more  prog/subs  for  his  comp. 

1195 

CMPS  DUN  u 

NA 

Z 

,R4 

s end  thr 

XF0RM  CMP 

branch  if  more  computers  to  reYalje. 

1197 

SWS.THREADIO 

3 

,9 

16 

Z.R1 

bank  5 address  of  first  author  name. 

1199 

SWS,  CAC2 

N 

,R1 

16, L 

1,9 

revalue  thread  to  FIRST  author. 

1201 

TS 

N 

,R1 

Z , R 4 

AJTS  DJN  Q 

1202 

XForM  aUj 

TS 

Z 

’ R4 

Z.AJl 

3 THREADc 

r 

author  thread  word  has  3 THREADS. 

1204 

SWS  , T e-jR E A j 1 1 

N 

,R4 

12 

Z ,R4 

Q 

1205 

AUjS  DUN  Q 

NA 

Z 

,R4, 1 

S END  thr 

XFORM  AJt 

branch  if  more  authors  to  Revalue. 

1207 

SWS.THREADIO 

3 

,9 

0 

Z , R 1 

bank  5 address  of  first  delete. 

1209 

SWS,  CAC3 

N 

,Rl 

0 

1,9 

revalue  thread  to  first  delete. 

1211 

TS 

N 

,R1 

Z , R A 

dels  djn  q 

1212 

XFORM  DEL 

SWS.THREADIO 

N 

,R4 

0 

Z , R 1 

1213 

SWS « CAC3 

N 

,Rl 

0 

N,R4 

revalue  Thread  to  next  delete. 

1215 

TX 

N 

,R4 

_ 

Z.R4 

1216 

dels  DUN  q 

NA 

Z 

, R4 * 1 

S END  thr 

XFORM  Dei' 

branch  if  more  deletes  to  revalje. 
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P 1 2 1 8 

TERMINATION  of 

FULL  COPY,  WRITE  SHORTENED  LaBeL 

RECORD  ON  NpW 

YULPRoGS 

AND  INSTALL  It  IN  OFFICE. 

1220 

TS 

1,1 

NOW  OP  MSS 

+3  PHI  TAPE 

1221 

RB» 

1 

- 

- 

1222 

NA, 

CHAR8  1,0 

S ONE 

C»  + 2 

branch  if  full-copy  flag  IS  now  off. 

1224 

LA 

REVERT  ID 

s zero 

C,-l 

WAIT  FOR  SEQUENCE  # OF  FOKMeR  3aC<UP. 

1226 

TS, 

charo  s zero 

1,0 

label  YJl 

label  AND  UPGRADE  new  YULPROGS. 

1228 

TS 

S ONES 

COMMON 

mon  wa<e 

c 

SHOW  END  OF  READBACK  IF  We  GET  HERE  1ST. 

1230 

BKJP-5T0P  TS 

- 

- 

GROUP  NAP 

1231 

S, 

MOim  T Y3£R  now  OP  MSG 

SPR  AMR  +32 

Reload  ?n 

replaces  bkup  stop  when  group  a is  done. 

R1233 

MINOR 

subroutine 

TO  3 

.ACE  A SINGLE 

WORD  IN  the  NEW 

label  area. 

1234 

PUT  1 ' 

WORD 

SWE, 

CAC3 

1,8 

32 

Z*AU2 

c 

address  of  First  i-word  empty  S3ACE. 

1236 

tx 

N,R3 

- 

Z , AU1 

c 

SAVE  RIGHT  12  BITS  OF  WORD. 

1238 

NA 

Z.AU2 

s end  thr 

INSERT  Wn 

c 

branch  if  there  is  a hole  for  it. 

1240 

TX 

Z,X2»1 

„ 

N,R3 

c 

leave  forwarding  address. 

1242 

sws , 

CAC1 

Z*AU2 

32, L 

N,X2 

c 

place  terminal  thread  in  hole. 

1244 

sws , 

CAC 1 

Z,X2,1 

32, L 

1,8 

RECORD  PRESENCE  OF  HOLE,  EXIT. 

1246 

INSER 1 

WD 

TX 

N,R3 

. 

N,AU2 

c 

place  word  in  hole* 

1 2 AS 

TS 

Z,AU2 

N , R 3 

init  Slot 

c 

LEAVE  FORWARDING  AqoRESS,  RESET  TrREAo. 

r1250 

FOUR  Mil  NOR 

subrout INeS 

to  Revalue 

FROM  one  to  FOUR 

THREADS 

in  the  word 

AT  N.AUl,  TEN-BIt  THREADS  ARe  AsSUMeD. 

1252 

4 

THREADS 

SWS.ThREAOIO 

n,aui 

36 

Z,AU2 

r 

L 

1253 

SWS.OtHREDIO 

N,AU2 

36, L 

N,  AU1 

c 

REVALUE  OPCODE-FIELD  THREAD. 

1255 

3 

THREADS 

sws  , t HREA  010 

N , A U 1 

24 

Z.AU2 

c ■ 

1256 

SWS,ATHRE0lO 

N,AU2 

24, L 

N,AU1 

c 

revalue  a-address-field 

thread. 

1258 

2 

THREADS 

SWS,THREA010 

N,AU1 

12 

Z , AU2 

f 

1259 

SWS.BtHREOIO 

N.AU2 

12,  L 

N.AUl 

REVALUE  B-ADDRtSS-F i eld 

thread  (\N0  exit. 

1261 

1 

THREAD 

SWS»THREAOll 

N,AUI 

0 

Z , AU2 

c 

back  INTO  CSC  MODE  GETS 

11-BIT  THREAD. 

1263 

SWS,THREAoll 

N , AU2 

0 

N.AUl 

£ 

1264 

SWS,  ONE 

s zero 

0 

Z , AU2 

1265 

SWS,THREA0lO 

N»AU1 

0 

Z.AU2 

c 

I NCR  CSC  BY  3 AND  DITTO 

for  io-bit  thrd. 

1267 

SWS,THREAolO 

N , AU2 

0 

N , AU 1 

1 
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amend  label 

. of  backup  tape. 

1269 

amend  bjl 

SWS.  CHAR  3 

GROUP  A 

A , 5 , L 

ASAM3  MSr, 

12692. 

5 * MOn  T Y 3 ER 

asamb  msg 

SPRAMR  +32 

- 

"ASA  TO  AMEND  BACKUP  TAPE  LAbELi" 

12694 

TX,  CHAR3 

ASAMB  MSG 

- 

S ACA  DTHE 

12696 

S,  M0N  TY3£R 

S ACA  OTHE 

SPRA  +16 

AMEND  SC 

"ACA  OTHERWISE" 

1270 

amend  asT 

STOP 

- 

S 

12702 

TS.  CHAR8 

S ZERO 

1,0 

C * + 1 

S 

wipe  out  amend  flag  after  Refusal. 

12704 

NA 

BKUP  STOP 

bkjs  stop  +i 

Group  nap 

WAIT  FOR  GROUP  B to  FINISH  Li Sn  No, 

12706 

S,  MON  TV 3 £R 

S SIGH 

SPR  AMR  +8 

reload  Po 

" (SIGH) " 

12708 

amend  sc 

TS 

- 

- 

amend  asT 

r 

ARA  OR  DON  A AMENDS  BACKUP  TAPE  LABeL 

1271 

DS,  C7T8 

1,2 

S ONE 

SNATCH  36  +2 

1272 

TS 

1 , 1 

SNATCH  B6  +1 

PHI  SNACH 

1273 

SNATCH  B6 

ALF.2 

NQ0/0006YULPROGb 

1274 

DEC 

GGGGGo  GGG  000 

SNATCH  BACKUP  TAPE  FOR  RELABELING. 

1276 

TS 

L BUF  3 

Z , X 2 

PHI  TAPE 

1277 

RW.6 

- 

- 

- 

1278 

TS 

L BUF  3 

Z , X 3 

PHI  TAPE 

1279 

RF » 6 

2 ,0 

_ 

- 

read  label  into  temporary  area. 

1281 

WD 

1,8 

Z,X1 

Z »X4 

1282 

wA 

Z,X3 

Z,Xa 

Z,X3 

locate  end  OF  new  LABEL  IN  TEMP,  area 

1284 

TS 

1,8 

Z,X4 

PHI  TAPE 

1285 

RF  * 6 

- 

- 

- 

1286 

LA.  CaC3 

2,8 

1,8 

C , + 2 

BRANCH  IF  BACKUP  LABEL  IS  NO  LONGER. 

1288 

TX 

2,8 

_ 

Z,X3 

STRETCH  label  RECORD  out  TO  OLD  LeNGT 

1290 

TS 

1,5 

2,5 

MON  UNLOkr 

c 

1291 

WF , 6 

- 

- 

unlock  backup  before  relabeling  it. 

1293 

IT 

1,6 

N,  Xa 

2,6 

move  new  facts  into  temporary  area. 

1295 

CC 

N ,X2 

- 

N,X3 

1296 

TS 

2,1 

S FIX  SN  +1 

phi  labei 

1297 

wF  . 6 

2,0 

- 

- 

WRITE  AMENDED  LABEL  ON  BACKUP  TAPE. 

1299 

TS 

2,2 

S FIX  SN  +2 

PHI  SnACm 

1300 

S FIX  SN 

ALP  .3 

NOO/OIOoYULPROGS 

undo  evil  effects  of  labeling. 

1302 

TS 

- 

- 

MON  RLE AS 

1303 

RW.6 

- 

- 

- 

PUT  BACKUP  TAPE  BACK  ON  SHELF. 

1305 

TS 

- 

- 

MON  JNLDK 

c 

1306 

WF  ♦ 1 

- 

_ 

unlock  current  tape  before  relabeling 

1308 

NA 

BKUP  STOP 

BKJ3  5 J o P n 

GROUP  NAP 

SLEEP  UNTIL  GROUP  B FINISHES. 

1310 

TS,  CHAR8 

s zero 

1*0 

label  yjl 

NOW  write  CLEAN  LABEL  ON  CURRENT  tape 

1312 

s,  mon  tv3er 

BUReL  Msg 

SP^MR  4-16 

reload  p0 

type  "BACKUP  RELABELED". 

R 1 3 1 4 

SUBrDJiTINE 

IN  5ErvICE  module  to  comb 

ine  the  functions  of  the  monitor 

DEClMAL-TO-ALPHABETlC  CONVERTER  AN}  LEFT 

r1316 

zero  suppressor.  Set  lip  argument  in 

SeRV  aRG,  S^jUeMCe  CALL  WItH 

return  in  au1#  use  either  Result  qR  both. 

1319 

S D2A  ZSUP 

Tx 

Z.AUi 

- 

serv  ARG  +2 

save  return  during  trip  to  bank  i. 

1321 

TS 

Z,SC 

Z * A J1 

YJL  D2 A 7 S 

1322 

SERV  ARG 

reserve 

1 

1323 

TX 

N.SC.l 

. 

Z.AUI 

1324 

RESERVE 

1 

1325 

TX 

N ,SH , 2 

- 

SERV  ARG 

1326 

TS 

N , SH 

SERY  ARG  ♦ 2 

N » AUl 

MOVE  RESULTS  TO  THIS  BANK  AND  EXIT. 

* 


r 


i 
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1328 

GrO  UP 

B ACTIVITY  LURING 

YULPROGs  COPY 

* PR  I Nt I Ns 

A COMPLETE  OtRECTORY 

LISTING. 

1330 

LIST 

_ABL 

tx 

YUL  LOG  A 

_ 

PAGE  HEAD 

+ 1 

1331 

TN 

mntn  line 

4 

page  head 

+ 2 

announce  yjl  system  maintenance  fcn. 

1333 

SWS » C7T 8 

1,1 

A , 2 ,L 

BKUP  L1NF 

*2 

1334 

SWS,  C1T6 

1,1 

A, 2 ,L 

BKUP  LINp 

+ 3 

PUT  ACTUAL  NAME  OF  TAPE  INTO  PAGE  HEAO. 

1336 

NA , CHAR8 

1,0 

S ONE 

C»  + 2 

branch  if  not  doing  full  backup  copy. 

1338 

TS 

1,2 

COMMON  +1 

C , + 3 

OTHERWISE  listing  is  OF  CURRENT  tape. 

1340 

TX 

W AMENDED 

- 

N , A J2 , 1 

INSERT  "AMENDED"  INTO  PAGE  HeAO. 

1342 

DS,  G7T8 

1,2 

S ONE 

COMMON 

SUPPLY  SERIAL  NO.  OF  BACKUP. 

1344 

TX 

B ARG 

_ 

SERV  arg 

1345 

SWS*BlTHRJ'12 

COMMON  +1 

D*9,L 

SERV  ARG 

1346 

TX 

Z , AU2 

» 

Z,X5 

1347 

TS 

Z,SC 

Z,AJl 

S D2A  ZSiiP 

convert  yulprogs  serial  number  to  alpha 

1349 

TN 

BKUP  i_  I uE 

4 

N,X5  ' 

1350 

TX 

SeRV  ARu 

- 

N,AJ2 

put  SERIAL  no.  in  page  head. 

1352 

IN 

YUL  DATE 

2 

PAGE  HEAD 

+ 12 

1353 

TX 

S BLANKS 

- 

N,AJ2 

1354 

TS 

L NEW  LINE 

z,x2 

INIT  PR Nt 

C 

set  up  front  page  cover. 

1356 

SWE , CAC3 

1,9 

32 

Z,X5 

get  address  of  first  computer  name. 

1358 

SET  5=1 

TS 

SP1 

SLINE 

Set  old 

c 

sline  is  assigned  to  2,0. 

1360 

TN 

SW  CMPJTR 

1 

SlINE  +1 

1361 

MT 

s blanks 

2 

N , A J2 , 1 

1362 

NA 

Z ,X5 

S END  THR 

M LIS  CMdS 

branch  if  there  are  any  computers. 

1364 

TX 

W SNONE 

- 

SLINE  +2 

1365 

TS 

L END  M LIS 

Z,XA 

PRINT  LIn 

print  lack  and  go  to  finalization. 

1367 

M LIS 

CMPS 

TX 

S COLON  Cl 

_ 

SLINE  +2 

1368 

SWS,  c3T6 

N ,X5 

A, 2 

SLINE  +2 

print  COMPUTER  name. 

1370 

TX 

S BLANKS 

- 

COMPJ  LIn 

1371 

TX 

S BLANKS 

- 

COMP J LIN 

+ 1 . 

1372 

TX,  C 1 T6 

S BLOTS 

- 

COMPJ  LIn 

1373 

NA , CHAR6 

SLINE  +2 

S 3LANKS 

C , + 6 

1374 

TX,  GHAR6 

SLINE  + 2 

- 

COMPJ  LIN 

1375 

NA , CHAR5 

SLINE  ♦ 2 

S BLANKS 

C , + 4 

1376 

TX,  CHAR5 

SLINE  +2 

- 

COMPJ  LIN 

1377 

NA,  CHAR4 

SLINE  +2 

S BLANKS 

C , ♦2 

1378 

TX,  CHAR4 

SLINE  +2 

m 

COMPJ  LIN 

underline  computer  name  with  blots. 

1380 

LA,  OhaRI 

s ten  Cl 

5,0 

PRIN  CNAM 

BRANCH  UNLESS  NAME  BEGINS  WITH  DIGIT. 

1382 

LA,  0HAR3 

5,0 

END  OF  1 

PRIN  CNAM 

BRANCH  ALSO  IF  3RD  CHARACTER  IS  A DIGIT 

1384 

SWS,  C1T2 

SLINE  +2 

A, 4 

SLINE  +3 

1385 

sws»  C7T8 

SLINE  +2 

A, 4 

SLINE  +2 

MOVE  NAME  OVER... 

1387 

SWS,  C3T6 

S W MOD 

A, 2 

SLINE  ♦ 2 

...AND  INSERT  "MOD". 

1389 

SWS,  ONES 

CoMPU  LIN 

A, 4 

COMPJ  LIn 

1390 

SWS,  C1T2 

C0MPU  LIN 

0 

COMP  1 LIN 

♦ 1 

1391 

TX,  C i T6 

S BLOTS 

- 

CoMPj  LIn 

move  underline  over  accordingly. 

1393 

PRIN 

: nam 

TS 

Z,SC 

Z , X 4 

PRINT  LIn 

print  actual  computer  name. 

1395 

SET  S33 

TX 

SP3 

m 

SLINE 

1396 

TX 

S BLOTS 

- 

SLINE  +1 

1397 

TN 

COMPU  LIN 

2 

SLINE  ♦ 2 

SET  up  UNDERLINE  OF  BLOTS. 

1399 

GO  PRINT 

TS 

z,sc 

Z , X 4 

PRINI  LIn 

A 

L 
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T 

PHOO 

procedure 

TO  TEST  AnO  print  the  status 

i OF  SOF T toA^  £ 

for  each  COMPUTER. 

4k 

• 

1401 

TX 

to  SoP'l'toMR 

_ 

SLINl  +2 

set  up  Heading  about  software  Status. 

1403 

mspacei 

TS 

SP1 

SLIME 

So  PRINT 

C 

. 1404 

TS 

DASHES 

SLIME  +2 

MSPACE2 

C 

UNDERLINE  IT. 

* 

1406 

TN 

SFWR  HEDS 

14 

SLINE  +2 

set  up  column  hdgs  for  software  statjs. 

1408 

MSPACE2 

TS 

SP2 

SLIME 

SO  PRINT 

C 

1409 

TX 

Z,X5 

- 

z.csc 

SET  BANK  INDICATOR  7,  EVEN  BIT  INTO  CSC. 

1411 

TX 

s four 

- 

Z.CSH 

1412 

W A 

z,x2 

S TtoO 

Z.AJ2 

POINT  TO  SECOND  WORD  OF  PRINT  LINE. 

f 

1414 

SOF  Sr  LUP 

NA  * Bni2 

5 » 1 

s zero 

C,*2 

branch  if  this  pass  is  available. 

1416 

TS 

L SFw  STAS 

Z.AJ1 

set  stata 

* 

• 

1417 

LA 

S BIT  1 

5,1 

C , + 3 

BRANCH  IF  THIS  PASS  IS  CHECKED  3UT. 

1419 

SWE , CAC3 

N » SC  » 2 

16 

Z.AJ1 

4k 

A 

1420 

L SFto  STAS 

CAC 

W LAB  ChKo 

W LAb  aval 

to  LAB- JNAV 

1421 

SWE , CAC3 

L SFW  STAS 

32 

Z.AJ1 

f 

1422 

SET  STATS 

MT 

N * AU 1 » 1 

2 

N , A J2 , 1 

SET  SOFTWARE  PASS  STA1US  IN  PRImT. 

1424 

SWS*THREA0lO 

5.1 

36 

Z.CSC 

1425 

NA 

Z.CSC 

Z.X5 

C , + 2 

BRANCH  IF  SOFTWARE  IS  BORROWED. 

f 

1427 

TS 

S BLANKS 

N.AJ2.1 

C , + 2 

NO  SPECIAL  MARK  WHEN  PASS  USES  }toN  SFto. 

1429 

SWS,  C1T4 

N .CSC 

0 

N.AJ2.1 

NAME  OF  OWNER  OF  BORROWED  SOFTWARE. 

1431 

SWE,  ONES 

5,1 

12. L 

5,1 

ROTATE  WORD  TO  STATUS  OF  NEXT  ?ASS. 

r 

1433 

NA 

Z.CSH.l 

S OME 

SOF  ST  Li iP 

BRANCH  IF  HAVEN'T  DONE  4 PASSE5  YeT. 

1449 

M SPACE  3 

TS 

SP3 

slime 

SO  PRINT 

r 

* 


r 

3" 

r 

r 

2" 
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YUL  SYSTEM 
PROCEDURE 

PASS  0 SERVICE  module 
TO  PRINT  a -1ST  OF  PROGRAMS 

and  a list 

OF  subroutines  1 

1452 

TS 

W progrms 

SLINE  +2 

MSPACe  1 

1453 

TS 

Z,X5 

COM3  LOCN 

MSPACE1  +1 

1455 

TX 

s zero 

- 

PRG  OR  S11B 

1457 

LIST  3R  SU 

TN 

PRSUB  HDS 

14 

SLINE  +2 

1458 

SS 

w contrl 

PRG  OR  SUB 

SLINE  +8 

1460 

TS 

SP2 

SLINE 

Go  PRINT 

1452 

SWS, 

THREAD10  N,X5 

12 

Z,X5 

1454 

LA 

Z,X5 

S END  THR 

NO  PRSU3q 

1466 

M LIST  PS 

NA* 

bit  35  5*1 

PRG  OR  SUB 

END  PRS3  Q 

1468 

TX 

N,X5 

- 

S|_INE  +2 

1470 

SSL , 

TWO  5,1 

22 

c,  + l 

1472 

SWE , 

C1T2  5,1 

D , 3 , L 

SERV  arg 

1474 

TS 

w none 

SLINE  +10 

ALF  REVN 

1476 

TX 

Z.X5 

_ 

Z,R2 

1478 

SWS* 

THREADll  5,1 

24 

Z,R2 

1479 

EX 

N,R2 

S C1T2 

SERV  ARG 

1481 

ALF  REVN 

NA 

SERV  ARu 

S ZERO 

C , + 2 

1482 

TS 

WM  NEW 

SLINE  +3 

C , + 3 

1484 

TS 

z,sc 

Z , AUl 

S D2 A ZSilP 

1485 

SWS, 

C3T5  SLR V ARu  +2 

A, 2 

SLINE  +3 

1487 

NA 

PRG  OR  SUB 

s zero 

UnUSUB  3 

1489 

SSL, 

ONE  5,1 

35 

c , + 1 

1491 

PSN  VIA  X4 

TS 

Z,X5 

Z,x  4 

LIST  AUTW 

1493 

SSL, 

TWO  5,1 

22 

C,-l 

1495 

TS 

W OBS 

SLINE  +1 

C , -2 

Rl497 

IF  A SUBROUTINE 

is  not  called  by  any 

program  oh 

SUBROUTINE,  mark 

1499 

unusu 3 a 

TN 

Z,X2 

2 

SAVE  X23 

1500 

TX 

COMP  LOCN 

- 

Z,X2 

1502 

TN 

Z,X2 

2 

Z,X3 

1504 

SWS, 

THREAD10  N,X2 

12 

Z,X2 

1506 

TS 

N , SC , t> 

_ 

SUB  tHRO*; 

1508 

WD 

Z,5C 

four 

Z,SC 

1 5 10 

TS 

Z,X4 

Z,X2 

C,-2 

1512 

NA 

Z,X4 

S END  THR 

C,-l 

1514 

TN 

SAVE  X23 

2 

Z ,X2 

1515 

TS 

W UNUSED 

S LINE  +1 

PSN  VIA  *4 

1517 

TX 

_ 

1519 

NA 

Z*X4 

Z«X5 

C,-l 

1521 

TN 

SAVE  X23 

2 

Z,X2 

» 
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each  computer,  with  status  information. 


c 

c print  and  underline  program  heading, 
oo  the  list  of  programs  first. 


alter  prog  header  to  subRo  ip  necessary, 
print  col  hdgs  for  prog  or  subr3  list, 
thread  to  first  PROG  or  subro  of  comp, 
branch  if  no  programs  or  subros. 

BR  if  PRG  when  want  SUBS  or  VICr  versa, 
set  program  or  subroutine  name  in  print, 
find  out  where  revision  NO.  is  STORED. 

IN  WORD  2 IF  NO  SUBROUTINES. 

SHOW  LACK  OF  SUBSIDIARY  SUBRQS. 

HANG  ON  TO  BANK  INDICATOR. 

REVISION  NUMBER  IS  IN  WORD  3. 


SAY  ''NEW"  IF  REVISION  0. 


set  up  zero-suppressed  revision  number, 
branch  if  doing  subroutine  list. 

TEST  OBSOLESCENCE  BIT. 

HANG  ON  TO  BANK  INDICATOR. 

IF  NO  SUBROS,  THAT  WAS  NOT  AN  OSS  BIT. 
SUBSIDIARY  SUBROS  HAVE  CHANGED. 


it  "unused",  (ignore  bank  eRRoR  at  0932.1). 


POINT  TO  COMPUTER  NAMe  ENTRY. 

DISTRIBUTE  bank  indicator  7. 

POINT  TO  FIRST  PROGRAM  OR  SUBRO JTINE. 

C ASK  FOR  PRESENTATION  OF  SUBRO  THREADS. 

S (DISPOSITION  WHEN  THREADS  RUN  DJT>. 

GO  TO  EXAMINE  NEXT  PROGRAM  OR  SUBRO. 
BRANCH  IF  THERE  ARE  MORE  pROGS  OR  SUBS. 

PUT  "UNUSED"  AT  LEFT  OF  SUBROUTINE  NAME. 

C ask  for  next  subroutine  call  thread. 

BRANCH  IF  SUB  NOT  CALLED  VIA  THIS  THRED. 

leave  loop  when  first  user  is  found. 


YUL  SYSTEM 

PASS  o SERVICE  MODULE 

523 

SET  AUTHOR  NaME*  DAT 

E OF  LAST 

ASSEMBLY,  WHETH 

525 

CONTROLLED 

• 

526 

LIST  AUTH 

SWS.THREADlO 

A » 1 

12 

527 

LA 

A » 1 

S PLS  ZERO 

529 

TX 

N,Xa 

_ 

531 

SS 

A , Jl 

s thred  11 

532 

TX 

N , X A 

- 

53A 

SWE , D 1 2 

5,1 

AA 

535 

wA 

Z ,R2 

L S MONTHS 

536 

TX 

N,R2 

- 

538 

SWE,  THREE 

5,1 

A2 

539 

DT 

COMMON  +1 

8 

5 AO 

SWE*  seven 

5,1 

39 

5 A 1 

DA 

common  +i 

Z , R 2 

5A2 

LA 

common  +1 

S D12 

5 AA 

SWS*  CHART 

common  +1 

2 , L 

5A5 

SS 

common  +i 

S 012 

5 A7 

SWE,  7C6 

5,1 

2A 

5 A8 

WA 

coma  i9b2 

COMMON  +1 

550 

SSL,  ONE 

5,1 

11 

552 

TS 

W NO 

SLINE  +8 

553 

TX 

W YES 

- 

55A 

NA,  Bit  25 

5,1 

S ONES 

33 
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A PROGRAM  has  binary  RECORDS*  OR  WHETHER  A SUBROUTINE  IS 


Z,XA 

c,-l 

BRANCH 

SLINF  + A 
Z »XA 

SET  UP 

SLINE  +5 
Z,R2 
Z ,R2 

SET  UP 

SLINe  +6 
COMMON  +i 
COMMON  +1 
Z,R2 

COMMON  +i 

SET  UP 

C , + 2 

SLINE  +6 

BRANCH 

SLINE  + 6 
COMMON  +i 

SET  UP 

if  author  name  not  found, 

first  WORD  OF  AUTHOR  NAMr. 

second  word  of  author  name. 

ALPHABETIC  MONTH  ABBREVIATION. 


IF  1-DIGIT  DECIMAL  DAY  NjMBER. 

decimal  day  number. 


SLINE  + 7 

c,  + l 


SET  UP  COMMA  AND  YEAR  NUMBER. 

TEST  FOR  BINARY  (PROG)  OR  CONTRDL  (SJfl). 


C,*2 


SLINE  +8 

END  PRS3  Q -1  BRANCH  IF  NO  SUBSIDIARY  SUBROUTINES. 


L . YUL  SYSTEM  PASS  o SERVICE  MODJLE 


P 1 S 56 

LIST  THE  NAMES 

Of  SUBSIDIARY  SUBROUTINES  OF  THE  PrO 

gram  or  suBrouti 

ne 

1558 

tn 

Z,XA 

2 

Z,R1 

1550 

sws , 

THREADll 

5,1 

2A 

Z , R 1 

1562 

«A 

Z,X2 

s eight 

Z,R7 

1563 

ts 

Z , R 7 ,9 

Z,R6 

PRA  SUBtw 

1565 

PRO  SUBTH 

ss 

N »R  1 

s THRED 

11 

Z , R 1 

1567 

sws , 

THREAolO 

N ,R  1 

36 

Z ,R2 

1569 

SSL, 

ONE 

N,R1 

36 

PR  SLAVES 

C 

1571 

PRA  SUBTH 

SWS, 

THREADiO 

N,Rl 

2 A 

Z,R2 

1573 

SSL, 

one 

N,Rl 

2A 

PR  SLAVES 

c 

1575 

SSL, 

ONE 

N,Rl 

35 

LASUr  thr 

c 

1577 

PR3  SUBTH 

SWS, 

THREADiO 

N,Rl 

12 

Z,R2 

1579 

SSL, 

ONE 

N,Rl 

12 

PR  SLAVES 

c 

1581 

SSL, 

ONE 

N,Rl 

23 

LASU3  THR 

c 

1593 

PRC  SUBTH 

SSL, 

one 

N,Rl 

11 

G,  + l 

1585 

TS 

- 

- 

pro  subth 

1586 

SS 

N,Rl 

S THRED 

10 

Z,R2 

1588 

SSL, 

one 

N,Rl 

0 

PR  SLAVES 

c 

1590 

LA5UB  THR 

TX 

- 

_ 

- 

1592 

TS 

Z »R6 , 8 

- 

C,  + l 

1 5 9A 

LA 

Z.R6 

Z.R7 

C , + 2 

1596 

TS 

SP2 

SLINE 

Go  PRINT 

c 

1598 

TS 

5P2 

N,X3 

END  PRSB  Q 

P 1 600 

minor  subroutine  to  Set 

IN  PRlNf 

THe  NAMg s OF 

subsidiary  subroutines* 

1602 

PR  SLAVES 

SM 

Z*R6, 1 

Z,CSC,1 

m 

c 

160A 

SS 

SLASH 

S CHAR  8 

N, R6 , 1 

c 

1606 

TX 

N,R2 

- 

N , R6 , 1 

c 

1608 

NA 

Z,R6 

Z,R7 

N , SC , 1 

c 

1610 

wA 

Z,X3 

S EIGHT 

Z,R7 

c 

1612 

TS 

Z,R7,b 

Z,R6 

M SPACE  i 

c 

1 6 1 A 

TS 

SP2 

S LINE 

Go  print 

c 

1616 

end  prsb  q 

SS 

5,1 

S ThREd 

10 

Z ,X5 

1617 

NA 

Z,X5 

s end  thr 

M LIST  Ps 
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being  described,  at  four  to  the  line. 

HANG  ON  TO  BANK  INDICATORS. 

THREAD  TO  WORD  3 (1ST  SUBRO  THREAD  wD> . 

POINT  TO  ENDS  OF  SUBRO  LIST  AR£a. 

Follow  thread  to  next  subro  thr^d  word. 
GET  SUBROUTINE  Th^EAq  FROM  Op  c5dE. 

TEST  OBSOLETING  BIT  AND  PRINT. 

get  subroutine  thread  from  a aodrfss. 

TEST  OBSOLETING  BIT  AND  PRINT. 

see  if  this  is  the  last  subro  thread, 
get  subroutine  thread  from  b address, 

TEST  OBSOLETING  BIT  AND  PRINT. 

SEE  IF  THIS  IS  THE  LAST  SUBRO  THREAD. 

SEE  IF  THIS  IS  THE  LAST  SUBRO  THREAD. 

get  subroutine  thread  from  c address, 

TEST  OBSOLETING  BIT  AND  PRINT. 

RETURN  EXCEPT  FROM  C ADDRESS. 

FORCE  sequence  mode, 
branch  if  list  is  all  printed. 

OTHERWISE  print  partial  LINE  now, 
double-space  Retroactively. 

prefixing  obsoletIng  ones  by  "/". 

enter  here  if  not  an  obsoleting  subro, 
enter  HERE  to  show  PATH  OF  OBSO.ESCeNCe. 
set  subroutine  name  in  print, 
return  if  line  not  full  yet. 

RESET  pointers  to  other  print  buffer. 

PRINT  A SUBSIDIARY  SUBRO  NAMES,  RETURN. 
PRINT  PROG  OR  SUBRO  WITHOUT  SUBROUTINES. 
branch  if  there  are  more  progs  3r  subs. 


I 
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C 

P 1 6 1 9 TERMINATION  OF  EiTHER  THE  PROoRaM  LIST  OR  THE  SJBROjTiNE  LIST. 


t 

1620 

NA 

3.2 

PR  SUB  HDS 

NO  PrSJ3s  +2 

1622 

NO  PRSUBS 

TN 

3.1 

1A 

3,2 

1623 

TX 

W NONE 

- 

3.2 

1625 

TX 

SP3 

- 

N.X3 

1626 

S3 

S BIT  1 

PRG  OR  SJB 

N.X3 

c 

1628 

NA 

PRG  OR  SUB 

s Zero 

EM  C^MPS  Q 

1630 

TS 

W SUBROb 

SLIME  +2 

EM  COMPS  Q 

1631 

TS 

W SUBROS  +1 

SLIME  +3 

M SPACE  1 

c 

1632 

TS 

DASH  i T 3 

SLIME  +3 

M SPACE  1 +1 

1 6 3 A 

TS 

S ONES 

PRG  OR  SJB 

LIST  P.RSn 

r 

1636 

en  comps  u 

TX 

COMP  LOCN 

Z.X5 

1637 

TS 

Sw  CMP J I R 

SLIME  +1 

SET  SP 1 

1638 

SS 

N.X5 

S THRED  10 

Z.X5 

c 

1639 

NA 

Z.X5 

s emd  thr 

M LIS  CMpS 

R16A1 

PROCEDURE 

TO  LIST  eS 

lAbLlSHED  AUTHORS 

• 

w 

16A2 

M LIS  AJTS 

SWE*  CAC3 

1.9 

16 

Z.X5 

_ 

1 6 AA 

LA 

Z.X5 

s emd  thr 

EMD  M LKT 

w 

16A6 

M LIS  AJTH 

TX 

W AUTHOR  C 

_ 

SLINE  +1 

16A7 

TX 

N.X5 

• 

SLlNE  +2 

1 6 A9 

TX 

Z.X5 

- 

Z.R2 

1650 

SS 

5,1 

S THRED  11 

Z.R2 

1651 

TX 

N.R2 

- 

SLINE  +3 

V 

1653 

TN 

W NPR  SUBS 

5 

SLINE  + A 

165A 

LA 

S.l 

S C1T2 

C , + 2 

r 

1656 

TS 

W 25AP 

SLIME  + 9 

MOR  AJTH  Q 

L 

1658 

SWE , 3D8 

5.1 

26 

SERV  ARG 

1659 

DT 

SERV  ARO 

8 

SeRV  AR3 

c 

1661 

SWE.  7D8 

5.1 

23 

COMMON  +1 

1662 

DA 

serv  ARG 

COMMON  +1 

SERV  ARG 

1663 

DT 

StRV  ARG 

8 

SERV  ARG 

c 

1 6 6A 

SWE.  7D8 

5,1 

20 

COMMON  0 

1665 

DA 

SERV  ARG 

COMMON  +1 

SERV  ARG 

1666 

TS 

z.sc 

Z.AJl 

S D2A  ZS11P 

3" 

1668 

SWS.  C 1 T 3 

SERV  ARG  +2 

A ,5  »L 

SLINE  +9 

1669 

MOR  AJTH  0 

TS 

SP2 

SLIME 

Go  PRINT 

f • 

w 

1671 

SWS.ThREA 

DIO  5,1 

12 

Z.X5 

1672 

NA 

Z.X5 

s emd  thr 

M LIS  AJrH 

2” 


C 


L 
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BRANCH  IF  THE  LIS]  IS  NOT  EMPTY. 

ERASE  HEADINGS  AND  SUBSTITUTE  " (NONE)". 
SP3  AFTER  PROG  LIST.  SKIP  AFTER  SJBRO. 

branch  if  just  finished  subroutine  list. 
PRINT  AND  UNDERLINE  SUBROUTINE  HEADING. 

begin  list  of  subroutines  for  computer. 

BRANCH  IF  THERE  ARe  MQRe  COMPUTERS, 

Get  ADDRESS  OF  FIRST  AUTHOR  NAMr. 

BRANCH  IF  THERE  ARE  NO  AUTHORS. 

SET  UP  FIRST  WORD  OF  AUTHOR  NAME. 

set  up  second  word  of  author  name. 

BRANCH  IF  LESS  THAN  255  PROGS  A \j D SUBS. 
OTHERWISE  JUST  SAY  »25A+". 

convert  number  to  decimal. 


convert  to  alphabetic. 


PRIN7  an  author 
branch  if  there 


line. 

are  more  authors. 
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'1674 

finalizing 

PROCEDURE  IN 

DIRECTORY 

LI  ST  I No, 

1675 

END  M LIST 

TX 

S BIT  1 

_ 

NiX3 

1676 

S.  PH  I PRINT 

3 1 0 

- 

- 

print  final  line  of  listing. 

16  762 

na,  chars 

DISC  STMT 

S ONES 

AFTER  YDl 

+2 

AVOID  YULDLIST  IF  DISC  IS  I NOPE RA T I Ve . 

16  764 

S.  MOn  RE-OX 

YUL  D LIST 

XFR  LiMly 

YULDLIST  WILL  RUN  IN  BANK  C HER-. 

16766 

TS 

Z i AU2 1 1 

ZiAJl 

YDL  RET Rm 

♦ 1 

c 

SAVE  BASE  ADDRESS. 

16768 

NA 

N,AU2 

BYE  BYe 

AFTEP  ydi 

CANCEL  QUIETLY  IF  WRONG  ReV  OF  rULDLl ST . 

1677 

TS 

YDL  RtTRN 

NiAJ2 

N 1 AJ1 

PLANT  SPECIAL  EXIT  AND  EXECUTE  YULDLIST. 

16772 

BYE  3rE 

TS 

- 

- 

MONITOR 

( SPiUULD  Be  At  BASE  ADDRESS  +1>. 

16773 

YDL  RSTRN 

TS 

- 

- 

N iS3 

16774 

TX 

Z,CSC 

- 

Z , S3 

5 

MAKE  S3  POINT  TO  SPECIAL  RETURN. 

16776 

AFTER  YDL 

TS 

L BANK  i 

Z1X3 

B<  1 VIA  XO 

♦ 1 

16778 

TX 

YuL  MASrS 

- 

z 1 mxr 

£ 

SET  UP  ALL  SPECIAL  REGS  ApTER  YjLDLIST. 

1678 

TN 

S 4 SPACE 

' 1 

NiX3 

1679 

MT 

S BLANKS 

14 

N 1 A J2 , 1 • 

form  spacer  line. 

16802 

Si  PHI  PRINT 

DEPA&INfa 

1681 

Si  PH I PRINT 

3 1 0 

1682 

Si  PH I PRINT 

3 iO 

1683 

Si  PHI  PRINT 

3 iO 

Force  last  LINlS  through  bufprint. 

1685 

NA i CHAR8 

liO 

s one 

LIST  X I t 

BRANCH  IF  not  DOING  FULL  BACKUP  C3PY. 

1687 

TS 

N i SC  1 2 

Z 1 X 4 

C ♦ + 2 

c 

1688 

SPEC  «B7 

601 

1689 

NAiCHaRI 

4 1 0 

ASTRISK 

PHI  pee< 

c 

CHECK  ON  STAR  WHETHER  HAVE  READ  OR  NOT. 

1691 

NA i CHARI 

4 1 0 

ASTRISK 

LIST  X 1 T 

BRANCH  if  More  TASKS  in  this  JD3. 

1693 

LA 

common 

s ZERO 

group  nap 

SLEEP  IF  COPYING  NOT  DONE  Yet* 

16948 

TS 

S ONES 

REVERT  10 

- 

1695 

DS i C7T8 

1.2 

S T /VO 

REVERT  id 

FORM  SEQUENCE  NUMBER  OF  GRANDFATHER. 

1697 

NA 

COMMON 

s ones 

grojp  nap 

sleep  if  read-back  not  done  yet. 

16981 

NA  i HTHRE0lO 

SPAR  IDLE 

s zero 

ReVePT  gf 

BRANCH  IF  NOT  FIRST  BACKUP  IN  THE  JOB. 

169812 

TX  i BjhREDIO 

S ONEb 

- 

SPAR  IDLP 

REVtRT  ALL  GRAMPAb  MADE  IN  THIS  JOB. 

16982 

NA 

lil 

N , SC  1 6 

C,  + 2 

temporary  until  super-careful  hpe  ops. 

16984 

ALF 

NANSTJNL 

1699 

revert  of 

S,  MOn  TY^ER 

OBUWK  MSG 

SPRA  +32 

_ 

TYPE  "FORMER  BACKUP  WILL  BE  WORCER". 

1701 

TS 

lil 

C , + 2 

PHI  SNACu 

supply  true  name  of  grandfather  tape. 

1703 

ALF  ,2 

N00L0006YULPR0GS 

snatch  former  backup,  type  3 dispd. 

1705 

REVERT  ID 

DEC 

0 

1706 

TS 

_ 

_ 

MON  RLEAS 

1707 

RW  i 6 

- 

- 

• 

demote  grandfather  to  worker. 

1709 

list  kit 

TS 

BKUP  STOP 

+1  BKJ  = Stop 

mon  wa<e 

£ 

ALLOW  GROUP  a to  EXIT  FROM  TASK, 

1711 

TS 

S ONES 

REVERT  id 

n,ro 

GROUP  B GOES  TO  BED. 
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PRINTING  SJBRoUyl Ne  IN  PASS  0 4IJH  DNE 

-Line  dplay. 

AS 

in  passes  2 and  3.  Performs  pagination,  ente* 

R1715 

WITH  RETURN 

1 IN  x4 

• 

1716 

PRINT  LIN 

LA 

s bit  1 

N*X3 

prinz  kip 

ALWAYS  SKIP  IF  CODE  SAYS  SO. 

1718 

WA 

LIN  COJwT 

N , X 3 

LIN  COJNT 

1719 

LA 

LIN  CoJlNT 

71  LINES 

PRINT  0 Lp 

branch  if  still  IN  same  Page. 

1721 

TX 

s bit  1 

N,X3 

SUPPLY  SKIP  WHEN  COUNI  OVERFLOWS. 

1723 

PRINZ  KIP 

S,  PHI 

PR1  NT 

DEPAUIN8 

1724 

S * PHI 

PRINT 

3*0 

1725 

DA 

PAGE  NO 

S ONE 

PAGE  NO 

1726 

SWE*  ONES 

page  NO 

D , 4 , L 

SERV  aRg 

1727 

TS 

z,sc 

Z,  AJ1 

S D2 A ZS11P 

1728 

TX,  C5 

T 8 

SeRV  ARu  +2 

_ 

PAGE  HEAD 

+ 15 

1729 

S,  PH  1 

PR1  NT 

PAGE  head 

PRINT  HEADING  WITH  ZERO-SUPPRESSEO  PGNO. 

1731 

TS 

page  head 

LIN  COUNT 

PRINT  OLE 

+ 1 

1732 

PRINT  OLE 

S,  PHI 

PRINT 

3,0 

1733 

TX 

Z,X2 

L OLD  LINE 

1734 

TX 

Z *X3  * 1 

- 

Z,X2 

SWAP  PRINT  DELAY  BUFFERS. 

1736 

MT 

S BLANKS 

15 

N ,X3 , 1 

SWAB  OUT  CURRENT  LINE. 

1738 

TX 

L OLD  LINE 

Z »X3 

1739 

TS 

S ZERO 

N,X2 

N,X4 

*1740 

bRjta_  routine  to 

TY 

out  The  long 

CU5S  (SEE  NEX 

T PAGE)  ANo  COME 

to  an  Immutable  stop. 

1742 

CL3B3ERD 

S,  MON 

TY3£R 

OH  DAMN 

SPR AMR  +8 

• 

1743 

TX 

1 , 1 

- 

LONG  CJSf 

FILL  IN  ACTUAL  TAPE  NAME. 

1745 

TX 

L LONG  LUS 

• 

Z,X6 

1746 

S * MOn 

TY  3 ER 

6,0 

SPR AMR  +40 

- 

1747 

NA 

Z , X6 , 5 

L PUT  IT 

C ,-l 

1748 

S’  MOn 

TY^ER 

s BLANKS 

SPRA  +8 

_ 

1749 

TS 

Z , Sc 

Z , RO 

c * + 1 

C NEITHER  ASA  NOR  AcA  NOR  ARA  NOR  FAX 

1751 

STOP 

shall  budge  us  from  this  spot. 

1753 

TS 

- 

- 

C,-2 

2 
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L YUL  SYSTEM  PASS  o SERVICE  MODULt 

P175A  A LONo  CUSS  FOR  A DISTRESSING  SITUATION. 


1755 

OH  DA  IN 

ALF 

OH  DAMN. 

1756 

LONG  CUSS 

ALF  *5 

yulprugs  is  clobbered,  please  do  thJmDer 

1757 

ALF  . 5 

EDIT  *TEI.A72  (T  = ACtJAL  DrIYE  NJM3ER), 

1758 

ALF  .5 

ask  FiELD  service  to  inspect  this  tape, 

1759 

ALF  ,s 

mount  backup  and  rerun  Jo3  as  required. 

1760 

ALF,  5 

if  no  backup-,  freeze  operations  on  twis 

1761 

ALF  ,5 

tape  until  i can  repair  the  damage,  if  i 

1762 

ALF  ,5 

AM  UNAVAILABLE  AND  THERE  IS  NO  BACKUP 

1763 

ALF  , 5 

AND  THE  JOB  HAS  TO  Be  DONE  IN  A HJRRY, 

1 76  A 

ALF  ,5 

TRANSFER  THE  PROGRAM  TO  HE  DISC,  AND 

1765 

PUT  IT  ON 

ALF  ,5 

PUT  IT  ON  ANOTHER  TAPe.  (SIGNED)  H B-S 

[ 

2" 


» 


L 
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7 66 

ROUTINE  T O'  PROCESS  THE 

ANNOUNCEMENT  that 

A NE*  COMPUTER 

name 

IS  TO  Be  RECOGNIZED. 

768 

ADD- COM 

NA 

N *X5 

S NEW 

C*  + 2 

769 

TX 

Z *X5  *3 

- 

- 

"NEW"  is  OPTIONAL  HERE. 

771 

TX 

Z,X5 

- 

WHODJNI T 

772 

NA 

N . X5  * 1 

W COMPUTR 

HOWZAl 

773 

NA 

N * X 5 ♦ 2 

s blanks 

HOWZAf 

"COMPUTER"  IS  REQUIRED. 

775 

NA 

N*X5 

W NAME 

C , + 2 

776 

TX 

Z » X 5 * 3 

- 

- 

"NAME"  IS  OPTIONAL. 

778 

TS 

- 

_ 

DeCOo  CPm 

C 

decode  computer  name. 

780 

TX 

Z * SC  * 2 

- 

z,csc 

c 

make  FOLLOWING  TWO  WORDS  A SUBROUTINE. 

782 

NO  EXTRAS 

WA 

Z,X5 

s three 

WHODJNI T 

c 

783 

NA 

5,3 

S ONES 

HOwZAt 

SUPERFLUOUS  WORDS  ARE  FORBIDDEN, 

785 

TS 

N,X5 

NEWCO  MSG  +2 

FIND  PAIR 

c 

FIND  ROOM  FOR  COMPUTER  NAME  ENTRY. 

787 

S,  TUl  TY  3 ER 

NEWCO  MSG 

AMTF  +3 

c,  + l 

ANNOUNCE  NEW  NAME. 

789 

TS 

_ 

_ 

find  comp 

c 

SEE  IF  IT  EXISTS  ALREADY. 

791 

TS 

Z.sc.l 

- 

ched  LIST  +1 

c 

XO  TO  X2,  L BANK  1 TO  XO. 

792 

s,  MON  TY3ER 

CoNCN  MsG 

SPR AMR  .AO 

SM  aBORt 

cuss  and  abort  if  conflict. 

7 94 

EX 

COMP  NAME 

s cm 

N,X3 

FORM  COMPUTER  NAME  ENTRY. 

7 96 

ss 

Z ,X2 

s thred  10 

N ,X3 

797 

SWS»BTHR£OlO 

S END  THR 

12, L 

N,X3 

insert  vacuous  program  thread. 

799 

EX 

Z,X3 

S THRED  10 

3,1 

800 

sws.bthreoio 

3,1 

12, L 

3,1 

801 

sws,  cm 

3,1 

2A,l 

3,1 

ASSUME  IT  HAS  ITS  OWN  PARTICULAR  PASSES 

803 

NA 

z,ra 

S ZERO 

C , + 3 

BRANCH  IF  NOT  SMALLEST  OF  COMPUTE*  NAMS 

805 

SWS*  CACl 

Z,X3 

32  * L 

1*9 

OTHERWISE  THREAD  10  IT  THUS. 

807 

TS 

- 

- 

accept  M-i 

808 

SS 

Z,X3 

s thred  10 

N , R A 

809 

TS 

- 

- 

accept  m? 

THREAD  TO  THIS  FROM  NEXT  SMALLER  CNAME. 

811 

Trivial  routines  to 

A 30rT 

A TAsk 

from  the  service 

module* 

• 

812 

SM  A30RT 

TS 

L 

BANK  i 

Z,XD 

TYP  ABORT 

813 

SM  REJECT 

TS 

L 

BANK  i 

z,xo 

REJEC  Dir 

' 1 8 1 A 

YUL  SiTSTEM 
PROCEDURE 

PASS  0 service  module 

to  process  r Hf  ANNOUNCEMENT 

that  AN  OLD 

1816 

RMQV  CO ^ 

NA 

N.X5 

W 3LD 

1818 

rx 

Z.X5.3 

- 

1819- 

TX 

Z.X5 

- 

1820 

NA 

N.X5.1 

W COMPUTE 

1821 

NA 

N.X5.2 

s blanks 

1823 

NA 

N . X5 

W NAME 

1825 

TX 

Z.X5.3 

- 

1826 

TS 

- 

• 

1827 

TS 

N.X5 

remco  mss  ♦ 

1828 

S,  MOn  TY3ER 

REMCO  MSG 

SPR AMR  +32 

1830 

TS 

- 

1832 

s*  MOn  T Y 3£r 

surco  msg 

SP  R AMR  +32 

1 8 3 A 

LA , 3T  HRED 1 D 

0,0 

B ADDR  6 

1836 

S,  MON  TY3ER 

CoMUS  MSG 

SPR  AMR  + 2 A 

1838 

CHeD  -1ST 

s,  mon  ty3er 

CHEDL  MiG 

SPR AMR  + 2 A 

1 8 AO 

TS 

z.xo 

Z . X 2 

1 8 A 1 

SWL  ♦ CAC3 

1.9 

32 

18  A3 

TS 

Z.X2 

L CDMP  NAM 

1 8 A5 

SOFT  SHAR 

TX 

N.X3 

— 

18A6 

TS 

- 

« 

1 8 A8 

TX 

N.X5 

- 

1 8 A9 

TX 

L W PASS  1 

- 

1850 

SHAR  .OOP 

SWS , ONES 

3*1 

12*L 

1852 

na,  threadio 

3.1 

L COMP  NAM 

1 8 5 A 

SM 

L CoMP  imaM 

S CHAR  1 

1856 

S,  MOn  TY5ER 

A .0 

SPRAM  +16 

1857 

s,  mon  ty^er 

STNED  MSG 

SPR  AMR  + 2 A 

1859 

A PASS  Cj 

NA 

N . Xa  . t 

w manuf 

1861 

SS 

N.X3 

S THRED  10 

1863 

LA 

Z.X3 

1 COMMA  3 

1865 

THIS  COM  Q 

NA 

Z.X3 

Z.X2 

ie67 

TS 

- 

- 

1868 

CH<  SHARE 

LA 

S CHAR  1 

l comp  nam 

1870 

NA 

z.ra 

s zero 

1872 

SS 

N.X2 

s thred  10 

1873 

SWS.  CACl 

Z.X3 

32,  L 

18  75 

TX 

Z.SC.l 

- 

1876 

NOT  1ST  CO 

SS 

N.X2 

s thred  10 

1878 

TS 

Z.X2 

Z.Ajl 

1880 

TS 

- 

- 

10 
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COMPUTER  (NAME) 

IS  TO 

BE  REMOVED. 

C , + 2 

"OLD"  IS  OPTIONAL  HeRl. 

WHODJNIT 
HOwZA'i 
HOWZAT 
C , + 2 

"COMPUTER"  IS  REQUIRED. 
"NAME"  IS  OPTIONAL. 

DECOO  CPm 
NO  EXTRAS 

C 

C 

decode  computer  name  and  announce  task. 

find  comp. 
SM  ABORT 

C 

look  up  computer  name. 

cuss  and  abort  if  no  such  computer. 

,C , + 3 

CHeD  LIST 
SM  ABORT 

branch  IF  computer  has  no  PROGRaMS, 
cuss  abouj  removing  computer  in  use. 

TELL  him  to  CHeCK  the  DIRECTORY  LISTING 

B<  1 VIA  *0 
Z.X3 

THIS  COM  Q 

c 

checking  ON  SOFTWARE  sharing:  location 
of  ist  computer  and  of  this  are  set  up. 

N*X5 

CPN  FiXER 
STNED  MSG  +2 
Z.XA 

C 

EXPAND  COMPUTER  NAME  TO  STANDARD  FORM. 

3*1 

A PASS  ct 
L COMP  NAM 

ROTATE  SOFTWARE  THREADS. 

BRANCH  If  NO  SHARING  HERE. 

SET  FLAG  TO  SHOW  SOME  SHARING. 

shar  loop 

TYPE  OUT  WHO  NEEDS  WHICH  SOFTWARE. 

Do  ALL  A "PASSES"  FoR  EACH  OTHER  COMP, 

Z.X3 

ChK  ShARf 

soft  shar 

C.-3 

FOLLOW  THE  THREAD  TO  NEXT  COMPJrER. 
BRANCH  If  all  COMPUTERS  DONE. 
branch  if  not  computer  being  removed. 

TYP  ABORT 
NOT  1ST  CO 
Z.X3 
1.9 

abort  IF  THERE  WAS  any  SHARING. 
BRANCH  if  COMPUTER  not  1ST  IN  LIST. 

SEW  UP  THREAD  around  this  computer. 

n.ra 

GIVE  PAIo 
ACCEPT  M? 

r 

sew  up  thread  around  this  computer* 

GIVE  UP  ITS  TWO  WORDS. 

CALL  FOR  BACKUP  LABEL  AMENDMENT  IF  NEC. 
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YUL  SYSTEM  PASS  o SERVICE  MODjLE 


P 1 8 82  ROUTINE  TO  PROCESS  A DECLARATION  ThAT  ASSEMBLY  PAss  1,  ASSEMBLY  PAss  2,  ASSEMBLY  PASS  3.  OR  ^AmUFACT- 

R188A  URIN3  FOR  A PARTICULAR  COMPUTER  IS  AVAILA3LE,  CHeC<eD  OJT,  OR  OBSOLETE.  CUSSES  ReSULT  FROM  VARIOUS  INCONSISTEN- 
R 1 8 86  Cl£S  ANU  REDUNDAnCIe5  iN  SUCH  DtCLARAT IONS.  A PASS  (3ENERIC  TERM  F3R  THe  FoUR  IxtMS  ABoVE>  MAY  Be  DECLaReD 

R 1 8 88  CHeCKtD  .oUy  OR  OBSOLETE  ONLY  aFjeR  BEING  OeGLaReO  A\/AILA3Le,  ANY  PASS  MAY  BE  DeCLAReD  EQUIVALENT  TO  M-  CORReS- 

R 1 890  PONDING  PASS  FOR  ANOTHER  COMPUTER. 


* 

1893 

PASS  STA 

TX 

Z »X5 

- 

WHoDJNI T 

entry  for  status  of  assembly  passes. 

1895 

NA 

N ,X5 , 3 

W PASS 

HOwZAT 

'•PASS"  IS  REQUIRED. 

1897 

TX 

Z ,X5 

- 

WHODJNI T 

% 

1898 

NA,  UHAR6 

5,2 

S 1 C6 

HoWZA 1 

PASS  NUMBER  must  Be  one  digit. 

1900 

LA 

N ,X5 

S ZERO  Cl 

HOwZAl 

1901 

LA 

9 Cl 

N,X5 

HOwZA | 

AND  MUST  BE  IN  THE  RANGE  1-3. 

« 

1903 

SWS,  CHAR 3 

N,X5,3 

A, 2 

PASSS  MSr,  +1 

PUT  PASS  NUMBER  IN  ANNOUNCEMENT. 

1905 

SSL,  CHAR 3 

PASSS  MSG  +1 

A, 5 

maskifts  -l 

C 

shift  mask  according  to  Pass. 

1907 

TN 

PASSS  MSG 

2 

STATS  MSr,  +1 

STATUS  MESSAGE  DEALS  WITH  A PASS. 

% 

1909 

TS 

PASSS  RE 

stats  MsG 

chec<  for 

1910 

MAS< I RTS 

SWE*  ONES 

manu  mask 

12 

pass  mask 

% 

1911 

SWE*  ONES 

MANU  mask 

29 

PASS  MASK 

1912 

SWE,  ONES 

manu  mask 

36 

PASS  MASK- 

MASK  FOR  2ND  WD  OF  COMPUTER  NAMr  eNIRY, 

1919 

manu  sta 

TX 

manu  mask 

_ 

PASS  MASK 

entry  for  status  of  manufacturing. 

1916 

TN 

MANUS  Msg 

2 

ST  AT  s MSG  +1 

1917 

TX 

MANUS  Rt 

- 

stats  msg 

1922 

chec<  for 

TX 

Z,Xg 

_ 

WHoDJNI t 

uoint  routine  for  status  Declarations. 

1929 

NA 

N ,X5  * 3 

S FOR 

howzat 

1925 

WHOS  5TAT 

TS 

decod  CPm 

r 

U 

decode  computer  name. 

1927 

TX 

N,X5 

- 

STATS  MSG  +3 

1928 

S,  YUl  t y 3er 

stats  Msg 

A +9 

C » + 1 

announce  which  pass  for  which  computer. 

1930 

TS 

- 

_ 

find  comp 

C 

find  computer  name  IN  DIRECTORY. 

1932 

s,  MOn  tY3er 

surco  Msg 

SP  R AMR  +32 

SM  ReJeCt 

cuss  and  abort  if  nonexistent  computer. 

1939 

TS 

z,xo 

Z,X2 

B<  1 VIA  xo 

c 

1937 

na,  chari 

5,2 

EQJALS  Cl 

CHECK  IS 

branch  if  absolute  declaration. 

I 


2” 


1” 


L 

YUL  SYSTEM 

PASS  0 

SERVICE  MODULE 
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P 1 9 39 

procedure 

FOR 

EQUIVA- 

ENCE  DECLARAT IONS. 

1990 

WA 

Z,X6 

OCTAL  20 

Z , X 4 

1991 

. EOI V .OOP 

WA 

Z »X5 , 3 

s three 

whodunit 

when  "="  IS  THE  NON-BLANK  TERMINATOR  of 

1.993 

NA 

N * X 5 

N » X 4 » 1 

H0WZA1 

the  COMPUTER  name*  the  declaration  is; 

1995 

NA 

5.1 

N.X9.2 

HOrtZAl 

A PASS  (NOT  SIMULATION)  FOR  THE  1ST- 

1997 

NA 

N.X5 

S FOR 

EOI V LOOP 

NAMED  COMPUTER  = THAT  For  THE  2ND-NAMED. 

R 1 9 49 

at  this  point 

WE  1 

KNO* 

that  all  the 

words  ihrough 

"For»  were  duplicated. 

1950 

NA 

STATS  YSG 

MANUS  RE 

C , + 2 

1951 

TS 

MANUS  EOU 

STATS  mss 

C,  + 2 

change  "Re!"  TO  » = " (MANUFACTURES)  . 

1953 

TX 

PASSS  EOU 

- 

STATS  YSr, 

CHANGE  "Re!"  TO  "="  (ASSEMBLY  ^ASSES). 

1955 

TS 

Z.X5.3 

- 

WHOS  STAT 

c 

decode  second  computer  name. 

1957 

TX 

COMP  NAME 

_ 

stats  YSr,  +3 

1958 

s « 

YUl 

TY3 

ER 

SI  ATS  MSG 

A +9 

C,  + l 

ANNOUNCE  EQUIVALENCE. 

1960 

TS 

Z.X2 

' Z.Xa 

find  comp 

c 

SAVE  ADDR.  OF  1ST  NAME,  FIND  2ND. 

1962 

s, 

YUL 

TY  3 

ER 

SURCO  MiG 

AMt  F +4 

TYP  ABORT 

CUSS  AND  ABORT  IF  NO  SUCH  COMPUTER. 

19632 

TS 

z.xo 

Z.X2 

BKl  VIA  xO 

c 

1969 

NA 

Z.X2 

Z.X4 

XFER  ST  At 

BRANCH  IF  NAMES  ARE  DIFFERENT. 

1966 

EX 

Z.X2 

S THRED  10 

temp  msk 

when  names  are  same,  it  means  that  the 

1968 

sws 

♦ C1T6 

temp  msk 

12, L 

temp  msk 

computer  has  stopped  sharing  a pass. 

1970 

sws 

. C1T9 

TeMP  MSN 

29, L 

temp  msk 

make  9 COPIES  OF  COMPUTER  NAME  ADDRESS. 

1972 

ss 

TeMP  msk 

pass  mask 

2,1 

show  that  computer  has  own  version. 

1979 

xfer  stat 

ss 

2.1 

pass  mask 

9,1 

transfer  known  STATUS. 

1976 

EX 

PASS  MASK 

S PAV  BITS 

TEMP  ms< 

form  availability  bit  for  this  ;>ass. 

1978 

s * 

MON 

TY3 

ER 

W'  STATUS 

SPRAM  4-8 

- 

TYPE  "STATUS?  ". 

1980 

EX 

2,1 

TEY=  MSK 

COMMON 

1981 

NA 

common 

s zero 

C , + 2 

1982 

s, 

mon 

TY3 

ER 

UNAVP  MSG 

SPR  AMR  +16 

AC  PA  StaT 

ANNOUNCE  AND  EXIT  IF  UNAVAILABLE. 

1989 

EX 

PASS  MASK 

PCD  BITS 

temp  MSK 

form  checkout  bit  for  the  pass. 

1986 

EX 

2,1 

tem3  msk 

COMMON 

1987 

NA 

COMMON 

S ZERO 

C , + 2 

1988 

S, 

yon 

T Y 5 

ER 

W AVALABL 

SPR AMR  +16 

AC  PA  STAT 

ANNOUNCE  AND  EXIT  IF  AVAILABLE. 

1990 

s, 

YOn 

T Y 9 

ER 

w checked 

SPR AMR  +16 

ac  pa  stat 

ANNOUNCE  AND  EXIT  IF  CHECKED  OUT. 

L YUL  SYSTEM  PASS  0 SERVICE  MODULE 


P2000 

PROCEDURE 

FOR 

ABsOLUI E, 

rather  than 

equivalence* 

DECLARATIONS. 

' 2001 

CHECK  IS 

NA 

5,3 

W IS 

C , + 2 

2003 

TX 

Z ,X5 » 3 

- 

- 

2004 

»vA 

Z ,X5 , 3 

S THREE 

whodjni t 

2005 

NA 

N,X5 

W AVALABL 

CHK  OR  OrS 

200? 

NA 

5*1 

W AVALABL  ♦ 

1 HOWZAl 

2009 

S, 

YUL 

TY3ER 

DcLAV  MSG 

AMTF  +3 

c , + 1 

2011 

EX 

pass  mask 

s pav  bits 

TEMP  MSK 

2016 

EX 

2,1 

TEM3  MSK 

COMMON 

2017 

NA 

common 

TEM3  MSK 

C , ♦ 2 

2018 

typ  pedun 

s, 

YUL 

ty=>er 

REDUN  MSG 

AMT  F +2 

TYP  ABoPt 

2020 

SM 

2,1 

TEM3  MSK 

2,1 

2021 

TS 

- 

- • 

AC  PA  STaT 

2023 

CH<  0R1  oBS 

NA 

N*X5 

W CHeCKeO 

OBSoLtT  E 

2025 

WA 

Z *X5 , 3 

S THREE 

whodunit 

2026 

NA 

N , X 5 

W OUT 

HOWZAl 

2028 

S, 

YUL 

ty3er 

dclok  msg 

AMTF  +3 

c , + 1 

2030 

EX 

pass  mask 

s pav  bits 

TEMP  MSK 

2035 

EX 

2,1 

TEM3  MSK 

COMMON 

2036 

NA 

common 

s ZERO 

C , + 2 

2037 

s. 

YUl 

TY=>ER 

nqtav  msg 

AMTF  +2 

TYP  ABOPt 

2039 

EX 

pass  mask 

PCO  bits 

temp  MSK 

2041 

TS 

- 

- 

TYP  PEDUN 

2042 

obsolete 

NA 

N,X5»1 

W 03S0LET 

HowZA j 

2043 

NA 

N,X5 

S BLANKS 

H 0 w Z A | 

2045 

S * 

YUL 

TY  3 ER 

dclob  msg 

AMTF  +3 

c*+i 

2047 

EX 

PASS  MASK 

avcd  bits 

TEMP  MSK 

2051 

EX 

2,1 

TEM3  MSK 

common 

2052 

NA 

common 

s zero 

C,  + 2 

2054 

S, 

YUl 

[Y  3ER 

NOTAV  MSG 

AMT  F +2 

TYP  ABOPf 

2056 

ss 

s zero 

TEM3  MSK 

2,1 

R2O58 

common  exit  for  acce3tance  of  any  pass  states  chan&e* 

2059 

ac  pa  stat 

NA 

♦ t-HARe 

1,0 

S ZERO 

MANUF  Rtn 

2061 

TS 

» CHAR8 

S TWO 

1*0 

MaNUF  Ptm 
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"IS"  IS  OPTIONAL  HERE. 


BRANCH  IF  CANNOT  BE  "AVAILABLE". 
CUSS  AND  ABORT  IF  MIS-SPELLED. 
TYPE  "DECLARED  AVAILABLE". 

FORM  AVAILABILITY  BIT  FOR  PASS, 


cuss  and  abort  if  redundant. 

SIGNAL  AVAlLAblLITY  OR  CHECKOUt,  E*1T. 

branch  if  cannot  be  "checked  oUr"* 

CUSS  AND  abort  if  MIS-SPELLED. 
type  "DECLARED  CHECKED  OUT". 

FORM  AVAILABILITY  BIT  FOR  THe  PASS. 


cuss  and  abort  if  NOT  AVAILABLE. 
FORM  CHECKOUT  bit  FOR  THE  PASS. 


CUSS  AND  ABORT  if  NOT  "OBSOLETE". 
type  "DECLARED  OBSOLETE"* 

FORM  avail  and  CH*0  bits  for  pass. 

branch  IF  NOW  CALLED  AVAILABLE. 
CUSS  AND  ABORT  OTHERWISE. 

ERASE  AVAIL  AND  CHKO  BITS,  EXIT. 


branch  if  some  backup  already  wanted 
call  for  backup  label  amendment. 


L 


YUL  S T STEM  PASS  0 SERVICE  MODULE 


P3000 

common  5U3SEGMENT  in  bank  a 

FOR 

OVERSPILL 

3001 

. 0VERS3IL 

equals 

AC  PA  STAT  - L 

BACKUP  .12 

3002 

SE  T LOC  * 5C 

OVERSPIL 

BA 

3003 

NUMERALS 

OCT 

3AA2  A2A2  3 A * 

AOAO 

76 A A AO 

3O0A 

■ OCT 

AA52  A2t>2  AA, 

2 A52 

5252  A2 

3005 

OCT 

2076  2 A30  20* 

2252 

5252  56 

3006 

OCT 

2252  5252  3A, 

0206 

1222  A2 

3007 

OCT 

2A52  5252  2A. 

3A52 

5252  aA 

end  oh  revision  19  of  program  yulpasso  by  hb_s 
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leave  room  for  10  patches. 


SYMgOL  TABLE  -ISTING,  INCLUDING  PaG£  NUMBER  OF  DEFINITION.  AND  NjMBER  OF  REFERENCES  WITH  FIRST  AND  LAST  PAGe  NJMB686  112 
THERE  ARE  ND  SYMBOLS  IN  THIS  ASSEMBLY. 

the  assembly  « as  Good:  manu  = aci-uraBle  binary  records  stored  on  experqGs. 


..I 

) 

3 

..z 
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Roooooi  we  are  deeply  indebted  to  the  one,  the  only*  the  sReat  jdhn  sHAw  for  the  following  strong  magic 

R0002  JSOCT  L 


0003 S£TL°C  1 1C Q Bi 


OOOA  ■ MAS<GRP,1  s,0  f.o 


R0005  YUL  SYSTEMi  Pass  1 READS  Cards  DnLY  (new  ASSEMBLY),  Or  merges  Cards  With  SYPT  Or  SYLT  records  (rEVi- 

R0007  SlON  DR  VERSION  ASSEMBLY),  ONE-SHOT  MODIFICATION  OF  SUBPROSrAMS  WILL  Be  ALLOWED  SOMeJDAY,  CARDS  BEING  ^eRGeD 
R0009  WITH  SYLt  RECORDS  but  no  PERMANENT  change 5 Being  made  in  the  SYLT.  CORRECT  ORDERING  OF  CARD  NUMBERS  IS  REQUIRED 
Rooil  (ON  PAIN  OF  CUSSING  IN  NEW  ASSEMBLY,  OR  REJECTION  OF  ALL  INPUT  IN  REVISION  OR  VERSION  ASSEMBLY). 


ROO 1 5 PASS  i COPIES  SYPTSAVeS  AND  SYITSAVfS  FROM  TAPE  1 TO  TAPE  3*  AND  BYPTSAVES  FROM  TAPE  1 TO  TA^e  A. 

R0017  IT  ALSO  WRITES  POpO  OASS  ONE  PROGRAM  OuT^uT)  RECORDS  ON  TApF  2.  US  CHIEF  OPERATIONS  ON  SOmE  IMPORTANT  TYPES 
R 0 0 1 9 OF  CARDS  ARF  LISTED  BELOW ; 

R0020  1)  INSTRUCTIONS  AND  CONSTANTS.  PROCESSING  OF  LOCATION  FIELD  (GENERALLY  AFFECTING  THt  LOCATION  COUNTER) 

R0022  ANp  DEFINITION  OF  LOCATION  5YM30L  ARE  }ONE.  FIXEd  MEMORY  IS  RESERVED  AS  NEEDED*  LEFTOVERS  ARF 

R002A  MAR<ED  AS  SUCH,  15  BITS  OF  CODED  INFORMATION  (MOSTLY  OP  CODE)  ARE  ATTACHED  TO  INSTRUCTION  CaRDS. 

R0026  2)  IS,=*EOUAlS,  AN  ATTEMPT  IS  MADE  TO  DEFINE  THE  LOCATION  SYMBOL  BY  EVALUATING  THE  ADDRESS  FI:L), 

RQ028  FAILURE  Or  THIS  OPERATION  BY  REASON  OF  AN  JNDEFINfD  ADDRESS  SYMBOL  "NEARLY  DEFINES"  THE  SYMBOL. 


R0030  3)  ERASE.  erasable  memory  IS  reserved  as  requested,  excfpt  for  leftover  erase  cards. 

R0032  a)  other  clerical  codes.  these  generally  have  theip  effect  in  pass  i (e.g.  manipulating  the  location 

R003A  COUNTER)  . 


! * 
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PQ035  INTERPASS  STORAGE. &3..WQRD&J, _ 


0036 

0037 

0038 

PROG  NAME 
NEXT'  NAME 
SWITCH'  . 

reserve 

RESERVE 
RESERVE . . 

1 

1 

1 

0039 

L OLD  LINE 

RESERVE 

1 

00  AO 

OLD  J.1NE 

RESERVE 

16 

0041 

PASE  HEAD 

reserve 

16 

0042 

page  no 

reserve 

1 _ 

0044 

sym  place 

RESERVE 

1 

00  A5 

SY vi  TnB  XS 

RESERVE 

i 

00A6 

L COP  BJFS 

RESERVE 

i _ _ 

00A8 

MID  POINT 

reserve 

i 

00  A9 

LIN  COUNT 

reserve 

i 

0050 

N WD  RECS 

RESERVE 

l 

0051 

E SYLT  BAN 

RESERVE 

i 

0052 

L PROG-  FIL 

reserve 

i 

0053 

N LINES 

RESERVE 

l 

0054 

L COM3  NAM 

reserve 

i 

0055 

N COPIES 

RESERVE 

i 

0056 

paper  ply 

RESERVE 

i 

00561 

err  PAGES 

RESERVE 

i 

00562 

N ERR  LINS 

RESERVE 

i 

00563 

L AUTHi  NAM 

RESERVE 

i 

0056A 

SORS  name 

RESERVE 

i 

00565 

compjter 

RESERVE 

i 

00568 

SEG  OWNER 

RESERVE 

i 

00569 

SUBSTRAB 

reserve 

8 

R0057 

the  Following  instruction 

IS  placed  at 

the  base  address 

(10077)  OF  PASS  1 FoR  CONVENIENCE. 

0059 

YUL  PASS  1 

ts 

Pi  MASXS 

Z * MXR 

INISH  Pi 

INITIALIZATION  CONTINUED  ON  PAG?  66. 

R00600A 

SIMULATED  | 

extended  ts 

routine*  placed 

HERE  TO  TA<£ 

ADVANTAGE  of  the 

: t* 

00601 

ETS 

EQUALS 

YUL  PASS  1 

00602 

SWS,  C7T8 

ETS 

12 

C * + 2 

c address  of  register  to  be  loaded. 

0060A 

EX 

N.AU1 

CAC  3 

ETS 

c INPUT  IS  16  BUS. 

00606 

EBA 

ETS 

BIT  25 

Z,0 

C OUTPUT  IS  24  BITS. 

00608 

NA 

Z.CSH 

ZiSC 

N * AU2 

c 

00609 

TX 

Z.AU2 

- 

z.sc 

S EXIT  IN  SAME  MODE  AS  ENTRY. 

L (9YUL  SYSTEM 

ASSEMBLER 

--  PASS  1 

USER'S  OWN  PAGE  NO.  3 PAGE  3 

P0061 

transfer  vector  entri 

£S  69  ONWARD. 

(TRANSFER  VECIC 

TAME.) 

00610“+ 

BIT  32 

DEC 

-1  0000 

006108 

BIT  45  NOT 

O CT  

-177767 

006112 

TWO 

OCT 

-2 

006116 

NINE 

DEC 

-9 

00612 

FREE  NTRY 

OCT 

- 1 3 3 7 6'0 

006124 

FREE  EXIT 

OCT 

-133760 

006128 

SAPO  mtry 

OCT  _ _ 

- 33777 

006132 

PI  masks 

MA5KBASE 

S.O 

F , 0 

caC2  holds  l next  sub. 

006134 

end  PARAS 

DEC 

♦ GGGG  _ 

006136 

end  yjl 

ALF.3 

END  YUL  PASS 

1 PASS  1 * 

R00614 

ROJTINE  FOR  ALL  UNMANAGEABLE  TROUBLES. 

006144 

disaster 

MPC « H 

Zil 

301 

MON  PCR 

imitate  the  action  of  a background. 

006148 

ALF 

DISASTER 

R006152 

subrdjtine 

to  deliver 

THE  NAMe  OF  A 

FRee  3UFFER  IN 

AJj,  SLefPS 

while 

waiting  if  need  be.  cosequence  in  and  djt. 

006156 

GRAB  -REE 

ts 

Z.CSH 

Z.AJ2 

C « + 3 

C 

SAVE  RETURN  ADDRESS. 

00616 

TS 

N.R7 

Z.AJ1 

C.  + A 

C 

fetch  name  of  buffer. 

006164 

TS 

z,sc 

Z.AJl 

CSC  SLEEP 

s 

SLEEP  IF  THERE  ARE  NO  FREE  BUFFERS, 

006168 

TS 

FREE  EXIT 

Z.R7 

c 

006172 

SSL.  ONE 

N,R7 

16 

C.-3 

c 

TEST  WHETHER  THERE  IS  A FREE  BJ-FfR. 

006176 

TS 

BIT  32 

N.R7.1 

- 

c 

PLANT  BUSY  FLAG  IN  FREE  LIST. 

00618 

EX 

Z,R7 

BIT  45  NOT 

free  exit 

c 

modulate  free  list  exit  pointer. 

006184 

TX 

Z.AU2 

m 

z.csc 

c 

R006188 

CL0SED  SUBROUTINE  TO 

Demote  a buffer 

IN  JOINT  STATUS  TO  INPJt  OR 

SAVE 

status,  or  free  a buffer  without  joint 

R006192 

ST  AT  JS.  IF  bOFFER  IS 

KNOWN  NOT  TO  be  in  JOINT  STATJS,  ENTER  AT 

sft  free,  provide  buffer  name  in  Z.SH. 

006196 

FREE  IN  SV 

TS 

JOINT  X I T 

Z.R7 

- 

c 

0062 

LA 

Z.SH 

N.R7 

C.  + 2 

c 

branch  if  buffer  might  be  in  joint  stat. 

006204 

TS 

free  ntry 

Z.R7 

SET  FREE  +1 

c 

otherwise  PUT  name  into  free  list. 

006208 

LA 

N.R7 

Z.SH. 

DISJOINT 

c 

BRANCH  if  buffer  is  IN  JOINT  STATJS. 

006212 

SET  FREE 

TS 

free  ntry 

Z.R7 

c 

OTHERWISE  PUT  name  into  FREE  LIST. 

006216 

TS 

Z.SH 

N.R7.1 

• 

c 

00622 

EX 

Z.R7 

BIT  45  NOT 

FREE  NT  Rv 

r • 
L 

MODULATE  FREE  LIST  ENTRY  POINTER. 

006224 

TS 

z,sc 

z.csc 

MON  WAKE 

c 

006228 

DISJOINT 

TS 

Zero 

N . R 7 * I 

c 

REPLACE  IN  JOINT  LIST  WITH  VOID  FLAG. 

006232 

SM 

Z.R7 

BIT  46  R 

JOINT  XlT 

s 

MODULATE  JOINT  LIST  EXIT  POINTED,  EXIT. 

R006236 

MINOR  SUBROUTINE  TO  SlEEP  IN  COSEQUENCe  MODE. 

00624 

esc  Sleep 

TS 

MON  SLEEP 

c 

006244 

TS 

Z.AUl 

Z « SC 

n.sh 

£ 

L eYUL 

SYSTEM  ASSEMBLER  — PASS  1 

USER'S  OiaIN  PAGE  NO. 

A 

PAGE  A 

P0062A8# 

MASKS  FOR  MAIN  PART  OF  PASS  1. 

0062A9*  DELETE 

0063 

B.B1T2 

OCT 

2 

006A 

MERJ  'lODE. 

equals 

BIT  2 

0065 

B * BI T 3 

OCT 

1 

0066 

tape  kept 

equals 

BIT  3 

0067 

B * B I T 5 

OCT  

02 ' 

0068 

KNOW  SUBS 

equals 

BIT  5 

0069 

BtBIT.S 

OCT 

01 

0070 

CORRECT 

equals 

BIT  6 

field 

AND 

SHIFT 

MASKS 

1-A  • 

0072 

B«BIT3 

OCT 

002 

007A 

B * B I T 9 

OCT 

001 

0075 

B * B I T lO 

OCT 

OOOA 

0076 

B * B I T 1 1 

OCT 

0002 

FIELD 

AND 

shift 

MASKS 

5-8. 

0078 

B * B I T 1 2 

OCT 

0001 

0079 

B * B I T 1 3 

OCT 

0000  A 

0080 

B*B1T1A 

OCT 

0000  2 _ _ 

0081 

B*8IT16 

OCT 

0000  OA 

FIELD 

AND 

SHIFT 

MASKS 

9-12. 

0083 

B * B I T 37 

OCT  __ 

-AOOO 

008A 

B.BITA3 

OCT 

-AO 

0085 

B*B236 

OCT 

21 

0086 

B*B3T5 

OCT 

17 

FIELD 

AND 

SHIFT 

MASKS 

13-16. 

0088 

B *883  1 7 

OCT 

0020  02 

0089 

B*81231A 

OCT 

0001  2 

0090 

B *325  T27 

OCT 

-7060  0000 

0091 

L STY3E 

EQUALS 

B25T27 

0092 

B* CHART 

OCT 

-7700 

FIELD 

AND 

SHIFT 

MASKS 

17-20. 

009A 

B * D8 

DEC 

-G  0000 

0095 

B*D12 

dec 

-G 

0096 

B * CHA  R 1 

OCT 

77 

0097 

CD  TY3E 

EQUALS 

CHARI 

0098 

B * CHA  R2 

OCT 

0077 

FIELD 

AND 

SHIFT 

MASKS 

21-2A. 

0100 

B.CHAR8 

OCT 

-77 

0101 

B * Cl T6 

OCT 

7777  7777  7777 

0102 

B * C2T  7 

OCT 

0077  7777  7777 

77 

0103 

B*C2T3 

OCT 

0077  7777  7777 

7777 

010A 

FIX  MAG 

equals 

C2T8 

FIELD 

AND 

SHIFT 

MASKS 

25-28. 

0106 

B*CAC3 

DEC 

-GGGG 

0107 

B*CACi 

OCT 

0 

0108 

ALF  MASK 

EQUALS 

CACN 

0109 

B.SPECMAG 

OCT 

-7  7777 

0110 

B * DAT  EMASK 

OCT 

-77  7700  7777 

FIELD 

AND 

SHIFT 

MASKS 

29-32. 

Pol  12 

0113 

0114 

0115 

0116 

0118 

0119 

0120 
0121 

0123 

0124 

0125 

0126 

0128 

0129 

0130 

0131 

0133 

0134 

0135 

0136 

0138 

0139 

0140 

0141 

0142 

0143 

0144 
0146 


0147 

0U8 

0149 

0150 


@YUL  SYSTEM  ASSEMBLER  — PASS  1 USER'S  OWN  PAGE  NO.  5 PAGE  5 

_ SMJ-FT-MASKSi  Pass  1. 


S * B I T l 

OCT 

4 

S * B I T 46R 

OCT 

-4 

S * 35T  6 

OCT 

03 

S»B19T25 

OCT 

0000  0077  4 

S»B22T25 

OCT 

0000  0007  4 

S*B22T32 

OCT 

0000  0007  7760 

S*325T30 

OCT 

-7700  0000 

S ♦ B26  T30 

OCT 

-3700  0000 

S*C7T3 

OCT 

-7777 

S*D7 

DEC 

-GO  0000 

S*CAC23 

DEC 

-GGGG  GGGG 

S*CAC2 

DEC 

0000  GGGG 

S * CAC 1 2 

DEC 

GGGG  GGGG 

s*dne 

OCT 

-1  

S * ONES 

DEC 

GGGG  GGGG  GGGG 

S*OCTMASK 

OCT 

-7777  7770 

SHIFT  MA5KS  33-36. 


SHIFT  MASKS  37-40. 


SHIFL  MASKS  A 1-44. 


SHIFT  MASKS  45-48. 


S’YYNMYYYY  OCT  7777  0000  7777  7777 

S'THREADIO  OCT  -3776 

S * 04  DEC OOOG _ 

S*PRDj5UB  OCT  001  SOME  PARAPROGRAM  FIELD  MASKS. 

5 * 37X13 QCI 00774 , 

S*<NE^SUBs  OCT  02 

S * CAC  3R  OCT  -177777 

StBlT  36R  OCT -1  0000 

S*C1T4  OCT  7777  7777 

S * 3 1 T 44  OCT  _..  -20 

S * 3 1 T 4 OCT  04 

S*338T48  OCT  -3777 


S*  L0W5  OCT  -37 

S*BIT12R  OCT  0001 

S*C5T3  DEC  -GGG  GGG 

S * AC02  OCT  0007 


1 


L 

P0151 

gYUL  SYSTEM 

assembler  — PASS  1 

DEFINITIONS  OF  SYMBOLS, 

USER'S  OWN  PAGE  NO.  6 

CONSTANTS^  VARIABLE  AND  TfMPQRARY  storages,  etc,  FOR  TH£  main 

PAGE  6 

(GROUP  A)  PART 

P0153 

0155 

OF  PASS  1. 
HEALT-tl 

THIS  page; 

ASSIGN 

ASSIGNMENTS 

0*0 

and  variable  storage  reservations. 

0156 

CARDN3’  *<d 

assign 

0,1 

0157 

LOC  FIELD 

assign 

0,2 

0158 

OF  FIELD 

ASSIGN  _ 

0,3 

0159 

address  1 

ASSIGN 

0,4 

0160 

ADDRESS  2 

ASSIGN 

0,5 

0161 

DATE  WORD' 

ASSIGN 

0,9 

016105 

PHI  JAPE 

ASSIGN 

7,1 

01611 

MON  SnACH 

assign 

7,2 

0162 

MON  PEEK 

assign 

7,3 

0163 

EOR 

assign 

7,4 

0164 

PHI  LOAD 

assign 

7,7 

0166 

MON  READ 

assign 

7,15 

0168 

MON  S-NTR 

assign 

7,40 

016802 

MON  A2D 

ASSIGN 

7,41 

0169 

BASE  4DDR 

assign 

7,47 

016904 

MON  /JAKE 

ASSIGN 

7,99 

016905 

DlSCA3 

assign 

7,114 

016906 

MON  S.EEP 

assign 

7,166 

016909 

DISC  ST  AT 

ASSIGN 

7,210 

01691 

MON  TYPER 

assign 

7,215 

016915 

MON  p:r 

ASSIGN 

7,220 

016916 

disc  :hek 

assign 

7,221 

01692 

MON  TADDR 

assign 

7,223 

01695 

DISC  READ 

ASSIGN 

7,239 

0171 

RL  CD  HLtH 

reserve 

1 

0172 

REAL  CARD 

reserve 

10 

0173 

PROC  RTRN 

RESERVE 

1 

0174 

CARD  NO 

RESERVE 

1 

0175 

CN  LIMIT 

RESERVE 

1 

0176 

COMMON 

RESERVE 

10 

0177 

TP  CD  HLTH  RESERVE 

1 

0178 

tape  CARD 

RESERVE 

10 

0179 

FIELD  COD 

RESERVE 

2 

0180 

ADR  W D 

RESERVE 

2 

0181 

SAVE  LOC 

RESERVE 

1 

0182 

LOC  VALUE 

RESERVE 

1 

0184 

LOC  CTR 

RESERVE 

1 

0185 

POB  P.ACE 

RESERVE 

1 

0186 

inb  p„ace 

RESERVE 

1 

0167 

POPO  3UFF 

RESERVE 

1 

0188 

end  pdbuf 

RESERVE 

1 

0190 

end  typ  ta 

RESERVE 

1 

0191 

MERJ  RTRN 

RESERVE 

1 

0192 

AVAIL  MSK 

RESERVE 

1 

0193 

DIG  FILE 

RESERVE 

8 

L 

P0194 
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7 PAGE  7 

0195 

BIT  23 

DEC 

00001 

0196 

(REMARK) 

OCT 

06 

0197 

B I T 4 5 

DEC  

-8 

0199 

B43T44 

OCT 

-60 

01999 

BIT  23 

OCT 

0000 

0002 

0200 

BIT  24 

OCT 

0000 

' 0001 

0203 

SIX 

OCT 

-6 

0204 

REAL  CDNO 

OCT 

0 

0205 

BIT  7 

OCT 

004 

0207 

TAPE  COMO 

QCT  . 

<3 

0208 

(UELETE) 

OCT 

05 

0209 

(RIGHT  P) 

OCT 

07 

0211 

(MEMORY) 

OCT 

11 

0212 

SPEC  SIGN 

OCT 

-10 

0000 

0213 

starmsks 

OCT 

77, 

0077 

',  0000  77,  0000  0377 

0214 

OCT 

-7700  0000,  -77  0300 

0215 

(INSTRi) 

OCT 

12 

0216 

( ILL03) 

OCT 

13 

0217 

(BECMu)  _ 

OCT 

14 

0218 

(OCTAL) 

OCT 

15 

0219 

XPORMS  DEC 

468 

9B5 

318  G 

02195 

DEC 

47C 

DEG 

42F  2 

0220 

DEC 

47C 

DEG 

42F  2 

02205 

DEC 

C7C 

DE6 

42C  4 

0221 

DEC 

C7C 

DE7 

42C  4 

02215 

DEC 

07C 

DEG 

62G  G 

0222 

DEC 

37C 

DEG 

42C  7 

02225 

DEC 

37C 

DEG 

42C  7 

0223 

DEC 

ICC 

FFG 

C2C  C 

02235 

DEC 

3DF 

DFG 

D2F  D 

0224 

DEC 

3EF 

FEG 

E2F  E 

02245 

DEC 

ICC 

FFG 

C2C  C 

0225 

DEC 

3DF 

DFG 

D2F  D 

02255 

DEC 

3EF 

FEG 

E2F  E 

0226 

DEC 

IFF 

FFG 

F2F  F 

02265 

DEC 

1GG 

GGG 

G2G  G 

L gYUL  SYSTEM  ASSEMBLER  — PASS  1 USER'S  OWN  PAGE  NO,  8 PAGE  8 
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022799 

LAST  :dno 

ALF 

00000000 

0228 

TYPE  E 

OCt 

-AOOO  0000  TYPE 

E TERMINATES  A2D 

CONV  OF  LAST 

CDNO. 

0229 

TYPE  r 

OCT 

-2000  0000 

0230 

type  m 

OCT 

-1000  0000 

0231 

(EDUA.S) 

OCT 

16 

0232 

B5  B8  BIO 

OCT 

022A 

0233 

BIT  15 

OCT _ 

0000  1 

02335 

BIT  31 

OCT 

-AO  0000 

0238 

three 

OCT 

-3 

0239 

< 2DECV1L) 

OCT 

22 

02  AO 

(HEAD) 

OCT 

2A 

02A1 

(2LATE) 

OCT 

_ 25  _ 

02  A2 

(Bloc  <i> 

OCT 

23 

02  A3 

(SJBRDi) 

OCT 

26 

02A31 

(NW  INST) 

OCT 

27 

02A32 

(E^EN) 

OCT 

30 

02  a33 

(COUNT) 

OCT 

31 

02  A3  A 

( INC1 NS) 

OCT 

Oa2  LIKE 

AN  ACCEPTOR  WITH 

a defect;  nd 

e. 

02A35 

(SeGNJM) 

OCT 

32 

02  AA 

MAX  CARDN 

DEC 

0999898 

02A5 

DEC  AUF  Ml 

DEC 

-GGO  000  GGO 

02  A6 

DEC  A_F  M2 

DEC 

03D  03D  03D  03D 

02  A7 

B2 A 332 

OCT 

-1  0020  0000 

02A8 

B8TA8 

DEC 

- 1GG  GGGG  GGGG 

0250 

C253 

FXBIN 

-253 

0251 

BIT  17 

DEC 

0000  8 

02511 

BIT  13 

OCT 

0000  01 

02512 

BIT  19 

OCT 

0000  QOA 

0252 

3 D8 

DEC 

-30000 

0253 

5D8 

DEC 

-5  0000 

025A 

DD8 

DEC 

-D  0000 

0255 

B25T25 

OCT 

-6000  0000 

02561 

BAD1  3 I TS 

DEC 

00277 

L 

@YUL  SYSTEM 

assembler 

— Pass  i 

USER'S  OWN  PAGE  NO.  9 PAGE  9 

P0257 

ALPHA3ETIC 

CONSTANTS^ 

— first  of  two  pages.  _ _ __ 

02571 

PARP  MAME 

ALF 

????PASl 

02572 

PASS  l 

ALF 

Y U L P ASS2 

02573 

PI  EPILOG 

ALF 

YULENDP 1 

0258 

(End  dpi 

ALF 

_ 00000000  . 

0259 

end  DP  1 

OCT 

7611  ini  ini  n5o 

0260 

ALF  * A 

0261 

ALF, A 

0262 

blan<s 

ALF 

0263 

bldts 

ALF 

0264 

w insert 

ALF 

INSERT 

0265 

AMPRSANS 

ALf 

66666666 

0266 

A999999 

ALF 

09999990 

0267 

W MODIFY 

ALF 

MODIFY 

0268 

ASJRI SKS 

ALF 

******** 

0269 

W SOBRMIN 

ALF 

oseqbr<- 

0270 

W CAR3N0 

ALF 

cardno 

02701 

W CARDNS 

ALF 

CARDNS 

0271 

W CORRECT 

ALF 

CORRECT 

0272 

m change 

ALF  _ 

change 

0273  END  ERR  M ALF, 5 20000000<«*i»"«»MTHE  FOLLOWING  CARD5  ARE 

027A  alf,5  rejected  because  they  cojldn't  be  merged 

0275  ALF  _ : 

0276  INC  INSRT  ALF, A E»"««»»AINCOMPLETE  INSERTION 


L 

gYUL  SYSTEM 

assembler  — 

PASS  1 

USER'S  OWN  PAGE  NO.  10 

PAGE  10 

P0277 

alphabet ic 

CONSTANTS  — 

SECON-LL-DF  tiwq  pages. _ 

0278 

DOLLARS 

ALF 

$$$$$$$$ 

0279 

W DELETE 

ALF  __ 

DELETE  _ 

0280 

w preserv 

ALF 

PRESERVE 

0281 

DASHES 

ALF 

0282 

WH  PLY  M$G 

ALF, 2 

WHAT  PLY  PAPER** 

02821 

WAA  10060 

ALF, 3 

W A A 10060  OOOOOOOP 

0283 

OP  SLRi  MSG 

ALF, 2 

operator  ASLEEP 

0284 

W THROUGH 

ALF 

THROUGH 

0285 

W TO 

ALF 

TO 

0286 

W SE33RAK 

ALF 

SEQBRLAK 

02862 

W SE03RK 

ALF  . . 

SEQBRK 

0287 

W MEMORY 

ALF 

MEMORY 

02875 

w segnum 

ALF 

SEGNUM 

0288 

W THRJI 

ALF 

THRU 

0289 

W BEGIN 

ALF 

begin 

02891 

W END 

ALF 

END 

0290 

W ST  TYPES 

ALF, 3 

ERASABLEFIXED  s^ec/non 

0291 

HEAD 

ALF 

0292 

W ANYWHAR 

ALF 

anywhere 

0293 

W LOG 

ALF 

LOG 

0294 

W OJTOSEO 

ALF 

outofseu 

0295 

TASK  REU 

ALF, 5 

0296 

ALF, 5 

CORRECTED  Deck  WITH  SAME  DIRECTOR  CARD. 

0297 

W WIT  HI 

ALF 

WITH 

0298 

POINT  Cl 

ALF 

t 

0299 

w owner  eu 

ALF  ,2 

OWNER  = ???????? 

L 

@yul  system  assembler 

— PASS  1 

USER' 

S OWN  PAGE  NO. 

11  PAGE  11 

P0300 

address  constants. 

0301 

0303 

0305 

L END  OF  CAC 

L END  PI  CAC 

L GET  REAL  CAC 

9216 

8192 

7168 

(END  0 F ) 
END  PASS  1 
GET  REAL 

ALSO  R 
ALSO  Q 
ALSO  P 

column  i. 
column  1. 
COLUMN  1. 

0307 

0309 

L END  ERRM  CAC 
L COM3'  CNS  CAC 

3072 

1024 

END  ERR  m 
CdMP  CONS 

ALSO  L 
ALSO  J 

COLUMN  1. 

column  i. 

03101 

0311 

0312 

L SEND  DEL  SPEC 
L CARD  W9  SPEC 
L SU3  R JUS  SPEC 

send  DELF 
REAL  CARO  +9 

0313 

ST  T A 3 MAX  SPEC*B5 

927 

- 

0314 

SOURCE  CAC 

15043  _ 

TAPE  CARD  -1 

real  CARP  -1 

0315 

0316 

0317 

N L CHAR  6 SPEC 
L NEXT  SUB  RESERVE 
L XFORMS  spec 

1 

STARMS<5  *5 
XFORMS 

0318 

0319 

L DIG  FILE  SPEC 
L SYM  THR  SPEC’ 

DIG  FILE 
836 

03191 

0320 

0321 

LL  SJ3  TAB  SPEC*  B5 
L TYP  TAB  SPEC*  B5 
L AV  TABLE  SPEC*B4 

849 

900 

DAMN  ZERn 

0322 

032201 

L PRSV  CNS  CAC 
L INSRIT  LP  EQUAL5 

INSRT  LUP 
L PRSV  CNS 

PRESERVE 

L P/AE<1T7 

spec,  37 

0373 

0324 

0326 

L END  THR  SPEC*  B7 
MON  WAA  SPEC*  B7 

L LAST  CNU  SPEC  

6 

600 

LAST  CDNn 

0327 

L DISASTR  SPEC 

DISASTER 

0333 

JOINT  X I T OCT 

-33757 

0334 

0335 

0336 

RL  T Y 3 TAB  SPEC*  B2 
L find  cdn  spec 

L BOTH!  CDS  CAC 

24576 

TAPE  CARD  +1 

2000 

FIND  CDNn 
REAL  CARD  +1 

ALSO  Y 

COLUMN  l. 

L 
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P0338 

equivalences.  _ 

0339 

0340 

ZERO  EQUALS  (END  OF) 

CHAR  6 EQUALS  _ STAR  MSKS  *5  .......  ._  ... 

0341 

0342 

(MODIFY)  EQUALS  BIT  6 

(CARD  NO)  EQUALS  B5T6 

0343 

0344 
03441 

0345 

P coljmn  1 EQUALS  l get  real 

L COLUMN  1 EQUALS  L END  ERR  M 

T COLUMN  1 EQUALS  W THRU 

R COLJMN  1 EQUALS  L END  OF 

0346 

0347 

0348 

0349 

LOW  L1M EQUALS  ADR  WD 

HI  LID  EQUALS  ADR  WD  +1 

(ALIREM)  equals  BIT  3 

tn  mask  EQUALS  COMMON  +8 

0350 

0351 

0352 

0353 

COUNT  FLD  EQUALS  B25T30 

J COLJMN  1 EQUALS  L COMP  CNS 

LOC  STATE  EQUALS  COMMON  .9 

(SETLOC)  EQUALS  B3T6 

0354 

0355 

0356 

0358 

0359 

0360 

INRECNT  EQUALS  SUBSTRAb  +5 

LOC  LOC  EQUALS  COMMON  +7 

(ERASE)  EQUALS  BIT  2 

(20CTAL)  EQUALS  B2B6 

TEN  Cl  EQUALS  (INSTR) 

damn  ZERO  equals  0 

0361 

INPUT  NAM  EQUALS  SUBSTRAB  +6 

0362 

0363 

0364 

0365 

0366 

AFIELD  EQUALS  COMMON  *4 

EIGHT  EQUALS  BlT  45 

UNSI3  NUM  EQUALS  <BLOC<) 

DC  1 EQUALS  (HEAD) 

ALF  9 Cl  EQUALS  (MEMORY) 

0367 

0368 

0369 

0370 
0373 

CHAR5  EQUALS  B2.5T3JL 

ALF9C2  EQUALS  END  OF  1 

BIT  25  EQUALS  TYPE  E 

DEC  AlF  M3  EQUALS  AMPRSANS 

B5  Z8  BIO  EQUALS  W LOG 

0374 

0375 

0376 

0377 

A COLJMN  1 EQUALS  B2B6 

END  SY  TAB  EQUALS  L A V TABLE 

Y COLJMN  l EQUALS  L BOTH  CDS 

EQUALS  Cl  EQUALS  (1LL0P) 

03771 

(ACCEPT)  EQUALS  BIT  ~4 

03772 

THREAD  11  EQUALS  B38T48 

0378 

03781 

03782 

ZX  EQUALS  8 

SPRA  EQUALS  128 

SPRAMRl  EQUALS  384 

0380 

0381 

OCT  4 DOO  EQUALS  BIT  37 

2 D8  EQUALS  BIT  31 

L 
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P 0440 

GET 

REAL  IS_ 

NORMALLY  THE 

CH LEF  node  of 

PASS  1.  OCCASIONALLY 

merge  control  procedures  take  over, 

R0442 

ACCEPT  I MG 

OR  REJECTING' 

TAPE  CARDS. 

0493 

GET  R-AL 

TS 

get  card 

get  A CARD  and  BRANCH  ON  NO  END  QF  FILE. 

0445 

TS 

L END  OF 

z,xo 

TP  RJNOJt 

RUN  OUT  TAPE  CARDS  AT  END  OF  FI_E. 

0447 

mode  >1 

NA, 

MeRJMOOE 

SWITCH 

ONES 

mod  1 f chk 

branch  if  in  main  part  of  new  3rogram. 

0449 

NA, 

lAPEKE3! 

SWITCH 

ZERJ^ 

mod  1 f chk 

branch  if  a tape  card  is  WAITING. 

0451 

TS 

Z«SC* 19 

Z , S3 

SET  TAPE 

c 

GET  TAPE  CARD. 

R0453 

fall  THROUGH  on  end  of 

FILE.  TAB  TO 

Modi f chk  normally. 

04532 

NA, 

BITS 

switch 

ONES 

C , ♦ 2 

BRANCH  IF  NOT  FREEZING  SUBROUTINES. 

04534 

TS 

L END  OF 

z.xo 

SEND  POPn 

C _ 

0454 

TS 

L END  ERRM 

z,xo 

send  popo 

c 

tape  cards  ran  out  before  Real  cards. 

0456 

SWEi 

, CAC3 

source 

16 

Z,X0 

PREPARE  TO  CUSS  REMAINING  REAL  CARDS. 

0458 

heave  ho 

TN 

RL  CD  HLTH 

11 

TP  CD  HLtH 

MOVE  CARD  OUT  OF  HARM'S  WAY. 

0460 

TS* 

CD  TYPE 

(MODIFY) 

IP  CD  HlTH 

GET  CARD 

0451 

TS, 

Vl2 

eight 

TAPE  CARD 

LAST  BARf 

SET  UP  PAGE  SKIP  ON  END  OF  FILE. 

04622 

TS, 

°12 

TWO 

TAPE  CARD 

send  popo 

c 

ALL  REJECTS  BUT  LAST  ARE  SPACED  2. 

04624 

NA, 

CHARI 

REAL  CARD 

BLANKS 

LAST  BARF  -1 

04626 

LA, 

Jl2. 

NINE 

REAL  CARD 

LAST  BARF  -1 

04628 

NA, 

C2T7 

REAL  CARD  +2 

W DELETE 

C , ♦ 2 

BAR  FALSE  DISORDER  CUSS  WHEN  REJECTING 

0463 

TS 

LAST  CDNO 

REAL  CDNO 

heave  ho 

DELETE  CARDS. 

04632 

NA, 

C2T7 

REAL  CARD  +2  W CARDNO 

LAST  BARF  -1 

04634 

TS 

MON  WAA 

Z,X6 

MCCD  ADRF  ,1 

04636 

NA 

FIELD  COD 

BIT  2 

LAST  BARF  -l 

04638 

TX 

CN  limit 

real  cdno 

DITTO  FOR  CARDNO  CARDS. 

0464 

TS 

real  cdno 

LAST  CDNO 

heavf  ho 

0465 

LAST  3ARF 

TS 

end  yul  +2 

end  yul  *1 

Send  POPn 

c 

set  up  typed  cuss  and  send  last  reject. 

0467 

TX 

l end  pi 

- 

Z,sc 

R0468 

AS  Wf  arrive  AT 

MODI F CHK  WE  ALWAYS 

have  dne  Real 

card  and  one  tape 

card  ready  to  be  serviced. 

0470 

MODI F CHK 

NA, 

C2T7 

real  card  ♦ 2 

W MODIFY 

NO  MOD I Fv 

see  if  operation  code  of  real  card  is 

0472 

NA, 

chari 

real  CARq 

blanks 

NO  MODIFY 

"MODIFY". 

0474 

LA, 

J12 

NINE 

REAL  CARD 

NO  MODIFY 

BUT  DON'T  be  FOOLED  BY  A REMARKS  CARD. 

0478 

TX  _ 

(MODIFY) 

RL  CD  HLTH 

indicate  card  type. 

0480 

MODE  02 

NA, 

MErJMODE 

switch 

ZErD 

TP  MODIFY 

when  merging,  run  to  next  subroutine. 

R0482 

when  in  main  part  of  new  program,  send 

0484 

TS 

z,sc 

PROC  RTRN 

PROC  REAL 

THE  "MODIFY"  CARD,  CREATE  AND  SrNO  THE 

0486 

TN 

(END  OF) 

11 

RL  CD  HLTH 

"END  OF"  CARD  MADE  UP  BY  PASS  0,  AND 

0488 

RESLR  NEW 

TS 

l get  real 

PROC  RTRN 

PROC  REAl 

process  the  latter. 

0490 

TP  modify 

TX 

Z,SC,l 

PROC  RTRN 

SET  UP  SEARCH  FOR  "END  OF"  CARD. 

0492 

TS 

L DISASIR 

Z , S3 

get  tapf 

c 

get  another  tape  card  if  not  fojnd  yet. 

0494 

NA 

TAPE  CARD 

END  OF  1 

PROC  TAPf 

0495 

TS 

Z,SC 

PROC  RTRN 

PROC  REAl 

PROCESS  "MODIFY"  JUST  BEFORE  "END  OF". 

0497 

TS 

l get  real 

PROC  RTRN 

PROC  TAPE 

0498 

NO  MODIFY 

NA, 

MERJMOOE 

SWITCH 

ONES 

reglr  new 

PROCESS  real  card  with  no  furth-r  ado. 
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P050Q  _ COMP  CONS  IS  THE  heart  OF  THE  merging  PROCESS.  I F THE  TAPE  CARD  tS  CHOSEN,  IT  CAnnOT  BE  An  »fND  OF"  CA}D. 

0502  comp  :dns  la  real  cdno  tape  cdnd  <eep  tapf  branch  if  real  card  comes  first. 

0504  IS ZtSC PRQC  RTRN PRQC  TAPf SINCE  THE  LAST  CARD  OF  A TAPF  FILf  IS 

0506  TS  L COMP  CNS  Z,SC  Get  TAPE  C NUMBERED  999999*  WE  GUARANTEE  NO  EOF. 

R0508  AT  THIS  POINT*  THe  REAL  CARD  IS  OF  PRIMARY  INTEREST.  EITHER  LL  IS  A„ MERG£_ CONTROL  CARD  (OTHER  THAN  "MODIFY")  OR 

R0510  IT  PR-CEDES  TwE  TAPE  :ARD,  OR  REPLACES  IT.  THE  MERGE  cONTRD,  cODfS  ARE  cARDNO  (CHANGE  OR  CORRECT  A cARo  NUMBER) 

Ro5i2  and  delete,  a card  with  ••=«  in  column  i accepts  a like-numbered  card  with  the  same  contents  of  columns  9-80. 


0514 

keep  tape 

SM 

Switch 

TAPE  KEPT 

switch 

INDICATE  that  a tape  card  IS  WAITING. 

05152 

LA, 

Dl2 

nine 

REAL  CARO 

NOT  MCCD 

RIGHT  PRINT  CAN'T  BE  MERGE  CONTROL  CARD. 

0516 

NA, 

CHARI 

real  card 

equals  Cl 

NOT  ACEPt 

BRANCH  IF  NOT  AN  ACCEPTOR  CARD. 

0518 

TS, 

CD  TY3E 

(ACCEPT) 

RL  Cp  HLTH 

TEST  MCCD 

C 

REJECT  IF  DISORDERED  CARD  NUMBER. 

0520 

TS 

blanks 

common 

PROC  REA| 

c 

make  xo  point  to  the  real  card. 

0521 

TS* 

C2T7 

real  card 

COMMON 

ANAL  S J3F 

c 

analyze  card  number  Field. 

05222 

SS 

zero 

BIT  9 

health 

disable  complaint  about  "D"  error. 

0523 

NA 

common 

W LOG 

not  eQ  log 

branch  if  not  accepting  a log  Card. 

05241 

NA, 

datemask 

real  card  ♦ 8 

(BLANKS 

c*  ♦ 2 

branch  If  dashes  should  be  put  in  date. 

0525 

TS 

CHAR  1 

meRJ  rtrn 

ACCEPT 

PREPARE  to  look  at  COLUMN  1. 

05261 

SS 

dashes 

CHAR  6 

REAL  CARn  +8 

05262 

TS, 

chari 

DASHES 

REAL  CARD  +9 

C , -2 

0527 

NOT  ED  LOG 

TS 

zero 

merj  rtrn 

ACCEPT 

0528 

ACC  N-XT 

TS 

z,sc 

PROC  RTRN 

PROC  TAPf 

0529 

TS 

L disastr 

Z , S3 

GET  TAPE 

c 

accept  a card  and  get  another. 

0531 

ACCEPT 

NA 

Tape  card 

END  OF  1 

C»  + 2 

0532 

TS, 

bit  10 

ONES 

RL  Cp  ~HLTH 

BAD  MeRGf 

ILLEGAL  to  accept  AN  "END  OF"  CaRO  THJS. 

0534 

NA 

TAPE  CDNO 

real  cdno 

ACC  NEXT 

DEMAND  EQUALITY  of  formal  Card  mUMBeR. 

05351 

TX 

merj  rtrn 

ALF  MASK 

0536 

NA, 

ALFMASKi 

TAPE  CARD 

W LOG 

ACC  NeXT 

BRANCH  IF  TAPE  CARD  SHOULD  BE  LOG. 

0538 

SWE 

, CAC3 

L BOTH  CDS 

16 

Z , A J 1 

0539 

TX 

L BOTH  CDS 

Z , A J2 

0540 

NA 

N,AU1 ,1 

N , A U2 

ACC  NEXT 

BRANCH  IF  DIFFERENCE  IN  COLS.  9-80. 

0542 

NA 

Z , AU2 , 1 

L CARD  W9 

C,-l 

0543 

NA, 

chari 

TAPE  CARD 

W LOG 

C , ♦ 2 

0544 

LA 

AlF  mask 

ZERO 

ACC  NEXT 

BR  IF  Is  LOG  BUT  SHOULD  NOT  BE. 

0546 

MARK  CARD 

SM 

TAPE  CARD 

BIT  44 

TAPE  CARn 

mark  card  as  accepted. 

0548 

TS 

SOURCE 

z,xo 

send  POPn 

c 

send  acceptor  card. 

0550 

TS 

l get  Real 

PROC  RTRN 

PROC  TAPf 

PROCESS  ACCEPTED  CARD,  GET  ANOT-IER  REAL. 
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P05511  PRoCg DURf  TD  DgTFCT  AND  PROCESS  RfQUfStS  FqR  CHANGING  OR  CORRECTING  CARD  NUMBfRS.  USING  THf  "CARDNO"  CODE.  HE 
r05513  "LARDMS"  CODE  Ib  SIMILAR,  BUT  STARTS  ReNJMBERING  cRqM  THAT  VaLUe  UNTIL  THE  NEXT  LOG  CARD.  "PRESeRVE  CANONS" 
R05515  TURNS  OFF  RENUMBERING.  IF  "RENUMBER"  SUBdIrEcTOR  WAS  JSEq*  TT  RESUMES  AFTER  ThE  REIGN  OF  ANY  "cARoNS"  ^O^E. 


0552 

055A2 

055A4 

not  acept 

NA, 

NA, 

NA 

CHARI 

C2T7 

real  card 
Real  card  *2 

REAL  CARD  +1 

BLANKS 

w cardns 
W PRESERV 

NOT  MCCD 
CARDNO  Co 
CARDNO  CQ  *1 

BRANCH  IF  CANNOT  BE  MERGE  CONTROL  CARD. 
BRANCH  IF  NOT  A "CARDNS"  CODE. 

055AA4 

TX, 

CD  TY3t 

(CARDNO) 

- 

RL  CD  HLTH 

055A5 

NA 

REAL  CARD  +3 

BLANKS 

TEST  MCCD  -2 

055A6 

NA 

BEAL  CARD  *4 

BLANKS 

TEST  MCCD  -2 

055*7 

NA, 

CHAR2 

RL  CD  HLTH 

ZERO 

bad  merge 

reject  "preserve  cardns"  for  an*  defect. 

055*8 

TS 

L PRSV  CNS 

mero  rtrn 

FIND  CDNn 

continued  on  Following  page. 

0555 

CARDNO'  Cq 

NA, 

C2T7 

REAL  CARD  *2 

W CARDNO 

delete  cq 

BRANCH  IF  NOT  A "CARDNO"  CODE. 

0557 

TS 

real  card  +i 

COMMON 

ANAL  SJBF 

c 

ANALYZE  LOCATION  FIELD. 

0559 

NA 

COMMON 

W CORRECT 

C , + 3 

0560 

SM 

SWITCH 

correct 

SWITCH 

set  up  search  for  bad  card  number  if 

0562 

TS 

zero 

RL  CD  HLTH 

C , + A 

"CORRECT"  BUT  NEVER  CUSS  THIS  CARD  NO. 

056* 

NA 

common  ___ 

w change 

C , ♦ 2 

0565 

TS, 

correct 

zero 

SWITCH 

C,  + 2 

SEEK  ok  CARD  NUMBER  IF  "CHANGE". 

0567 

SM 

RL  CD  HLTH 

BIT  8 

RL  CD  HL-fH 

CUSS  BAD  LOCATION  FIELD. 

0569 

TS, 

CD  ty3e 

(CARDNO) 

RL  CD  HLTH 

MCCD  ADRF 

note  type,  analyze  address  field. 

0571 

LA 

FIELD  COD 

BIT  2 

C»  + 2 

0572 

TS, 

bit  9 

ONES 

RL  CD  HLTH 

bad  mergf 

CUSS  BAD  ADDRESS  FIELD. 

057* 

LA 

FIELD  Cod 

BIT  3 

C , - 1 

0576 

test  mccd 

NA, 

CHAR2 

RL  CD  HLTH 

zero 

BAD  MeRGf 

reject  «cardno"  for  any  sin. 

0579 

TS 

Z,SC 

MERJ  RTRN 

find  cdnd 

set  UP  CARD  WHOSE  NUMBER  IS  TO  3E  CHGD. 

0581 

change 

TS, 

C2T7 

CN  LIMIT 

TAPE  CARO 

MARK  rARD 

c 

CHANGE  EXTERNAL  CARD  NUMBER. 

0582 

NA, 

CHARI 

TAPE  CARD 

L COLUMN  1 

C , + 3 

ON  LOG  CARD,  CHANGE  IS  SUPERFICIAL  ONLY. 

0583 

NA, 

C2T7 

TAPE  CARD 

ZERO 

SEND  CCNo 

058* 

TS, 

C2T7 

BLANKS 

TAPE  CARO 

SEND  CCNn 

..though  sqb  setting  is  blanked. 

0585 

SS 

zero 

BIT  A3 

TAPE  CARD 

CLEAR  POSSIBLE  SEQUENCE  break  3 T t . 

0586 

TX 

CN  LIMIT 

TAPE  CDNn 

CHANGE  INTERNAL  CARD  NUMBER. 

0587 

NA 

TAPE  CDNO 

BIT  6 

send  ccno 

if  seQ.  br.,  set  external  card  number  to 

0588 

SM 

TAPE  CARD 

W SOBRMIN 

TAPE  CARD 

seqbrk  and  set  bit  A3. 

0589 

SEND  CCNO 

TS 

SOURCE 

z,xo 

SEND  PDPO 

r 

send  "cardno",  "cardns",  or  "delete". 

0590 

NA, 

C2T7 

REAl  CARD  *2 

W CARDNO 

C»  + 2 

BRANCH  If  a SECTION  was  renumbered. 

05901 

TS, 

C2T7 

TAPE  CDNO 

REAL  CDNO 

MARK  CARD  +2 

new  NUMBER  IS  CRITERION  FOR  NE X t REAL. 

05901* 

LA 

SWITCH 

BIT  1 

C , +2 

IF  RENUMBERING  IS  NOW  UNDER  way,  COMPARE 

059016 

EX 

field  cod  +1 

C2T7 

LAST  CDNn 

NEW  NUMBER  WITH  LAST  CARD'S  RENJMBER. 

05902 

TS 

N,sc,2 

RNJM,  TEST 

ACC  NEXT 

c 

PROCESS  CARD  WITH  RENUMBERING  DISABLED. 

0591 

TX 

C i ♦ 1 

• 

RNJM  TEST 

c 

restore  renumbering  test  TO  normal. 

05912 

LA 

BIT  1 

SWITCH 

REM  CHECkr 

c 

0592 

TS 

L LAST  CNO 

Z , X A 

MON  A2D 

SET  UP  FOR  PARTIAL  RENUMBERING. 

0593 

RENUM3ER 

RESERVE 

1 

059A 

EX 

real  cdno 

C2T7 

LAST  CDNn 

FOR  CARDNS,  KEEP  OLD  SEQUENCE  CRITERION. 

0595 

l A 

bit  1 

SWITCH 

set  real 

exit  if  renumbering  is  now  under  way. 

0596 

SM 

SWITCH 

BIT  1 

SWITCH 

CALL  FOR  PARTIAL  RENUMBERING. 

0597 

TS 

C,*l 

RESTART  N +1 

get  Real 

MAKE  IT  STOP  AFTER  FIRST  LOG  CARD. 

0598 

TS 

ZERO 

renjmber 

NON  RNJM  +1 

c 

. 
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P06031 

PROCEDURE 

TO  DETECT  and_ 

PROCESS  "DELETE"  CARDS, 

0604 

DELETE  CQ 

NA, 

C2T7 

real  card  +2 

w delete 

INSERT  Cra 

branch  if  not  a "Delete"  code. 

0606 

NA 

real  card  +i 

W OJTOSED 

C , + 4 _ 

BRANCH  IF  LOCATION  FIELD  NOT  "DJTDFSEO". 

06q8 

SM 

switch 

CORRECT 

switch 

set  up  search  for  bad  card  number. 

0610 

TS 

ZERO 

RL  CD  HLTH 

C , + 4 

NEVER  CUSS  THIS  CARD  NUMBER. 

0612 

TS, 

bit  8 

ONES 

RL  CD  HLTH 

C,  + 2 

CUSS  BAD  LOCATION  FIELD. 

0614 

NA 

REAL  CARD  +1 

BLANKS 

C,-l 

0615 

SS 

zero 

CORRECT 

SWITCH 

SET  UP  SEARCH  FOR  OK  CARD  NUMBER. 

0617 

TS* 

CD  TY3£ 

(DELETE) 

RL  CD  HLTH 

MCCD  ADRf 

ANALYZE  ADDRESS  FIELD. 

0619 

NA 

field  cod 

ZERO 

del  sevri' 

BRANCH  If  ADDRESS  not  blank. 

0621 

NA* 

CHAR2 

RL  CD  HLTH 

ZERO 

DELE  FAIL 

♦ 1 

reject  singleton  delete  for  bad  card  no. 

0622 

TS 

L SEND  DEL 

meRJ  rtrn 

find  cdno 

go  find  single  card  to  be  deleted. 

0623 

DEL  SEVRL 

LA 

ONES 

FIELD  COD 

C , + 2 

branch  if  meaningless  address  Field. 

0625 

LA 

BIT  1 

field  cod 

C,  + 2 

branch  if  AdR  field  format  ok. 

0627 

TS, 

bit  9 

ONES 

RL  CD  HLTH 

dele  faii 

♦ 1 

CUSS  BAD  ADDRESS  FIELD. 

0629 

NA 

real  cdno 

BIT  6 

o<  dele  q 

-1 

BRANCH  IF  FIRST  CARDN0  IS  NOT  S?0  BREAK. 

0631 

NA 

CN  LIMIT 

BIT  6 

3<  DfL£  o 

BRANCH  IF  2ND  CARDNO  IS  NOT  SEO  BREAK. 

0633 

TS, 

bit  12 

ONES 

RL  CD  HLTH 

dele  faii 

+ 1 

CUSS  IF  1ST  CARDN  NOT  LESS  THAN  2ND. 

0634 

LA 

CN  LIMIT 

REAL  CDNO 

C,-l 

0635 

ok  DE-E  q 

NA, 

CHAR2 

RL  CD  HLTH 

ZERO' 

dele  fail 

♦ 1 

reject  "Delete"  card  for  any  sin. 

0637 

TS 

Z,SC 

MERJ  RTRN 

find  cdno 

set  up  card  to  be  deleted. 

06382 

TS 

Z,Sc 

MERJ  RTRN 

GET  TAPE 

r 

FETCH  next  CARD  TO  LOOK  AT  NUM3- R . 

0639 

LA 

CN  LIMIT 

TAPE  CDND 

C ,*2 

0640 

TS 

MeRJ  rtrn 

z,s: 

get  tapf 

c 

delete  tape  card  and  get  another. 

0642 

NA 

CN  LIMIT 

TAPE  CDND 

dele  fait 

second  number  must  match  existing  one. 

0644 

SEND  DELE 

TS 

last  cdno 

REAL  CDND 

send  ccno 

c 

send  "delete"  card. 

06452 

NA 

TAPE  CARD 

end  OF  l 

C,  + 2 

ALLOW  DELETION  OF  ANY  BUT  "END  oF»  CARD. 

06454 

TS, 

TAPeKe^T 

ONES 

SWITCH 

get  real 

KEEP  IT  AND  MAYBE  INSERT  BEFORE  IT. 

0646 

TS, 

tapeke=t 

zero 

SWITCH 

Get  Real 

end  of  deletion  process. 

06471 

DELE  ?A I L 

SM 

RL  CD  HLTH 

BIT  11 

RL  CD  HLtH 

06472 

TS 

last  cdno 

REAL  CDNO 

BAD  MERGE 

R06473 

END  D'  "PRESERVE  CARONS' 

" ROUTINE,  CARRIED  over  FRdM 

preceding 

PAGf. 

06474 

preserve 

LA 

switch 

BIT  1 

MAr<  CArD 

♦ 1 

EXIT  QUIETLY  IF  RENUMBERING  ALREADY  OFF. 

064745 

LA 

real  cdno 

field  cod  »i 

BAD  PRESV 

BRANCH  IF  PRESERVATION  CAUSES  DISORDER. 

06475 

SS 

zero 

BIT  1 

switch 

06476 

NA 

restart  n +i 

REST  REST 

MARK  CARn 

+ 1 

EXIT  IF  RENUMBERING  WAS  IN  LOG  SEC  ONLY. 

06477 

TS 

C,  + l 

renjmall 

MARK  CARD 

♦ 1 

modify  log  card  routine  to  start  renjm. 

06478 

TS 

ZERO 

REN JMALL 

RENUMBER  *3  C 

06479  BAD  PRESV  TS,  CHAR2 


BIT  7 


RL  CD  HLTH 


BAD  MERGf 
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P0648 

procedure 

TO  DETECT  AMD 

PROCESS  "INSERT"  CARDS. 

064803 

INSERT  cq 

NA, 

C2T7 

REAL  CARD  ♦ 2 

W INSERT 

NOT  MCCO 

064806 

TS 

REAL  CARD  +1 

COMMON 

ANAL  SJ3F 

064812 

NA 

COMMON 

W BEGIN 

BAD  INSTL 

064818 

INS  ADDRF 

TS, 

CD  tY3E 

(CARDNO) 

RL  CD  HLTH 

MCCD  ADRF 

064824 

NA 

FIELD  COD 

ZERD 

BAD  INSTL  .1 

06483 

SSL 

, ONE 

SWITCH 

47 

C,  + l 

O64836 

TS 

real  cdno 

CN  LIMIT 

BAD  INSTI  *2 

064842 

TS 

ones 

CN  LIMIT 

BAD  INSTL  +2 

064848 

BAD  IMSTL 

TS, 

bit  e 

ones 

RL  CD  HLTH 

IMS  ADDRF 

064851 

NA 

field  cod 

BIT  3 

TEST  MCCO  -2 

064857 

NA, 

CHAR2 

RL  CD  HLTH 

ZERO 

BAD  MERGE 

NA 

REAL  CDNO 

TAPE  CDNO 

C.  + 3 

064866 

la 

end  of  i 

TAPE  CARD 

C , + 2 

064872 

SS 

zero 

tape  kept 

SWITCH 

064878 

TS 

SOURCE 

Z,XD 

SEND  POPn 

O64884 

NA 

RESTART  N +1 

REST  REST 

C , + 2 

064887 

sws 

, BITASRi 

switch 

45 

Switch 

064893 

TS 

Rest  rest 

RESTART  M +1 

RENUMBER  +3 

064899 

LA 

ones 

CN  LIMIT 

INSRT  LJd 

064905 

TS 

GET  CARO 

064908 

TS 

(INCINS) 

RL  CD  HLTH 

BAD  MERoF  -2 

064914 

SS 

CN  LIMIT 

C2T7 

REAL  CARn 

06492 

NA, 

chari 

real  card 

L COLUMN  1 

C»  + 2 

064923 

TS, 

C2T7 

BLANKS 

REAL  CARD 

SEND  1NSI 

064929 

SS 

zero 

BIT  43 

real  card 

064935 

TS 

CN  LIMIT 

REAL  cdno 

BAD  INSA  2 +1 

064938 

NA 

real  cdno 

BIT  6 

SEND  IMSl 

064941 

SM 

real  card 

W SOBRMIM 

REAL  CARD 

064947 

SEND  1 NS  1 

TS 

renumber  -3 

RNJM  TEST 

TP  RJNOJT  + 1 

064953 

EX 

CN  LIMIT 

C2T7 

LAST  COMn 

064956 

TS 

L LAST  CNO 

Z,X4 

MON  A2D 

064959 

reserve 

1 

064962 

TS 

C,-l 

renjmber 

renjmber  +1 

USER'S  OWN  PAGE  NO.  17 


PAGE  17 


LOCATION  FIELD  MUST  be  "BEGIN"  oR  "END". 
REQUIRED  OUTSIDE  OF  INSERTION  MODE. 

pass  2 processing  is  same  as  for  cardno. 
BRANCH  IF  there  IS  a CARD  NUMBER  CHANGE. 
"BRANCH"  IF  RENUMBERING  IS  NOW  tN. 

no  Renum,  no  change;  use  insert  card  no. 

RENUM.  NO  CHANGE;  USE  CURRENT  R-NjMBER. 


REJECT  IF  MEANINGLESS  ADDRESS  FjeLD. 
REJECT  INSERT  CARD  FOR  ANY  DEFECT. 


INSERTED  CARDS  CANNOT  REPLACE  "END  OF". 
REPLACE  OLD  CARD  BY  INSERTED  CA*DS, 

SEND  "BEGIN  INSERT"  CARD. 

SHOW  THAT  RENUMBERING.  Ip  ON,  IS  TOTAL. 

turn  on  renumbering  in  "total"  mode, 
branch  if  current  renumber  will  do. 


REJECT  IF  GOT  END  OF  CARD  INPUT  FILE. 
APPLY  SPECIFIED  OR  IMPLIED  NUMBER. 

INSERTED  LOG  CARDS  GET  BLANKS  I M CC  2-7 

clear  sequence  break  BIT  FROM  MON-LOGS. 
CLEAR  OUt-OF-sEQUENCE  bit. 

SPECIFIED  SEQ.  BRK,  gets  "SeuBRO., 

PROCESS  1ST  INSERTED  CARD  W / REMUM  OFF. 


SET  RENUMBERING  GOING  WITH  NEW  siUMBeR 
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P06A968 

PROCEDURE 

DUR I mG  INS E R T iOn  mope : 

IGNORE  card  nJMBER 

£RRpR S » SEARCH  for 

"End  insert 

" card,  and  process  real  crds. 

06A97A 

06A977 

INSRT  LUP 

TS 

TS  (I  NCI  MS) 

RL  CD  HLLH  _ 

GET  CARD 

bad  Mfrgc  -2 

Reject  if 

"END  INSERT"  CARD  IS  HISSING. 

06A983 

06A986 

06A989 

na.  chari  Real  card 

LA,  012  NINE 

NA.  C2T7  REAL  card 

BLANKS 
REAL  CARD 
♦?  W INSERT 

PROC  INS 
PROC  INS 

PROC  INS 

branch  if 

INSERTED  CARD  IS  NOT  "INSERT". 

06A995  TS  REAL  CARO  +1  COMMON  ANAL  SJ3p  C 

06A998 mA COMMON W END BAD  inSL  2 REQUIRED  WHILE  IN  INSERTION  MODc. 


06500A 

065007 

065013 

NA 

NA 

TS,  Cd  TY3£_ 

REAL  CARD  *3 
real  card  *4 
(CARDNO) 

BLANKS 
BLANKS 
RL  CD  HLTH 

bad  insa  2 
bad  insa  2 

c , +3 

ADDR  FLD  oF  "END  INSERT"  MUST  BE  BLANK. 

065016 

065019 

065022 

BAD 

BAD 

INSL  2 
INSA  2 

TS,  BIT8 
TS,  »IT9 
SS 

ONES 

ONES 

zero 

RL  CD  HLTH 
RL  CD  HLTH 
BIT  7 

C,-3 

C,-2 

RL  CD  HLtH 

clear  out-of-sequence  bit. 

065028 

NA,  CHAR2 

RL  CD  HLtH 

zerd 

Bad  merge 

Reject  "end  insert"  for  any  defect. 

06503A 

SSL.  ONE 

SWITCH 

Z 

C,  + l 

"BRANCH"  IF  TOTAL  RENUMBERING  WAS  ON. 

06504 

065046 

065049 

TS 

SS 

TS 

DELETE  Cq  -1 

zero 

l get  Real 

RESTART  N +1 
BIT  46R 
z,sc 

C,  + 2 

SWITCH 

send  Po?n  c 

enter  partial  renumbering  mode. 

send  "end  insert",  leave  insertion  mode. 

065055 

065058 

PRDC 

INS 

TX 

SWE.  CAC3 

ZERO 

L INSRT  LP 

32 

last  CDNo 

PROC  RTRN 

065061 

TS 

zero 

RL  CD  HLTH 

PROC  REAl 

NORMAL  PROCESSING  For  INSERTED  'ARDS, 

065067  REST  REST  TS ZeRO  RfNJMBfR MOVE  PQPq C_  OCCUPIES  RESTART  N ♦1_IN.  TOTAL  RFNUM. 


06509 

TN 

INC  INSRT 

4 

REAL  CARn 

at  bad  merge  -2,  set  bad-insert  cjss. 

065093 

MT  

BLANKS 

6 

N.AJ2.1 

R0651 

COMMON,  PROCEDURE 

when  MERGING  is  given 

1 UP  for  lost 

FOR  ANY  RFaSOn. 

0652 

bad  M-RGe  TS 

SOURCE 

z,xo 

send  popd 

c 

send  bad  merge  control  card. 

06531 

SS 

BLANKS 

CHAR  8 

real  card 

06532 

S,  MON 

TY3iR  REAL  CARD 

SPRA  +56 

- 

TYPE  most  OF  GUILTY  CARD. 

0654 

TN 

TASK  REJ 

10 

REAL  CARD 

0655 

TS 

END  ERR  M 

RL  CD  HLTH 

send  POPO 

c 

ANNOUNCE  REJECTION  OF  TASK, 

0664 

TS 

z,sc 

PROC  RTRN 

PROC  TAPf 

LOOP  TO  ACCEPT  REMAINING  TAPE  CARDS, 

0667 

TS 

Z , SC , 3 

Z ♦ S3 

get  tape 

C 

ACCEPT  ALL  TAPE  CARDS. 

0669 

TS 

- 

get  card 

SEE  WHETHER  TO  THROW  OUT  REMAINING  REAL 

0671 

TS 

END  YUL  >2 

END  YUL  +1 

end  pass  1 

cards,  being  careful  not  to  announce 

0673 

TS 

real  cdno 

LAST  CDNO 

Heave  HO  -2 

SAME  IF  THERE  are  NONE. 

0675 

TS 

• 

• 

PROC  T APp 

L 
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P0676 

SUBROUtIN-  IN  PASS  1 TO 

FIND  THE_TA?E 

CARD  TO  rtHIrH  A 

merge 

control  card  refers,  enter  with  Return 

P0678 

preset  in 

MeRJ 

Rtrn.  EXITS  to  bad 

merge  if  no  exact  card  number 

MATCH 

is  found  before  a sequence  break. 

0680 

FIND  CDNO 

NA 

TAPE  CDNO 

BIT  6 

TC  NOT  SOB 

BRANCH  IF  TAPE  CARD  NOT  SEQUENCE  BREAK. 

0682 

LA 

END  OF  1 

TAPE  CARD 

TC  NOT  SOB  - 

1 

always  Illegal  to  find  an  "end  of"  card. 

0684 

NA 

TAPE  CDNO 

REAL  CDNO 

C,*3 

BRANCH  IF  REAL  CARD  NOT  SeQUeNCf  break. 

0686 

NA, 

correct 

SWITCH 

0NE5 

CDN  FOJNn 

BRANCH  IF  NOT  SEEKING  BAD  CARD  NUMBER. 

0688 

TS, 

bIT  8 

ONES 

RL  CD  HLTH 

bad  merge 

CUSS  ILLEGAL  location  field. 

0690 

TS, 

UIT  10 

ONES 

RL  CD  HLTH 

bad  mergf 

CUSS  failure  to  find  Match. 

0692 

tc  not  sqb 

NA 

TAPE  CDNO 

real  cdno 

pass  tape 

branch  if  no  match  yet. 

0694 

NA, 

correct 

SWITCH 

zero 

CDN  FOJNn  +1 

BRANCH  IF  LOOKING  FOR  BAD  CARD  NUMBER. 

0696 

NA 

TP  CD  HLTH 

ZERO 

PASS  TAPf 

BAD  CARD  NUMBER  IMPLIES  NO  MATCH. 

0698 

cdn  found 

TX 

mlrj  RTRN 

- 

Z,SC 

SUCCESSFUL  RETURN. 

0700 

NA 

TP  CD  HLTH 

ZERO 

c,-l 

BRANCH  IF  DESIRED  BAD  CARD  NO.  FOUND. 

0702 

PASS  tape 

TS 

z,sc 

PROC  RTRN 

PROC  TAPf 

0703 

TS 

L FIND  CDN 

z,sc 

Get  tape 

C 

PROCESS  A TAPE  CARD  AND  LOOK  AGAIN. 

R0704 

TP  RJNOUt 

IS  A 

(HAPPY) 

procedure  when  real  CARDS 

RUN  OUT  FIRAT. 

07041 

TP  RJ'lOUT 

NA, 

MeRjMOOE 

SWITCH 

ZERO 

C , ♦ 2 

BRANCH  IF  MERGING. 

07042 

T5 

z,sc 

PROC  RTRN 

proc  real  +i 

PROCESS  newly  created  "END  OF"  CARD. 

07043 

WA 

z,sc 

ONE 

PROC  RTRN 

07044 

NA, 

TAPEKE3T 

SWITCH 

zero 

PROC  tape 

PROCESS  TAPE  CARD  IF  AVAILABLE. 

07045 

TS 

L END  Pi 

Z , S3 

Get  TAPE 

c 

fetch  final  tape  cards. 

07046 

TS 

- 

PROC  TAPp 

R07047 

FINAL  SEQUENCE 

CHECKING 

before  processing,  see  n 

EXT  page. 

070475 

VS  LAST  CN 

LA, 

C2T7 

CARD  NO 

LAST  CDNO 

Ct  + 2 

c 

branch  IF  POSSIBLE  SEQUENCE  ERROR. 

07048 

SS 

Z,CSC*2 

BIT  7 

HEALTH 

c 

clear  POSSIBLE  error  bit,  tab  to  exit. 

070485 

LA 

BIT  6 

CARO  NO 

c.-i 

c 

ALL  IS  WELL  IF  THIS  CARD  IS  A SEQ.  BRK. 

07049 

SM 

health 

BIT  7 

health 

c 

INDICATE  CARD  number  OUT  OF  SEOJENCE. 

070495 

EX 

CARD  NO 

C2T  7 

LAST  CDNn 

s 

set  up  next  criterion  and  return. 

R0705 

WE  GET  TO 

NOT 

MCCD  FOR 

EVERY  REAL  < 

CARD  THAT  IS  NOT  A MERGE  CONTROL  CARD 

• 

0706 

NOT  mccd 

LA 

RL  CD  HLTH 

ZERO 

C , *2 

0707 

TS* 

CD  TY3E 

END  ERR  M 

RL  CD  HLTH 

bad  mergf 

CARD  NO.  ERROR  IN  REVISION  CAROS  IS  BAD. 

0709 

NA 

real  cdno 

tape  cdno 

reglr  New 

branch  if  real  card  precedes  tape  card. 

07101 

NA, 

chari 

REAL  CARD 

T COLUMN  1 

C,  + 2 

07102 

TS, 

CHARI 

L COLUMN  1 

REAL  CARO 

reglr  new 

force  same  if  real  card  is  »tuck-in». 

0711 

LA 

END  OF  i 

TAPE  CARO 

ReGLR  new 

Force  same  IF  TAPE  CARD  IS  "end  OF", 

0713 

TS  ♦ 

tapeke3t 

zero 

SWITCH 

ReGLR  New 

OTHERWISE  REPLACE  tape  card  win  real. 

L 
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P0715 

introduction  to  the  processing  OF 

A 

tare  card. 

RETURN  HAS  3FEN  SFT  UP  BEFOREHAND. 

0717 

proc  tape 

SWE 

, CAC3 

SOURCE 

16 

z,xo 

set  up  address  of  tape  card. 

0719 

TS 

TAPLCDJNO 

CARO  NO 

VS  LAST  CN 

C FINAL  CHECK  ON  TAPE  CARD  NO,  SeDUeNCe^ 

0721 

TS, 

tapeKeR-t 

zero 

SWITCH 

PROCESS 

UNKeeP  and  PROCESS  TAPE  CARD. 

R0723 

INTRODUCTION  TO  THE_PROCESSING  of 

A 

real  card. 

RETURN  HAS  3fEN  SfT  UP  BEFOREHAND. 

0725 

PROC  REAL 

TX 

SOURCE 

z,xo 

SET  UP  ADDRESS  OF  REAL  CARD. 

0727 

TS 

rial  cdno 

CARO  NO 

VS  LAST  CN 

C FINAL  CHECK  ON  ReAL  CARD  NO.  SeJUeNCe. 

R0729 

PROCESSING 

OF 

all  bui  merge  control 

cards  begins 

HERE. 

0730 

process 

NA, 

D12 

cardno  wd 

NINE 

NOT  RIGHT 

branch  if  not  a right  print  card. 

0732 

TS, 

CD  TYPE 

(RIGHjP) 

HEALTH 

XMlT  RTRN 

XMIT  RTRN  SENDS  POPO  AND  RETURNS. 

07  34 

NOT  RIGHT 

NA* 

CHARI 

cardno  wd 

R COLUMN  1 

C ,*2 

0735 

TS, 

CD  TYP£ 

(REMARK ) 

health 

XMlT  RTRm 

REMARKS  card  WITH  r in  column  1. 

0737 

NA, 

chari 

cardno  wd 

A COLUMN  1 

C , + 2 

0738 

TS, 

CD  TYPE 

(ALIReM) 

health 

XMlT  RTRm 

aligned  remarks  card  with  »a»  in  col.  i. 

0740 

NA* 

chari 

cardno  wd 

P COLUMN  1 

C,  + 2 

0741 

TS, 

CD  TYPE 

(REMARK) 

HEALTH 

XmIT  RTRm 

remarks  card  with  p IN  COLUMN  1. 

0743 

NA, 

chari 

cardno  wd 

L COLUMN  1 

NOT  9RAP1 

07435 

RENUMALL 

PR 

SEE  PRESERVE  CaRDNS. 

0744 

NA, 

datemask 

DATE  WORD 

BLANKS 

C , + 2 

branch  IF  DASHES  SHOULD  Be  put  in  date. 

0746 

SSL 

, ONE 

cardno  wd 

4 

unmkd  log 

remarks  card  (log  card). 

0748 

SS 

DASHES 

CHAR6 

DATE  WORD 

0749 

TS, 

chari 

DASHES 

DATE  WORO 

♦1  C,-2 

07492 

TS 

(ACCEPT) 

health 

send  popo 

c Send  a dummy  acceptor  ahead  of  a marked 

07494 

unmkd  log 

TS 

(REMARK) 

health 

XMlT  RTRN 

LOG  CARD  ENTERING  AS  A MEMBER  0=  A 

07496 

NA, 

F'NOWS  J3S 

SWITCH 

ZERO 

C *-2 

called  subro;  PASS  2 MARK  WILL  3E 

07498 

TS 

(REMARK) 

HEALTH 

XMIT  RTRN 

0750 

NOT  9 RAPL 

NA 

cardno  wd 

end  of  1 

C , + 2 

CHECK  FOR  "END  OF"  INFORMATION  ?RoM  TAPE 

0752 

TS, 

CD  TY3E 

(END  OF) 

HEALTH 

end  OF 

OR  (NEW  PROGRAM  OR  SUBRO)  FROM  ^ASS  o. 

07538 

NA, 

CD  TYPE 

health 

(MODIFY) 

NON  ReM 

CHECK  FOR  MODIFY  CARD. 

0754 

XMlT  RTRN 

TS 

PROC  RTRN 

z.sc 

send  popo 

C 

R0755 

non  Rem  constitutes  m i 

early  period 

procedure,  since  memory  cards 

ARe  ALLOWED  only  until  THe 

R0757 

first  card 

WHICH  IS  NOT 

a Remarks 

OF 

! RIGHT  PRINT 

CARD  OR  A MfMORY 

card,  in  segment  assemblies,  one  segnum  card 

R0759 

IS  ReDUIReD  in 

the  early  period. 

these  early  Period  op  codes  must 

be  discovered  at  non  rem  or  segnum  0, 

0760 

NON  ReM 

NA, 

C2Tt 

OP  field 

W MEMORY 

segnum  0 

BRANCH  IF  EARLY  PERIOD  IS  OVER. 

L 
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PD762 

TWO 

PACES  I 

DF  PROCESS!  Vlfr  FOR  FIXED.  MEM 

.E  MEMORY,  Or  SPFC/nOn 

MEMORY  CODE  CARDS. 

076A 

0766 

TS  Z,SC 

LA  _ ONES 

Z , X A 

FIELD  COD 

ADR  FIELD 
_ BAD  mem  aD  __ _ 

DECODE  ADDRESS  FIELD. 

ABORT  IF  MEANINGLESS  ADDRESS  Fl?LD» 

0768 

0773 

0775 

NA,  B2B6  FIELD  Cod 

SWS,  CAC2  ADR  WD 

na  field  cod  +i 

ONES 
16, L 
ZERO'  _ 

bad  mem  ad 

HEALTH 

C,*2  

REJECT  IF  1ST  SUBFIELD  NOT  UNSISNeD  NUM. 
STORE  LOWER  LIMIT. 

BRANCH  IF  THERES  A SIGNED  NUMERIC  PART. 

0777 

0782 

TS  ADR  WD 

NA,  PIT  5 FIELD  COD  *1 

ADR  WD  +1 
ZERO 

WHICH  MEm 
WHICH  Mem  -1 

UPPER  AND  LOWER  LIMITS  ARE  EUUA_. 
MINUS  MEANS  THRU  IN  THIS  CASE. 

078A 

0786 

0788 

bad 

mem  ad 

la,  fix  ma.31  Low  li m 

TS,  PIT  11  ONES 

TS,  PIT  L2 ONES  _ „ 

HI  LIM 

health 

health 

which  mem 
MEM  EXIT 
Mem  EXIT 

NEW  NAMES  FOR  ADR  WD  AND  ADR  WD  +1. 
PROCEDURE  when  address  is  meaningless. 
PROCEDURE  when  ADDRESS  IS  TOO  31 G. 

0790 

0792 

WHICH  MEM 

BA  ADR  WD 

LA,  CIX  MAS'  ADR  LIMIT 

ADR  WD  +1 
. Hi  LIM 

ADR  WD 

BAd  MEM  aD  +1 

form  upper  limit  when  modifier  is  pljs. 
BRANCH  if  upper  too  big  for  MACHINE. 

079A 

0796 

SS  HI  LIM 

TS  LOC  FIELD 

CAC3 

COMMON 

health 

ANAL  SU3e 

C 

STORE  UPPER  limit. 

0797 

0799 

0800 

na  field  cod 
TS  L TYP  TAB 
NN  LOW  LJ  M 

BIT  1 
Z , X A 
ZERO 

NO  MEM  TYP 
SET  M TYdE 
LL  NZ 

C 

REJECT  if  NOT  SYMBOLIC. 

0801 

TS  Z ,XA 

Z,X6 

LL  ZERO 

0802 

SET 

M TYPE 

NA  COMMON 

W ST  TYPES 

C*  + 2 

c 

0803 

sws,  lstyre  ONE 

25 

ADR  WD  ♦ i 

ATTACH  ERASABLE  CODE  TO  UPPER  LIMIT. 

0805 

NA  COMMON 

W_ST  TYPES 

♦ 1 C ,A  2 

_c_ . 

0806 

SWS,  LSTY  ONE 

26 

ADR  WD  *1 

ATTACH  FIXED  CODE  TO  UPPER  LIMIT. 

0808 

NA  COMMON 

W ST  TYPES 

+ 2 C , +2 

_c 

0809 

SWS*  LsTYRF  ONE 

27 

ADR  WD  ♦! 

ATTACH  SPEC/NON  CODE  TO  UPPER  LtMIT. 

0811  NO  MF vli  TYP  TS , BIT  8 ONES HEALTH MEM  EXIT  REJECT  ILL-FORMED  MEMORY  CARD, 


0813 

0815 

LL  ZERO 

LA,  CAC3 
TS 

A ,0 
ZERO 

HI  LIM 
COMMON 

C,  + 2 

ChEC<  tmi 

DOES  REQ  COVER  ALL  1ST  PRESENT  CATEGORY. 
NO,  IT  COVERS  LESS. 

0817 

TS,  LSTYPE 

HI  LIM 

A ,0 

FIND  TM  +1 

PUT  REQ  TYPE  IN  1ST  CATEGORY. 

0819 

LL  NZ 

WD 

LOW  _L1M 

ONE 

LOW  LIM 

USE  reduced  lower  limit. 

0821 

0823 

LA,  CAC3 
TS 

LOW  LIM 
Z »XA* 1 

A , 0 

C * + 2 
C,-l 

FIND  FIRST  CATEGORY  AFFECTED  BY  REQUEST. 

082A 

FIND  IM 

TS 

Z,XA 

z,x& 

CHK  HI  LIM 

begin  search  for  last  affected  category. 

0826 

NA 

Z_*X6 , 1 

_END  TYP  TA 

CHK  HI  LtM 

branch  if  upper  limit  isnt  max  address. 

0828 

0830 

NA 

NA,  LSTYPE 

Z,XA 
HI  LIM 

END  TYP  TA 
A , 0 

CHK  Hi  LIM  -2 

C , ♦ 2 

BR  IF  REQ  COVERS  MORE  THAN  FIN  A”  CATEo. 
BRANCH  IF  REQUEST  Is  NON-TRIVJA  . 

L 
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P0832 

FXtT  for  memory  cards  with  any  FAULT. 

0833 

MEM  EXIT 

TS,  CD  TYPE 

(MEMORY) 

HEALTH 

XM1T  RTRn 

O834 

BS 

zero 

ONE 

COMMON 

PREPARE  TO  LENGTHEN  TABLE  BY  1 PLACE. 

0836 

TS 

CAC3 

TN  MASK 

COMPOTE  w -1 

PREPARE  TO  use  lower  limit. 

0838 

TX 

END  TYP  TA 

- 

Z,X6 

UNDO  INCREMENT. 

0840 

TS,  LSTYPE 

HI  LIM 

6,0 

C,  + 2 

ATTACH  RED  TYPE  TO  FINAL  CATEGORY. 

08<*2 

CH<  HI  LlM 

LA*  CAC3 

6,0 

HI  LIM 

find  tm  *1 

SEARCH  FOR  LAST  AFFECTED  CATEGORY. 

0844 

BS 

Z1X6 

_Z,X4 

COMMON 

COMPUTE  DIRECTION  AND  EXTENT  OF  SHIFT. 

08  A6 

NA,  LSTYPE 

HI  LIM 

4,0 

CHECK  TM? 

BRANCH  IF  NO  TYPE  MATCH  ON  LOWER  SIDE. 

08  <48 

chec<  tmi 

NA,  LSlYPt 

HI  LIM 

6*0 

C . + 2 

br  if  typelmatch  on  lower*  not  upper. 

0850 

TS 

ZERO 

TN  MASK 

CHECK  TM?  *3 

USE  NEITHER  limit  IF  both  type  matches. 

0852 

TX 

HI  LIM 

• 

LOW  LIM 

use  upper  limit  only. 

0854 

TS 

ONES 

tn  mask 

C ,*3 

0855 

CHECK  TM2 

TX 

CAC3 

* 

TN  MAS< 

USE  LOWER  LIMIT  NORMALLY. 

0857 

NA*  L5TYPE 

HI  LIM 

6,0 

C t ♦ 3 

Br  if  no  type  match  either  SIDE. 

0859 

BS 

COMMON 

ONE 

COMMON 

INCREMENT  extent  OF  SHIFT. 

0861 

TS 

zero 

tn  mask  +1 

COMPJTE  m 

USE  lower  limit  only. 

08fe3 

BS 

COMMON 

TWO 

COMMON 

INCREASE  EXTENT  OF  SHIFT  bY  2. 

0865 

TX 

ONES 

- 

TN  MASK  *1 

USE  UPPER  LIMIT  NORMALLY. 

0867 

compjte  n 

LA,  CAC3 

COMMON 

zero 

MOV  TABLE  +1 

BRANCH  IF  EXTENT  OF  SHIFT  IS  ZERO. 

0869 

BS 

z,x6 

_£ND  TYP  TA 

COMMON  +1 

THE  NUMBER  OF  WORDS  SHIFTED  IS  THE 

0871 

BS 

COMMON  +1 

ONE 

COMMON  *1 

number  of  categories  from  the  last 

0873 

sws, count F-D 

COMMON  +1 

18, L 

MOV  TABLf 

affected  CATEGORY  onward. 

0875 

LN 

COMMON 

ZERO 

shorten 

BRANCH  TO  COMPRESS  TABLE. 

0877 

lengthen 

WD 

END  TYP  TA 

SPEC  SIGN 

Z,X6 

form  negative  addresses  to  shift  fwd. 

0879 

WA 

Z ,X6 

COMMON 

z,csc 

0880 

LA 

Z,CSC 

ST  TAB  MAX 

MOV  TABLf 

0881 

TS,  BIT  13 

ONES 

HEALTH 

MeM  EXIT 

bad  exit  if  lengthening  goes  too  far. 

0883 

SHORTEN 

WD 

z,x6 

COMMON 

Z,CSC 

form  positive  addresses  to  shift  bwd. 

0885 

MOv  TABLE 

TN 

N,X6 

0 

N , CSC 

shift  part  of  table  as  described. 

0887 

SS 

LOW  LIM 

tn  mask 

N,X4, 1 

fill  in  lower  Limit  of  red. 

0889 

SS 

HI  LIM 

TN  MASK  *1 

n,xa 

FILL  IN  UPPER  LIMIT  OF  REQ. 

0891 

BS 

END  TYP  TA 

COMMON 

END  TYP  tA 

COMPUTE  NeW  END  OF  TABLE. 

0893 

TS,  CD  TY3E 

(MEMORY) 

HEALTH 

XMIT  RTRN 
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P08  9301  PROCEDURE  TO  RfSPQND  TO  THF  OP  CQDf  "SfGnJM1'.  WHICH  MUST  OCCUR  ONCE  IN  THe  tARLY  PERIOD  OF  A SgGMgMT 

R089303  ASSEM3LY.  IJS  FUNCTION  IS  TO  NAME  THE  PROGRAM  THAT  THe  SeGMeNT  IS  TO  RUN  WItH,  THAT  IS.  T«E  PROGRAM  THAT  " OWNS" 
R089305  THE  SEGMENT.  THe  RESjlT  OF  THIS  PROCESSING  IS  TO  GARNISH  THE  ASSfMBlY  LUTING  WITH  THe  NAME  OF  THE  OWNfR,  AND 
R089307  PLACE  TH£  NAME  OF  TH-  OWNfR  INTO  SfG  OWNfR.  WHFRF  THf  TAPf.RcAPING  GROUP  WILL  FIND_I_T  AND  £NIEJR  THAT  PROGRAM'S 
R089309  ENTIR-  SYMBOL  TABLE  INTO  THE  SEGMENT  ASSEMBLY, 


08931  segnjm-  a 

NA» 

C2t7 

op  FIELD 

W SEGNUM 

089314 

EX 

SWITCH 

BIT  7 

089316 

LA 

COMMON 

ZERO 

08932 

TS 

LoC  FIELD 

COMMON 

089324 

TX. 

CD  TY3£ 

(SEGNUM) 

089326 

NA 

field  cod 

BIT  1 

08933 

TX 

J_  CQMP  NAM 

089332 

SWS«THREAD10 

N.X4 

12 

END  EARLY 
COMMON 


IF  NOT  MEMORY  qR  SEGNUM,  END  EARLY  PER. 


END  EARLv 
ANAL  SJ3F 
HEALTH 
BAD  SEGNO 


BAD  NEWS  IF  NOT  SEGMENT  ASSfMBLY. 

LOC  FIELD  SHOULD  NAME  OWNING  PROGRAM. 


NAME  OF  OWNER  MUST  LOOK  LIKE  A SYMBOL. 


‘089336 

0893A  BAD  SEGNO 
08  93 A A 


POINT  TO  NAME  OF  THIS  SEGMENT. 

Branch  to  continue  search  for  owner. 


ABANDON  ATTEMPT  AT  SEGMENT  ASSEMBLY. 
CUSS  ANd  DO  IT  AS  PROGRAM  ASSEMBLY. 


589352 


-&S- 

NA 


-At  1 — 

N.XA 


• T+IRE  APlO 
COMMON 


-Z-.X4 

bad  segno  -v 


Cfollow  thread  to  next  prog  or  S-G 
BRANCH  IF  DICjN • T FIND  name  OF  OWNfR. 


-S589366 
389368 
089372 
089376 

08938  * 

089382 

089386 

089388* 

08939  * 

08939A  END  SEGNO 


SWS,  C7T8 

IS 

TS 

TX 

TX 


■LXEAti'Tl  I *-P(ABCT/-n 


COMMON 

w owner  eq 
seg  owner 


SWS.  CHAR 3 
SWS,  CHARI 
SWS_»_C2T7 
TS 


seg  owner 
seg  owner 
seg  owner 
Late  mem 


36 

seg  OWNER 


A.l.L 

A.I.L 

A.l.L 

SEGNUM  0 


health 

C , + 2 

BAD  SEoNo 

old  line  +ia 
old  Cine  +15 
PAGE  HEAn  +13 
PAGE  HEAD  +14 
PAGE  HEAD  +14 
+3  XMIT  RTRN 


fetch  rev  no  from  ist  sub  thread  word. 

IF  PROGRAM,  IT'S  A PROPER  OWNER. 

IF  SUBROUTINE.  IT  AIN'T. 

ANNOUNCE  owner  on  COVER  SHEET. 


DECORATE  PAGE  HEAD  SIMILARLY. 

ALLOW  JUST  ONE  SEGNUM  CARD  PER  SEGMENT. 


089356 

SWS. 

C7T8 

4,1 

24 

HEALTH 

First  assume  that 

owner  has 

no 

5U3R0S. 

08936 

SSL. 

ONE 

4,1 

23 

C.  + l 

C 

branch  to  get  rev 

number  if 

IT 

DOES, 

089364 

SSL, 

ONE 

4,1 

12 

C.  + 3 

L 
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END  EARLY 

IS  EXECUTED  AS  SOON  AS  A 

CARD  IS  FOUND 

WHICH  DDLS  not  BELONG 

TO  JHE  EARLY  PERIOD. 

0896 

END  E4RLY 

TX 

CHECK  OP 

- 

NON  REM 

INHIBIT  SPECIAL  CHECK  FOR  "MEMORY"  CODE. 

R0B98 

GENERAL  OPERATION  CODE 

CHECKING  begins  here. 

0899 

chec<  op 

TS  _ 

blanks 

COMMON  

C,*l 

0900 

Ts*  C2T7 

OP  FIELD 

COMMON 

anal  sU3f 

c 

ANALYZE  OPERATION  CODE  FIELD. 

0902 

LA 

FIELD  Cod 

ZERO 

OP  SEARCH 

0903 

NA 

field  cod 

BIT  1 

NON  SYM  oP 

BRANCH  IF  OP  FIELD  NOT  SYMBOLIC, 

0905 

TS 

N L CHAR  6 

Z , S3 

SYMBOL  OP 

initialize  asterisk  search. 

0907 

NON  SYM  OP 

NA*  t*lT6 

field  Cud 

ONES 

illegop 

signed  numeric  op  is  illegal. 

0909 

shift  nop 

SPS.  B22T32 

COMMON  +1 

0 

health 

SHIFT  COUNT  IS  FILLED  IN  when  LOADING. 

0911 

LN 

COMMON  +1 

MAX  NUM  JP 

instruct 

BRANCH  IF  NUMJDP  HAS  OK  SIZE. 

09122 

illegop 

SS 

TYPE  F 

L SIYPE 

SWITCH 

0913 

TS 

ZERO 

LOC  STATE 

BLNK  LDCm 

r 

0917 

TS,  CD  TY^E 

( ILLOP) 

health 

reg  incon  +1 

ADVANCE  LOC  CTR  FOR  ILLEGAL  OP  CODE. 

0919 

NA,  ALFMA50 

COMMON 

BLANKS 

C.  + 2 

BRANCH  WHEN  RIGHTMOST  NBC  FOUND. 

0921 

SYMBOL!  op 

TS 

N * S3  * 1 

ALF  MASK 

C,-l 

Find  rightmost  nbc  by  shifts  mask. 

0923 

NA,  ALFMASAI 

COMMON 

astRisks 

C , ♦ 3 

BRANCH  IF  THERE  IS  NO  RIGHT  AST-RISK. 

0925 

SM 

HEALTH 

BIT  11 

health 

SIGNAL  ASTERISK  FOUND, 

0927 

SS 

blanks 

ALF  MASK 

common 

BLANK  OUT  SAME. 

0929 

op  search 

TX 

M OP  THRS 

- 

Z,X4 

0930 

SWS,  B22T25 

COMMON 

17 

c,  + l 

USE  BITS  5-8  OF  OPERATION  SYMBOL  TO 

0932 

SWE*  ONES 

4,0 

0 

Z,X4 

INDEX  INTO  NON-THREADeD  LIST. 

0934 

TX 

Z,SC*1 

- 

- 

0935 

SPeCL  op 

LA 

N,X4,1 

zerd 

ILLEGOP 

zero  word  signifies  end  of  sublist. 

0937 

NA,C1T6 

COMMON 

4,0 

C,-l 

op  code  table  search. 

0939 

NA,  «IT  37 

4,0 

ZERD 

C , + 2 

BRANCH  ON  MACHINE  CODE  FOUND. 

09U 

SS 

N,Xa 

B38T48 

Z,SC 

GO  TO  APPROPRIATE  CLERICAL  CODE  ROUTINE. 

0943 

OP  fojnd 

SWS*  B22T32 

N,X4 

16, L 

health 

STORE  OP  CODE  xLATION  AND  CONTROL  INFO, 

R0945 

PASS  1 PROCESSING  For  INSTRUCTIONS 

AND  SINGLE-PRE 

CISION  CONSTANTS. 

0946 

INSTRUCT 

TS,  CD  TV  RE 

( 1NSTR) 

health 

C ,*3 

0947 

DECIMAL 

TS*  CD  TY3E 

(DECML) 

HEALTH 

C,*2 

0948 

octal 

TX,  Co  TY^E 

(OCTAL) 

- 

HEALTH 

0949 

SS 

TYPE  p 

L STYPE 

SWITCH 

ALL  INSTRS  AND  CONSTS  GO  INTO  FIXfD  MeM. 

0951 

na,  chari 

cardno  wD 

J COLUMN  1 

REG  INCOn 

branch  if  not  leftover. 

0953 

TS 

Z,sc,l 

• 

LFTVR  LOr 

c 

translate  location  field. 

0955 

REG  IMCON 

TS 

zero 

LOC  STATE 

LOCATION 

c 

TRANSLATE  REGULAR  LOCATION  FIELD. 

0957 

SM 

HEALTH 

loc  state 

HEALTH 

STORE  RESULTS  OF  TRANSLATION. 

0959 

TS 

- 

- 

XM1T  RTRn 
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P0960  PR0CEDURE5_PQR  THE  CLERICAL  FJnCTIQmS  REPRESENTED  BY  "TS".  "s"«  OR  "EQUALS"  (AnD. ITSVArjAnTs  "=PLJS" 

R0962  AND  "sMINUS»),  And  BY  "LOC"  OR  "SETLOC".  THESE  CODES  MAY  HAVE  ANY  ADDReSS  FORMAT  ACCEPTABLE  FOR  I NSTR JCT I ONS , 

R096A  EXCEPT  THAT  ANY  ADDRESS  SYMBOL  IN  A SetL-OC  CARD  MUST  BE  PREDEFINED,  THe  "=PLUS"  AND  «=MINUS"  CoDeS  DIF-ER  FROM 

R0966  "FOUA-S11  ONLY  IN  ADDING  OR  SUBTRACTING  THE  LOCATION  COUNTER  TO  (FROM)  THf  ADDRfSS  FIfLD  VALUf.  IF  EuUAlS  FAILS 

R0968  TO  DE-INE  ITS  LOCATION,  SYMBOL  BY  REASON  OF  AN  jNDefINeD  (NOT  ILL-DEfINED)  AqdReSS  SYMBOL,  IT  KEEPS  THE  hODIfIeR* 

R0970  AND  PASS  i # 5 TRIES  TO'  MAKe  THe  DEFINITION,  UNTIL  WHICH  T I Me  tPHE  SYMBOL  IS  SAID  TO  Be  NEARLY  DeFINlD.  THE 

R0972  ADDRESS  GENERATED  FOR  SeTLOC  MUST  Be  IN  FIXED  OR  3eN£RAL  ERASABLE  MEMORY*_  SeTLOC  FAILURE  LEAVES  LOC  CU  ALONE. 


097A 

is  edjals 

TS 

zero 

LOC  LOC 

C * + 3 

ENTRY  FOR  IS*  =*  EQUALS. 

097A2 

eqj  minus 

TS 

LOC  CTR 

LOC  LOC  _ 

..  C * ♦ 2 

ENTRY  FOR  =MINuS, 

097AA 

e0J  P-US 

BS 

zero 

LOC  CTR 

LOC  LOC 

ENTRY  FOR  =PLUS. 

0975 

TS, 

CD  T Y 3E 

(EQUALS) 

HEALTH 

C,  + 3 

0976 

SETLOC 

TX, 

CD  TY^E 

(SETLOC) 

HEALTH 

ENTRY  FOR  LOC,  SETLOC. 

09772 

TX 

ZERO 

- 

LOC  LOC 

0978 

NA, 

bit  11 

health 

ZERO 

ILLEGOP 

ASTERISK  MAKES  ILLEGAL  OP. 

0982 

DEcOD  ADR 

TS 

Z,Sc 

Z,XA 

ADR  FIELri 

DECODE  ADDRESS  FIELD. 

098A 

NA 

FIELD  COD 

ONES 

C « ♦ 2 

0985 

TS, 

bit  is 

ONES 

health 

NO  AORES«; 

ABORT  IF  MEANINGLESS  ADDRESS  F 1 -LD, 

09862 

LA, 

fix  maS' 

ONES 

LoC  LOC 

CH  IL  SIZE  +1 

Bad  loc  cjr  kills  fplus  and  =mimus  now. 

098622 

NA 

field  cod 

ZERO 

_ COMBln  -lie  -1 

09862A 

TS 

B2  B6 

fiedd  cod 

BAD  LOC  q C 

if  blank  adr  field,  fake  up  absdljte. 

098626 

BS 

zero 

LOC  CTR 

ADR  WD 

0986A 

TX 

BIT  2 

- 

FIELD  COn  +1 

09865 

TS 

LOC  LOC 

ADR  WD  +1 

CDMBIN  LC  +1 

fake  up  a modifier  if  It  LACKS  one. 

098655 

LA 

FIELD  COD 

♦1  ZERO 

C ,-2 

09866 

COMBI  \J  LC 

BA 

ADR  WD  +1 

LOC  LOC 

ADR  mD  +1 

COMBINE  LOC  CTR  WITH  EXISTING  MODIFIER. 

09867 

sws 

♦ BIT5 

ADR  WD  +1 

1 

FIElO  CDn  +1 

SET  UP  SIGN  Op  NET  MODIFIER. 

0987 

LA, 

B2B6 

ONES 

FIELD  COD 

IL  MODI F 0 

branch  if  main  part  is  unsigned  njmeric 

0999 

LA 

BIT  1 

field  COD 

SYM  IS  LnC 

branch  if  address  field  contains  A SYM. 

1001 

BAD  LOC  0 

LA 

ones 

LOC  CTR 

CH  IL  SIZE  +1 

branch  if  location  counter  is  bad. 

1002 

BS 

ADR  WD 

LOC  CTR 

ADR  WD 

FORM  ADDRESS  RELATIVE  TO  L.C.  SETTING. 

1 OOA 

IL  MO  DIF  U 

BA 

ADR  WD 

ADR  WD  +1 

ADR  WD 

add  modifier  part  to  unsigned  njMfric. 

1006 

TS 

ADR  WD 

LOC  LOC 

CH  lL  S I 7E 

go  to  test  size  of  num  ♦ modifier. 
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EXAMivE  CONDI  TLPN  OF  ADDRESS  SYMBOL  IN  EQUALS  Oft 

SETLOC. 

1008 

SYM  13  LOC 

TS 

ADR  WD 

COMMON 

ANAL  SYMr  c 

ANALYZE  ADDRESS  SYMBOL  HISTORY, 

1010 

NA 

COMMON  +2 

ONES  

C , + 2 

1011 

TS, 

BIT  16 

ONES 

health 

NO  ADRESS 

EXIT  IF  SYMBOL  TABLE  IS  FULL. 

10128 

EBS 

Z,X2  

BIT  25 

ETS  __  _ 

1013 

SWS’ 

CAC2 

ETS 

16,  L 

HEALTH 

STORE  ADDRESS  OF  ADDRESS  SYMBOL. 

1015 

LA 

3 D8 

COMMON  ♦ 2 

C,*3 

10151 

LA 

COMMON  +2 

ZERO 

C , + 2 

1016 

TS, 

BIT  12 

ONES 

health 

NO  AORESq 

SIGNAL  ADDRESS  NEARLY  DEFINED. 

1018 

SWE, 

D12 

COMMON  +2 

16 

Z,S0 

USE  HEALTH  OF  SYMBOL... 

1020 

FIND  xfrm 

WA 

z,so 

L XFORMS 

z,so 

• ••TO  F I TRANSFORM. 

1022 

SSL, 

ONE 

N , SO 

44 

C,  + l 

TEST  PREDEFINITION  BIT. 

1024 

TS, 

hit  li 

ONES 

health 

NO  AORESc, 

signal  address  undefined  as  yet. 

1026 

SSL , 

ONE 

N , SO 

45 

c,*l 

TEST  DEF/NO-DLF  BIT. 

1028 

TS* 

bit  14 

ones 

HEALTH 

NO  AOftESs 

SHOW  OVERSlZE/iLL-DEFiNED  ADDR  SYMBOL. 

1032 

EX 

COMMON  +2 

CAC3 

LOC  LOC 

1038 

BS 

LoC  LOC 

ADR  WD  +1 

LoC  LoC 

ADD  MODIFIER  TO  SYMBOL  DEFINITION. 

R10391 

CHeC<  on  size  OF  ADDRe: 

SS  FIELD  VALUE, 

AND,  IF  5ET 

_0C,  ON  MEMnRY  TYPE 

AND  CONFLICT  AS  WeLL. 

1040 

CH  IL  SIZE 

LA, 

fix  maG' 

LOC  LOC 

MAX  ISEQL 

C , ♦ 2 

1041 

TS* 

bit  14 

Ones 

health 

NO  AORESc 

OVERSIZE  FROM  ALL  PATHS  BUT  UNOEF. 

1045 

SS 

LOC  LOC 

CAC3 

HEALTH 

1046 

LA* 

CD  T Y ^ E 

health 

(EO-JALS) 

ISeO  LSYm 

branch  for  normal  is,=  path. 

1048 

TX 

L TYP  TAB 

• 

Z ,X5 

1049 

LA, 

CAC3 

health 

5,0 

C , *2 

look  up  memory  type  for  sltloc. 

1051 

TS 

Z ,X5 » 1 

c , - 1 

1052 

NA, 

L ST Y 3 E 

5,0 

TYPE  N 

C , +2 

1053 

TS» 

bit  ID 

ONEs 

health 

NO  sElLOr 

SIGNAL  SETLOC  TO  sPEC/NON  MEMORY. 

1055 

EX 

health 

CAC3 

LOC  CTR 

CHIEF  NORMAL  ACTION  OF  SETLOC. 

1057 

ND  SETLOC 

NA 

LOC  FIELD 

BLANKS 

C , + 2 

1058 

TS 

PROC  RTRN 

Z,SC 

SEND  PDPn  C 

AS  Per  XMIT  RTRN. 

1060 

TS, 

bit  8 

ones 

HEALTH 

XMIT  RTRN 

CUSS  about  NON-BLANK  LOC  field  IN  LOC. 

1071 

NO  ADRESS 

NA, 

CD  TY=>e 

health 

(EOJALS) 

NO  SETLOr 

MAKE  FAULTY  SEILOC  VOID. 

1073 

TS 

ONES 

LOC  LOC 

1SE0  LSYM 

SIGNAL  no  DEFINITION  FOR  lOcSYM  OF  is,:. 

R 1 075 1 

CONFLICT-CHECKING  LOO3 

FOR  POSTDEFINITION  OF  LEFTOVERS  BY  IS  OR  : (CALLED  FROM  LeFtYPER-1). 

10753 

ISL  C3NF0 

TS 

COMMON  +2 

Z,AJl 

C,*3 

10754 

LA 

HI  LIm 

Z,  Ajl 

IT  IS 

EXIT  (SO  IS  CHANGED  IF  ANY  CONFLICT). 

107542 

WA 

Z , AU1 

ONE 

Z.AJ1 

10755 

TS 

Z , AU1 

COMMON 

AVAIL  2 C 

SCAN  FORWARD  THROUGH  LEFTOVER  3'OCK. 

10756 

LA 

BIT  32 

COMMON 

ISL  CONFn  +1 

BRANCH  IF  NO  CONFLICT  THIS  TIME. 

10757 

TS 

Z,SC 

Z , SD 

ISL  CONFO  +1 

force  special  transform  if  conf.ict. 

10758 

DEC 

-BOO  000 

4 


L 
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the  following  sect  1 0 si 

OEaLS  WITH 

THE  LOCATION  SYM30L 

• OF  __  AN-  IS , • , _ 03 

: equals  card  according  to  the  disposition  of 

4 

R1078 

the  address  field. 

1079 

ISeQ  '-SYM  tS 

LOC  field 

common 

ANAL  SJ1F  C 

ANALYZE  LOCATION  FIELD  OF  IS,=,-QJALS. 

4 

1081 

NA 

field  Cod 

BIT  1 

XMIT  RTRN 

SIGNAL  ERROR  IF  NOT  SYMBOLIC,  AnD  EXIT. 

1083 

TS*  BIT8 

. QNES 

HEALTH 

ANAL  GYMR  C 

SIGNAL  SYMB  LOCN*  Get  SYMBql  HISTORY. 

4 

10842 

NA 

COMMON  + 2 

ONES 

C * + 3 

1085 

SM 

HEALTH 

BIT  15 

HEALTH 

4 

1086 

IS 

PROC  RTRN 

z,_sc_ 

SfND  PQPn  C 

ABORT  IF  SYMBOL  TABLE  IS  FULL. 

1088 

TS 

COMMON 

COMMON  +1 

FIND  XFRM  -1  C 

« 

1089 

TX 

2,1 

_ 

COMMON  *3  C 

SAVE  SYMBQL*  GET  ADDRESS  OF  TRANSFORM. 

10901 

LA 

COMMON  ♦ 2 

2 D3 

IT  IS  -1 

10932 

NA,  08 

COMMON  +2 

508 

IT  IS  -1 

BRANCH  IF  LOC  SYM  WAS  NOT  LEFTOVER. 

4 

10934 

NA 

LoC  LOC 

ONES 

C , + 3 

BRANCH  IF  AN  OR  DEFINITION  WAS  MADE. 

10936 

SM 

N,X2 

D4 

N,X2 

THROW  UP  HANDS  IF  EUUALS  FAILED  TO  DEF. 

1094 

TS 

" 

- 

NOT  3<  OrF 

4 

1098 

SSL*  ONE 

COMMON  *2 

15 

C * + 1 

1099 

TS 

TYPE  F 

COMMON 

C,t2 

when  symbol  goes  with  lefto  con  or  inst. 

4 

1101 

TX 

T YPE  _E_  . 

• 

COMMON 

when  SYMBOL  GOES  WITH  LEFTOVER  -RASE. 

1103 

TX 

L TYP  TAB 

Z,X5 

1104 

LA,  LAC3 

LOC  LOC 

5,0 

C , + 2 

BRANCH  WHEN  MEMORY  TYPE  IS  KNOWnI. 

4 

1106 

TS 

Zj  X 5 , 1 

C,-l 

1107 

NA,  LSTYPE 

5*0 

COMMON 

leftyper 

br  if  leftover  equated  to  wrong  type. 

4 

1109 

EX 

COMMON  +2 

SPEC  MAG 

COMMON 

1110 

WA,  Tjx  MAS 

- common 

LOC  LOC 

HI  LI  M 

FORM  END  OF  LEFTOVER  BLOCK, 

1112 

LA,  LAC3 

HI  LI  M 

5,0 

ISL  CONFn 

BR  IF  MEM  TYPE  OK  FOR  WHOLE  BLOCK. 

4 

1114 

LEFTY  3ER  TS,  D8 

DD8 

COMMON  +2 

IT  IS  +1 

INDICATE  TYPE  ERROR  IN  SYMBOL  TaBLE. 

1116 

not  o<i  def  na,  bit  n 

HEALTH 

ONES 

C , + 2 

4 

1117 

TS*  08 

0_nES 

COMMON  + 2 

End  is 

MEANINGLESS  ADDRESS  MAKES  HEALTH  = G. 

1119 

NA,  BIT  14 

HEALTH 

ONES 

C , ♦ 3 

4 

1120 

EG  OVSIZE  SWS,  08 

N , SO 

D , 1 , L 

COMMON  + ? 

USE  transforms  for  oversize  definition. 

1122 

TS 

* 

END  IS 

4 

4 

« 


I 


« 
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P 1 1 2 3 IF  THE 

only  trouble  with  an  equals 

CARD  is  An  JnD 

SFlNEP  ADDRESS 

SYMBOL.  MAKE  PASS .1.5  TRY  TO  FIX  IT  UP. 

11235 

LA. 

FIX  MAS1 

ADR  WD  +1 

SPEC  MAG 

C , + 2 

11236 

TS, 

BIT  1* 

ONES 

HEALTH 

EO  OVSIZE. 

BEING  SIGNED,  MODIFIER  IS  15  BI rS. 

11238 

SWE 

, CAC3 

ADR  WD  +1 

l.L 

COMMON  ♦? 

STORE  MODIFIER  WITH  SIGN  AT  RIGHT  END. 

112*  DEFIN-R 

Q SWE. 

, CAC3 

HEALTH 

16  

ETS 

point  to  pefiner. 

112*2 

SWS 

» CAC12 

ETS 

32. L 

COMMON  *3 

112*3 

LA 

ETS 

zero 

nearly 

branch  IF  DEFINER  DIDNIT  fit  in  table. 

112**5 

EBA 

ETS  _ __ 

_ £Ll T 25 

Z.X5 

112*5 

SWS 

, CAC2 

5,1 

16,  L 

COMMON  +3 

DEFINER'S  1ST  DEFINEE  IS  OUR  CD-DEFINEE. 

112*65 

EBS 

Z.X2 

BIT  25 

ETS 

112*7 

SS 

ETS. 

CAC3 

5,1 

this  sym  is  now  definer's  1st  defines. 

11251 

LA 

N.X2 

CAC3 

NEARLY 

branch  if  this  is  the  First  DEFINITION. 

11252 

LA 

end  syjab 

SYM  PLACEL 

NEARLY 

1 12522 

NA 

SYM  PLACE 

SPEC  mag 

C » ♦ 2 

1 1252* 

WA 

SYM  PLACE 

THREE 

SYM  PLACf 

SKIP  OVER  32K  STOPPER. 

11253 

WA . 

CAC3 

SYM  PLACE 

ONE 

5,1 

THIS  MULT.  DeF,  WILL  GET  A NEW  HOME. 

1125* 

S, 

ETS 

3.0 

ZX  +4 

C,  + l 

POINT  TO  MULT.  DEF.  INTRODUCTION. 

11255 

LA 

CAC12 

* » 2 

NEARLY 

BRANCH  IF  IT  RbALLY  IS  ONE. 

11256 

WA 

SYM  PLACE 

BIT  *6R 

ETS 

THIS  IS  THE  SECOND  DEFINITION,  SO  MAKE 

1 1256* 

NA 

ETS 

SPEC  SIGN 

C,  + 2 

ROOM  FOR  the  mult.  def.  introduction. 

1 12566 

WA 

ETS 

THREE 

ETS 

SKIP  OVER  32K  STOPPER. 

11257 

LA 

END  SY  TAB 

ETS 

NEARLY 

11258 

SS 

ETS 

CAC3 

5,1 

INTRO.  POINTS  to  THIS  Def  (NOW  rURRENT). 

1126  NEARLY 

SS 

N.SO 

Da 

COMMON  o 

USE  undefinition  transforms. 

1128 

TS 

- 

END  IS 

11282 

LA 

ONES 

LOC  LOC 

NOT  OK  DfF 

branch  if  no  ok  definition. 

1129  IT  IS 

SWS 

, D8 

N.SO 

D » 1 

COMMON  ♦ 2 

USE  NORMAL  IS, =, EQUALS  TRANSFORM. 

1131 

SS 

LOC  LOC 

CAC  3 

COMMON  +2 

11318  END  IS 

TX 

BIT  8 

„ 

LOC  STATF 

1132 

TS 

Z,SC 

Z.X6 

SY  DEF  XTT 

STORE  ENTRY  IN  SYMBOL  TABLE. 

11332 

NA, 

b8B17 

loc  state 

ONE  5 

XMIT  RTRn 

EXIT  UNLESS  LOC  SYMBOL  FAILED  TO  FIT. 

1133* 

NA. 

CD  TY=£ 

health 

(ERASE) 

C , +2 

BRANCH  IF  OP  CODE  IS  EQUALS. 

11336 

TS, 

B I T 1 6 

ONES 

health 

XMIT  RTRN 

SHOW  UNFITTING  OF  ERASE  LOC  SYM. 

11338 

SM 

health 

BIT  15 

health 

SHOW  UNFITTING  OF  EQUALS  LOC  SYM. 

113* 

TS 

- 

- 

XMIT  RTRN 
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P 1 1 35 

procedure  to  handle,  the  clerical  code  ., erase.,  if 

thf  address  field  is 

BLANK . OR 

SIGNED  -NUMERIC. 

THE 

R 1 1 37 

LOCATION  COUNTER  gives  tHE  LOWER  LIMIT  AND  IS  ADVANCED  TO  H I OH 

limit  ♦ i . 

1130 

ERASE 

TX» 

CD  TY3E 

(ERASE) 

* 

HEALTH 

1139 

NA. 

bit_ 

11 

HEALTH 

ZERO 

I LLESQP 

ASTERISK  makes  illegal  op. 

11A1 

TS 

Z,SC 

Z , X A 

AOR  F1ELF, 

DECODE  ADDRESS  FIELD. 

1 1A3 

NA 

FIELD  Cop 

-ONES 

- C, *2  _ 

1 1 A A 

ERAS 

NhAT 

TS* 

BIT11 

ONES 

health 

ER  LOC  sYM 

when  address  is  meaningless. 

1 1 A6 

NA, 

B2B6 

field  -Cod 

ONES 

not  eranu 

BRANCH  IF  NO  U/S  NUMERIC  PART. 

1U8 

NA 

FIELD  COD  +1 

ZERO 

C , + 2 

1U9 

TS 

ADR  WD 

ADR  WD  +1 

CH  ER  SI7E 

LONE  NUMERIC  IS  BOTH  LIMITS. 

1151 

LA 

ADR  WD  +i 

BIT  7 

ERAS  THRU 

MINUS  SIGN  ON  MODIFIER  MEANS  THRU. 

1153 

BA 

ADR  WD  +1 

ADR  WD 

ADR  WD  +1 

for  plus  modifier,  upper  limit  is  sum. 

1155 

TS 

• 

CH  ER  SI7E 

1156 

ERAS 

thru 

BS 

Zero 

ADR  WD  +1 

ADR  WD 

upper  limit  is  negative  of  MODIFIER. 

1158 

LA 

AqR  Wd 

ADR  WD  +1 

CH  ER  SI ZE  _ 

branch  IF  LIMITS  ARE  IN  OK  ORDER. 

1160 

TS, 

bit 

12 

ones 

health 

ER  LOC  SyM 

BAD  NEWS  when  Lower  LIMIT  IS  GREATER. 

1162 

NOT 

era  nu 

NA 

FIELD  COD 

BIT  1 

NOT  ERSYM 

1163 

NA 

ADR  WD 

W ANYWHAR 

ERAS  WHAt 

ERROR  if  symbol  is  NOT  ..ANYWHERE.. 

1165 

SM 

HEALTH 

BIT  15 

health 

MARK  CARD  AS  LEFTOVER. 

1167 

NA 

FIELD  COD  +1 

ZERO 

C , ♦ 2 

1168 

TS 

zero 

HI  LIM 

ERA  LEFTn 

when  symbol  is  alone. 

1170 

LA 

ADR  WD  +i 

BIT  7 

ERAS  WHAT 

BAD  NEWS  WHEN  MODIFIER  IS  MINUS. 

117A 

LA, 

FIX 

M A3' 

ADR  WD  +1 

SPEC  MAG 

ERA  LEFTO 

branch  If  modifier  has  ok  size. 

1176 

TS, 

BIT 

12 

ONES 

HEALTH 

ER  LOC  SYM 

when  leftover  block  length  TOO  3 1 3. 

1178 

NOT 

ERSYM 

LA 

ONES 

LOC  CTR 

C.-l 

CHECK  FOR  ILLEGAL  LOC  CNTR  VALUE. 

1181 

NA 

FIELD  COD 

ZERO 

C*  + 2 

BRANCH  IF  ADDRESS  FIELD  Is  NOT  3L ANK . 

1183 

TS 

BIT  1 

HI  LIM 

LC  L0«  LIM 

erase  current  location  only. 

1185 

NA 

field  Cud  +1 

ZERO 

C,*2 

branch  if  THERES  2 signed  numeric  parts. 

1187 

TS 

ADJR  WD 

ELL  LiM 

C , + 2 

1188 

BA 

ADR  WD 

ADR  WD  +1 

HI  LIM 

1189 

LC  LON  LIM 

SM 

LOC  CTR 

BIT  l 

LOW  LIM 

AREA  BEGINS  WITH  LOC  CNTR  VALUE  ANYHOW. 

1191 

LN 

HI  LIM 

ONE 

C,  + 2 

negative  UPPER  LIMIT  means  throjgh  here. 

1193 

BA 

HI  LIM 

LOW  LIM 

HI  LIM 

OTHERWISE  hi  lim  gave  ReL  adres  of  end. 

1195 

SS 

LOW  LIM 

CHAR  1 

HI  LIM 

ensure  positive  upper  limit. 

1197 

LA 

LOW  L i M 

HI  LIM 

C.  + 2 

branch  if  LIMITS  are  in  OK  ORDER. 

1199 

TS, 

bit 

12 

ONES 

HEALTH 

ER  LOC  SvM 

1201 

LA, 

FIX 

MAo! 

ADR  LIMIT 

HI  LIM 

C,-l 

error  if  UPPER  lim  too  big  for  machine.  __  

1203  wa,  fix  mas  hi  lim  one  loc  ctR  for  blank  or  signed  nun  addreSSfS  only. 
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chec<  address  values  =• 

OR  SIZE.  MFMQRY 

TYPE,  ANp„ 

XO-NFLIcT  bi.it h OTHfR_  ERASE  CARnS. 

1209 

CH  ER  SIZE  LA,  t-  IX  MA3 

HI  LIM 

MAX  ISEQL 

C , + 2 

1210 

TS,  hIT12 

_ ONES 

HEALTH  _____ 

ER  LOC  SyM  _ 

____  _ W HEN  ADDRESS  SiZEiS)  ARE  WRONG. 

1212 

LA 

ONES 

LOW  LIM 

C,-l 

1213 

SS  __ 

_ HI  LIM 

CAC3  _ 

HEALTH  

1214 

SWS,  CAC2 

LOW  LIM 

16, L 

HEALTH 

PUT  LIMITS  INTO  CARD. 

1216 

TX 

L TYP  TAB 

Z ,X5 

1217 

LA,  tAC3 

LOW  LIM 

5,0 

C,  + 2 

LOOK  UP  MEMORY  TYPE  OF  LOWER  LIMIT. 

1219 

TS 

Z,X5,1 

- 

C,-l 

1220 

NA,  LSTYPE 

5 ,0 

TYPE  E 

ERA  TYPO> 

ERROR  IF  LOWER  NOT  ERASABLE. 

1222 

LA,  CAC3 

Hi  LIM 

5,0 

C . *2 

OK  IF  HIGH  LIMIT  IN  SAME  CATEGORY. 

1224 

ERA  TYPO  TSt  « I T 1 3 

ONES 

HEALTH 

ER  LOC  SyM 

1225 

EX 

LOW  LIM 

FIX  MAG 

LOC  LOC 

1226 

ERA  CONFO  TS 

LOC  LOC 

COMMON 

AVAI L2 

C 

CHECK  AVAILABILITY  OF  BLOCK. 

12272 

WA 

L0C  LOC 

ONE 

LOC  LOC 

1228 

LA 

BIT  32 

COMMON 

C,  + 2 

1229 

SM 

health 

BIT  14 

health 

signal  conflict. 

1231 

LA,  F IX  MAS' 

LOC  LOC 

HI  LIM 

ERA  CONFo 

1232 

eR  lo:  SYM  tS 

LOC  FIELD 

common 

ANAL  SJSE 

C 

ANALYZE  LOCATION  FIELD  oF  NON-L-FtOVeR. 

1234 

LA 

FIELD  COD 

ZERO 

XMIT  RTRN 

OK  EXIT  IF  BLANK. 

1236 

LA 

field  cod 

B_I  T 1 

C,»3 

branch  if  symbolic. 

1238 

NA,  B 2 B 6 

FIELD  Cod 

ONES 

XMIT  RTRN 

OK  EXIT  IF  SIGNED  NUMERIC, 

1240 

Bl6  H)  T5,  Bn  16 

ones 

health 

XMIT  RTRN 

ERROR  EXIT  IF  UNSIGNED  NUMERIC. 

1242 

TS,  B I T8 

ONES 

health 

ANAL  SYMB 

C 

ANALYZE  LOCATION  SYMBOL. 

1245 

LA 

ONES 

common  +2 

B16H) 

ERROR  EXIT  IF  SYMBOL  TABLE  IS  F JLL. 

1252 

TS 

COMMON 

COMMON  +1 

FIND  XFRM  -1 

c 

SAVE  SYMBOL,  ISOLATE  OLD  HEALTH. 

1253 

WA 

z,so 

L XFORMS 

Z,S0 

GET  ADDRESS  OF  LOCATION  TRANSFORMS. 

1255 

NA,  BIT11 

HEALTH 

ONES 

C,  + 2 

1256 

TS,  »8 

ONES 

COMMON  +2 

END  IS 

symbol  health  becomes  g if  illeg.  adr. 
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P12575 

SELECT  AND 

APPLY  TRANSFORM  FOR  FRaSF  LOCATION  5 _YM  3 Q L 

■ — - - - - 

1258 

NA.  BIT  12 

health 

ONES 

C t ♦ 3 

1259 

SWS . D8  _____ 

N ,SQ  

_ D , 5 

COMMON  +?__ 

USE  TRANSFORM _FOR  OVERSIZE  ASSIGNMENT. 

1261 

TS 

- 

- 

END  IS 

1262 

NA.  B IT  13 

HEALTH 

_ ONES 

C,  + 3 _ 

1263 

SWS.  D8 

N , SO 

D , 4 

COMMON  ♦? 

USE  TRANSFORM  FOR  MEMORY  TYPE  ERROR. 

1265 

TS.  LAC3 

LOW  LIM 

COMMON  +2 

END  IS 

1266 

NA.  Bit  14 

HEALTH 

ONES 

C , ♦ 3 

1267 

SWS.  D8 

N , SO 

D,3 

common  ♦? 

USE  transform  for  conflict. 

1269 

TS.  CAC3  

LOW  LIM  _ 

___  COMMON  ♦ 2 

END  IS 

1270 

SWS,  D8 

N , SO 

D,  6 

COMMON  ♦? 

USE  NORMAL  ERASE  TRANSFORM. 

1272 

TS,  CAC3 

LOW  LIM 

COMMON  +2 

END  IS 

P 1 2 73 

procedure 

TO  handle  the 

LOCATION  1 

FIELD  OF  A LEFTOVER 

: erase  card. 

12  74 

era  LEFTO 

ss 

HI  LIM 

SPEC'  MAG 

health 

1275 

TS 

loc  field 

COMMON 

ANAL  SJ3F  C 

1276 

NA 

field  cod 

BIT  1 

XMIT  RTRN 

ERROR  EXIT  IF  NOT  SYMBOLIC. 

1278 

TS,  B I T8 

ONES 

health 

ANAL  SYMB  C 

1280 

LA 

ONES 

COMMON  +2 

816(H) 

ERROR  EXIT  IF  SYMBOL  1 ABLE  FULL. 

12812 

TX 

COMMON 

- 

COMMON  *1 

SAVE  SYMBOL  FOR  SY  DEF  X I T . 

1202 

la 

3 D8 

COMMON  +2 

pred  elef 

BRANCH  IF  SYMBOL  IS  PREDEFINED. 

12822 

LA 

COMMON  +2 

ZERO 

GOT  ELEFp  -2 

1283 

SM 

health 

BIT  10 

health 

SIGNAL  PREDEFINITION  FAILURE, 

12842 

era  LeF  md 

SS 

zero 

CAC3 

health 

if  erasable  lefto  is  multiply  defined, 

1285 

TS 

00  _ 

COMMON  +2 

END  IS 

MAKE  HEALTH  G AND  EXIT. 

12885 

SWE,  CAC23 

M ELEFTOP 

16 

COMMON  ♦? 

GET  MACHINE'S  ERAS  LEFTO  PARAMETERS. 

1289 

TX 

M ELEFTOP 

_ 

z , sc 

VISIT  MACHINE'S  OWN  ROUTINE. 

12895 

got  e_efp 

SWS,  B26T3D 

COMMON  +2 

8 

C,  + l 

USE  (16  - MODULARITY)  AS  SHIFT  rOJNT. 

1290 

SWE,  CAC3 

CAC3 

CACN 

FORM  LEFTOVER  BLOCK  SIZE  LIMIT. 

12905 

LA,  SPECM43 

HI  LIM 

CACN 

ANYwHA  Ok 

BRANCH  IF  GOOD  ERASABLE  LEFTOVER. 

1291 

SWE.  ONES 

EIGHT 

16, L 

COMMON  *2 

BLOCK  SIZE  TOO  BIG  CAUSES  1LL-DEF  SYM. 

12915 

SS 

ZERO 

CAC23 

health 

1292 

TS,  B i T 1 2 

ONES 

HEALTH 

END  IS 

12925 

anywha  ok 

SM 

COMMON  +2 

HI  LIM 

common  +? 

PUT  BLOCK  SIZE  INTO  SYM  TAB  AND  HEALTH. 

1293 

TS*  SPECM43 

Hi  LIM 

HEALTH 

end  is 

12935 

pred  elef 

HA 

health 

BIT  15 

health 

REMOVE  LEFTOVER  STATUS. 

1294 

LA 

5 Da 

COMMON  +2 

ERA  LeF  mD 

BRANCH  IF  BAD  MULTIPLE  DEFINITION. 

12945 

EX 

common  *2 

CAC3 

LOW  LIM 

1295 

WA.  OaC3 

LOW  L 1 M 

HEALTH 

HI  LIM 

12955 

WD 

COMMON  *2 

3 D8 

COMMON  +? 

SET  UP  QUANTITIES  AS  FOR  NON-LEFTOVER 

12965 

TS,  0AC3 

zero 

health 

CH  E«  SI7E 

ERASE  AND  REJOIN  MAIN  SEQUENCE. 

L 
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AND  TESTS  ONE  LOCATION  IN  ADDITION  TO 

R 1 2 99 
1300 

that  references  by  the 

20CT4.  TS.Cn  TY3£ 

regular  location  TRANSLATION  PROCEDURf. 
(2 OCTAL)  HEALTH  C.  + 2 

1301 

2DEC I HAL 

TX.  Co  TY3E 

(2DECML) 

- 

HEALTH 

1302 

TX 

ONES 

- 

SAVE  LDC 

set  up  later  test. 

1304 

SS 

TYPE  F 

L STYPE 

SWITCH  

1305 

na,  Chari 

CARDNO  wD 

J COLUMN  l 

Reg  DPCdn 

BRANCH  IF  NOT  LEFTOVER. 

1307 

sm 

health 

ONE 

HEALTH 

block  length  -l. 

1309 

TS  __ 

Z.sc.l 

m 

LFTVR  LDr  

C 

TRANSLATE  LEFTOVER  LOCATION  F i Ei»D . 

1311 

REG  D3C0N 

TS 

zero 

LOC  STATE 

LOCATION 

C 

translate  regular  location  field. 

1313 

SM  . _ 

-HEALTH 

LOC  STATE 

health 

1 3 1 A 

NA.  B12B14 

HEALTH 

zero 

XMIT  RTRw 

exit  if  leftover  or  oversize  location. 

1316 

LA 

ONES 

SAVE  LOC 

C,*2 

BRANCH  IF  LOC  CTR  WAS  NOT  SAVED. 

1318 

WA,  CaC3_ 

health 

ONE- 

LOC  XT  R . - 

1319 

TS 

LOC  CTR 

LOC  VALUE 

I NCR  LCTR 

C 

1321 

LA 

LoC  VALUE 

max  LOC 

C , ♦ 3 

BRANCH  IF  SIZE  of  2ND  LoC  IS  0<. 

1323 

SM 

HEALTH 

BIT  14 

HEALTH 

1324 

TS 

ONES 

LOC  CTR 

DP  LOC  END 

when  2ND  LOC  VALUE  IS  TOO  BIG. 

13252 

SSL,  ONE. 

-HEALTH 

_ 33 

C , ♦ 1 . ...  . 

BRANCH  IF  1ST  LOC  IN  BAD  MEMORY  TYPE. 

1326 

NA,  CAC3 

health 

5,0 

CON,FO  2 

branch  if  ist  loc  not  end  of  category. 

1328 

SM 

health 

BIT  15 

health 

WHICH  WOULD  MEAN  TYPE  ERROR  ON  <\T  LEAST 

1330 

NA,  b8Bl7 

HEALTH 

BIT  8 

DP  LOC  EmD 

ONE  OF  THE  LOCATIONS, 

1332 

SWS,  D7 

N,X2 

D , 3 

C,*l 

IF  LOC  IS  SYMBOLIC  AND  IN  TABLE,  JSE  THE 

1334 

SWS , D4 

N * SC  f 8 

0 

N,X2 

DP  TYPE  ERROR  TRANSFORMATION. 

1336 

DEC 

GFFD  FF9F 

D900 

1337 

CONF3  2 

TS 

LOC  VALUE 

COMMON 

A VA I L2 

r 

TEST  AND  RESERVE  2ND  LOCATION. 

1339 

LA 

BIT  32 

COMMON 

DP  LOC  EnD 

branch  if  it  was  available. 

1341 

SM 

health 

BIT  16 

health 

1342 

NA,  «8B17 

HEALTH 

BIT  8 

DP  LOC  EmD 

1343 

SWS,  D7 

N,X2 

D , 3 

C,  + l 

WITH  SAME  CONDITIONS  AS  FOR  TY^e  eRRDR, 

1345 

SWS,  Da 

N , SC  , 1 

0 

N,X2 

USE  DP  CONFLICT  TRANSFORM. 

1347 

DEC 

GFEF  FBFF 

EBOO 

1348 

DR  IDG  END 

LA 

ONES 

SAVE  LOC 

XMIT  RTRm 

EXIT  IF  LOC  CTR  WAS  NOT  SAVED. 

1350 

TS 

SAVE  LOC 

LOC  CTR 

XMIT  RTRN 

RESTORE  LOC  CTR  AND  EXIT. 

R 1 3 5 1 0 5 

PASS  i PR  DC 

EDURE  FOR  AN 

even  card,  IN 

cRements  location 

COUNTER  if  it  is  odd. 

13511 

even 

NA.  BiT  11 

HEALTH 

zero 

ILLEoOP 

ASTERISK  MAKES  ILLEGAL  OP. 

13512 

NA 

ADDRESS  1 

BLANKS 

N3  EVELOC 

13513 

NA 

ADDRESS  2 

BLANKS 

N3  EVELOC 

13514 

LA 

MAX  LOC 

LOC  CTR 

C , *2 

BRANCH  IF  LOC  CTR  ALREADY  AT  MAXIMUM. 

13515 

SSL,  ONE 

LOC  CTR 

0 

C , *2 

c 

13516 

SWS,  BIT  14 

LOC  CTR 

34, L 

health 

MAYBE  CUSS  ATTEMPT  TO  FLY  OFF  THE  END. 

13517 

TS,  Cp  TY3E 

(EVEN) 

HEALTH 

C , + 2 

13518 

WA 

LOC  CTR 

ONE 

LOC  CTR 

s 

LOCATION  IS  ODD,  SO  ADD  ONE. 

135185 

TS 

LOC  CTR 

LOC  LOC 

CH  IL  S I 7E 

13519 

Nb  EVELOC 

TS,  Bit  13 

ONES 

health 

EVEN  ♦ 3 

CUSS  MILDLY  AT  NON-BLANK  ADDRESS  FIELD. 
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P1352  PASS  1 PROCESSING,  FOR  A BLOCK  CARD. Sp  SYMBOLIC  sUBFifLD  I SHALLOWED  IN  THE  ADDRESS  FIELD*  A^D  THE 

R135A  MODIFIER*  IF  THERE  15  ONE,  MUST  Be  POSITIVE  AND  L^SS  THAN  THF  BLOCK  SIZE  FOR  THE  COMPUTER.  THE  ABSOLUT-  PART , 

* R l 356  IF  THERE  IS  ONE’  MUST  BE  A VALID  BLOCK  NUMBER  IN  FIXED  OR  ERASABLE. 


1357 

BLOCK 

NA « 

«IT  11 

health 

ZERO 

ILLE3UP 

ASTERISK  MAKES  ILLEGAL  OP. 

* 

1359 

TS 

z,sc 

Z,XA 

ADR  FIELd 

decode  address  field* 

1361 

LA 

ONES 

field  coo 

ILFO  5 OK 

when  address  field  is  meaningless. 

1362 

LA 

field  cod 

zero 

BLANK  BLK 

BRANCH  IF  ADDRESS  FIELD  IS  BLANK. 

* 

13621 

NA, 

B2B6 

field  cod 

BIT  2 

BLO<  SHIF  -1 

branch  unless  main  part  is  signed  num. 

13622 

NA 

field  cod 

EL 

ZERO 

C , *2  - 

BRANCH  IF  THERE  ARE  2 SIGNED  NJM  PARTS. 

13623 

TS 

ADR  WD 

ADR  WD  +1 

C,*2 

* 

1362A 

BA 

ADR  WD 

ADR  WD  *1 

ADR  WD  *i 

collect  modifier  as  minor  part  of  addr. 

13625 

BLANK  BLK 

NA 

LOC  CTR 

ONES 

C,  + 2 

* 

13626 

TS’ 

B I T 1 A 

Ones 

health 

BLOCK  LOr 

CAnnOT  evaluate  REL  TO  bad  location. 

13627 

TJC 

LOC  CTR  _ 

LOC  VALUE 

13628 

SS 

zero 

BL3<  ONES 

LOC  VALUf 

set  loc  value  to  beginning  of  3ank. 

* 

13629 

TS 

field  Cod 

FiELD  COO 

♦1  BLOK  SHIP  +1 

SHOW  WHETHER  modifier  is  present. 

1363 

NA, 

B2B6 

field  Cod 

0NE5 

ILFO  BLOK 

WHEN  THERE  is  no  numeric  part. 

* 

1365 

BLo<  SHIF 

SPe 

, FIX  MaG 

ADR  WD 

0 

LOC  VALUE 

SHIFT  AMOUNT  SUPPLIED  by  init i a.ization. 

1367 

LA 

FIELD  CQo 

♦ 1 

ZERO 

Ch  BL  sl7E 

branch  if  there  is  no  modifier. 

* 

1369 

LA 

F I XMAj’ 

ADR  WD 

BIT  7 

ILFO  BLOK 

error  if  modifier  is  minus. 

1371 

LA, 

ADR  WD  *1 

BLOC  ONES 

C , + 2 

branch  if  modifier  less  than  block  size. 

1373 

ILFO  3L0K 

TS, 

PIT  12 

ONES 

HEALTH 

BLOCK  LOC 

illegal  address  field  format  exit. 

1375 

BS 

LOC  VALUE 

ADR  WD  *1 

LOC  VALUf  . 

add  modifier  tq  shifted  NUMERIC. 

1379 

CH  Bl  SIZE 

LA 

LOC  VALUE 

MAX  LOC 

C*  + 2 

A 

1380 

TS, 

BIT  11 

ONES 

HEALTH 

BLOCK  LOC 

exit  FOR  NO  SUCH  BLOCK, 

1382 

TX 

L TYP  TAB 

• 

Z,X5 

* 

1383 

LA, 

CAC3 

LOC  VALUE 

5*0 

C , *2 

LOOK  UP  MEMORY  TYPE. 

1385 

TS 

Z *X5  * 1 

• 

C,-l 

1386 

NA, 

lstype 

5,0 

type  n 

C,  + 2 

BRANCH  IF  IN  FIXED  OR  ERASABLE. 

* 

1388 

TS, 

PIT  13 

ONES 

HEALTH 

BLOCK  LOC 

memory  type  error  exit. 

1390 

TX 

LOC  VALUE 

Z ,XA 

* 

1391 

SM 

LAC3 

LOC  VALUE 

blok.  ones 

LOC  VALUf 

FORM  END  OF  MAUOR  BLOCK. 

1393 

LA, 

LOC  VALUE 

5 » 0 

C,  + 2 

BRANCH  IF  MAUOR  BLOCK  END  COMES  FIRST. 

£ 

1395 

EX 

N,X5 

CAC3 

LOC  VALUf 

when  minor  block  end  comes  first. 

1397 

TS 

Z,Xa 

common 

AVAIL1  C 

NON-DESTRUCTIVE  AVAILABILITY  TEST. 

1399 

LA 

BIT  32 

COMMON 

GOOD  Blok 

BRANCH  IF  AVAILABLE. 

* 

1A001 

WA 

Z «XA 

ONE 

Z «XA 

1 AO  1 

__LA 

Z,XA 

LOC  VALUE 

C , -3 

£ 

1A02 

TS, 

BIT  10 

ONES 

HEALTH 

BLOCK  LOC 

when  block  is  full. 

1A0A 

GOOD  3L0K 

JM 

health 

Z * X A 

health 

STORE  Found  address. 

* 

1 A06 

TX 

Z*XA 

LOC  CTR 

SET  LOC  CTR  ACCORDINGLY. 

1A08 

BLOCK  LOC 

NA 

LOC  FIELD 

BLANKS 

1A09 

TS, 

CD  TYPE 

(BLOCK) 

HEALTH 

XMIT  RTRn 

* 

1 A 1 0 

TS, 

PIT  8 

ONES 

health 

C,-l 

SIGNAL  NON-BLANK  LOCATION  FIELD. 

# • 

ft 


ft 
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P 1 A 1 2 _ PASS  1 PROCESSING  OF  A HEAD  Or  TAjL  CArD. RiGHL-jUSTl.F_I.ES.  LOCATION  FIELD  AND  USES  RIGHTMOST  CHArAC- 

RlAlA  TER,  EVEN  IF  BLANK. 


1415 
1 A 17 

HEAD 

tail 

nA,  Bit  11 
TX 

HEALTH 
LOC  FIELD 

zer> 

ILLEoDP 
_____  HEAD 

asterisk  makes  illegal  op. 

1 A 1 8 

TX 

BIT  45 

- 

z,so 

loop  LIMIT  IS  8. 

1A20 

NA,  CHAR8 

HEAD 

_.  BLANKS 

C , + 3 __ 

1A21 
1 A23 

SWS,  ONES 
NA 

head 

Z,S0,1 

A , 1 

ONE 

head 

C.-2 

right-justify. 

1 A2A 
1431 

ss 

TS,  CD  TY3i 

head 

(HEAD) 

CHAR  8 
health 

health 

XVII T RTRni 

STORE  head  In  POPO. 

R 1 A32 

PROCEDURE  TOR  MEMORY  OR 

SeUNUM  cards 

that  arrive.  TOO  late. 

1A33 

late 

mem 

TS,  Ed  TY3£ 

(2LATE) 

health 

XMIT  RTRN 

R1434  PROCEDURES  FOR  FIRST  "FNP  OF"  CARP  AND  SUBSET JfNt  "FNP  OF"  CARDS. 


143  6 

end  Or 

TS 

send  endo 

end  of 

END  EARLv 

C 

AT  FIRST  SUCH  CARD,  WAKe  RD1  AND  TELL 

1438 

TS,  KNOWSJQS 

ones 

SWITCH 

MON  WA<F 

C 

it  the  subroutines  are  known. 

1440 

ss 

zero 

BIT  1 

SWITCH 

PROHIBIT  RENUMBERING  IN  SUBROUTINES. 

14402 

TX 

BIT  24 

m 

824  B32 

TURN  OFF  DIRECT  BIT  FOR  SUBRO  DIRECTORY. 

14404 

TS 

LL  SUB  TAB 

Z,X4 

ST  SJB  TwR 

c 

INITIALIZE  THREAD  TO  CURRENT  SJ3R0UTINE. 

1441 

TX 

zero 

real  cdno 

prevent  false  alarms  in  rejection. 

14412 

NA,  B IT  1 1 

SWITCH 

ZERO 

send  endo 

USE  EXISTING  "end  OF"  CARD  FOR  REPRINT. 

1442 

NA,  MERJMOOE 

SWITCH 

ONES 

Send  endo 

when  revising,  first  "end  of"  card  mjst 

1444 

TN 

(END  OF) 

11 

health 

BE  REPLACED  BY  ThL  ONE  MAqE  BY  :>AsS  0. 

1446 

SEND  - NDO 

TS 

LL  SUB  TAB 

Z,X5 

send  endo  +1 

THIS  ALONE  FOR  2ND  "END  OF"  ET  SE3. 

144612 

EBA 

N,X5 

BIT  25 

Z,X5 

144614 

LA 

ONES 

N , X 5 

ST  SJB  THR  .1 

14A62 

SS 

zero 

BIT  24 

N,X5»1 

WIPE  OUT  CURRENT-PROG/SUB  CALL  31 T 

14464 

S’  ETS 

5,0 

ZX  *5 

C * + 1 

in  subroutine  directory  entries. 

14466 

NA 

N,X5 

ONES 

C,-2 

BRANCH  IF  MORE  subs  IN  THIS  ASSEMBLY. 

14A672 

S,  ETS 

L NEXT  SUB 

ZX  .4 

C,  + l 

POINT  TO  NEXT  SUBROUTINE  TO  ENTER  ASSY. 

14A674 

SWE,  CHAR3 

N,Xa 

A, 3 

head 

establish  head  specified  in  call. 

144676 

SSL,  ONE 

N,X4,1 

25 

c , ♦ 1 

"BRANCH"  IF  THERE  IS  A GOOD  BASE  4DDR. 

1 A4&78 

TS 

ONES 

LOC  CTR 

C , + 2 

14468 

SWE*  CAC3 

N,X4 

16 

LOC  CTR 

14A682 

ST  SJ3  THR 

TX 

N,Xa 

L NEXT  Si  iB 

leave  pointer  to  following  subroutine. 

144684 

na,  bits 

switch 

ONES 

XMIT  RTRN 

exit  VIA  send  POPO  UNLESS  FREEZING  SJ3S. 

1 4A686 

TX 

PROC  RTRN 

- 

Z,SC 

OTHERWISE  KILL  INTERMEDIATE  "END  DF"S. 
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P1447  PASS  1 PROCESSING _Qf  A SUBROUTINE  CALL  CARD,  EXTRACTS  A SUBROUTINE  NAMF  AND  AN  OPTIONAL  HEAD  DESIG. 

R 1 4 A705  NAylOM,  FROM  THE  ADDReSS  FIELD,  ENTERS  the  SUBROUTINE  NAMf  AND  BASF  ADDRESS  IN  THe  AD  Hoc  SUBROUTINE  DIRECTORY, 

R 1 447 1 AND  MARKS  the  SUBROUTINE  ACTIVE  OR  INACTIVE.  ^LSO  USES  THE  BASE  ADDRESS  TO  DEFINE  THe  SYMBOL,  IF  ANY,  IN  THE 
R1AA715  LOCATION  FIELD. 


1 AA72 

SUBRO 

TX,  CD  TY3£ 

(SUBRO) 

m 

HEALTH 

1AA73 

TX.  B I T 1 1 

ZERO 

- 

HEALTH 

asterisk  bit  has  a different  us-  here. 

1AA732 

LA 

. END  OF 

...SEND  ENDO 

ILLE30P 

SNUB  SUBR0_CARDS  AFIER  1ST  "END  OF", 

1AA7A 

NA*  Bit  9 

SWITCH 

zero 

ILLEoOP 

for  now,  forbid  subros  to  call  subros. 

1AA76 

NA 

ADDRESS  2 

BLANKS 

SJB  RJJSt  -1 

1AA77 

NA  __  . 

ADDRESS  1 

BLANKS 

C , + 2 

address  field  all  blank  is  bad. 

1AA79 

SUB 

AO.  ILF 

TS.  B 1 T 1 2 

ONES 

health 

BAD  SBC AL 

1AA8 

TX  _ _ 

BLANKS 

AFIELD 

1AA81 

TS 

ADDRESS  1 

afield  +1 

SJB  RJJSt 

1AA82 

TN 

ADDRESS  I 

2 

AFIELD 

1AA83 

SUB 

rjust 

NA*  cHAR8 

AFIELD  .1 

BLANKS 

C , + 2 

right- justify  address  IN  AFIELD. 

1AA85 

TS 

L SUB  R JUS 

z,sc 

2SRT  1C  C 

1AA86 

CUR 

H-D  SB 

SWE,  CHAR  5 

head 

A.3.L 

common  + ^ 

ASSIGN  PREVAILING  HEAD  TO  SUBROUTINE. 

1AA88 

NA.  CHAR7 

afield  +1 

BLANKS 

snam  siz  q 

branch  if  no  head  was  given  in  address. 

1 A A9 

SWE.  CHAR 5 

AFIELD  .1 

A , 3 * L 

COMMON 

USE  LONELY  CHAR  AT  RIGHT  AS  HEAD  FOR  SB. 

IAA92 

ss 

BLANKS 

CHAR  8 

AFIELD  +1 

1 A A93 

NA 

AFIELD 

BLANKS 

SJB  LJJST 

1AA9A 

NA 

AFIELD  *1 

BLANKS 

SNAM  SIZ  Q +1 

BRANCH  UNLESS  1-CHAR  UNHEADeD  SJB  NAME. 

1AA96 

SWS.  CHARI 

COMMON  -.3 

A , A * L 

AFlEl'D 

PUT  SUBROUTINE  NAME  BACK, 

1AA98 

TS 

Z , SC  . 8 

C JR  HED  aB  C 

RESTORE  PREV.  HEAD,  TAB  TO  ST  SJBNAM. 

1A50 

S NAM  SI ZQ 

NA 

AFIELD 

BLANKS 

SJB  AD  IFF 

BRANCH  IF  SUBRO  NAME  OVER  8 CHARACTERS. 

1A502 

TX 

AFIELD  +1 

AFIELD 

1A503 

TX 

BLANKS 

- 

AFIELD  +1 

14504 

14506 

14507 

SUB  LJUST 

NA*  LhaR 1 
SWS*  ONES 
SWS.  ONES 

AFIELD 

AFIELD 

AFIELD 

♦ 1 

BLANKS 

A.l  *L 
A.l.L 

ST  SJBNAM 
AFIELD 
AFIELD  *1 

LeFt-JUSTIFY  SUBROUTINE  name. 

14508 

14509 

SS 

TS.  0HAR8 

AFIELD 

BLANKS 

♦ 1 

CHAR  8 
AFIELD  *1 

AFIELD 
SJB  LJJST 

1451 

14512 

14513 

ST  SJ3NAM 

NA 

TX 

sws.threaoio 

afield 

L COMP 
N,X4 

♦1 

NAM 

BLANKS 

12 

SJB  AD  ILF 

Z.X4 

Z.X4 

BRANCH  IF  SUBROUTINE  NAME  OVER  3 CHARS. 
POINT  TO  1ST  PROG/SUBRO  OF  MACHINF. 

14515 

TX 

LL  SUB 

TAB 

Z,X6 

POINT  TO  ORIGIN  OF  SUBRO  DIRECTORY. 

IA517 


ETS 


6,0 


MOR  SJ3S  U +3 


POINT  TO  FIRST  CALLED  SUBROUTINE. 


ZX  ♦ 5 
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P145185  LOOK  JP  THf  SUBROUTINE  NAME  IN  THF  TAPE  DIRECTORY  AND  THE  A3  HOC  DIRfCTQRY  SIMULTANEOUSLY. 


14519 

14521 

SUB  LJKUP 

NA 

NA 

Z.AUl 

N.AUl 

Z.X4 

AFIELD  _ 

NOT  IN  DtR 
NEXT  DSJB  _ 

COMPARE  AD  HOC  DIRECTORY  WITH  TAPE  DIR. 
COMPARE  WITH  SUBROUTINE  BEING  CALLED. 

14523 

14525 

14526 

SM 

TX 

NA. 

alf  mask. 

health 
CHAR  5 
COMMON  +3 

BIT  13 
5,1 

HEALTH 
ALF  mas< 

C , ♦ 2 

CUSS  MULTIPLE  CALLS  FROM  ONE  PR-iGRAM. 
BRANCH  IF  HEAD  DESIGNATIONS  CONFLICT. 

14528 

1453 

14531 

BAD  53CAL 

TS 

SM 

TS 

zero 

health 

ZERO 

Z.X2 
BIT  19 
Z,X2 

SJBRO  LOr 

health 

SJBRO  LOC 

show  that  there  is  no  base  ADDRESS, 

14532 

NEXT  D5JB 

EBA 

Z.X5 

ONE 

Z.X6 

14533 

S' 

ETS 

6,0 

ZX  *5 

C.  + l 

ADVANCE  ONE  PLACE  IN  ACLHOC  DIRECTORY. 

14535 

MOR  SJBS  Q 

SWS 

.THREAD10 

4,1 

0 

Z , XL 

advance  one  place  in  tape  directory. 

14537 

NA 

Z,XA 

L END  THR 

C , ♦ 2 

BRANCH  IF  THERE  ARE  MqRE  SUBS  OR  PROGS. 

14539 

TS* 

B I T 1 1 

ones 

health 

BAD  SB  CaL 

CUSS  UNRECOGNIZED  SUBROUTINE  NAHE. 

14541 

SSL*  BIT4S*i 

4,1 

10 

MOR  SJBS  Q _ 

"BRANCH"  IF  PROGRAM,  NOT  SUBROUTINE. 

14543 

TS 

N,X5 

Z , A J1 

SJB  LJ< JP 

fetch  thread  from  ad  hoc  directory. 

14545 

NOT  IN  DIR 

NA 

N,Xa 

AFIELD 

MOR  SJBS  Q 

COMPARE  tape  DIRECTORY  SUBRO  with  CALL. 

14547 

SWS 

, B22T32 

Z,Xa 

1 6 , L 

health 

THREAD  HEALTH  TO  TAPE  FILE  DIRECTORY. 

14549 

SWS 

, BIT13 

4,1 

35,  L 

health 

maybe  cuss  multiple  calls  from  t prog. 

14551 

SM 

4,1 

ONE 

4,1 

show  that  this  subroutine  is  called. 

14553 

NA 

SYM  PLACE 

end  sy  tab 

C,*3 

branch  if  there's  room  for  ad  hoc  entry. 

14555 

SM 

health 

BIT  18 

health 

CUSS  NO  ROOM  In  SYM  TAB  FOR  AD  HOC  SJB. 

14557 

TS 

ZERO 

Z,X2 

SJBRO  LOr 

14558 

SM 

COMMON  +3 

Z,X4 

COMMON 

14559 

SM 

common 

B24  B32 

COMMON 

CREATE  word  I OF  AD  HOC  SUBRO  DIRECTORY. 

14561 

TS 

L PROG  FIL 

Z ,X3 

C,*2 

C 

14562 

SSL 

, ONE 

3,1 

23 

C,*2 

A PROG  WHO  HAD  NO  SUBS  HAS  ONLY  ACTIVES. 

14564 

TX 

L END  THR 

- 

Z,X2 

s 

14565 

ACjIY  SUB 

TS 

BIT  31 

COMMON  +2 

SJBRO  DId 

c 

prepare  active-subroutine  bit. 

145662 

LA, 

CHAR7 

ASTRISKS 

op  field 

C,-l 

op  code  »subro*"  demands  printing. 

* 


4 
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Pi  45665 

SCAN  PROGRAM’S  TRFF  Or 

SUBROUTINE 

THREADS  TQ  FIND  ACTIVE  SUBROUTINES. 

14567 

SWS.THREAD11 

3,1 

24 

Z ,X3 

POINT  TO  FIRST  SUBRO  THREAD  WORD. 

14569 

thread 

i 2Q 

sws.threadlo 

N.X3 

. 24 

7 . X 2 

FOLLOW  THREAD  AND  POINT  TO  A SUBROUTINE. 

14571 

SSL*  ONE 

N.X3 

24 

SJB  THRD  0 

C 

TEST  OBSOLETING-THREAD  BIT. 

14573 

NA*  BIT  13 

3,0 

ZERO 

ACTIV  SJw 

TEST  LAST-THREAD-IN-TREE  BIT. 

14575 

sws*threaoio 

N,X3 

12 

Z,X2 

14576 

SSL.  ONE 

N ,X3 

12 

SJB  THRD  0 

r 

14578 

SSL.  ONE 

N,X3 

23 

ACTIV  S Jr  -1 

c 

14579 

NA.  B I j 37 

3,0 

ONES 

THREAD  10 

DITTO  FOR  THIRD  THREAD  IN  THREAD  WORD. 

14581 

ss 

N ,_X3 

THREAD  10 

Z.X2 

14582 

SSL  * ONE 

N ,X3 

0 

SJB  THRD  Q 

C 

14583 

TS 

BIT  31 

COMMON  +2 

SJBRD  DId 

c 

ditto  for  fourth  thread  in  thread  WORD. 

14585 

THREAD 

IQ 

SS 

N,X3 

THREAD  11 

Z,X3 

FOLLOW  THREAD  TO  THE  NEXT  THREAD  WORD. 

14587 

sws.threaoio 

N,X3 

36 

Z,X2 

14588 

SSL,  ONE 

N,X3 

36 

SJB  THRD  Q 

c 

TEST  OBSOLETING  BIT  OF  FIRST  HrEAD. 

1459 

TS 

THREAD  zn 

(THERE'S  ALWAYS  A 2ND  THD  AFTER  A 1ST). 

14592 

SUR  T4RD  Q 

TS 

ZERO 

COMMON  +2 

C»  + 2 

r 

ENTER  HERE  On  INACTIVE  SUBRO. 

14594 

TX 

BIT  31 

COMMON  ♦ ? 

c 

ENTER  HERE  on  ACTIVE  SUBROUTINE. 

14596 

NA 

Z,X2 

Z , X 4 

N , SC , 1 

c 

EXIT  IF  NOT  THE  SUBRO  NOW  BEING  CALLED. 

R145975 

STORE 

finished  entry  in 

AD  HOC  SUBROUTINE  DIRECTORY 

AND  PROCESS 

location  field,  checking  conflict  of  i s r loc. 

14599 

SUBRO 

DIR 

SM 

COMMON 

COMMON  +2 

COMMON 

c 

145992 

NA.  BUS 

SWITCH 

ONES 

C , ♦ 2 

c 

BRANCH  IF  NOT  FREEZING  SUBROUTINES. 

145994 

ts,  chari 

R COLUMN  l 

cardno  WD 

XMIT  RTRm 

OTHERWISE  MAKE  SUBRO  CARDS  INTO  REMARKS. 

145998 

EBA 

Z,X6 

ZERO 

Z,X3 

c 

1460 

TS 

Z,CSC 

z , SC 

NEW  JNSYM 

c 

STORE  AD  HOC  SUBROUTINE  ENTRY  IN  SYMTAB. 

14602 

ts,  chari 

END  ERR  M 

♦1  SYM  OR  NOT 

CLR  COMM  2 

c 

RESTORE  SYMBOL  SUBROUTINE. 

14604 

SU3R0 

LOC 

eba 

Z,X2 

ZERO 

LOC  LOC 

14605 

wd 

OK  L TYPE 

ONE 

OK  L T YPp 

MODIFY  LOCATION  ROUTINE  SO  AS  NDT  TO 

14607 

TS,  L STY 3 = 

TYPE  F 

SWITCH 

ReG  incon 

c 

RESERVE  ANY  LOCATIONS,  WHILE  CHECKING. 

14609 

WA 

OK  L TYPE 

ONE 

OK  L T Y Pc 

1461 

LA 

LOC  LOC 

ZERO 

SJBRO  XIt 

146105 

LA 

ONES 

LOC  CTR 

REG  INCON  +1 

EXIT  NOW  IF  NO  GOOD  LOCATION.  

14611 

ebs 

LUC  LOC 

ONE 

Z,X2 

POINT  TO  SUBROUTINE  DIRECTORY  ENTRY. 

146115 

SM 

N,X2 

BIT  23 

N , X2 , 1 

SHOW  THAT  THERE  IS  A BASE  ADDRESS. 

14613 

SWS , CAC2 

LOC  STATE 

1 6 , L 

N,X2 

STORE  BASE  ADDRESS  IN  AD  HOC  SJ3RD  NTRY. 

14615 

SUBRO 

X I T 

TS 

LOC  VALUE 

LOC  CTR 

REG  INCOn  *1 

R 14616 

TRIVIAL  SUBROUTINE  TO'  INCREMENT 

LOC  CTr  JNLESS  IT  IS  BAD. 

14617 

14618 

INCR  lCTR  LA  ONES 

wA  LOC  CTR 

LOC  CTR  N,SC»1 

ONE  LOC  CTR 

S 

» 


* 
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SUBROUTINE 

IN  PASS  1 TO  break  Down  THE  ADDRESS  FicLD 

OF  A MERGE  CONTROL  CARD,  THAT  IS,  WITH  An  OP 

R1A63 

CODE  OF  "CARDNO"  OR  "DELETE".  USES 

ThE  SENTENCE  READER.  SETS  UP  FIeLDCOD  AND  CNLIMlT  AS  FOLLOWS; 

R1A65 

FIELD  ALL  BLAN< 

F I ELDCODsQ 

R 1 A66 

"THRD JGH" 

with  number 

F I ELDCODsB 1 , 

CNLI Mit=NJM3eR 

RU661 

" THR J" 

with  NUMBER 

FlELDCOD  = Bl , 

CNLI  v'IT  = NJM3-R 

R1A665 

"TO"  WITH  NmmbE^1 

F I ELDCQDsB2  , 

CNLIMIT=NJM3ER 

R 1 A67 

"WITH" 

with  NUMBER 

FIELDC0D=B3, 

CnLI Ml T=N JM3£R 

R 1 A68 

THE  NJMBeR 

IN  THe  address  field  may 

be  "SEOBREAK"  OR  "SEOBR<»  CAUSING  CNLIMlT  TO  BECOME  ALF  10000000,  OR  JP  TO  6 

R1A70 

DECIMAL  DIGITS  WITH  AM 

optional  DECIMAL  POINT.  If 

THE  point  is 

present,  there  may  Be  UP  to  four  digits  to  its 

R1A72 

left  and  up  to  two  dig 

MS  ON  ITS  RIGHT.  IF  THe  POINT  IS  ABSENT 

and  there  are  four  digits  or  less,  the  =oint  is 

R 1 A 7A 

ASSJM-D  TO 

BE  AT  THEIR 

IMMEDIATE  RIGHT.  IF  the  point  IS  ABSfNT 

AND  THERE  are  FIVE  OR  SIX  DIGITS,  THE  POINT  IS 

R 1 A 76 

ASSUMED  TO 

FOLLOW  the 

fourth  digit. 

At  LEAST  one  blank  or  OTHER 

! TERMINATOR  MUST  SEPARATE  THe  TWO  SUBF I pLDS , BUT 

R 1 A78 

NO  IM3EDDED  Bl  A^KS  AR~ 

ALLOWED  IN  EITHER  SUBFIeLO, 

IF  ANY  OF  THfSE  RULeS  are  VIOLATED  or  THERE  IS  a THIRD 

R 1 A80 

SUBFI -LD, 

FIELDLOD  is 

set  to  all  ones  and  the  Caro 

is  ignored  and  cjssed  at  for  a meaningless  address  fteld. 

R 1 A82 

THe  MJMBeR 

Set  op  in  c 

NLIMIT  is  STANDARDIZED  TO  SIX 

digits  thus? 

ALF  oNNNNNNo,  with  A point  ASSUMED  AF  T rR  CHAR5. 

1 A8A 

MCCD  ADRF 

TX  ......  . 

mon  waa 

Z ,X6 

1A85 

TN 

real  CARD  +3 

2 

6,2 

1A86 

SM 

CHARI 

Z,SH 

6, A 

5LYLY  HIDE  RETURN  ADDRESS. 

1A88 

TS 

m 

MON  SENTR 

SET  UP  AND  CALL  SENTENCE  READER. 

1 A9 1 

NA 

6,16 

BLANKS 

C , *3 

1A92 

NA.  LHARl 

6,18 

ONES 

bad  mccd 

CUSS  IF  CONTAINS  TERMINATOR  ONLy'. 

1A9A 

TS 

zero 

field  COO 

MCAF  DO\If 

EXIT  IF  ADDRESS  FIELD  ALL  BLAN< , 

1A96 

na,  Chari 

6 » 1 8 

BLANKS 

bad  mccd 

1A97 

NA,  CHARI 

6,21 

ONES 

BAD  MCCD 

cuss  unwanted  terminators. 

1 A99 

NA 

6,16 

W THROUGH 

C,*2 

1500 

TS 

BIT  1 

FIELD  COD 

MCCD  NJMr 

1501 

NA 

6,16 

W THRU 

C , + 2 

1502 

TS 

bit  1 

field  cod 

MCCD  NJMr 

SIGNIFY  THROUGH  AND  GO  TO  FIND  \|UMBeR. 

15032 

NA 

6,16 

W WITH 

C , + 2 

1503A 

TS 

bit  3 

FIELD  COD 

MCCD  NJMR 

signify  with. 

150A 

NA 

6,16 

W TO 

BAD  MCCD 

1505 

TX 

BIT  2 

- 

FIELD  con 

SIGNIFY  TO. 

1507 

MCCD  \|UMB 

NA 

6,19 

W SEGiBRA< 

C , ♦ 2 

1508 

TS 

BIT  6 

CN  LIMIT 

MCAF  DONF 

15092 

NA 

6,19 

W SEqBRK 

C , ♦ 2 

1509A 

TS 

BIT  6 

CN  LIMIT 

MCAF  DONF 

EXIT  WHEN  NUMBER  IS  SEQUENCE  BprA<, 

1510 

TX 

CHAR  6 

ALF  MAS< 

1511 

LA 

ONEs 

6,19 

baq  mccd 

1512 

LA,  ALE  MASK  6,21 

ZERO 

bad  mccd 

BAD  EXIT  WHEN  NUMBER  IS  MISSING. 

1 5 1 A 

TX 

BIT  A6R 

Z , S3 

COUNTER  of  digits  before  point. 

1516 

TX 

zero 

- 

CN  LIMIT 

1517  LA,  ~RLF  MA5K  6,21  SPEC  MAG  NEX  CN  Dt'G  *1  LENGTH  OF  NUMBER  MAY  BE  UP  TO  StVfN. 


1519  bad  mccd TS 


field  cqd mcaf  ddmf  signify  meaningless  field  and  exit. 


ONES 
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LOOP  TO  ANALYZE  CARD  DUMBER  IN  ADDRESS  F I ELD. 

1522 

1524 

NEX  CN.  DIG 

SWS * ONES 
LA,  CHARI 

6*19 

TEN  Ci.  _ 

A , 1 *L 
6*1  9 

6*19 

? r Blank  _ _ 

MOVE  NEXT  CHARACTER  INTO  POSITION. 
BRANCH  If  not  a DIGIT. 

1526 

LA 

Z « S3  * 1 

ZERO 

FRAC  CN  *2 

BRANCH  IF  THIS  THE  FIFTH  DIGIT. 

1528 

SWS*  ONES 

_CN  LIMIT 

A * 1 * L _ 

CN  LIMIT 

move  up  previous  digits. 

1530 

1532 

SWS,  CHAR5 
TS 

6,19 

A, 4 

CN  LIMIT 
NEX  CN  DtG 

plant  a before-point  digit. 

R 1 533 

if  the  fifth  oh  earlier 

character 

IS  NOT  A DIGIT* 

it  must  3e  a decimal 

point  or  a blank. 

1535 

PT  BLANK 

na,  chari 

6,19 

PaiNT  Cl 

END  MCCDA 

1536 

1537 

FRAC  CN 

SWS*  ONES 
la*  chari 

6,19 
TEN  Cl 

A , 1 *L 
6 * 1 9 

6,19 

END  MCCDa 

1538 

SWS,  ALFM4SK 

6,19 

A, 5 

CN  LIMIT 

plant  first  digit  AFTER  point. 

1540 

A , 1 * L 

6,19 

1541 

1542 
1544 

la*  chari 
SWS*  CHAR  7 
SWS*  ONES 

TEN  Cl 

6,19 

6,19 

6*19 
A , 6 

A , 1 * L 

END  MCCDA 
CN  LIMIT 
6,19 

PLANT  SECOND  DIGIT  AFTER  POINT. 

1545 

1547 

end  mccda 

na,  chari 

NA 

6,19 

6,22 

BLANKS 

ONES 

bad  mccd 

BAD  MCCD 

bad  exit  if  queer  character. 

bad  EXIT  if  THIRD  SUBFIELD. 

1549 

1551 

MCAF  DONE 

LA,  C2T7 
TX 

A999999 

6,4 

CN  LIMIT 

MCCD  NJMn  +1 

z,sc 

CHECK  FOR  999999  SEQUENCE  BREAK. 

L 

SYUL  SfSTEM 

ASSEMBLER  - 

- pass  1 

USER'S  OWN  PAGE  NO,  40  PAGE  40 

Pi  567 

SUBROUTINE 

in  pass  1 to  get  a Real  Card 

. .NORMALLY 

performs 

card  number  checking,  response  to  yuj 

R1569 

R1575 

DIRECTOR  OR  MONITOR  CARD  (END  OF  FILE 
RET  JR  NS  TO  l+l  On  END  OF  FILE.  OR  TO 

SITUATIONS) 

L+2  otherwise 

is  to  peek  only. 

, with  card  image  IN 

REAL  CARD. 

15762 

GET  CARD 

*A 

source 

_C1NE 

Z,X4 

1577 

1579 

TS 

NA»  CHARI 

Z.SH 

4,0 

Z.X5 

Y COLUMN  1 

MON  PEEK 
ENDJOB  0 

C 

SAvE  RETURN  AND  PEEK  AT  CARD. 

branch  if  not  a yul  director  card. 

1581 

SWS.  B I T4 

Z.sc.l 

19 

switch 

show  that  another  task  follows. 

1603 

ENDJ03  3 

na.  chari 

4 tO 

astrisks 

C,  + 2 

branch  if  not  any  kind  of  end  0-  FILE. 

1605 

TS 

BIT  6 

real  cdno 

N,X5 

END  OF  FILE  EXIT  AFTER  PEEK  AT  MON  CARD. 

16062 

NA.  anil 

SWITCH 

ZERO 

5,0 

SEE  NO  INPUT  IF  REPRINTING. 

1607 

1608 

S.  MON  READ 

na,  chars 

REAL  CARD 
real  CARD 

BLANKS 

C,  + 2 

1609 

TS,  CHAR8 

ONE 

REAL  CARD 

ACCEPT  Cn 

INSERT  UPSPACE  1 FOR  BLANK. 

16102 

na,  chars 

_R£AL  CARD 

BIT  43 

C,  + 2 

16104 

ts*  chars 

TWO 

REAL  CARD 

ACCEPT  CD 

assume  minus  is  a fat-fingering  of  2. 

1611 

LA,  012 

real  card 

NINE 

C , +2 

1612 

TS,  CHAR8 

BIT  45 

REAL  CARD 

ACCEPT  Cn 

insert  form  skip  for  non-numeric. 

1614 

ss 

ZERO 

B43I44 

real  CARD 

CLEAR  ZONE  BITS  OF  VERTICAL  FORMAT, 

1618 

1620 

1622 

ACCEPT  CD 

SWS,  BIT  44 

la,  chari 

LA,  tJ3T6 

SWITCH 
REAL  CARD 
REAL  CARD 

42 

BLANKS 

ZERO 

REAL  CARn 

C,*4 

C,,2 

MARK  ALL  CARDS  ENTERING  DURING  MERGING. 
BRANCH  IF  COLUMN  1 HAS  00-15. 

BLOT  OUT  20,  40,  OR  60. 

1624 

1626 

1628 

LA,  B3T6 
TS,  CHARI 

la,  chari 

REAL  CARD 
BLOTS 
REAL  CARD 

ALF  9 Cl 
real  CARD 
(INSTR) 

C , + 3 
C,  + 2 
C,-l 

ALLOW  ANY  LETTER  IN  COLUMN  l. 

BLOT  OUT  UNDESIRABLE  COLUMN  1 CONTENTS. 
ALLOW  13,  14,  AND  15. 

1630  tx  zero  > rl  co  hlth 
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CARDmUMBER  s essence 

CHECKING  AND 

-SEQUENCE-BREAK 

analysis. — 

16A0 

SWE 

,yynnyyyy  real  card 

A, 3 

CARD  no 

isolate  card  no.  for  seq.  brk.  analysis. 

16A2 

TS 

SIX 

_ Z.X4  ____  _ 

CDNQ  CHFk  +1  

1 6 A3 

cdno  chek 

SWS 

, ONES 

CARD  NO 

A , 1 

CARD  NO 

1644 

LA. 

LHAR2 

_ CARD  NO 

- ALF  9 C2 

C , ♦ 3 

branch  if  CHARACTER  Is  NUMERIC. 

16A6 

NA. 

LHAR2 

CARD  NO 

BLANKS 

seQ  break  -1 

BRANCH  IF  CHARACTER  is  NOT  NUM  or  blank. 

16A8 

ss 

ZERO 

CHA  32 

CARD  NO 

SUBSTITUTE  ZERO  FOR  BLANK. 

1650 

NA 

Z,XA,J 

ONE 

CDNO  CHFK 

1651 

LA 

A999999 

CARO  NO 

SeQ  break 

CARD  NUMBER  999999  IS  A SeQUeNC?  BREAK. 

16522 

LA, 

012 

NINE 

REAL  CARD 

test  ordr 

Do  not  test  column  i of  right  print. 

1653 

NA, 

chari 

REAL  CARD 

L COLUMN  1 

RC  NOT  LOG 

A LOG  CARD  IS  AN  AUTOMATIC  SEQ.  BREAK. 

16542 

TS » 

c2T7 

blanks 

REAL  CARD 

seq  break 

remove  confusing  info  from  log  tard. 

1654A 

LA, 

chari 

REAL  CARD 

LQJALS  Cl 

SEQ  BREAk 

ALLOW  FOR  "LOG"  IN  COL  2 -7  OF  ACCEPTOR. 

16546 

TS, 

C2T7 

zero 

REAL  CARD 

CDNO  CHEK  -2 

show  illegal  number  field  by  zero. 

16548 

NA, 

C2T7 

real  CARD 

w sdbrmin 

C,-2 

"SEQBRK"  is  ONLY  NON-NUMERIC  allowed. 

1655 

seq  break 

SM 

REAL  CArD 

BIT  43 

REAL  CArd 

insert  sequence  Break  bit  in  ca^d. 

1657 

TS 

BIT  6 

real  cdnd 

5,1 

Set  UP  CRITERION  AFTER  SEQUENCE  BREAK. 

16581 

RC  NOT  LOG 

NA, 

chari 

real  card 

T COLUMN  1 

C » + 2 

BRANCH  IF  NOT  TINS  (TUCK  IN  NEW  SECTION) 

16583 

TS* 

C2T7 

blanks 

REAL  CARO 

SEQ  BREAK 

...which  is  an  incipient  log  catd. 

16585 

NA, 

chari 

real  card 

BLANKS 

TEST  ORDR 

16587 

NA, 

C2T7 

real  card 

+2  W MODIFY 

TEST  ORDR 

16588 

WA 

SOURCE 

ONE 

Z , X A 

16589 

TS, 

C2T7 

BLANKS 

REAL  CARO 

SeQ  3RE AK 

OP  CODE  "MODIFY"  IS  AUTOMATIC  SeQ.  BRK. 

1659 

TEST  ORDr 

LA, 

C2T7 

CARD  NO 

REAL  cdno 

disorder 

1660 

TX, 

C2T7 

card  NO 

real  card 

KEEP  NORMAL  FORM  OF  CARD  NUMBER  ON  TAPE. 

1662 

TS 

CARD  NO 

real  CDNO 

5,1 

SET  UP  NEXT  CRITERION. 

RL  CD  HLTH 


1664  DISORDER  TS 


BIT  7 


TEST  OROR  ♦ ! 
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SUBRUUtIN-  IN  PASS  1 JO  Get  AN  INPjr_CARJD  image  from  tape  VIA  RDi.  TO  INDICAtf  EOF 

action,  entry  IS 

R1667 
R 1 669 
R1671 

TS  L EOF  EXIT  Z,S3 

IGMOR-S  END  SYPT  ENTIRELY,  RETURNS  EOF_WISe  ON 
LOOKS  FOR  A BUFF£RFUl  NO  SOONER  THAN  IT  NEEDS 

get  tape  c <l  eof  exit  might  well 
END  SYLT,  RETURNS  eOF.WISE  on  end  bypt  and  any 
IT*  AND  FREES  a BUFFER,  WAKING  paraprogram  RDi, 

BE  Z , bC  , i ) . 
SUBSEQUENT  calls. 

R1673 

AS  SOON  AS  THE  LAST  CARD  HAS  BEEN  DELIVERED, 

checks  for  sequence  break  or  sequence  error. 

1675 

1677 

GET  TAPE  TX 

TS 

N ,CSC , 2 
INB  PLACE  _ 

_Z,  XA 

GET  TAPE 

move  tpinl  _ 

C 

_c_ 

INITIAL,  or  buffer-seeking,  mode. 

1679 

TS 

Z,SC 

Z,AJl 

CSC  SLEEP 

s 

1681 

LA 

N,R5 

ZERO 

C»-l 

c 

go  to  sleep  if  no  input  record  ready. 

1683 

TX 

N *R5 

- 

Z.XA 

c 

168A 

LA, 

08 

A , 0 

ZERO 

IN  CHECK 

c 

BRANCH  IF  record  LACKS  EOF  BANN-R  BITS. 

1685 

TS 

zero 

C*0 

TP I N EXIt  -2 

c 

DISMISS  END  SYLT  BUFFER,  SET  FOR  EOFRI. 

16852 

TX 

EOR  OR  EOF 

+ 3 - 

Get  tape 

c 

DISMISS  EOFRI  BUFFER,  SeT  TRIVIAL  EXIT. 

1686 

EOR  ORl  EOF  TS 

. N,R5 

Z,CSC 

C,  + l 

s 

1687 

TS 

zero 

N,R5, 1 

FREE  IN  sV 

r 

DEMOTE  OR  FREE  DUFFER. 

1688 

SS 

ZERO 

BIT  A6  R 

Z,R5 

s 

1689 

TS 

Z,S3 

Z,SC 

Mon  wake 

c 

REMOVE  BUFFER  FROM  INPUT  LIST,  wake  ROl. 

1690 

IN  CHECK  LA 

N , X a , 1 

CHAR  5 

move  tpiw  n 

c 

BR  IF  NO  COMP  name:  must  He  XFer  INPUT. 

1691 

TX 

cita 

• 

CAC  N 

c 

SYNTHETIC  mask  for  input  recd  COUNTER. 

1692 

NA 

n,xa 

INPUT  NAM 

C,  + 2 

c 

BRANCH  IF  STARTING  PROGRAM  OR  N-W  SUBRO. 

1693 

TS 

N ,XA , 1 

INPUT  NAM 

C * ♦ 3 

c 

169A 

NA 

health 

ZERO 

disaster 

C 

LAST  CARD  SHOULD  HAVE  BEEN  "END  OF", 

1695 

TS, 

CACN 

zero 

INRECNT 

C,-2 

c 

Reset  count  of  recds  in  prog  or  subro. 

1696 

LA, 

lacn 

A , 0 

ZERO 

MOVE  TPIn 

c 

accept  UN-NUMBERED  (OLD)  RECORDS. 

1697 

WA 

INRECNT 

BIT  15 

INRECNT 

c 

1698 

NA, 

lacn 

A , 0 

INRECNT 

disaster 

c 

BRANCH  IF  INCOMING  RECORD  No.  IS  WRONG. 

1699 

move  rPIN  TS 

Z,SC 

INB  PLACE 

UNSQUeeZ 

s 

shift  to  sequence  mode  to  restore  blanx. 

1699a 

WA 

get  tape  +1 

TWO 

get  Tape 

c 

set  switch  for  transferred  input. 

16996 

TN 

N ,XA  * 1 0 

11 

tape  cARn  -1 

c 

INPUT  FROM  DIBc  Is  NOT  SQUEEZED. 

16998 

TS 

B5  B8  Bio 

CACN 

C , + 2 

c 

169985 

SWS 

, B1TAA 

Z,csc,l 

16 

TAPE  CARD 

c 

CLEAR  ASTERISK  IF  FETCHING  MAIN  INPUT, 

16999 

NA, 

lacn 

SWITCH 

B5  ze  Bio 

C,-l 

c 

FREEZING  SUBROUTINES,  OR  NOT  REVISING. 

1700 

TX 

zero 

. 

TP  CO  HLTH 

c 

1701 

NA, 

hit  A3 

TAPE  CARD 

ONES 

C , ♦ 2 

c 

BRANCH  IF  NO  SEQUENCE  BREAK. 

1703 

TS 

BIT  6 

TAPE  CDNO 

TEST  EOR 

c 

SET  UP  POST-BREAK  CRITERION. 

1705 

LA, 

C2T7 

TAPE  CARD 

TAPE  CDNO 

C , ♦ 3 

c 

BRANCH  IF  SEQUENCE  ERROR. 

1707 

TX 

zero 

TAPE  CDNn 

c 

1708 

TS, 

C2T7 

TAPE  CARD 

TAPE  CDNO 

TEST  LOR 

c 

SET  UP  NEW  CRITERION. 

1710 

TS 

BIT  7 

TP  CD  HLTH 

C »-2 

c 

PUT  SEQUENCE  ERROR  BIT  IN  HEALTH. 

1712 

TEST  EOR  NA 

A, 2 

EOR 

TPIN  EXIT 

c 

BRANCH  IF  NOT  END  OF  RECORD. 

171A 

TX 

Z,SC 

Z , S3 

c 

SET  UP  END-OF-RECORD  EXIT. 

1715 

TS 

C,'l 

GET  TAPE 

EOR  DR  EOF 

c 

set  up  buffer-seeking  mode. 

1717  TX  N,CSC,2  - GET  TAPE  C 

1719  TPIN  EXIT  TX  Z,XA  _ I MB  PLACe 


MARK  PLACE  IN  BUFFER  AND  EXIT 
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172008  uNsOJSEZ 

TS 

N,XA 

Z . S H 

C » + 3 

C 

SAVE  INDICATOR  bits. 

17201 

SWEj 

CAC 3 _ 

L TAP  CARD 

32 

Z.X5  

172011 

MT 

BLANKS 

10 

N.X6.1 

INITIAL  CONDITION  OF  CARD  IMAGE. 

172013 

TX 

L TAP  CARD 

«. 

£ 9 X 6 

s 

17201A 

SSL, 

LQW5 

N,XA,1 

_ Q _ 

expander 

c. 

RECONSTITUTE  FIRST  HALF  OF  CARD. 

172016 

SWE. 

CAC3 

L TAP  CARD 

16 

Z.X6 

172017 

SSL, 

LOWS 

Z , SH 

5 

expander 

c 

reconstitute  second  half  of  card. 

172019 

TS 

inb  place 

z.sc 

MOVE  TPlN  ♦ 3 

c 

return  to  esc  mode  to  process  tape  card. 

172021  L TAP  CARD 

CAC 

EXPANDER 

TAPE 

CARD  +5  TAPE  CARD 

172022 

SETL0C.5 

102  A 

B7 

172023  EXPANDER 

MT 

N.XA.l 

5 

N.X6.1 

1 7 202 A 

TN 

N.XA.A 

A 

6,1 

172025 

TX 

N.XA. 1 

N.X6 

c 

172026 

TN 

N.XA.3 

3 

6 i2 

172027 

TX 

N , XA  * 1 

N.X6 

c 

172028 

TS 

N.XA.l 

6 9 1 

C..2 

c 

172029 

TX 

N .Xa  » 1 

• 

N.X6 

c 

17203 

TN 

N.XA.2 

2 

6,3 

172031 

TX 

N , X A * 1 

- 

N.X6 

c 

172032 

TS 

N.XA.l 

6 « l 

C.  + 2 

c 

172033 

MT 

N.XA.l 

3 

N.X6.2 

17203A 

TS 

N , XA , 1 

6.2 

C » ♦ A 

c 

172035 

TX 

N.XA.l 

• 

N.X6 

c 

172036 

TS 

N ,XA  * 1 

6 9 1 

C , + 2 

c 

172037 

MT 

N.XA.l 

2 

N.X6.A 

172038 

TX 

N.XA.l 

6, A 

172039 

MT 

N.XA.l 

A 

N.X6.1 

1720A 

TN 

N.XA.3 

3 

6 9 1 

1720A1 

TX 

N.XA.l 

N.X6 

c 

1720A2 

TN 

N.XA.2 

2 

6,2 

1720A3 

TX 

N.XA.l 

— 

N.X6 

c 

1720AA 

TS 

N.XA.l 

6 9 1 

C,*2 

c 

1720A5 

MT 

N.XA.l 

2 

N.X6.3 

1720A6 

TX 

N.XA.l 

• 

6,3 

1720A7 

MT 

N.XA.l 

3 

N.X6.1 

1720A8 

TN 

N.XA.2 

2 

6,1 

1720A9 

MT 

N.XA.l 

2 

N,X6j_2 

17205 

TX 

N.XA.l 

6,2 

172051 

MT 

N.XA.l 

2 

N.X6, 1 

172052 

TX 

N.XA.l 

6,1 

172053 

TX 

N.XA.l 

• 

N.X6 

17205A 

TX 

- 

- 

•• 

172055 

SET  LOc , 1 

172056  EXPANDER 

ASSIGN 

5,0 
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P1721  SUBROUTINE  PASS  1 TO  TRANSMIT  Am  ll-WORQ  POP3  (PASS  OnE  PROGRAM  OUTPUT)  TO  WWT  FOR  WRITING  On  TAPE 

R 1 72 3 2 • LDOKS  FOR  A FREE  3UFFtR  No  SOONER  THAN  IT  NEEDS  IT.  AND  oUTS  A BUFFER  INTO  SAPO  (SAVE  6 PASS  1 PROG  OJTPJT) 

R1725  STATJS  AS  SOON  AS  IT  IS  FULL.  EXPECTS  IN?UT  TO  START  IN  N,Xn.  ENTER  WITH  CoSeQUeNCe  CALL.  IF  BIT  1 OF  SWITCH 

RI7261  IS  ONt  RENUMBERS  MOST  CARDS,  STARTING  pVE^  AT  EACHI  LOG  CARO.  _ _ 


1727  SEND 

30P0 

TS 

N ,CSC , 1 

send  popd 

grab  fref 

c 

INITIAL,  or  BUFFER-SEEKING,  MODr. 

1729 

TS 

pob  place 

Z,X4  

rnum  test 

_ c _ 

1731 

TX 

zero 

N,  AUl 

c 

PUT  POPO  FLAG  IN  FIRST  WORD  OF  3UFFER. 

1733 

TX 

Z,AU1 ,1 

- 

POPO  buff 

c 

1741 

WA 

Z , AUl 

C253 

END  P03JF 

c 

COMPUTE  END  OF  BUFFER. 

1743 

TS 

Z , AU1 

Z,X  4 

RNUM  TEST 

c 

17432  NON 

RNUM 

LA 

(CARD  NO) 

n,xd 

move  PoPri 

c 

BRANCH  IF  MERGE  CONTROL  CARO. 

17434 

SS 

Z.csc.i 

BIT  1 

switch 

c 

SHUT  OFF  RENUMBERING  ON  BAD  MERGE. 

17436  RNJM 

TEST 

LA 

BIT  1 

SWITCH 

rem  check 

c 

BRANCH  IF  RENUMBERING  IS  ON. 

1744  MOVE 

DOPO 

TN 

N ,X0 

11 

N ,X4 , 1 1 

..  c 

1745 

NA 

Z*X4 

end  pobuf 

POPO  exit 

c 

BRANCH  IF  BUFFER  IS  NOT  FULL. 

1747 

TX 

POPO.  BUFF 

Z ,SH 

„ c 

1748 

CC 

N,SH 

- 

N,X4 

c 

1749 

TX 

N,CSC,3 

- 

send  popo 

c 

SET  UP  BUFFER-SEEKING  MODE. 

1750 

TS 

N ,CSC , l 

send  POPO 

grab  free 

c 

1751 

LA 

N,R7 

zero 

C,  + 3 

c 

BRANCH  IF  SAPO  LIST  NOT  FULL. 

1752 

TS 

z,sc 

Z , A J 1 

CSC  sleep 

s 

OTHERWISE  SLEEP  UNTIL  THERE'S  A VACANCY. 

1753 

TS 

SAPO  NTRY 

Z , R 7 

C,-2 

c 

1755 

TS 

POPO  buff 

N,  R 7 , 1 

c 

PUT  BUFFER  INTO  SAPO  STATUS. 

1756 

SM 

Z ,R7 

BIT  46  R 

SAPO  NT  RV 

c 

1757 

TS 

Z,SC 

Z,C5C 

MON  WA<E 

c 

modulate  sapo  entry  pointer  and  exit. 

1761  POPO 

EXIT 

TX 

Z,X4 

- 

POB  PLACF 

MARK  PLACE  IN  BUFFER  AND  EXIT. 

176203  REM 

CHECK 

LA 

(RIGHT  P) 

N,XO 

RNUM  CARD 

c 

GO  TO  RENUMBER  MOST  CARD  TYPES. 

17621 

NA, 

CHARI 

0,0 

(REMARK) 

NON  RNUM 

c 

BR  If  merge  control  or  merge  error  card. 

176216 

NA, 

CHARI 

0,1 

L COLUMN  1 

RNUM  CARn 

branch  to  RENUMBER  NON-LOG  REMARKS. 

176223  RESTART  N 

TX 

ZERO 

- 

FIELD  COD 

+ 1 

c 

176224 

TS 

ZERO 

RENUMBER 

MOVE  POPO 

c 

RESTART  NUMBER  SEQUENCE  AFTER  ldg  etc. 

17623  RNJM 

HARD 

SS 

zero 

bit  7 

N,XO 

c 

WIPE  OUT  OBSOLETE  SEQUENCE  ERROR  BIT. 

176236 

LA 

RENUMBER 

MAX  CARDN 

C«  + 3 

c 

17624 

SM 

0,1 

BIT  43 

0,1 

c 

176243 

TS, 

C2T7 

W SQBR  MIN 

0,1 

rest  art  m 

c 

GENERATE  SEQBREAK  AFTER  CARD  9998.98. 

17625 

DA 

RENUMBER 

BIT  20 

RENUMBER 

c 

176252 

SS 

ZERO 

BIT  43 

0,1 

c 

ERASE  OLD  5E0ULNCE  BREAK  FLAG. 

176255 

TX 

renumber 

POB  PLACf 

c 

17626 

sws 

, C5T8 

POB  PLACE 

8 

PoB  PLACF 

c 

176265 

TX 

DEC  ALF  Ml 

ALF  MASK 

c 

17627 

SWS 

, ALFMASK 

POB  PLACE 

4 

POB  PLACE 

c 

176275 

TX 

DEC  ALF  M2 

ALF  MASK 

c 

17628 

SWS 

, ALFMASK 

POB  PLACE 

2 

POB  PLACf 

c 

176285 

TX 

DEC  ALF  M3 

ALF  MASK 

c 

17629 

SWE 

, ALFMASK 

POB  PLACE 

2 

POB  PLACe 

c 

convert  new  card  number  tu  alphabetic. 

176293 

TX 

POB  PLACE 

- 

field  COD 

♦ 1 

c 

176295 

TS, 

C2T7 

POB  PLACE 

0,1 

MOVE  POPO 

c 

plant  it  and  go  to  move  card. 
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P1763  SUMOUliNE  IN  PASS  l.  TO  TRANSLATE  A-LOCaTION  FIELn  WHOSE.  VALUE  IS  TQ  BE  DETERMINED  IN  PASS  1. 

R1765  WITH  3ESIRED  MEMORY  TYPE  CODE  IN  BITS  25-27  OF  SWITCH  , ENTRY  IS 

R 1 7 6 6 XS Zero LOC  STATE LOCATION C OR  to  6LNK  LoClN  IF  the  LOCA TION  field 

R1768  is  to  Be  CONSIDERED  3LANK.  INCREMENTS  LOC  CTR  AFTER  JSE.  SETS  THf  LOC  CTR  TO  ALL  ONES  IN  CASE  OF 

R 1 770  OVERSIZE  DEFINITION.  RETURNS  IN  LOc  STATE  THE  FOLLOWING  INFORMATION.... 

R 1 7 7 1 BIT  8 — 1 IF  LOCATION  FIELD  IS  SYMBOLIC. 

R 1772  BIT  10  — I IF  AN  ATTEMPTED  PREDeFINITION  OF  THE  LOC  SYMBOL  FAILED, 

R1773  BIT  14.  — 1 IF  AN  OVERSIZE  DEFINITION  WAS  GIVEN, 

R1774  BIT  15  — 1 IF  LOCATION  IS  IN  WRONG  MEMORY  TYPE, 

R1775  BIT  15  — 1 IF  LOCATION  CONTENTS  ARE  IN  CONFLICT, 

R 1 7 76  BIT  17  — 1 IF_THE  LOCATION  SYMBOL  WAS  LOST  DUE  TO'  A FULL  SYMBOL  TABLE, 

R1777  BITS  33-48  — LOCATION  VALUE  AS  AN  INTEGER,  OR  -0  IF  OVERSIZE  DEFINITION. 

R 1 7 79  if  th-  location  is  symbolic,  the  transformed  symbol  health  is  stored. 


1780 

BLNK  lOCN 

tx 

LXFoRMS 

• 

Z,SO 

C 

initialize  transform  address. 

1782 

ts 

z,sc 

Z,X6 

BLANK  LOC 

set  return,  consider  location  blank. 

1784 

location 

TS 

z,sc 

Z.X5 

C.  + l 

set  return,  change  to  sc. 

1786 

TS 

LOC  FIELD 

COMMON 

ANAL  5 J3f 

C 

analyze  location  field. 

1788 

TX 

L XFQRMS 

Z,SO  _ 

initialize  transform  address. 

1790 

LA 

field  cod 

zero 

BLAN<  LOC 

BRANCH  IF  FIELD  IS  BLANK. 

1792 

NA 

FIELD  Cod 

bit  1 

NJM  LOC 

BRANCH  IF  LOC  FIELD  IS  NUMERIC. 

1794 

SM 

LOC  STATE 

BIT  8 

LOC  STATF 

SIGNAL  SYMBOLIC  LOC. 

1796 

TS 

L SYM  THR 

Z,X5 

ANAL  SYMR  +1 

c 

ANALYZE  HISTORY  OF  SYMBOL, 

1798 

NA 

COMMON  +2 

ONES 

C , + 3 

17982 

SM 

LOC  STATE 

BIT  17 

LOC  STATf 

COMMON+2  IS  ALL  ONES  IF  SYM  TAB  FULL. 

1800 

TS 

BLAN<  LOC 

in  which  case  treat  loc  as  blank. 

1802 

SWE,  D12 

common 

16 

LOC  VALJE 

USING  OLD  SYMBOL  HEALTH  AS  REL  ADDRESS,. 

1804 

WA 

Z»sO 

LOC  VALUE 

z,so 

get  address  of  transform  word. 

1809 

SWS,  D8 

N , SO 

D , 6 

COMMON  ,2 

STORE  TRANSFORMED  SYMBOL  HEALTH. 

1811 

TS 

COMMON 

COMMON  +1 

BLAN<  LOC 

SAVE  SYMBOL  FOR  SY  DEF  X I T . 

1816 

NUM  LOC 

NA,  B I t 6 

field  cod 

ONES 

BLAN<  LOC 

TREAT  SIGNED  NUMERIC  LOC  AS  BLANK. 

1818 

TX 

LOC  CTR 

FIELD  COo  *1 

in  case  of  Ill-type  instant  set^oc. 

1820 

EX 

COMMON  +1 

FIX  MAG 

LOC  CTR 

use  explicit  definition  to  reset  l.c. 

1823 

BLAN<  LOC 

TS 

LOC  CTR 

LOC  VALUE 

I NCR  LCTR 

c 

1825 

TX 

ONES 

• 

field  COD  +1 

SHOW  NO  INSTANT  SETLOC. 

1827 

LA 

LOC  VALUE 

MAX  LOC 

0<  L SIZE 

1828 

BAD  L.SIZE 

TX 

ones 

m 

LOC  CTR 

1830 

SM 

LOC  S1A1E 

BIT  14 

LOC  STATf 

SIGNAL  OVERSIZE. 

1832 

sws,  Da 

N , SO 

D , 5 

COMMON  ♦? 

USE  OVERSIZE  transform  ON  SYMBOL  health. 

1834 

TS 

zero 

LOC  VALUE 

LOC  EXIT  -2 

L 
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P18345 

CHfC<  other  qualities 

Of-  A LOCAIION 

value  OF  USAS. 

E SIZE. 

1835 

1836 

OK  L SIZE 

TX 

i_A.  CAc3 

L TYP  TAB 
1 OC  V A i UF 

_ 5,0  _ 

Z,X5 
C,  + 2 

LOOK  UP  MEMORY  TYPE. 

1838 

TS 

Z » X5 , 1 

- 

C,-l 

1839 

NA * LSTYPE 

__  5,0  _ 

SWITCH 

bad  l tyde 

branch  if  type  doesnt  match  that  suplyd. 

1841 

1843 

NA 

SSL*  ONE 

N , SO 

common  +2 

XFORMS  +5 
15 

0<  L TYPE 
C,  + 2 

branch  IF  old  HEALTH  was  not  leftover. 
SIGN  BIT  tells  WHETHER  FIXED  OR  ERASA3L. 

1845 

1847 

1848 

TS 

TS 

TX 

Z , SH 
TYPE  F 
TYPE  £ 

Z,5C 

COMMON 

bad  l type 

c , ♦ 2 

COMMON 

c 

type  trouble  for  sym  only,  then  chek  av. 

CHOOSE  CRITERION  FOR  LEFTOVER  TYPE. 

1850 

NA,  LSTYPE 

COMMON 

SWITCH 

C,-3 

BRANCH  IF  LEFTOVER  USED  WRONG  M£M  TYPE. 

1852 

OK  L TYPE 

TS 

LUC  VALUE 

COMMON 

AVAIL  2 

C 

TEST  AVAILABILITY  AND  LEAVE  RES-RVED. 

1854 

1856 

1858 

LA 

SWS  * 08 
TS,  BIT16 

BIT  32 

N,S0 

ONES 

COMMON 
D , 3 

LOC  STATE 

LOC  EXIT 
COMMON 
LOC  EXIT 

BITS  1-32  = 0 IF  CONFLICT. 

USE  CONFLICT  TRANSFORM  ON  SYMBo.  HEALTH. 

signal  conflict  and  skip  to  loc  exit. 

i860 

1862 

bad  l type 

sws*  De 

SM 

N,SO 

J.OC  STATE 

D , 4 

BIT  15 

COMMON  ♦? 
LOC  STATf 

use  bad  type  transform  on  SYMBd,  HEALTH. 
SIGNAL  wrong  memory  type. 

18632 

18634 

1864 

LOC  E < I T 

LA 

TS 

SM 

ONES 

field  cod  +1 
loc  state 

field  COD  *1 
LOC  ctr 
LOC  VALUE 

LOC  EXIT 
BLAN<  LOf 
LOC  STATE 

c 

EXIT  IF  THERE  was  NO  INSTANT  S£TLOC. 

restore  loc  ctr  after  ill-type  mum  loc. 

1865 

NA,  “IT  8 

LOC  state 

ONES 

6,0 

EXIT  IF  LOCATION  WASNT  SYMBOLIC. 

1867 

ss 

LUC  VALUE  _ 

CAC  3 

COMMON  ♦?  _ 

L i 

SYUl  SYSTEM 

ASSEMBLER  — 
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P 1 867 1 

EVERY  SYMBOL  DEFINED.  ..DR 

NEARLY_.DEFJJSlEt 

1 IN  PASS  1 

COMES  THROUGH  SY 

DEF 

XI T. 

18672 

SY  DE=  XIT 

TN 

common  +1 

2 

COMMON 

18674 

LA 

N,X2 

_CAC3 

ONLY  DrF 

BRANCH  IF  THIS  IS  THE  FIRST  DEFINITION. 

186752 

SWE  * Dl2 

N,X2 

D , 8 

Z,SO 

GET  TRANSFORMS  FOR  HEALTH  OF  1 S r DEF. 

186756 

WA  . 

Z,SO 

L XFQRMSl-  . 

Z , S 0 

18676 

S,  ETS 

3,0 

ZX  +4 

C,tl 

POINT  TO  SYMBOL  OR  TO  MULT  DEF  rL  AG, 

18678 

LA 

CAC12 

4,2 

ALREDY  Mr, 

BRANCH  IF  THIS  IS  THE  3RD  OR  SJ3SEQ  DEF. 

186792 

SWS,  D4. 

N , SO  . ._ 

_Q»  6 * L 

N,X2 

SHOW  MULTIPLE  DEFINITION  ON  1ST  ENTRY. 

1868 

LA 

SYM  PLACE 

END  SY  TAB 

4TH  DIMen 

BRANCH  IF  THERE  I S MORE  ROOM  IN  SYM  TAB. 

18682 

MD  UNFITS 

SM 

LO.C  STATE 

BIT  17 

LOC  STATE 

LOCATION-SYMBOL-DIDN'T-FIT-IN-I ABLE  FLG. 

18686 

TS 

Z,X6 

z,sc 

FJLLNeSS 

C 

COUNT  UNFITTING  SYMBOL  AND  EXIT. 

186884 

4H  OIMEN 

NA 

_SYM  PLACE 

SPEC  MAG 

C»*2 

186886 

WA 

SYM  PLACE 

THREE 

SYM  PLACf 

S 

SKIP  OVER  32K  STOPPER. 

186888 

EBA 

SYM  PLACE 

BIT  25 

Z*X2 

18689 

TN  

N , X4 

3 

N,X2 , 1 

MOVE  MULT.  DEF,  SYMBOL  INTO  THE  4TH  DIM. 

1869 

SM 

CAC  12 

SYM  PLACE 

4,2 

CONVERT  OLD  ENTRY  INTO  MULT  DEF  FLAG. 

18692 

TS,  CAC3 

SYM  PLACE 

2,0 

4TH  DIMEm  +1 

C 

FIRST  MULT  DeF  SYM  POINTS  TO  SE.F. 

18695 

alredy  md 

LA 

END  SY  TAB 

SYM  PLACE 

MO  JNFITS 

BRANCH  IF  SYMBOL  TABLE  IS  FULL. 

186965 

NA 

SYM  PLACE 

SPEC  MAG 

C,*2 

18697 

WA 

SYM  PLACE 

three 

SYM  PLACf 

SKIP  OVER  32K  STOPPER. 

186975 

SM 

CAC12 

SYM  PLACE 

4,2 

MAKE  MULT  DEF  FLAG  POINT  TO  LATEST  DEF. 

18698 

TX 

N ,X2 

• 

Z ,X4 

186985 

ss 

SYM  PLACE 

CAC3 

N,X2 

MULTIPLE  DEFS  ARE  THREADED  IN  A CIRCLE, 

18699 

EBA 

SYM  PLACE 

BIT  25 

Z »X2 

1870 

TS 

COMMON 

N » X2  » 1 

4TH  DIMEm  +1 

C 

EXTEND  LIST  INTO  THE  4TH  DIMENSION. 

18702 

TX 

Z,X4 

_ 

N,X2 

MULT.  DEF.  SYMS  ARE  THREADED  IN  A RING. 

187032 

EX 

COMMON  +3 

CAC  12 

COMMON 

NEW  MULDEF  CAN'T  DEF  EARLIER  NEAR  DEFS. 

I87O4 

only  def 

SWS,  CAC 1 2 

COMMON  +1 

16*1- 

N,X2 

NEW  SYMBOL  HEALTH  AND  VALUE  TO  *YM  TAB. 

18706 

TS 

COMMON  +3 

2*1 

N.X6 

MAY  STORE  NEAR-DEF  SYM'S  cAc-WD,  FXIT. 

L 
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SUBROUTINE 

1m  PASS  1 TO 

TRANSLATE  THE  .OCATiOu  FtfLD  of 

A 

WILD  CARD  (LEFTOVER  INSTRUCTION  Or  CONST- 

R1873 

ANT).  bit 

48  O1"  HEALTH  SHOULD  CONTAIN  A 0 FqR  SINGLE  PRECISION  OR 

A 

1 FOR  DOUBLE  PRECISION,  IF  THe  Fl^LO  IS 

r1875 

SYMBO_lC  AND  UNDEFIN£0 

, the  symbol 

becomes  leftover 

constant  and  bit 

12  OF  LOC  STATE  IS  SET  TO  l.  IF  THE  FIELD 

r1877 

IS  unsigned  numeric  OR 

A SYMBOL  PREDEFINE-3  BY  IS  0R 

=.  thf  location 

IS  ASSIGNED  ACCORDINGLY  WITHOUT  DISTURBING 

R 1 8 79 

THe  LOCATION  COUNTER. 

AND  BIT  12  OF 

LOC  STATE  IS  SET  TO  0.  TF  THf 

FIELD  IS  BLANK  OR  SIGNED  NUMERIC  or  a symbol 

R 1 88 1 

DeFIN-D  by 

OTHER  than 

IS  0R  =,  THE 

Leftover  status 

IS  ReJeGtfD  ENTIRELY,  BITS  12  AND  13  OF  LOC  STATE  ARc  Set  TO 

R1883 

01,  AND  THe  REGULAR  INSTRUCTION  PROCEDURE  is  useo. 

this  last  procedure  is  also  followed  if  the  field  is  a 

R1885 

NEW  SYMBOL 

for  which  there  is  no  Room  in  the  symbol 

table,  other 

ojtput  is  in  loc  state  as  per  regular  locn. 

1887 

LFTVR  loc 

TS 

Z,5C 

Z ,X4 

c,  + i .. 

set  return  and  get  into  sequenc-  mode. 

1889 

SS 

TYPE  F 

L STYPE 

switch 

specify  fixed  memory. 

1891 

TX 

BIT  12 

- 

LOC  STATf 

INDICATE  LEFTOVER  (TENTATIVELY). 

1893 

TS 

LOC  FIELD 

COMMON 

ANAL  SJ3F 

c 

1894 

TX 

lxforms 

- 

z,so 

initialize  transform  address. 

1896 

NA 

FIELD  Cod 

BIT  1 

NJM  LEFto 

branch  if  FIELD  is  not  symbolic. 

1898 

SM 

LOC  STATE 

BIT  8 

LOC  STATE 

indicate  symbolic  FIELD. 

1900 

TS 

common 

COMMON  +1 

ANAL  SYMR 

C 

SAVE  symbol  For  SY  DEF  XIT,  AND  ANALYZE. 

1903 

LA 

ones 

COMMON  +2 

REJECT  .1 

reject  leftover  status  if  sym  tab  full. 

1905 

SWE*  D12 

common  +2 

16 

LOC  VALJE 

USE  OLD  SYMBOL  HEALTH... 

1907 

WA 

z,so 

LOC  VALUE 

Z,SO 

...to  get  address  of  transform. 

19082 

LA 

3 D8 

COMMON  +2 

s lft  hlth 

1909 

LA 

common  +2 

ZERO 

s lft  hlth 

1910 

TS,  HIT  10 

ONES 

LOC  STATE 

reject  +1 

c 

INDICATE  PREDEFINITION  FAILURE. 

19112 

SM 

LOC  STATE 

BIT  14 

LOC  state 

indicate  ill-defined  location  valje. 

19114 

TS 

D8 

COMMON  +2 

NJM  LEFto  -1 

failed  attempt  to  predefine  leftover. 

1912 

s lft  hlth 

SWS,  D8 

N ,S0 

D , 2 

COMMON  ♦ 2 

STORE  TRANSFORMED  SYMBOL  HEALTH. 

1914 

LA 

N * SO 

Bit  i 

leftover 

Branch  if  not  predef  by  is  or  =. 

1916 

HA 

LOC  STATE 

BIT  12 

LOC  SI  A Tc 

remove  leftover  status. 

1918 

EX 

COMMON  +2 

CAC3 

LOC  VALJf 

USE  PREDEFINED  VALUE  (ALWAYS  0<  SIZE). 

1919 

TS 

Z,X4 

Z , X 5 

0<  L SI Zf 

1923 

leftover 

LA 

N , So 

BIT  2 

Reject 

BRANCH  if  defined  BY  OTHER  than  IS  OR  s. 

19242 

SWE*  CAC23 

M FLEFTO  P 

16 

COMMON  +? 

fetch  machine's  own  fixed  lefto  param. 

19244 

SM 

SPEC  SION 

M FLEFTO  P 

Z,SC 

visit  MACHINE'S  OWN  ROUTINE  FOR  DITTO. 

1925 

got  flefp 

SM,  SPeCMAo 

1 COMMON  +2 

health 

COMMON  ♦ 2 

INDICATE  WHETHER  SINGLE  OR  D0U3i'e  PREC. 

1929 

TS 

Z,X4 

Z,X6 

SY  DEF  XIT 

store  symbol  table  entry,  and  exit. 

1930 

NUM  LEFTO 

na » bit  6 

FIELD  Cod 

ONES 

reject 

BRANCH  IF  NOT  UNSIGNED  NUMERIC. 

1932 

HA 

Loc  STATE 

BIT  12 

LOC  STATF 

remove  leftover  status. 

1934 

TX 

LOC  CTR 

SAVE  LOC 

1935 

TS 

z,sc 

Z , X 6 

NJM  LOC  +1 

use  regular  loc  procedure. 

1937 

TS 

SAVE  LOC 

LOC  CTR 

N,X4 

restore  lc  setting  and  exit. 

19382 

SM 

loc  state 

BIT  17 

LOC  STATf 

SHOW  THAT  LOC  SYMBOL  IS  NOT  IN  SYM  TAB. 

1939 

reject 

WD 

LOC  STATE 

BIT  13 

LOC  STATE 

INDICATE  LEFTOVER  rejection. 

1941 

SS 

zero 

ONE 

health 

clear  possible  double  precision  bit. 

1943  TS  Z,X4  Z,X6  BlAN<  LO C TREAT  AS  REGULAR  INSTRUCTION  OR  CONST. 


L 
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.SUBROUTINE  TO  BREAK,  An 

USER'S  OWN  PAGE 

ADDRESS  FIFLD  D3WN  INTO  SUrEEELDS.  PUT  RETURN  ADDRESS 

NO.  A9  PAGE  A9 

into  x a on  ent-ring. 

R 1 9 A7 
R 19  A9 

RESULTS  ARE  DELIVERED  IN  FlELDCoD 

fieldcod  all  zero  _ ___  _ _ 

AND  FIELDCOD+I,  AND  IN  ADRwD  AND  ADRWD* 1 , AS  FOLLOWS.. 
BLANK  ADDRESS  FIELD 

• • 

R1950 

FlELDCOD  ALL  ONES 

ILLEGAL  FORMAT 

R1951 

FlELDCOD+l  ALL  ZERO 

no  modifier 

R1952 

fieldeod+i  indicates  signed  NUM 

MODIFIER  GIVEN  LN  ADRWDtl 

R 1 95 3 FlELDCoD  INDICATES  SYMBOLIC  ADDRESS  SYMBOL  IN  AORWn 

R 1 95A  FIELDCOD  INDICATES  S DK  US  NUM  VALJe  GIVEN  IN  ADRWD. 


R 1 955 

USES 

ANALSUBF.  53,  X 3 • 

AND  X5 , 

1956 

ADR 

field 

NA 

ADDRESS 

1 

blanks 

TEST  WD2 

1957 

NA 

address. 

2 

_BLANKS 

MOV  ADRF<; 

1958 

TS 

zero 

field  cod 

N,XA 

INDICATE  BLANK  ADDRESS  FIELD  AND  EXIT. 

i960 

TEST 

IVD2 

NA 

ADDRESS 

2 

blanks 

MOV  ADRf<; 

BRANCH  IF  both  words  non-blank. 

1962 

TX 

address 

1 

- 

afield 

1963 

TS 

blanks 

AFIELD 

MOV  ADRES  +1 

SHORT  CUT  WHEN  WORD  2 IS  BLANK. 

1965 

MOV 

ADRES 

TN 

ADDRESS 

1 

2 

AFIELD 

1966 

SWE*  ONES 

C,  + 3 

16 

Z,X3 

INITIAL  PROCEDURE  FOR  NON-NUM  ADDRESS. 

1968 

TX 

ZERO 

FIELD  COn  +1 

INITIALLY  ASSUME  NO  MODIFIER. 

1970 

TS 

C,  + l 

Z*X5 

LD  A2  S3 

1971 

CAC 

no  mod  if 

FOUND  RNr 

SET  UP  TO  LOOK  FOR  SIGNS  INITlA.LY, 

1973 

LD  A2  S3 

TX 

EIGHT 

Z i S3 

MAXIMUM  NUMBER  OF  NBCS  IN  A SU3- IELD. 

1975 

TS 

BLANKS 

AFIELD  +2 

FIND  NBCs 

R1976 

minor  subroutines  TO 

SHIFT  TWO  OR 

THREE  WORDS 

right  by  One 

character. 

1977 

3SRT  1C 

SWS.  ONES 

AFIELD  +2 

A * 1 

AFIELD 

♦ 2 C 

1978 

SWS.  CHARI 

AFIELD  +1 

A * 1 

AFIELD 

♦ 2 C 

1979 

2SRT  1C 

SWS*  ONES 

AFIELD  .1 

A * 1 

AFIELD 

♦ i C 

1980 

SWS*  ONES 

AFIELD 

A » 1 

AFIELD 

C 

1981 

ss 

afield 

CHARI 

AFIELD 

♦ i C - 

1982 

ss 

BLANKS 

CHARI 

AFIELD 

L 

P1983 
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1984 

FIND  \|BCS 

NA,  ChaR8 

afield  +i 

blanks 

5,0 

BRANCH  WHEN  2 WORDS  ARE  R 1 GHT- J JST I F I ED. 

1986 

1988 

TS 

SPEC 

c,n 

z*sc 

2SRT 

FIND 

1C 

NBC4 

c 

SHIFT  AFIELD  AND  AFlELD+l  RIGHT  i CHAR. 

1989 

FOJND  RNB 

TS 

Z , S3 , 1 

- 

3SRT 

1C 

c 

procedure  when  seeking  sign. 

1991  NA , B3T6  AFIELD  + 2 ZERO  NOT  SIGN 

1992  LA,  CHARI AFIELD  +2 ZERO NOT  SIGN 


1993 

NA, 

CHAR8 

AFIELD  +1 

BLANKS 

NO  MODI F 

BRANCH  IF  SIGN  NOT  PRECEDED  BY  A BLANK , 

1995 

TS 

AFIELD  +2 

COMMON 

ANAL  S J3c 

*2 

C 

ANALYZE  POSSIBLE  MODIFIER. 

1997 

NA, 

«2B6 

FIELD  Cod 

BIT2 

NO  MoDIF 

branch  if  twasnt  a signed  numeric  subf. 

1999 

NA 

AFIELD  +1 

BLANKS 

ALSO  MAIN 

2000 

nA 

AFIELD 

blanks 

also  main 

Branch  if  compound  address. 

2002 

TS 

common  +1 

ADR  WD 

n,xa 

EXIT  FOR  SIGNED  NUMERIC  FIELD. 

2004 

FOJND  MNB 

TS 

Z ,S3 , 1 

3 SRT  1C 

c 

PROCEDURE  WHEN  NOT  SEEKING  SIGN. 

2006 

NOT  SIGN 

NA 

AFIELD  +1 

BLANKS 

8 NBC  3 

2007 

NA 

afield 

BLANKS 

8 NBC  3 

BRANCH  IF  MORE  NBCS  TO  EXAMINE. 

2009 

TS 

AFIELD  *2 

common 

ANAL  S J3f 

*2 

c 

analyze  possible  main  address. 

2011 

NA, 

BIT2 

FIELD  COD 

ONES 

3,0 

branch  if  not  numeric. 

2013 

TS 

COMMON  +1 

ADR  WD 

N,XA 

EXIT  WHEN  MAIN  ADDRESS  IS  S OR  JS  NUM. 

2015 

NO  MDDIF 

TN 

address  1 

2 

afieTd 

SET  UP  PUtATIVe  SYMBOLIC  SUBFIE-D. 

2017 

TS 

blanks 

AFIELD  ♦ 2 

SEEK  HEAn 

+ 1 

2018 

TN 

ALSO  MAIN  -2 

2 

afield 

recover  non-modifier  part  of  adh  field. 

2020 

TS 

BLANKS 

AFIELD  ♦ 2 

SEEK  HEAn 

♦ 1 

2021 

seek  head 

NA, 

Chari 

AFIELD  +2 

BLANKS 

C , + 3 

branch  when  possible  head  found. 

2023 

TS 

C,*l 

z,sc 

3SRT  1C 

c 

TRIPLE  SHIFT  RIGHT  TO  FIND  HEAD. 

2025 

SPEC 

SEEK  HEAn 

L 
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2027 

NA*  LHAR8 

afield  ♦ 1 

blanks 

no  head 

CHAR.  PRECEDED  BY  NON-BLANK 

I SNT  head. 

2029  NA  AFIELD  BLAMKS  SRT  SYM  MOVE  SYMBOL  RIGHT  TO  INSERT  HEA->, 


2031  NA AFIELD  ..*.1 BLANKS Ca_+_2 


2032 

TS 

AFIELD  ♦ 2 

ADR  WD 

N.XA 

EXIT  WHEN  MAIN  ADDRESS  IS  1-CHAR.  SYM. 

203A 

2036 

2037 

NA*  LhaRI 
SWS * ONES 
TS 

AFIELD  +1 
AFIELD  +1 

blanks 

A , 1 *L 

PLACE  Heh 
AFIELD  +1 

C,-2 

move  symbol  left  to  insert  head. 

2038 

2039 

SKT  SYM 

TS 

NA*  CHAR8 

AFIELD  +1 

blanks 

2SRT  1C 

bad  adres 

C 

ERROR  if  no  room  for  head. 

20Al 

NA 

AFIELD 

BLANKS 

C , -2 

shift  until  normalized  in  AFIELD  .1. 

20l3 

PLACE  hed 

SWS*  CHARS 

AFIELD  +2 

A * 1 * L 

afield  *j_  „ 

insert  head  character. 

20A5 

TS 

AFIELD  +1 

ADR  WD 

N * X A 

exit  when  main  address  IS  SYMBOLIC. 

20  A7 
20  A9 
2051 

NO  HEAD 

SWS,  ONES 
NA,  ChAr8 
NA 

AFIELD  +1 
AFIELD  +1 
afield 

A * 1 * L 

BLA\|<S 

BLANKS 

afiei'd  +i 

BAD  ADREa 
BAD  ADRES 

BACKTRACK  after  NO-HEAD  FINDIN3. 
error  if  symbol  is  too  long. 
ERROR  if  symbol  IS  too  long. 

2053 

2055 

SWS*  CHAR3 
NA*  CyARl 

AFIELD  +2 
AFIELIL  *1 

A * 1 *L 

blanks 

AFIELD  +1 
place  hed  +i 

finish  backtracking. 

branch  when  symbol  is  normalize-). 

2057 

2058 

SWS,  ONES 
TS 

AFIELD  +1 

A , 1 *L 

AFIELD  ♦ V 

C,-2 

2059 

8 NBC  a 

NA 

Z,S3 

ZERO 

FIND  NBCS 

seek  another  non-blank  character. 

20  61  B A Q_  A ORES  TS ONES FIELD  CoD  NtX» ERRQR-.EX.lIjt 


2063 

206A 

reserve 

ALSO  MAIN  TX 

2 

FIELD  Cod 

field  con  *i 

INDICATE  PRESENCE  OF  MODIFIER. 

2066 

TN 

AFIELD 

2 

ALSO  MAIN  -2 

SAVE  ORIGINAL  FORM  OF  REST  OF  FIELD. 

2068 

SM 

Z *X3  * 2 

Z,X5*9 

.. 

SET  UP  TO  OMIT  SIGN  SEARCH. 

2070 

TS 

common  +1 

ADR  WD  +1 

LD  A2  S3 

DELIVER  VALUE  OF  MODIFIER. 
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P2072  SUBROUTINE  TO  AnALYZE  A SUBFl  ELD_QF  ELl  G-tiT  CHARACTERS.  FNTER  WITH  THE  SUBFIELD  IN  COMMON.  C(CQMMQ\l) 

R207A  IS  NORMALIZED  ON  RETURN.  IF  THE  SUBFIeLD  IS  NUMERIC,  THE  RESULTING  BINARY  INTEGER  IS  DELIVERED  IN  COMMONS  WITH 

R2076  THE  S3EC1FIeD  SIGN  IF  ANY  OR  A PLUS  SIGN  IF  NO  SIGN  IS  GIVEN.  C(FlELDCOD)  GIVES  THE  RESULTS  OF  ANALYSIS.... 


R2078 

R2080 

R2082 

BIT  1 
BIT  2 
BIT  5 

ZERO  — NDN-SYMBOLIC  SUBFIELD 
ZERO  — NONr-NuMERIc  SuBFlELD 
ZERO  — MINUS  SIGNED  SUBFIELD 

ONE  — SvMBoLlC  SUBFIELD 

one  — numeric  subfield 

one  — unsigned  or  plus  signed  subfield 

R208A 

BIT  6 

ZERO  --  SIGNED  NUMERIC  SUBFIeLD 

ONE  — UNSIGNfD  NUMERIC  SUBFIeLD 

R2086  BIT  9 OF  HFALTH  IS  SET  TO  1 IF  A DECIMAL  SUBFlFLO  IS  WRITTFN  WITHOUT  A D 


2087 

anal  subf 

NA 

COMMON 

BLANKS 

C,  + 2 

c 

2088 

TX 

zero 

- 

field  cdo 

INDICATE  BLANK  SUBFIELD  AND  EXIT. 

2090 

TS 

UnSIG  NUM 

field  cod 

ndrmaled  -1 

c 

TEMPORARILY  ASSUME  UNSIGNED  NUMtRiC. 

2092 

NA, 

CHARI 

COMMON 

blanks 

normaleo 

c 

2093 

SWS 

, ONES 

COMMON 

A , 1 , L 

common 

c 

normalize. 

2095 

TS 

COMMON 

COMMON  +1 

C,-2 

c 

2096 

NORMA.eD 

LA, 

char  i 

Common  +1 

ZERO 

Set  dig 

c 

BR  IF  iSj  CHAR  OF  SUBFIeLD  IS  ZcRD. 

2098 

TX 

ONES 

DIG  FILE 

c 

INDICATE  NO  DIGITS  YET. 

2100 

NA, 

B3T6 

common  +1 

ZERO 

nd  sign 

c 

BR  IF  1ST  CHAR  OF  SuBFlELD  ISNT  A SIGN. 

2102 

SWS 

, B5T6 

common  *i 

3 

FIELD  CDn 

c 

INDICATE  SIGN  AND  WHICH  SIGN. 

210A 

NA, 

C2T8 

COMMON  +1 

BLANKS 

BLANK  FIL  *2 

c 

2105 

SYMBO.IC 

TX 

Bit  1 

- 

field  cdd 

INDICATE  SYMBOLIC  AND  EXIT. 

R2107 

NO  SI3N  IS 

the 

BEGINNING  OF  THE  loop 

TO  EXAMINE 

EACH  CHARACTfR. 

2108 

NO  SIGN 

LA, 

Chari 

common  +i 

ALF  9 Cl 

digits 

c 

BRANCH  IF  CHARACTER  IS  A NUMeRAw. 

2110 

NA, 

chari 

common  +i 

D Cl 

symbolic 

c 

BRANCH  IF  NEITHER  NUMERAL  NOR  D. 

2112 

NA, 

C2T8 

COMMON  +1 

blanks 

Symbolic 

c 

BRANCH  IF  D wUH  MORE  TO  COME. 

21 1 A 

LA 

ONES 

DIG  FILE 

symbolic 

c 

branch  if  d with  no  preceding  njmerals. 

2116 

DECIMAL) 

TS 

c,n 

CON V LOO3 

cdnv  loop  -1 

r 

set  up  conversion,  decimal  to  binary. 

2118 

BT 

COMMON  +1 

10 

CDMMOn  +1 

c 

» 4 


A 
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X 

* 

2120 

DIGITS 

SM»  B I y 3 

field  cod 

COMMON  +1 

field  con 

C 

telltale  bit  for  ss  and  9s. 

X 

2122 

NA 

DIG  FlLP 

ONES  _ __  __ 

F I LE  D I 3 

C 

BRANCH  IF  2ND  CR  SUBSEQUENT  DIGIT. 

2124 

SET  DIG 

TX 

L DIG  FILE 

z,so 

C 

PROCEDURE  FOR  FIRST  DIGIT. 

X) 

2126 

TX 

ZERO 

- 

DIG  FILE  . . 

_JC_  . 

FAKE  A ZERO  PRECEDING  FIRST  DIGIT. 

2128 

TX 

L DIG  FILE 

- 

Z,S1 

c 

X 

• 

7 1 29 

FILE  DIG 

na , chari 

COMMON)  +1 

. ZERO' 

NZ  DIGIT  .. 

_ c 

2130 

la 

dig  file 

ZERO' 

NZ  DIGIT  *1 

c 

SUPPRESS  INSIGNIFICANT  ZEROS. 

X 

* 

2132 

NZ  DIG'IT 

SW£,  D12 

common  *1 

_ A, 7 

N , SO  » 1 

c 

FILE  SIGNIFICANT  DIGIT. 

2134 

NA,  C2T8 

COMMON  +1 

BLANKS 

BLANK  FIT  +2 

c 

CONTINUE  IF  MORE  TO  COME. 

X 

* 

2136 

NA,  BlJ_3 

FIELD  CqD 

ONES 

OCTAL) 

c 

branch  if  no  d and  no  ss  or  9s. 

* 

2138 

TS,  BIT9 

ONES 

health 

DECIMAL) 

c 

Set  COMPLAINT  when  8S  or  9S  AND  NO  D. 

X 

2140 

BLANK  FIL 

SWS , ONES 

COMMON  +1 

A , 1 , L 

COMMON  *i 

c 

* 

2141 

na,  chari 

common  +i 

BLANKS 

NO  SIGN 

c 

x 

2142 

ts,  chari 

BLANKS 

common  +1 

BLANK  F 1 1 

c 

INSERT  blank  for  used  digit,  normalize. 

A 

2144 

OCTAL) 

TS 

c,  + l 

CONY  LOO3 

CONY  LOOP  -1 

c 

set  up  conversion,  octal  to  bi \isry • 

X 

2146 

SWE,  OCTMASK 

COMMON  *-1 

3 , L 

COMMON  +i 

c 

* 

2147 

TS 

zero 

COMMON  +1 

CONY  LOOP  +2 

c 

x 

2148 

CON V .OOP 

TS 

• 

disaster 

(SHOULD  ALWAYS  GET  REPLACED) 

2150 

WA 

COMMON'  +1 

N,S1 ,1 

COMMON  *1 

c 

# 

2151 

NA 

z,so 

Z,S1 

CONY  LOOP 

c 

LOOP  UNTIL  ALL  SIGNIFICANT  DIGIrS  USED. 

X 

A 

2153 

SWS*  BIT1 

FIELD  Cod 

4 »L 

COMMON  ♦) 

INSERT  CORRECT  SIGN  AND  EXIT. 

X 

X 


X 


X 


X 


X 


» 


% 


* 
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P2155  SUBROUTINE  In  PASS  1 TO  AnALYZE  THE  HISTORY  OF  A SYMBOL.  ENTER  WITH  THE  NORMALIZED  SYMBOL  1m  COMMON* 

R2156  PREVAILING  HEAD  IS  AMENDED  TO  SYMBOL  IN  COMMON  IF  THERE  IS  BOOM.  THE  PRESENT  HEALTH  AND  DEFINITION  (IF  ANY) 

R2157  ARE  D-LIVERED  IN  COMMON+2  IN  BITS  17-48.  3UT  ALL  ONES  IS  DEL'tVEReD  IN  CoMMON+2  IF  THe  SYMBOL  IS  NEW  AND  THERE 

R2158  IS  NO  ROOM  IN  THe  TABLE.  Z.X2  IS  SET  TO  THE  ADDRESS  DF  THE  SECOND  WORD  OF  THE  TABLE  EMRY.  OR  TO  COPY  3UFF  „i 

R2159  IF  TH?  TABLE  IS  FULL,  Z,X3  IS  SET  TO  THE  ADDRESS  OF  A WORD  WHOSE  RIGHT  CAC  FIELD  POINTS  TO  THE  SYMBOL,  EXCEPT 

R2160  IF  TH-  TABLE  IS  FULL,  NEW  SYMBOLS  ARE  INSeRTE?  IN  THE  TABLe  WITH  ALPHABETICAL  ORDERING  BY  A COMBINATION  OF 

R 2 1 6 1 ASSOCIATIVE  REFERENCING  ON  THe  FRONT  7 BITS  AND  THREADING  FRnM  SYMBOL  TO  SYMBOL, SEARCHING  IS  AIDED  BY  DIVIDING 

R2162  THE  S?T  OF  SYMBOLS  U?>  INTO  STRINGS  WHOSE  MAXIMUM  SIZE  IS  ll  SYMBOLS,  THe  DIVIDERS  BEING  UP  TO  1024  PAHS  OF  SPEC 

R2163  FIELDS.  THe  FIRST  AND  SECOND  SPeCS  IN  EACH  PAIR  =OINT  TO  THE  END  AND  BEGINNING  OF  ITS  STRING. 


2164 

anal  symb 

TX 

L SYM  THR 

• 

Z,X5 

r 

ADDRESS  of  LIST  of  126  specpair  threads. 

2165 

2166 
2167 

TX 

TX 

na,  chars 

ZERO 

zero 

COMMON 

BLANKS 

COMMON  ♦ ? 
COMMON  ♦a 

C , + 2 

c 

C 

C 

IN  CASE  SYM  IS  IN  1ST  STRING  OR  IN  NONE. 

in  case  this  will  be  a non-equals  def. 

21675 

TX,  CHAR8 

HEAD 

- 

COMMON 

c 

append  head  if  THERE  is  ROOM. 

21685 

SWS.B19T25 

COMMON 

18 

SYM  SHIFT 

c 

CHOOSE  THREAD  BY  7 FRONT  BITS  0-  SYMBOL. 

21695 

SYM  SHIIFT 

SWE,  CAC3 

5,0 

0 

Z,*3 

c 

THREAD  FOR  1 OF  126  OF  1024  SPEC  PAIRS. 

21705 

LA 

ONES 

COMMON 

fjllness 

c 

"CCCCCCCC"  Is  SOCIALLY  UNFIT  FOR  TABLE. 

21715 

SEEK  5TRG 

S»  ETS 

3,0 

zx  *2  _ 

c * + 1 

POINT  TO  LAST  SYMBOL  IN  STRING. 

21725 

LA 

COMMON 

N,X2 

IN  STRlNr, 

c 

BRANCH  IF  SYMBOL  MUST  Be  IN  T Hi S STRING. 

21735 

HA 

N.X2.1 

COMMON 

COMMON  +2 

c 

COMPARE  ARG  WITH  LAST  SYM  IN  WRONG  STRG. 

21745 

TS 

N,X2 

Z,X3 

SEEK  strg 

c 

POINT  TO  SPEC  PAIR  FOR  NEXT  STRING. 

21755 

IN  STRING 

TS 

Z,X3,1 

Z,SH 

seek  symb 

+ 3 

c 

SAVE  ADDRESS  OF  SPEC  PAIR. 

21775 

SEEK  SYMB 

LA 

COMMON 

N.X2 

find  or  no 

c 

2178 

S,  ETS 

2,1 

ZX  ♦ 3 

c . ♦ 1 

argument  is  greater,  try  next  symbol. 

2179 

LA 

COMMON 

N.X3.1 

C , ♦ 2 

c 

21795 

S,  ETS 

3,0 

ZX  +2 

seek  symr 

ARGUMENT  is  GREATER.  TRY  Next  SYMBOL. 

21805 

eba 

Z,X2 

one 

Z,X3 

c 

POINT  TO  SECOND  WORD  OF  PRECEDING  SYMB. 

21815 

S,  ETS 

3,0 

ZX  *2 

c » ♦ 1 

POINT  TO  EQUAL  OR  GREATER  SYMBD  . 

21825 

FIND  OR  NO 

LA 

common  +2 

B8T48 

THR  shift 

♦ 1 

c 

BRANCH  IF  THREAD  TO  SPEC  PAIR  Is  RIGHT. 

R21835 

IF  THE  HIGH 

1 7 BITS  OF 

the  new  symbol 

Differ  from 

those  of  the 

LAST  SYMBOL  IN  THE  LAST  STRING,  THE  THREAD  PICKED 

R21845 

OUT  BY  THeSe  BITS  MUST 

be  changed  so 

AS  to  point 

to  this  string. 

because 

; W£  SHOULDN'T  HAVE  SEEN  THe  LASt  STRING. 

21855 

new  thred 

HA.B25T27 

SYM  SHIFT 

B25T26 

cac  shift 

c 

FORM  48S-C0MPLEMENT  OF  SHIFT  COJnT. 

21865 

SWS,  CHAR 3 

SYM  SHIFT 

24 

THR  SHIFT 

c 

move  index  augmenter. 

21875 

TX,B25T27 

CAC  SHIFT 

- 

THR  SHIFT 

c 

COPY  COMPLEMENTED  SHIFT  COUNT. 

21885 

CAC  SHIFT 

SWE.  ONES 

CAC3 

0 

CACN 

c 

MAKE  MASK  FOR  NEW  THREAD. 

21895 

thr  shift 

SWS.CACN 

Z ,SH 

0 

5,0 

c 

MAKE  NEW  THREAD, 

21905 

NA 

N ,X2  ♦ 1 

COMMON 

new  sy  m3  - 

1 

c 

BRANCH  IF  symbol  is  not  in  table. 

21912 

TX 

2,1 

• 

COMMON  ♦ a 

c 

IN  CASE  THIS  SYMBOL  IS  A dEFINER  FOR  =. 

21915 

LA 

2,1 

CAC12 

FOUND  SYM 

c 

BRANCH  IF  SYMBOL,  not  mult.  def.  flag. 

21925 

S,  TTs 

2,1 

ZX  *2 

THR  SHIFT 

♦ 1 

point  to  current  member  of  mult  def  set. 

21935 

LA 

end  sy  tab 

SYM  PLACE 

FJLLNESS 

c 

branch  if  symbol  table  is  not  full. 

« 
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P2197 

CREATE  3-WORD  SYMBOL  TABLE  ENTRY, 

. W.D 

JZ  = CAC 

HEALTH  DEFINITION 

THREAD  - . WD  3 = 0 (AnALYZER  IN  aAsS  2). 

21982 

NEW  SYMB 

NA 

SYM  PLACE 

sped  mag 

C , + 2 

C 

21983 

wA 

SYM  PLACE 

THREE 

SYM  ?LACc 

c __ 

SKIP  OVER  12 K STOPPER. 

2198$ 

EX 

N,X3 

CAC3 

CACN 

c 

SAVE  ADDRESS  OF  NEXT  SYM  OR  SPEC  PAIR. 

21995 

ss 

SYM  PLACE 

CAC3 

N,X3 

c 

THREAD  TO  THIS  FROM  LAST  SYM  0*  SPEC  PR. 

22005 

EBA_ 

SYM  PLACE 

BIT  25 _ 

Z.X2 

c 

2201 

TX 

COMMON 

N,X2,i 

c 

PUT  NEW  SYMBOL  IN  SYMBOL  TABLE. 

2202 

TX 

CACN 

• 

N,X2 

c 

thread  to  next  SYMBOL  OR  SPEC  3AIR. 

2203 

TX 

ZERO . 

• 

2*1 

c 

INI TIALIZE-  analyzer  word. 

2204 

SYM  0*1  NOT 

WA 

SYM  PLACE 

THREE 

SYM  PLACf 

left  SIX  BITS  MUST  BE  60. 

2207 

EX 

N » SH 

CAC3 

CACN 

c 

POINT  TO  LAST  SYMBOL  IN  STRING, 

2208 

wA 

Z,SH 

ONE 

Z,AJl 

c 

POINT  TO  pointer  to  head  of  string. 

2209 

WA 

NINE 

TWO 

Z , A J2 

c 

2211 

MEASJRE 

EX 

N t AU1 

CAC3 

ETS 

_c. 

POINT  TO  A SYMBOL  IN  THe  STRING. 

2212 

NA 

ETS 

CAC'W 

C.  + 2 

c 

branch  IF  not  LOOKING  at  last  in  string. 

2214 

CLR  COMM  2 

TX 

zero 

COMMON 

5 

RETURN  AFTER  NEW  SYMBOL  BUT  NO  NEW  STR. 

2216 

EBA 

ETS 

ONE 

Z.AJ1 

c 

2217 

NA 

Z * AU2 

six 

_C*  + 2 

c 

2218 

SM 

ETS 

BIT  25 

common  ♦ ? 

c 

SAVE  ADDRESS  OF  SIXyH  SYMBOL  IN  STRING. 

22195 

NA 

Z t AU2  ♦ 1 

ONE 

measjre 

c 

branch  unless  string  just  grew  ro  12. 

22205 

SPLIT  STR 

WA 

5*13 

BIT  15 

5*13 

c 

22207 

la.  chari 

EOR 

5*13 

MEAsJRE  *2 

c 

IF  NO  avail.  SPEC  PAIRS,  keep  SAME  STR. 

2221 

SWE,  CAC3 

5,13 

32 

_Z*AJ2 

c 

INCREMENT  6 GET  ADDR  OF  NEXT  SPeC  PAIR. 

2222 

ss 

CACN 

CAC3 

N.AJ2 

c 

pointer  to  last  symbol  in  new  string. 

2223 

ss 

COMMON  +2 

CAC3 

N,SH 

c 

pointer  to  new  last  sym  in  old  string. 

2224 

eba 

COMMON  +2 

ONE 

ZjAUl 

c 

point  to  second  word  of  same. 

2225 

WA 

Z * AU2 

ONE 

Z.SH 

c 

22255 

ss 

N,AU1 

CAC3 

N , SH 

c 

NEW  SPEC  PR  POINTS  TO  START  OF  NEW  STR. 

22265 

ss 

Z , AU2 

CAC3 

N.AUl 

c 

old  string  points  to  new  spec  pair. 

22275 

FOJND  SYM 

SWE*  CAC23 

N,X2 

16 

COMMON  ♦ , 

s 

DELIVER  HEALTH  AND  EQUIVALENT  Dc  SYMBOL. 

R2229 

E*IT  WITH 

BAD  NEWS  WH£N 

THE  NUMBER 

OF 

SYMSqLS 

PL JS  SUBROUTINES  exceeds 

8191.  ALSO  FOR  A SYMBOL  OF  48  ONES. 

2230 

fullness 

DS 

SYM  TAB  XS 

ONE 

SYM  TAB  yS 

c 

COUNI  HOW  MANY  TOO  MANY. 

2232 

WD 

L COP  BUFS 

ONE 

Z,X2 

c 

PREVENT  POSSIBLE  TROUBLE  with  2 ,n  REFS. 

2234 

TX 

ONES 

- 

COMMON  *? 

s 

SET  FULLNESS  SIGNAL  AND  EXIT. 
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P2236 

SUBROUTINE  IN  PASS  I TO  DETERMINE  Amo  (OPTIONALLY)  RESET  THE  AVAILABILITY  of  a location.  PJr  I OCA- 

R2238 

R2240 

TlON  IN  BITS  33-48  Or  COMMON  ON  ENTERING.  IF  LOCATION  IS  AVAILABLE, 
RETURN.  ENTER  aT  AVAIL!  FOR  A NON-DeStRU-T I VE  TEST,  OR  AT  AVAIL2  TO 

ONE  OF  BITS  1-32  OF  COMMON  WILL  Be  A ONE  ON 

leave  location  reserved. 

22A2 

AVAIL  1 

TX 

RST  AV2 

- 

RST  AV2  -1  C 

SET  UP  NON-DESTRUCTIVE  TEST. 

2244 

AVAIL  2 

3WS,  Bi6I30 

common 

18,- 

C,»l  C 

USE  LOW-ORDER  5 BITS  AS  SHIFT  COUNT. 

2246 

2248 

2250 

SWE,  ONES 
SWE,  B38T43 
WA 

BIT  1 

COMMON 

Z.5H 

0 

5 

L AY  TABLE 

AVAIL  MSk  C 

Z , SH  C 

Z , SH  C 

FORM  VARIABLE  (1  OF  32)  MASK. 

use  remaining  bits  to  get  relative 
address  of  word  within  table. 

2252 

2254 

SS 

ss 

N , SH 

zero 

AVAIL  MS< 

avail  Ms< 

COMMON  C 

N,SH 

store  availability  signal. 
Reserve  location. 

2256 

2258 

RST  A V2 

TX 

ss 

c * + 1 

zero 

AVAIL  MS< 

C,-l 

n,sh 

RESTORE  AVAIL1  TO  AVA1L2* 

R225802 

pass  1 processing  qf  a count  card  card. 

the  ADDRcSS  FIELD  May  CONTAIN  ONLY  A SYMBOL,  WHICH  IS  INTER- 

R225806 

pRete>  as 

the  name  of  a 

ROUTINE  WhOsE 

WORDS  ARE  TO 

be  cojNTEn.  a blank  address  field  "turns  off"  counting. 

22581 

TS,  BITS 

ones  

HEALTH 

C , + 3 

MILDLY  CUSS  NON-BLANK  LOC  FIELD. 

225814 

225818 

22582 

COJNT 

TX,  CD  TY3£ 
NA 

TS,  D12 

(COUNT) 
loc  field 
one 

BLANKS 

HEALTH 

health 

C,-2 

BLOCK  +1  C 

ASTERISK  ON  CODE  ASKS  SPECIAL  PROCESS. 
DECODE  ADDRESS  FIELD. 

225824 

225828 

225832 

LA 

eba 

LA 

ONES 

SPEC  SIGN 

field  cud 

FIELD  COD 
BIT  25 
zerd 

ILL  CoUNt 
Z,X2 

COUNT  PTR 

branch  if  address  field  is  meaningless. 

POINT  TO  ORIGIN  OF  LIST, 

branch  if  address  field  IS  blank. 

225836 

22584 

NB  COJNT 

NA 

la 

field  Cod 
field  cod  +1 

bit  1 

ZERD 

ILL  COUNT 

C * ♦ 2 

branch  if  ADDRESS  field  has  no  symbol, 
fall  THRU  TO  ERROR  IF  THERE  IS  A mODIF. 

225844 

ill  count 

ts,  bit  9 

ONES 

health 

XMIT  RTRn 

"ADDRESS  FIELD  IS  MEANINGLESS", 

225846 

NA,  Bill! 

HEALTH 

ONES 

C,  + 2 

225847 

225849 

22585 

sWS*  sPEOiAG 

eba 

TS 

M COUN5P 
SPEC  SIGN 
ADR  WD 

32 

BIT  25 
COMMON 

z,csc  C 

Z,X3 
C ,*3 

DO  SPECIAL  PROCESSING  FOR  "COUNT*"  CDOE. 
MOVE  NAME  OF  ROUTINE. 

225854 

225858 

225862 

LA 

eba 

S , ETS 

COMMON 

Z,X2 

3,0 

N,X2 
ONE 
ZX  ♦ 2 

C,  + 3 
Z ,X3 

C , -2 

BRANCH  WHEN  PLACE  IN  ALPHA  LIST  FOUND. 
KEEP  X3  ONE  PLACE  BEHIND. 

STEP  THRU  ALPHA-THREADED  ROUTINE  LIST. 

225866 

225868 

COJNT  PTR 

NA 

EBA 

COMMON 

health 

N,X2,1 
Z ,X2 

NEW  RTINf 

health 

LET  CARD  POINT  TO  WORD  3 OF  TAB  E ENTRY. 

225872 

TS,  B25T27 

ZERO 

health 

XMIT  RTRN 

22587A 

NEW  RTINE 

NA 

SYM  PLACE 

END  SY  TAB 

C , + 2 

225876 

22588 

225884 

NEW  JNSYM 

TS,  BIT  10 

ts,  chari 
ts,  chari 

ONES 
BIT  2 

END  ERR  M ♦! 

health 
SYM  OR  NOT 
SYM  OR  NOT 

XmIT  RTRn 

NEW  SY  M3  C 

COUNT  PTR 

CUSS  NO  ROOM  IN  SYMTAB  FOR  RTNE  NAME. 
(ALSO  USED  BY  SUBRO). 

RESTORE  SYMBOL  SUBROUTINE. 
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P2800  LOAD  EPILOGUE  INTO  PARTICULAR  PASS  AREA  AND  FINISH  PASS  1. 


r CO  uu 

— r -7VI  » — r nwv — nnun — ei-^ig — i -a  r.r\  ww — 

2802 

2809 

END  PASS  1 S*  PHI  LOAD  PI  EPILOG  1 BASE  ADOr 

FILL  MODlOC  _ 6A  ..  . . — - 

EPILOGUE  WILL  LOAD  PASSES  1.5  AMD  2. 

R280A1 

this 

3ART 

OF  INITIALISATION  IS  PERFORMED  AFTER  HE 

LOADING  of 

PARTICULAR  PASS  1. 

280919 

setloc 

RL  CD  HLTH 

FINAL  INITIALIZATIONS  HIDE  IN  3 OFFER. 

280918 

POST 

SPEC 

SM 

M TYP  TAB 

SPEC 

SIGN 

Z,X1 

28092 

IT 

N,X1 

1 1 2 7 

N t X 2 

MOVE  memory  type  iable. 

280929 

WD 

Z » AU2 

TWO 

END  TYP  TA 

280926 

TS 

RL  TYP  TAB 

Z,X2 

C.-2 

C STANDARD  MEMORY  TYPE  CONFIG  FOR  BYPT. 

28093 

SS 

mod  shift 

COUNT 

FLO 

SHIFtNOo 

SHIFT  FOR  NUMERIC  QP  CODE. 

280939 

TX 

pi  masks 

- 

Z.MXR 

280936 

SWS.CoUNTFlD 

mod  shift 

6 

BL0<  SHIP 

LOG  (BASE  2)  OF  BLOCK  LENGTH. 

280939 

TX 

L END  OF 

Z.XD 

28099 

SWE.  CAC3 

M SUBR  LoC 

16 

LOC  CTR 

location  counter  has  good  initial  value 

280999 

NA.  B I T9 

SWITCH 

ZERO 

get  real 

For  SUBROUTINE  ASSEMBLY,  but  in  program 

280998 

TS 

ONES 

LOC  CTR 

get  real 

assembly  IT  is  made  hideous. 

R280952 

280959 

SIZ  PASS  1 

ITEMS  to 
EQUALS 

3E  FILLED  IN  BY 
FILL  - PROG 

THE  PARTICULAR  PART  OF  PaSS  1. 
NAME  + 69 

280956 

M OP  THRS 

EQUALS 

FILL  +69 

280958 

MAX  NjM  OP 

equals 

FILL  *65 

28096 

MAX  LOC 

equals 

FILL  +66 

280962 

MAX  ISEOL 

equals 

MAX  LOC 

280969 

ADR  LIMIT 

equals 

FILL  +67 

ONE 

greater  THAN  MAX  LOC. 

280968 

BLOK  ONES 

equals 

fill  +68 

ONE 

LESS  THAN  BLOCK  SIZE. 

280972 

MOD  SHIFT 

equals 

fill  +69 

280979 

M TYP  TAB 

EQUALS 

FILL  +70 

280976 

M SUBR  LOC 

EQUALS 

M TYP  TAB 

280977 

M COU  MSP 

EQUALS 

M TYP  TAB 

280978 

M SPECIAL 

equals 

fill  +71 

28098 

M ELErTO  P 

EQUALS 

FILL  +73 

280982 

M FLE-TO  P 

equals 

FILL  +79 

L 

@YUL  SYSTEM 

ASSEMBLER  — 

PASS  1 

USER'S  OWN  PAGE  NO.  58  PAGE  58 

P2805 

INITIALIZING 

sequence,  for 

pass  i,  joVerjud  by  ihe  particular 

part.  Sets  up  symbol  table  threads  and 

R2807 

R2809 

buffe^sharing,  moves  " 
TlCJLAR  part  of  PASS  1* 

END  OF"  INFO  AND  COVER 
and  part icularizeS  the 

sheet  contents  into  place,  starts  the  paraprograms,  loads  the  par. 
memory  type  table  and  other  constants. 

2811 

SETLOC  *7C 

SIZ  PASS  1 

bi 

2816 

iNISrl  PI 

TX 

INPUT  X I T 

Z * R 5 

LOAD  INPUT  BUFFER  LIST  ADDRESS. 

2818 
2820 
282  1 A 

TN 

TN 

SWS,  B8B17 

OLD  LINE  *6 

page  head  +1 
switch 

8 

13 

..  9»L 

END  OF  1 +1 

old  Dine  + i 
switch 

move  "END  OF"  INFORMATION  to  its  image. 
COVER  IT  UP  WITH  PAGE  HEAD  INFORMATION. 
MOVE  FREEZE  INDICATOR  TO  BIT  8,  B17  = 0. 

28216 
28217 
2 8218 

ss 

ss 

St  PHI  LOAD 

pass  2 
PASS  2 
Pi  SIDE  GP 

Cl  T 3 
C1T3 
1 

Pl  SIDE  r,P 
Pi  EPILOG 
C,  + l 

select  version  of  yul  system. 
Load  pass  i paraprograms. 

28219 

2822 

2823 

TX 

SWE,  CAC3 

MT  ... 

Pi  MASKS 

SOURCE 

NtSCtl 

32 

2 

Z.MXR 
Z,X6 
N , X6 , 3 

START  GROUPS  B AND  C < R D 1 AND  WWT). 

2835  SPEC*B7  1056 

2836  SPEC*B7 1057 


2837 

2838 

eba 

TX 

SPEC  SIGN 
INI T UNCO 

BIT  25 

Z,AUi 
N , A J 1 , 1 

point  to  origin  of  routine  list,  which 

MAINTAINS  the  COUNT  OF  "UNCOUNT-D"  wDS. 

2839 
28A1 
28  AA 

TX 

TS 

sws.threaoio 

zero 

L COMP  NAM 
6,1 

Z , X 6 
36 

N » A U 1 
MON  WAKE 
Z,X6 

C 

get  ADDRESS  of  COMPUTER  name. 

ADDRESS  OF  PREFIX  FOR  PARTIC.  PASS  NAME. 

28A6 

28A8 

2850 

TX 

ss 

SWE,  ClTA 

CHARI 

N,X6 

alf  mask 

ALF  MASK 
Ail 

ALF  MASK 
parp  NAMc 
alf  MASK 

move  leading  non-blank  characters  of 
REFERENCED  COMPUTER  name  to  form 
COMPLETE  name  OF  PARTICULAR  PASS  1, 

2852 

2853 
2855 

2857 

NA,  ALFMASKi 
TX 

6 ♦ 0 

L TYP  TAB 

BLANKS 

C , -2 

Z,X2 

ADDRESS  OF  WORKING  MEMORY  TYPE  I A9LE . 

INPUT  X I T 

5 » PHI  LOAD 
OCT 

PARP  NAME 
-133770 

1 

M sPEClAi 

load  particular  part  of  pass  1. 

2858 

C 1 T3 

OCT 

777777 

28581 

INI T UNCO 

OCT 

0001  0000  0003  A007 

2859 

PI  SIDE  GP 

ALF 

YULSIDE1 

SEOBRK 


END 


vul  pass  i 


general 
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K290O  PARAPROGRAM  RDl  ~ PASS  1 — GROUP  B 
R2901  - 


R2902  THIS  PARA3RUGRAM  IS  OPERATED  BY  GROUP  8 D JR  I No  PASS  1 AND  READS  SYPT.  SYLt.  AND  BYPT  RECORDS  FROM 

R290A  TAPE  1 (SYSTEM  TAPE).  IT  CLASSIFIES  SYPT  AND  SY L T RECORDS  INTO  DELETE*  SAVE.  AND  INPUT  RECORDS,  SAVE  RECORDS 
R2906  ARE  SIMPLY  PASSED  OVER.  UNTIL  THe  FIRST  DELETE  DR  INPUT  ReCDRD  IS  ENCOUNTERED.  THfREAFteR.  SAVE  RECORDS  ARE 

R2908  TRANSMITTED  TO  Be  WRlriEN  ON  TAPE  3 BY  A PROGRAM  IN  GRoJP  C,  IN  A PROGRAM  ASSEMBLY,  ALL  SYLtSAVeS  ARE  rRANS- 

R2910  MUTED..  BYPT  RECORDS  ARe  CLASSIFIED  INTO  DELETE  DR  SAVE  RECORDS,  BYPTSAVeS  BEING  TRANSMITTED  TO  Be  wRItTEn  ON 

R2912  TAPE  9,  IN  EACH  FILE,  [HqSe  RECORDS  ARE  DELETED  WHOSE  NAMe5  ARf  tHRfADeD  FOR  DELETION  IN  THE  YUL  FILE.  ALSO, 

R291<*  IN  A PROGRAM  ASSEMBLr,  ANY  EXISTING  LOAD  J£CK  ( 3 Y 3 T RECORD)  pQR  THE  PROGRAM  BEING  ASSEMBLED  IS  DELETED.  THeRe 

R2916  ARE  INPUT  RECORDS  FROM.  SYPT  DURING  A PROGRAM  Re-ASS£M3LY,  AMD  THeRE  ARE  INPUj  RECORDS  FROM  SYLT  DURING  A SUBROU- 

R2918 UNE  RE-ASSeMBLY  OR  « Rt^E VER  SUBROUTINE!  ARe  USED.  THE  FINAL  T ASK.  OF  RDj  IS^  TO  POSITION  TAPE  1 CORRECT. Y FDR 

K2920  WRITING  DURING  PASS  2.  SYLT  RECORDS  THAT  ARE  INPUT  (EXCEPT  BELONGING  TO  THE  PRINCIPAL  IN  SUBROUTINE  ASSEMBLY) 

R2922  are  Also  saved,  TO  PERMIT  ONe-SHOT  MODIFICATION  df  sjbrojtines. 


R2923 

R29232 

A "PARAPROGRAM"  is  a 
JSOCTL 

SUBSIDIARY  ROUTINE  RUNNING 

IN  A SIDE  GROUP. 

We  are  INDEBTED  AS  USUAL  TO  UoHN  SHAW  FoR 

29_29 

_SE1L0C,5 

1056 

B7 

29299 

TS 

L BANK  I 

Z,Xb 

PASS  1 GPB 

29295 

TS 

L BANK  l 

Z.X5 

PASS  1 GpC 

MINI-TRANSFER-VECTOR  FOR  SJDE  G3  STARTS, 

2925 

BIT  6 P 

OCT 

01 

2926 

BIT  25  P 

OCT 

-9000. 0000 

2927 

SPEC  SGN 

P OCT 

-10  0000 

2928 

BIT  96 

OCT 

-9 

2929 

ONE  P 

OCT 

-1 

2930 

DI2  P 

OCT 

-17 

2931 

C5T8  3, 

OCT 

-777 1 777 T 

2932 

CAC  3 P 

OCT 

-17  7777 

2933 

three  p 

OCT 

-3 

29335 

*ONES  3, 

DEC 

GGGG  GGGG 

GGGG 

2933b 

DAT8P 

DEC 

OOOG  oGGG 

29339 

OCT  9 DO 

OCT 

-900 

2939 

OCT  200 

OCT 

-200 

L 
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ASSEMBLER  3AKA  PASS  1 

USER'S  OWN  PACE  NO.  2 

PAGE  60 

P29345 

alphabetic 

CONSTANTS.  KtSERVATIQNS*  AND  ADDRESS  CONSTANTS. 

2935 

W END  SYPT 

ALE 

END  SYPT 

2936 

W END  SYL  T 

ALF 

END  SYL  T 

2937 

W END  POPO 

ale  

ENDCPOPO 

2938 

EUF  34NER 

DEC 

-GGGG 

2939 

_wANT  E2i_ 

RESERVE _ _ 

1 

29  AO 

LIST  NAME 

RESERVE 

1 

2941 

LHS 

RESERVE 

3 

29419 

END  SYMBF 

RESERVE 

1 

2942 

SAVE  XSP 

RESERVE 

5 

2943 

L DO  DELET 

SPEC 

DP  deletf 

2944 

SPEC 

DELETE  3 

2945 

L WANT  PRU 

SPEC 

want  prog 

2946 

OCT 

-33757 

2947 

OCT 

-133770 

2948 

L DO  INPUT 

SPEC  _ 

DP  INPUT 

2949 

L DO  SAVE 

SPEC 

DO  SAVE 

2950 

L DO  1NSAV 

SPEC 

DO  INPSAv 

2951 

L SU3  <N0  U 

SPEC 

SJBKNQW  q 

2952 

L GET  SUBS 

SPEC 

Get  SJ6S 

2953 

L BA\KI  1 

SPEC.  B 1 

DAMN  AERn 

2954 

L END f HR  1 

SPEC, 67 

7 

29544 

L EORVF  M2 

CAC 

ANAL  SYMB 

COMMON 

EPR  DR  EOF  -2 

L 
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P 29  5 A 5 ASSISvjMENTS  AnD  EUU W ALEIMCES. 


295A6  CUMMOMi  ASSIGN  1,0 


2955 

TAPED  NAM 

ASSI&N  _ 

2,0  

2956 

TAPRD  NAM 

ASSIGN 

2,1 

_ _ 2957 

PHDS  NAME 

ASSIGN 

6 f 0 

2958 

NEXT  MAME 

ASSIGN 

6,1 

2959 

SWITCHI 

ASSIGN 

6,2 

2960 

MID  POINT 

assign 

6,  AO 

2961 

L PROS'  HL 

ASSIGN 

6 , A A 

2962 

INI T X5 

ASSIGN 

6 , A9 

2963 

SURS  MAME 

ASSIGN 

6,52 

296A 

CUMP  J TER 

ASSIGN 

6,53 

296A5 

SEG  owner 

ASSIGN 

6 , 5A 

2965 

SU0STRAB 

ASSIGN 

6,55 

2966 

TKAC<  LOG 

ASSIGN 

6,57 

2967 

D1SCA.IM 

ASSIGN 

6,58 

2968 

DISC  ADDR 

ASSIGN 

6,59 

2969 

RtC  COUNT 

ASbIGN 

6,60 

2970 

ZtRO 

ASSIGN 

6,62 

2971 

BIT  32 

ASSIGN 

6,69 

29  72 

BIT  A 5 NOT 

ASSIGN 

6,70 

2973 

TWO 

ASSIGN 

6,71 

297A 

NINE 

ASSIGN 

6,72 

2975 

FREE  MIRY 

ASSIGN 

6,73 

2976 

FREE  EXIT 

ASSIGN 

6 , 7 A 

2977 

SAPO  MTKY 

ASSIGN 

6,75 

2978 

PI  masks 

ASSIGN 

6,76 

29  79 

END  PARAS 

assign 

6,77 

2980 

end  y jl 

ASSIGN 

6,78 

2981 

disaster 

ASSIGN 

6,81 

2982 

GRAB  FREE 

ASSIGN 

6,83 

2983 

FREE  INSV 

ASSIGN 

6,91 

298A 

SET  FREE 

ASSIGN 

6,95 

2985 

L STD3PER 

EQUALS 

C.AC3  P 

29851 

L COMMON  P 

equals 

L EORVF  M2 

29852  L ANA'  , SYM  EQUALS  L EORvF  M2 


4 
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P29B6  decision  process  upon  ihe  record  in  thl  buffer  whose  address  is  in  x2.  some  explanation  is  called  for  A30JT  the 

*2988  INDEXED  SPECIAL  REOISIt*  ADDRESSES  ON  THIS  PAGE  O'  AND  PAGe  6.  THeY  ARE  IN  PRACTICE  INDEXED  INDIRECT  MEMORY 
m *2990  ADDRESSES.  AND  ARE  RESPtCT I VeLY  A 3-WAY  AND  A 2-WAY  BRANCH. 

*2991  I F T rl - R t ARE  NO  DELETES  AND  THE  TASK  IS  NJf  A PRO 3* AM  ASStM3|  Y,  THEN  ALL  OF  SYPT  CAN  b£  PASSED  BY.  IN  fHIS  CASE 
. R2993  X5  CONTAINS  Gb,*2  (W1IH  JAB  BIT),  SO  THAT  5.Z.0  = N,R2  = DO  DELETE.  THE  ADDRESS  5,Z,1  IS  NOT  USED. 


R2995  IF  TH'RE  ARe  NO  DELETES  AND  THE  TASK  IS  A PROGRAM  ASSEMBLY,  tHeN  SYPT  RECORDS  MIGHT  Be  EXAMINED  FOR  WANteDNeSS. 

*2997  HtRE  C(X5>  = GB.R4,  SO-  THAT  S,Z,0  = N ,R4  = wANTpROG.  AGAIN,  5,Z,1  IS  NOT  uSED. 


*2999  IF  TH-*E  ARe  DELETES  AND  jHe  TASK  IS  NOT  A PROGRAM.  ASSEMBLY,  THeN  SYPT  RECORDS  MUST  Be  EXAMINED  FOR  DELATION 

*3001  ONLY.  HERE  C(X5)  = -GO ,R3 , SO  THAT  5,Z,0  = N,R3  = DELETED,  THEN  5,2,1  IS  ACTIVE  IF  THE  RECORD  IS  NOT  DELETED 

*3003  AND  = N,R2  = DO  DELETE  UR  DO  SAVE. 


R300A  if  th-Re  are  deletes  and  the  task  is  a program  assembly,  then  sypt  records  must  be  examined  first  for  d-letion 

R3006  AND  second  FOR  WANTEpNE^S.  HERE  C(X5)  = *GB ,R3  . su  TrAT  5.Z.0  = N.R3  = DELETED,  THEN  5.Z.1  Is  ACTlVt  IF  THE 


*3008 

R3009 

RECORD  IS 
analogous 

NOT  DELETED  AND  = N,R4  = WANTPRDG. 

rules  govern  sylt  records  in  subroutine  *tVisioNS.  except 

THAT  IN  SYLT,  N,R2  = DO  SAVE  ALWAYS. 

3011 

END  FILE  0 

LA 

N»X2 

CAC  3 P 

5 * Z , 0 

BRANCH  IF  NOT  END  OF  FILE. 

3013 

TS 

C,  + l 

END  FILE  D *1 

END  SYPT 

30 1 A 

TS 

GOT  EOFRI 

end  file  a ,1 

END  SYLT 

3015 

gut  edfri 

TS 

L STOPPER 

Z*Xi 

END  3YPT 

3016 

delete  0 

TX 

9 

- 

Z,XO 

LOOK  THROUGH  ENTIRE  DELETE  LIST  IF  T HE*E 

3018 

TS 

TAPRO  NAM 

6 

C,  + 2 

ARE  ANY  DELETES  WAITING. 

3020 

sws » 

B38T43 

N »X0 

0 

Z,XO 

3021 

NA 

N.XO.i 

TAPRO  NAM 

C,-l 

3022 

NA 

z,xo 

L END  THR  1 

REAL  DELf  -2 

BRANCH  IF  MATCH  ON  NAME  WAS  REAL. 

3024 

LA 

N,X2 

C5T8  P 

5 ,Z,  1 

FOUND  END  OF  DELETE  LIST,  SO  GO  TO  INPUT 

3026 

LA 

LHS 

C5T8  P 

5,Z,l 

OR  SAVE  RECORD  IF  COMPUTER  NAME  IS  VOID 

3028 

TX 

Z,R2 

Z.SC 

OR  OK,  OTHERWISE  ALWAYS  SAVE  IT. 

3030 

LA 

~N,X2 

C5 T 8 P 

REAL  DELf 

ASSUME  MATCH  IF  COMPUTER  NAME  IS  VOID. 

3032 

NA, 

C1T4 

TAPCO  NAM 

0,0 

delete  a *2 

look  at  next  delete  name  if  wrong  comp. 

3034 

REAL  DELE 

TS 

L DO  DELET 

z.sc 

savemode  -1  c 

SWITCH  FROM  PASS  TO  SAVE  MODE  I?  NEEDED. 

3036 

WANT  PROG 

NA 

TAPRO  NAM 

wanted 

N,R2 

BRANCH  TO  SAVE  UNWANTED  RECORD. 

3038 

TS 

- 

SAVE  MOOF  -1  C 

3039 

VERSION  0 

NA, 

B I T 12  R 

switch 

7 

DO  INPUT 

BRANCH  IF  RECORD  IS  NOT  VERSION  INPUT. 

3041 

TS 

- 

- 

DO  INP  SAV 

* 
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P3Q42 

PROCEDURE  1 

FOR  THE  END  OF 

THE  SYPt 

(SYMBOLIC  YOL 

PROGRAM  TAPpi. 

T 

3043 

END  SfPT 

SSL  » ID12 

Z.X5 

0 

C,-l 

ENSORE  WANTEONESS  CHECK  OORING  SYLT. 

3045 

SM 

Z*X5,2 

Z , SL , 1 

- 

CHANGt  GB,R2  TO  GB ,R4. 

r 

3047 

SM 

Z,X  5 

SPEC  SGN  P 

Z,X5 

CHANGE  -GB ,R3  TO  +GB,R3. 

3049 

TS 

N,X2 

EOF  BANER 

SAVE  MODf  -1 

C 

HIDE  END  SYPT  FROM  WWT , GO  TO  SAVF  MODE. 

3051 

TS 

L PROG  FIL 

Z , X A 

FIND  SOBS 

C 

POINT  TO  NAME  OF  1ST  POSSIBLE  S jBRO. 

3053 

NA,  PROG  SOB 

SWITCH 

7 

ONWASSL 

TEST  PROG/SOB  bll  WHEN  NO  <OTH£R>  SOBS. 

3055 

NA,  PROG  5JB 

SWITCH 

zero 

ITS  A SOnR 

TEST  PROG/SOB  blj  WHEN  THERE  ARr  SJJBROS. 

m. 

305? 

IISA  PROG 

TX 

L SUBKNU  0 

Z,R4 

SET  OP  WAIT  FOR  SOBROS  OF  THIS  COMPOTER. 

3059 

TS 

N , X** 

LIST  NAME 

JNwASSu  *1  _ 

point  to  first  subroutine  of  computer. 

r 

3061 

IISA  SUBR 

SSL,  ONE 

SWITCH 

46 

ONWASSL 

OMIT  WANT  UOESllON  IF  NOT  MERGING. 

3063 

UNWAS5L 

SSL*  012 

Z ,X5 

0 

ONWANT  -3 

C 

3064 

NA 

NEXT  NAME 

W £N0  SYPT 

C,  + Z 

3065 

NA 

Z,S1 

ZERO* 

DO  ALT  OP 

MAYBE  AWAIT  DISC  XFER  HERE  IF  PROGRAM. 

w 

3067 

TS 

N , X** 

L1S1  NAME 

DO  SAVE 

3068 

UNWANI 

HA 

Z,X5 

SPEC  SGN  P 

Z*X5 

CHANGE  *-GB,R3  TO  -GB  »R3 , 

r 

3070 

WO 

Z,X5 

TWO 

Z,X5 

change  gb,R4  to  Gb *r2. 

3072 

F 1 NO  SOBS 

SWS , THREA  D 1 U 

A , 1 

0 

Z,X4 

C 

SOBROOTINE  TO  FIND  SObROOTINE  NAMES... 

T 

3074 

LA , B I T 36R 

4,1 

ZERO 

C,-l 

c 

SOBS  FOR  THIS  MACH.  ONLY  ON  T HI  5 THREAD. 

3076 

LA 

Z , X** 

L ENO  THR 

1 N , SC  , 1 

c 

BRANCH  IF  ONLY  END  OF  LIST  WAS  -OUND, 

3078 

TS 

Z,SC,1 

- 

- 

EXIT  SKIPPING  WITH  NAME  FOOND  VIA  X4. 

3080 

SUB  CALL  U 

LA*  ONE 

4,1 

ZERO 

FIND  S03<; 

c 

y 

3081 

SOB  < MOW  (j 

NA 

TAPRO  NAM 

LISI  NAME 

N,R2 

bypass  records  ontil  ist  possible  sobro. 

3083 

LA, KNEW  SJ'3S 

SWITCH 

zero 

DO  ALT  OP 

WAIT  FOR  SOBROS  TO  BE  ACC00NTED  FDR, 

9 

3085 

TS 

SOB  CALL  0 

FIND  SOBS 

♦1  FIND  SOBS  *1 

r 

LOOK  FOR  NAME  OF  1ST  CALLED  SOBRO. 

3087 

TS 

Z ,R2 

Z * SC 

ONWASSL 

r 

SAVE  REST  OF  SYlT  If  NONE. 

9 

3089 

NA 

NEXT  NAME 

W ENO  SYLT 

C , + 2 

3090 

TX 

N,X4 

- 

NEXT  NAMf 

SPECIFY  LOCATION  OF  TAPE  bREAK. 

9 

3092 

TX 

L GET  SOBS 

- 

Z,R4 

SET  OP  SEARCH  FOR  SLAVE  SOBROOTINES. 

30  9** 

SEE  NEXT 

NA 

TAPRO  NAM 

N,X4 

N,R2 

SAVE  IF  NOT  1ST  REC.  OF  NEXT  WAITED. 

3096 

SS 

zero 

ONE  P 

4,1 

REMOVE  CALL  BIT  FROM  SUBROUTINE  NAME. 

r 

3098 

TS 

N,X** 

wanted 

FIND  SOBs 

C 

SET  NEXT  AS  WANTED  AND  SEEK  NEXf  SLAVE. 

3100 

TX 

WANT  PROG 

• 

GET  SOBS 

CHECK  WANT  ONLY  IF  NO  MORE  SUBRdS, 

9 

3102 

GET  SOBS 

NA 

TAPRO  NAM 

wanted 

SEE  NEXT 

BRANCH  IF  NOT  OF  CURRENT  SUBROUTINE. 

310** 

TS 

L 00  1NSAV 

z*sc 

SAVEMOOE  -1 

c 

DO  BOTH  INPUT  ANd  SAVE. 

7 R3106  PROCEDURE  FOR  THE  END  UP  THE  SYLT  (SYMBOLIC  YUL  LIBRARY  TAPE)# 


3107 

END  SYLT 

TS 

INI T X5 

Z * X3 

SAVE  MODE  -1 

c 

RESTORE  CRITERION  FOR  WAN] EDNESS  CHECK 

3109 

NA 

Z,S1 

ZERO 

DO  ALT  Dp 

MAYBE  AwAIT  end  of  disc  XFER  IF  SjBRD. 

3111 

TS 

z,sc 

Z*R4 

DO  INP  SaV 

SET  UP  BYPT  PROCEDURE. 

f 
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P311202  PROCEDURE 

TO  ADD 

' the  owner's  symbol 

T ABLE  to  a SEGMENT' s symbol  table. 

311204 

NA 

TAPRU  NAM 

SEo  OWNER 

OLD  3 1 NO 

BRANCH  IF  NOT  AUTHMeMO  OF  SeG'S  OWNER. 

31121 

TX 

L EOKVF  M2 

- 

2r ADI  _ 

311213 

NA 

N«AUl 

ZtRJ 

C,-l 

WAIT  UNTIL  PASS  1 IS  DONE  WITH  SYM  TAB. 

311219 

TS 

Z,SC 

Z,R4 

DO  SAVE 

SAVE  AUTHMEMO  AND  PROCESS  SYM 1 A 3 3EL0W. 

311225 

LA 

TAPR0  NAM  +1 

CAC3  P 

OLD  31  NO  -1 

BACK,  to  NORMAL  WHtN  A PARAGRAPH  COMES. 

311231 

TN 

Z*X1 

5 

SAVE  XSP 

3 1 1 232*FL  I P HXR 

HA 

Z.MXR 

ONE  P 

Z.MXR  S 

311234 

wA 

Z,X2 

THREE  P 

Z,X4 

X4  POINTS  TO  1ST  SYMBOL  IN  RECORD. 

31124 

WA 

Z,XA 

OCT  400 

END  SYMBf 

END  SYMBF  POINTS  TO  FIRST  ORTHOwORD. 

311246 

SWE, 

CAC3 

L COMMON  P 

16 

2, XI  ___  _ _ 

311249  StS  SYM8S 

TX 

N * X4  * 1 

COMMON 

311252 

swe. 

CAC3 

L ANAl  SYM 

32 

2.  CSC £ 

ANALYZE  HiSTORY  OF  SYMBOL* 

311258 

LA 

COMMON  *2 

CAC3  P 

C » ■*■  3 

BRANCH  IF  SYMBOL  IS  UNDEFINED. 

311264 

SM 

N,X2 

D4T«  P 

N,X2 

OTHERWISE  IT'S  IN  MISCELLANEOUS  TROUBLE. 

3112  7 

TS 

Z.X4.1 

- 

C , + 2 

311273 

SS 

N »X4 » 1 

D4T8  P 

N,X2 

SUPPLY  HEALTH  AND  DEFINITION  FROM  OwNER. 

311277* 

LA 

ones  p 

N , X 4 

C , + 2 

3112  1 9 

NA 

Z,X  4 

FND  SYMBF 

SEG  SY  M3<; 

311282 

TN 

SAVE  ASP 

5 

Z,X1 

311285* 

TS 

L DO  SAVE 

Z » SL 

FLIP  MXR  C 

SAVE  tAcH  SYMBOL  TABLt  RECORD. 

311291 

TS 

z,sc 

Z,R4 

DO  SAVE 

SAVE  FIRST  PARAGRAPH,  CONTINUE  BELOW. 

3113  OLD  3 I N J 

NA 

TAPRO  NAM 

PRO-J  NAME 

DO  SAVE 

SAVE  LOAD  DECK  UNLESS  OF  PROG  3^1  NG  R£V. 

P3 1 1 5 DISPOSITIONS  OF 

RECORDS 

FROM  TAPE  1. 

"SLctP"  means 

"DO  DISC  (TRANSFERRED)  INPUT  IF  NECESSARY,  OTHeRwISt  SLeeP". 

3116  DU  DELETE 

LA 

Z.X3 

ZERO 

RD  NEXT 

simply  read  again  if  no  remote  coming. 

3118 

TX 

Z,X3 

- 

z,xo 

SWAP  NEXT  and  REMOTE  BUFFERS. 

3120 

TS 

Z,X2 

z , X 3 

PHI  TAPE 

3121 

RF  * 1 

3,0 

DISASTER 

READ  A NEW  REMOTE. 

3123 

TS 

Z,XO 

Z,X2 

RD  REMOTf  *2 

3126  DU  IV  SAV 

NA 

N,R5 

ZERO 

DO  ALT  OP 

GO  TO  SLEEP  IF  JOINT  LIST  IS  FJ_L. 

3128 

TX 

Z ,X2 

N ,R5 , 1 

PUT  BUFFER  INTO  JOINT  STATUS. 

3130 

SM 

Z.R5 

BIT  46 

2 ,R5 

MODULATE  JOINT  LIST  ENTRY  POINTER. 

3132 

TX 

N*SC» l 

• 

REMOTE  0 -1 

CALL  FOR  SAVE  AFTER  INPUT. 

3134 

TS 

zero 

REMOTE  Q -1 

DO  SAVE 

3135  DU  IVUT 

NA 

N,R6 

ZERO 

DO  ALT  OP 

GO  TO  SLEEP  IF  INPUT  LIST  IS  FJWL. 

3137 

TS 

Z ,X2 

IN  , R 6 , 1 

MON  WA<E  C 

PUT  BUFFER  INTO  INPUT  LIST,  WAV  pASS  1. 

3139 

sws. 

B1T45R 

Z,SC,5 

16 

Z,R6 

MODULATE  INPUT  LIST  ENTRY  POINTER*  SKIP. 

3141 

LA 

N ,R7 

ZERO 

C , + 3 

BRANCH  IF  SAPO  LIST  NOT  FULL. 

3143 

TS 

Z,SC,1 

- 

DO  ALT  Op 

OTHERWISE  SLEEP  UNTIL  THERE'S  A VACANCY. 

3145  DU  SAVE 

TS 

SAPO  NTRY 

Z * R Y 

C , -2 

3146 

TS 

Z,X2 

N , R 7 , 1 

- 

PUI  SAVE  BUFFER  INTO  SAPO  STA1JS. 

3148 

SM 

Z,R7 

BIT  46 

SAPO  NTRy 

MODULATE  SAPO  LIST  ENTRY  POINTER, 

3150 

PR 

L 
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H3 1 5 1 

procedure  ^mer  Disposition  of  each  buffer. 

3152 

REMOTE  U 

la 

Z.X3 

ZERO 

CH  NEX  3uF 

GO  FOR  A bUFFEK  IF  NO  REMOTE. 

3154 

IS 

Z,X3 

Z,X2 

CH  REM  3UF  _ 

_ CHANGE  REMOTE  TO  NEXT,  GO  FOR  R-MPTE. 

3156 

CH  NE<  BUF 

TS 

Z.SC 

z.csc 

GRAB  FREE 

C 

315? 

TS 

Z.AUl 

Z,X2 

C,*l 

S 

ACUUIKE  A FREE  BUFFER. 

3159 

RU  NEXT 

TS 

Z.X  2 

Z , X 3 

PHI  TAPF 

SET  UP  DOUBLE  TRY  FOR  REMOTE. 

3161 

RF.l 

2,0 

- 

DISASTER 

3162 

CH  R£M,  BUF 

LA 

Z,Si 

ZERO 

GRAB  REM  -1 

BRANCH  IF  NO  DISC  TRANSFER  INPUT  TO  DO. 

3164 

TS 

Z.5C.5 

DO  ALT  Op 

3165 

REM  3 JF  OK 

NA 

N,K7 

BIT  32 

GRAB  Rem 

BRANCH  IF  WE  HAVE  A bUFFER  FUR  REMOTE. 

3167 

LA 

Z,X3 

ZERO 

RD  REMDTF  ,-2 

GIVE  UP  AFTER  2ND  FAILURE  AT  REMOTE. 

3169 

TS 

ZERO 

Z.X3 

PHI  TAPE 

3170 

RF.l 

- 

• 

disaster 

_ 3171 

TS 

FREE  EXIT 

Z , R 7 

Rem  buf  nK 

second  try  for  a remote  buffer. 

3173 

GRAB  REM 

TS 

N ,R7 

Z.X3 

GRAB  NAME  OF  REMOTE  BUFFER. 

3175 

TS 

BIT  32 

N , R 7 , 1 

• 

PLANT  BUSY  F LA(j  IN  pREE  LIST. 

3177 

EX 

Z,R7 

BIT  45  NOT 

FREE  EXIt 

MODULATE  FREE  LIST  EXIT  POINTER. 

3179 

RU  REMOTE 

TS 

- 

- 

PHI  tape 

3180 

RF.l 

3,0 

- 

DISAS1 ER 

3181 

NA, 

PROS  SJB  SWITCH 

ZERO 

SAVE  MODf  *2 

ALWAYS  CUT  TAPE  AT  BEGINNING  IN  PROGRAM 

3183 

TS 

L DO  SAVE 

Z,R2 

SAVE  MODE  +1 

ASSEMBLY.  NOTE  SEQUENCE  MODE  CALL  HERE. 

3186 

CC 

N,X2 

- 

LHS 

3186 

NA 

LHS 

ZERO 

DISASTER 

3187 

NA 

LHS  +1 

ZERO1 

disaster 

BRANCH  IF  INCOMING  RECORD  HAD  3AD  ORTHO. 

3189 

WA 

REC  COUNT 

ONE  P 

REC  COUNT 

3190 

NA, 

CAC3R  2,0 

REC  COUNT 

disaster 

BRANCH  IF  IT  HAD  BAD  RECORD  NUMiER. 

3192 

LA 

N,X2 

C5TB  P 

END  FILE  0 

IF  NO  COMPUTER  NAME,  SEE  WHETHER  EOF. 

3194 

HA 

N,X2 

COMPUTER 

LHS 

FORM  LEFT-HALF  ZERO  IF  NAMES  MATCH. 

3196 

LA 

LHS 

C5T8  P 

5,Z,0 

IF  OK  COMPUTER  NAME.  DO  3-WAY  3 RANCH. 

3198 

NA 

5 , Z , 0 

N,R4 

5 ,Z  ♦ 0 

OTHERWISE  DO  ANYTHING  BUT  INPUT, 

3200 

TX 

Z ,R2 

• 

z,sc 

...WHICH  FOR  WRONG  COMPUTER  BECpMES  SAV. 

R3202 

close;  subroutine  to  change  from  i 

PASSOVER  TO  SAVE 

mode  for  Nominally 

SAVE  RECORDS. 

3204 

NA 

Z.R2 

L DO  DELET 

N,SC,1 

C 

3205 

SAVEMOOE 

TX 

L DO  SAVE 

- 

Z,R2 

C 

SAVES  HEREAFTER  ARE  WRITTEN  ON  TAPE  3. 

3207 

SWE, 

SPECMAG  N,X2 

0 

MID  POINT 

RECORD  NO.  OF  1ST  RECORD  WRITTEN  OVER. 

3209 

TN 

RD  REMOTE 

♦4  10 

RD  REMDTf  *2 

DO  that  test  on  first  record  on.y. 

3211 

TS 

* 

RD  REMDTf  +2 
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P3212  PROCEDURE  AFjtR  BYPT  IS  RtAD,  TO  POSIIION  TAPe  1 Al  THE  FIRST  ReCoRD  THAJ„WAS  INPUT  OR  DeLETED.  R£-ORD 

R321A  numbe^i  <eft  in  midpoint  and  that  of  the  eufri  Record  are  used  to  determine  the  optimum  way  of  positioning,  cqn- 

H3216  sideRIng  all  records  to  have  euual  length  and  that  records  are  Rewound  over  three  times  as  fast  as  read  over. 


R3218 

R3220 

if  bit  n 

ERROR  has 

OF  switch  is 

BEEN  FOUND. 

found  to  be  on 

IN  THESE  CASES 

before  or 

» yjlProgs 

during  positioning. 
WILL  NOT  BE  WRITTEN 

either  the  t ask  is  a reprint*  or  a herding 
on,  so  rewind  and  forget  positionins. 

3222 

3223 
322A 

END  3YPT 

TS 

RF.l 

LA. 

Z,X3 

_zeru 

PHI  TAPE 

_ C , ♦ 2 _ 

branch  if  there  is  no  remote. 

3226 

TS 

Z,X3 

z.sh 

SET  FREE 

C FREE  REMOTE  EOFRI  BUFFER. 

3228 

TS 

c,*l 

remote  q 

DO  INP  SaV 

TRANSMIT  EOFRI  RECORD. 

3230 

IS 

- 

• 

C.*i  _ . 

3231 

WD 

N.X2 

MID  POINT 

Z , S3 

form  count  for  backwards  run. 

3233 

LA 

Z.X3 

zero 

C.  + 2 

BRANCH  IF  THERE  WAS  NO  REMOTE  3JFFER. 

3235 

WA 

Z , S3 

ONE  P 

Z , S3 

INCLUDE  2ND  EOFRI  IN  BACKSPACE  COUNT, 

3237 

WA 

MID  POINT 

MID  POINT 

LHS 

3238 

END  Pi  RB 

SSL,  ONE 

SWITCH 

37 

_ c,  + i 

_ - omit  test  if  bit  u is  on. 

32  AO 

LA 

Z.S3 

LHS 

B<  SPACE 

BRANCH  IF  BACKSPACING  IS  bETltR. 

32  A2 

END  Pi  RW 

TS 

MID  POINT 

Z . S3 

_ P^li  IAP£ 

32  A3 

RW » 1 

- 

32  AA 

WA 

Z.S3 

ONE  P 

Z.S3 

FORM  COUNT  FOR  READING  FORWARD. 

32A6 

END  Pi  RF 

SSL.  ONE 

SWITCH 

37 

C,  + l 

32  A7 

TS 

Z.SC.A 

PHI  TAPE 

32  A8 

LA 

MID  POINT 

Z . S3 

C , + 2 

32  A9 

TS 

- 

- 

END  PI  Rw 

IF  REWIND  WAS  NOT  DONE,  GO  TO  DO  IT  NOW. 

3251 

NA 

MID  POINT 

Z t S3 

dead  stop  -i 

OTHERWISE  NO-HUNT  FROM  BI1  TEST  TO  STOP. 

3253 

TS 

- 

- 

end  pi  rw 

325A 

RF  , 1 

1.0 

DISASTER 

3255 

NA 

Z » S 3 * 1 

ONE  P 

END  Pi  Rf 

3256 

BK.  SPACE 

TS 

• 

phi  TAPE 

3257 

RB.l 

1.0 

- 

DISASI Er 

3258 

NA 

Z.B3.1 

ZERO 

END  Pi  Rr 

GO  TO  REWIND  AND  HALT  IF  BIT  11  IS  ON. 

3260 

TS 

ZERO 

Z . S3 

Phi  TAPE 

PLAY  SAFE  ABOUT  M0D3  CHECK  BUS. 

3262 

RB.l 

* 

- 

DISASTER 

FINAL  DUMMY  READ  FOR  POSITIONING. 

326A 

SWS.  CHARI 

ZERO 

0 

END  PARAS 

R3265 

final  instruction  for 

PARAPROoRAMS. 

3266 

DEAD  STOP 

TS 

Z.RO 

z.sc 

MON  WA<E 

c wake  others  and  go  back  to  bed. 

L 

&YUL  SYSTEM 
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PJ268 

PRDCfDURE  to  input  carp 

IMAGES  TO 

PASS  FROM  A 

FILL  on  THE  Disc 

INSTFAD  OF  FROM  TAPf.  THF  FILf  MUST  -l,AVF  BffN 

R3270 

PUT  ON.  THE 

DISC  BY  A [KMNSFER  TASK 

. the  result 

Or  A "IRANSFERRED 

ASSEMBLY”  IS  A NEW  PROGRAM  OR  SUBROUTINE. 

R3272 

CUNST  ANTS » 

reservation,* 

AND  EQUIVALENCES. 

3273 

3274 

3275 

UO  I N A 
OUT  IOOO 
8 BLOK 

PR 

OCT 

OCI  . 

130 
-1000 
0000  0010 

3276 

SNATRA.CK 

DEC 

-31 

3277 

Dl-  INC  MSG 

ALT  * 3 

DISC  FILE 

INCOMPLETE  U) 

3278 

END  RJUNs 

ALP  * 5 

0999999U 

RUINS  UF  INCOMPLETE  DlsCFILE 

3279 

DISC  3UT  1 

CAC 

XFR  BEGXN 

13288 

3280 

3281 

DISC  3UT  2 
TRINDEX 

SPEC 

RESERVE 

15 

13800 

3282 

L XFiR  BEGN 

EQUALS 

DISC  BUF  1 

3283 
32  86 

MOVE  RECD 

RT 

NA 

N.AUl 
DISC  ADDR 

discalim 

N.S3 

Read  PB2 

MOVE  RECORD  FROM  Dl SCBUF2  TO  DIsCSUF  1. 

branch  unless  just  exhausted  a track. 

3287 

3289 

XPR  3EG1N 

DS 

SWS*  C1T4 

TRACK  LOG 
TRACK  LOG 

one  p 

_D  , 6 * L 

TRACK  LOG 
TRINDEX  +2 

DECREMENT  log  no.  from  track  to  track. 

3290 

3291 
3293 

TS 

OCI 

SPEC 

ZERO 

-1 

DISC  ADDR 

DISCAP 

TRINDJEX 

c 

LOOKUP  TRACK  WITH  KNOWN  LOG  NUM3ER. 

32  94 
3295 
3297 

StT  DTRAP 

TS.  B7T13 
TS 

NA.  C7T8 

TRINDEX  +6 
DF  INCUMP 
TRINDEX  *3 

DISC  ADDR 
DTRAP  LoC 
SNA  1 RACK 

C , +2 

DjRAP  LOC  -1 

C.-l 

set  up  cuss  for  incomplete  discfile. 

give  UP  QUICK  IF  FILE  IS  WRONG  TYPE. 

3299 

SWS.  B 7 T 1 3 

DISC  ADDR 

0 

DISCALIM 

3300 

Rt  AD  DB2 

TX 

DISC  BUF  2 

Z.xo 

3301 

3303 

3304 

S,  DISC  READ 

WA 

TX 

0,0 

DISC  ADDR 
SAME  8< 

8 

8 BIOX 

DISC  ADOr 
DISC  ADOR 

C.  + O 

READ  512  WORDS  FROM  DISC. 
(SPECIAL  INITIAL  STATE) . 

3306 

3308 

DIRAP  LOC 

NA 

NA,  C1T4 

N.Rl 

1.0 

ZERO 

EOR 

DO  ALT  OP 
SAME  b< 

DO  TAPE  OPS  IF  WAITING  FOR  DISC. 

BRANCH  IF  NOT  END  OF  QK-WORD  SJ:>ER-RECD. 

3310 

3312 

3314 

HA 

|_A,  B22T25 
TS 

C.-l 

C.-2 

DISC  BUF  2 

130  IN  A 
BIT  25  P 

z.xi 

C.-l 

MOVE  BA<  2 
SAME  8<  +1 

AUGMENT  IS  ALTERNATIVELY  0 AND  130. 
BRANCH  IF  ENp  OF  8K  BUT  NOT  ENO  OF  16K. 
AFTER  16K,  NO  INPUT.  THEN  MOVE.  READ. 

* 


4 


£ 

L 

gYUL  system 
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P3316 

EACH  512-WORD 

RECORD  ?R0M  UISC  HAS 

A Complete  26- 

CARD  INPUT  RECORD 

AND 

PIECES  OF  ONE  OR  TWO  MqRe . 

3318 

MOVE  3AK  2 

RT 

1 1 1 32 

1 1 130 

SINCE  TRANSFER  HAD  PUT  819  CARDS  IN  8<. 

3320 

TS 

FREE  EXIT 

Z , R 7 

XFR  INPJt 

INPUT  LAST  26  CARDS  JN  OLD  8K_, 

3322 

WD 

DISC  BJF  2 

TWO 

ZtAJl 

3323 

SM 

Z,X1 .2 

Z.SC.2 

* 

3324 

SAME  3< 

T 5 

FREE  EXIT 

Z t R 7 

XFR  INPJt 

INPUT  26  CARDS  (260  WORDS)  TO  PASS  1, 

3326 

TX 

DISC  BJF  2 

- 

Z » A J 1 

3327 

WD 

2, XI 

OCT  1000 

Z.X1 

BECAUSE  RECORD  IS  MOVED  BACK  512  WORDS. 

3329 

TS 

DISC  BJP  1 

Z t S3 

move  RECd 

CLEAR  OUT  DISC  BUF  2 FOR  NEW  DISC  READ. 

4* 

«3331 

SUBROUTINE 

TO 

DELIVER  26  CARDS  |0 

PASS  1 3Y  WAY  0 

F THE  input  list. 

3332 

XFR  INPUT 

TS 

ZtSH 

Z t S3 

.. 

3333 

NA 

N,R7 

BIT  22 

GRAB  XF£R 

BRANCH  IF  THERE  IS  A FREE  BUFFER. 

♦ 

3335 

DU  alt  up 

TS 

ZtSl 

ZtSC 

Ct  + 1 

C 

3336 

LA 

ZtSl 

2E.RU 

Ct  + 2 

_c 

branch,  if  not_doing  transferred  assy. 

3338 

WD 

ZtSH 

ONE  P 

ZtSl 

s 

SET  UP  Si  FOR  RETURN  AND  DO  OHeR  OP. 

£ 

3340 

WD 

Z *SH 

ONE  P 

z,sc 

c 

_ _ 3341 

TS 

z,  SC 

ZtCSC 

MON  SLEEP 

c 

3342 

GRAB  KFER 

rs 

NtK7 

Z t S2 

GRAB  REM  +1 

c 

3343 

TS 

D12  R 

Z t C SH 

c 

REMOVE  BUPjFbR  NAME  FROM  FREE  LI3T. 

3345 

XP  SET  AU2 

TN 

zero 

2 

N,S2 

s 

CLEAR  1ST  WORD  OF  265-WORD  BUFFER. 

3347 

MT 

NtXltl 

52 

N t A J2  1 1 

MOVE  260  WORDS. 

3349 

LA 

bIT  46 

Z t C SH  t 3 

C t-1 

3350 

TX 

END  RUINS 

Nt A J2  1 1 

SET  UP  SEARCH  FOR  "END  OF"  CARD. 

3352 

TS 

EOR 

NtAJ2 

XF  SET  Ai  12 

c 

MAKE  26A-WD  BUFF  LOOK  LIKE  ODD  TAPE  R£C. 

3354 

NA 

NtAuZtlO 

end  ruins 

C,  + 0 

3355 

WD 

Z t AU2  1 1 

NINE 

ZtAJl 

- 

3356 

NA 

N,AUl 

EOR 

END  DFILf 

BRANCH  IF  FOUND  THE  "END  OF"  CARD. 

3358 

DU  X INRUT 

NA 

N*R6 

ZERO 

DO  AL|  Op 

SLEEP  Or  DO  TAPE  IF  NO  ROOM  IN  INPUTLST. 

3360 

TS 

ZtS2 

NtRfttl 

mon  wa<e 

c 

PUT  BUFFER  IN  INPUT  STATUS,  wA< - PASS  1. 

3362 

SS 

ZERO 

BIT  46 

Z,R6 

MODULATE  INPUT  LIST  ENTRY  POINTER. 

3364 

NA 

Z * S3 

Z,S1 

N , S3 

EXIT  UNLESS  JUST  SENT  LAST  INPUT. 

3366 

NA 

NtRl 

ZERO 

DO  AL1  Op 

SLEEP  OR  DO  TAPE  UNTIL  DISC  READ  DONE. 

3368 

TS 

ZERO 

ZtSl 

N * S3 

sHow  end  of  disc  ops.  exit. 

3370 

END  DFILE 

TX 

EOR 

N,AJ2 

SHORTEN  BUFFER  CONTAINING  "END  0F»  CARD. 

3372 

TS 

z,si 

Z,S3 

DO  X INPUT 

set  flag  and  do  last  input. 

3374 

DP  INCOMP 

St 

MON  TY3£K  DF  INC  MSG 

SPRA  +24 

Ct  + 1 

"discpile  incomplete  <?)". 

3376 

TN 

END  RulNS 

5 

N.Xl 

3377 

TN 

trindex 

2 

N,AJ2 

PHONY  UP  AN  "END  OF"  CARD. 

3379 

SWS 

■t  BIT  11  ONE  P 

11 

SWITCH 

CALL  THIS  ASSEMBLY  A REJtCT. 

3381 

TS 

END  YUL  +2 

END  YOL  +1 

SAME  B< 

SET  FLAG  FOR  END  OF  RD1 • 

3 
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K3385  THIS  PAPA JROGRAM  IS  OPERATED  BY  GROJP  C LURING  PASS  ] AND  WRITFS  SYPT  AND  SYLT  5AVf  RfCORDS  ->N  TAPp  ? 

R3387  AND  3YP I SAVE  RECORDS  UN  TAPE  A.  KEEPING  I HE  ORIGINAL  BAMNeRS.  WwT  ALSO  WRITES  POPO  kECORDS  ON  TAPE  2.  AT  HE 
R3389  END  OF  PASS  1.  TAPES  2 AND  3 ARE  REWOUND. 


3390_ 

IS 

MON  SLEEP 

_c 

3391 

CH  SP  LIST 

LA 

N,R6 

ZERO 

C,-l 

GO  TO  SLEEP  IF  SAPO  LIST  IS  EM=>TY. 

3393 

TX 

N»R6 

- 

Z,X2 

RECEIVE  NAME  OF  SAPO  BUFFER. 

3395 

TS 

zero 

N , R 5 , 1 

MON  ^A<£ 

c 

PLANT  VOID  FLAG  IN  SAPO  LIST. 

3397 

SM 

Z.R6 

BIT  A6 

Z,R6 

MODULATE  SAPO  LiST  EXIT  POINTER. 

3399 

LA 

N,X2 

zero 

WRIT  POPo 

BRANCH  IF  SAPO  IS  A POPO  BUFFER. 

3A0 1 

TS 

TRY  PO  REM 

CH  SP  LIST 

PHI  TAPE 

SET  REMOTE  SWITCH  TO  POPO. 

3A03 

WRITE  SAV 

WF  * 3 

2,0 

- 

DISASTER 

3A0A 

LA 

Z,X3 

ZERO  _ . 

C , + 2 _ 

BRANCH  IF  THERMS  NO  SAVE  REMOTE. 

3 A06 

TS 

Z,X3 

Z » SH 

FREE  IN  sV 

r 

FREE  SAVE  REMOTE. 

3A08 

LA,  C5T8 

2,0 

EOF  BANER 

LAS2REM1 

BRANCH  IF  NOT  END  SYLT  OR  END  3YPT. 

3A 1 0 

WA 

WRITE  SAV 

BIT  6 P 

WRITE  SAV 

CHANGE  TAPE  3 TO  TAPE  A, 

3 A 1 2 

TS 

ZERO 

Z , X 3 

PHI  TAPE 

3 A 1 3 

wF  , 3 

2,0 

- 

DISASTER 

WRITE  END-OF-FILE  RECORD  AGAIN, 

3 A 1 5 

WA 

DUMMY  SAV 

BIT  6 P 

DJMMY  SA\/ 

3 A 1 6 

TS 

WRITE  SAV 

C.-2 

PHI  TAPE 

3 A 1 7 

WF  .3 

- 

- 

disaster 

3 A 1 8 

FREE  EOF 

TS 

Z.X2 

Z.SH 

FREE  IN  sV 

c 

free  end-of-file  buffer. 

3A20 

TS 

DUMMY  SAV  ' 

C * -2 

PHI  TAPE 

3A21 

RW  * 3 

- 

- 

• 

3A22 

TS 

C , + 1 

FREc  EOF  +1 

CH  SP  LIST 

CHANGE  POST-EOF  ACTION  AND  LOOP, 

3A2A 

TS 

zero 

W3 A WAIT 

WR2  WAIT 

END  OF  W3A  SECT  ION  OF  WWT. 

3A26 

SAV  remot 

LA 

Z.X3 

ZERO' 

CH  SP  LIST  -1 

GO  TO  SLEEP  IF  NEITHER  TYPE  OF  REMOTE. 

3A28 

la 

Z.X3 

ZERO 

PO  REMOT 

BRANCH  If  no  save  remote. 

3A30 

TS 

TRY  PO  REM 

CH  SP  LIST 

PHI  TAPE 

SET  REMOTE  SWITCH  TO  POPO. 

3A32 

DUMMY  SAV 

WF  ♦ 3 

- 

• 

DISASTtR 

3 A 33 

TS 

Z,X3 

Z.SH 

FREE  IN  t;V 

r 

3 A 3A 

TS 

ZERO 

Z.X3 

CH  SP  LIsT 

FREE  SAVE  REMOTE  6 SHOW  LACK  HEREOF. 

3A36 

TRY  SA  REM 

LA 

N,R6 

ZERO- 

SAV  REMDt  +1 

BRANCH  IF  SAPO  LIET  IS  EMPTY. 

3A38 

LAS2REM1 

TS 

Z *X2 

Z * X 3 

CH  SP  LISI  _ 

L 

P3A39 

©YUL  SYSTEM 

procedure 

ASSEMBLER  3 ar a PASS  1 

IN  PARAPROSRAM  wWT  TO  DISPATCH  A PQPQ  BUFFER. 
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3AA0 

3AA2 

WRIT  30P0 

TS 

wF  .2 

TRY  SA  ReM 
2,0 

CH  sp  LIST 

PHI  TAPE 
DISASTER 

set  remote  switch  to  save. 

3AA3 

LA 

Z,XA 

zero 

C , + 2 

BRANCH  IF  THERE  IS  NO  POPO  REMOTE. 

3AA5 

TS 

Z.XA 

Z,SH 

set  free 

s. 

FREE  POPO  REMOTE. 

3AA7 

NA 

2,2 

. W END  PQPQ 

LAS2Rev'2_ 

BRANCH  IF  NOT  END  OF  TAPE, 

3AA9 

TS 

zero 

Z.XA 

PHI  TAPE 

3^50 

wF  .2 

- 

- 

- disaster 

3A51 

TS 

Z , X 2 

Z,SH 

SET  FREE 

c 

FREE  END  POPO  bUFFER. 

3A53 

TS 

TRY  SA  REM 

CH  5P  LIST 

PHI  TAPf 

Set  remote  swiich  to  save  mode. 

3A55 

RW » 2 

- 

- 

- 

3A56 

TS 

WR2  WAIT  +1 

WR2  WAIT 

W3A  WAIT 

END  OF  WR2  SECTION  OF  WWT. 

3A58 

PU  RE'IOT 

LA 

Z , X A 

zero 

CH  SP  LkT  .-I 

BRANCH  IF  NEITHER  TYPE  OF  RfMOT-. 

3A60 

LA 

Z,X  A 

zero 

SAV  REM3T 

BRANCH  IF  THERE  IS  NO  POPO  REMOTE. 

3 A 62 

TS 

TRY  SA  ReM 

CH  SP  LIST 

PHI  TAPE 

SET  REMOTE  SWITCH  TO  SAVE  MODE. 

3A6A 

wF  * 2 

- 

» 

DISASTER 

3A65 

TS 

Z ,XA 

Z.SH 

SET  FREE 

c 

3 A66 

TS 

zero 

Z , X A 

CH  SP  LUT 

FREE  POPO  REMOTE  6 SHOW  LACK  THEREOF. 

3A68 

try  P3'  Rem 

la 

N,R6 

ZERO 

PO  REMOT  + 1 

branch  If  SApo  Ll ^T  IS  empty. 

3 A 70 

LAS2REM2 

TS 

Z,X2 

Z , X A 

CH  SP  LIST 

LAST  POPO  BECOMES  POPO  REMOTE. 

3A72 

W3 A WA.II 

TS 

- 

- 

CH  SP  LIST 

3A73 

WR2  W A I T 

TS 

- 

- 

CH  SP  LIST 

3A7A 

TS.  CAC3R 

zero 

END  PARAS 

DEAD  STOP 

3A7A5  *PARA  sACH  RESERVE  10 


R3A75  INITIALIZING  SEQUENCES  FOR  PAR APROGRAFiS . 


3A77 

3A79 

3A81 

PASS  1 

GPB 

HA 

TN 

eba 

Pi  MASKS 
SuBST  RAb 
Z ,X7 

ONE  P 
2 

BIT  A6 

Z,MXR 

trindex 

Z,xi 

SIDE  grps  use  same  s.  inverse  f as  gp  a. 
DISC  FILE  name  Op  TRANSFERRED  IMPJT. 
PRETEND  Xl  IS  LOOKING  AT  AN  END-BJFPLAG. 

3A83 

3A85 

3A86 

TN 

SSL,  ONE 
TS 

L DO  DELET 

SWITCH 

ZERO 

5 

35 

Z,S1 

Z,R2 
C,  + l 
C , ♦ 2 

load  addresses  for  instant  branching. 

SHOW  THAT  THERE  1 S NO  TRANSFERRED  INPUT. 

3A88 

SWE.  CAC3 

L XFR  BEGN 

16 

Z,S1 

show  tape  Routines  where  to  go  -or  disc. 

3A90 

TX 

INI T X5 

Z,X5 

SET  X5  TO  R2,  +-R3,  OR  RA  OF  GROUP  B. 

3A92 

EBS 

Z ,X7 

OCT  200 

Z,R1 

3 A 93 

SWE,  B38TA3 

DISC  CflEK 

2 A 

C,,0 

GET  A ADDRESS  OF  ORDER  IN  XFeR  VECTOR. 

3A95 

EBA 

Z,R1 

C,-l 

Z,R1 

3Ag6 

eba 

N,R1 

THREE  P 

Z,R1 

POINT  TO  DFLOK  (DISC  FILE  LOCK)  IN  MON. 

3 A 98 

TS 

SORS  NAME 

wanied 

CH  NEX  3uF 

begin  reading  tape  1. 

3501 

PASS  1 

GPC 

TS 

SAPO  NTRY 

Z.Rb 

P ASS  1 o?B 

V 

LOAD  BUFFER  LIST  ADDRESS  AND  MX}, 

3603 

TS 

ZERO 

Z.XA 

DUMMY  SA \/  ♦ 2 

initialize  remote  switch  and  besin. 

L 

@YUL  SYSTEM  ASSEMBLER  END  PASS  1 
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Roooi 

R0003 

we  are  deeply  indebted  to  the  one,  the  only, 

JSOCTL 

THE  3«E AT  JOHN  SHAW  p°R  THe  FOLLOWING  STRONG  MAGlc. ... 

0004 

-SET.LQC  , 6C  SIZPASS1  +64  __BJ- 

0005 


MASKGRP,!  S,0 


F * 0 


R 27 26  FINALIZING'  SEQUENCE  FOR  PASS  1.  CaLLS  ..SET  TAPE..  TWICE  TO  ENSURE  THaT  END  SYLT  AND  E0FR1  arE 

R2728  PROPERLY  RfCfIVED.  FImISHeS  AND  TRANSMITS  tHf  UASt  PQPO  BUFFfR.  SNAtCHeS  ANOTHER  WORKER  FOR  EXTRA  COPIES  IF  R£- 
R2729  OUIReD,  WAITS  FOR  jHr  PARAPROGRAMS  TO  DIE*  AND  LOADS  PASS  I. 5 TOGETHER  WITH  THE  GENERAL  PART  OF  PASS  2. 


27305  FINISH  Pi 

TX 

Pi  MASKS 

- 

. Z , MXR  . 

2731 

TS 

z » sc 

Z , S3 

GET  TAPE 

C 

2732 

TS 

Z*sc 

Z , S3 

get  tape 

c 

THESE  SHOULD  make  EOF  RETURN  VIA  S3. 

27332 
273325 

27333 
'273338 
27  334 
27336 

2734 

2735 


2737 
27375 

2738 

PMAX9  MSG 

TS 

ALF  ,2 
TS 

Z*SC*2  Z,XO 

PMAX  = 9ENDC  POpO 
POPO  BUFF  Z,SH 

SEND  POPO 
MOVE  POPO  +3 

C 

C 

SEND  EOF  RECORD  TO  POPO  TAPE. 

2740 

2742 

2744 

NA 

LA 

TS 

end  YUL  +1 
bit  1 

END  YUL  *2 
END  PARAS 

ONE  RUN  +1 
ONE  RUN  -1 
PHI  TAPE 

BRANCH  IF  NO  MERGE  ERROR. 

BRANCH  IF  RDl  IS  STILL  GOING. 

merging  error  discovered  after  yulprogs 

2746 

2748 

RW,  1 
SM 

SWITCH 

BAD1  bits 

SWITCH 

was  repositioned. 

bar  yulprogs  writes,  bar  some  printing. 

2750 

27512 

2752 

ONe  RJN 

TS 

SWS,  BIT1 
LA 

zero 

SWITCH 
N COPIES 

N COPIES 
10, L 
ZERO 

PARA  wAIt 

switch 

PAR  A w A I x 

SUPPRESS  EXTRA  COPIES  ON  merge  error. 
MAYBe  SET  REPRINT  FLAG  for  PASSES  1.5,3. 
BRANCH  IF  NO  EXTRA  COPIES  REUUESTED. 

275A 

NA 

PAPER  PLY 

ZERO 

9 PLY  CHEK 

BRANCH  IF  OPERATOR  TYPED  IN  PLY. 

LA 

NA 

NAi 

TS 

NA  1 

TS 

NA 

TS 


CD  TY^e 
BIJ8 


HEALTH 

end  yul 
health 


♦ 1 


SWITCH 
L END  Of 

send  popo 
PqB  PLACE 


zero 

end  yul  +2 

(MODIFY) 

ONES 

z,xo 

send  popo 

Z * X 4 


+ 1 


C,  + 2 

MOVE 


last  card  processed  should  be  "end  of", 
EXCEPT  POssIBLY  IN  bad  merge*  IN  WHICH 
CASE  IT  CuULD  Be  an  UPCHUCKED  card. 

AVOID  REDUNDANT  "END  OF"  IN  FROZE  RLJEC.K  ~ 
BRANCH  IF  NOT  FREEZING  SUBROUTINES. 

SEND  "END  Op"  AfIER  FROZEN  SUBROUTINES. 


mf? 

***** 


popo  +2 


FINISH  LAST  POPO  BUFFER  IF  ReQJiReD. 


• ^ 


L 

@YUL  SYSTEM 

ASSEMBLER  END  PASS  1 
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P27555 

OPERATOR  GETS 

SECOND  CHANCE  TO  TYPE  IN  HIS  INTEnLtQnS  A60JT  m-PLY  PAPER 

• 

2756 

TYPE  DUES 

s, 

MON 

ty=>ek 

WH  PLY  MSG 

SPR AMR  +16 

TYPE  "WHAT  PLY  PAPER.." 

2758 

MON 

TY3£R 

*AA  10060 - 

SPRA  +24 

• 

" W A AIOQjSO OOOQOOOP"  . 

2760 

TX 

C,  + 0 

0 

Z,AU2,31 

• 

2761 

TX 

C,+0 

0 

ZtAJl ,31 

2762 

.NA 

PAPER  PLY 

7FR  D 

9 PLY  CHrK 

2763 

NA 

Z,AU1,1 

ONE 

C,-l 

WAIT  A FEW  MINUTES  AFTER  SECOND  CALL. 

• 

2765 

NA 

Zt AU2  1 1 

ONE 

C , -3 

2766 

it 

MON 

TY5-K 

OP  SLP  MSG 

SPRA  +16 

• 

TYPf  "OPFRATOR  ASLFFP".  USf  1 -Pi  Y t 

2768 

TS 

ONE 

PAPER  PLY 

0<  PLY 

2769 

9 PLY  CHEK 

_LA 

PAPER  PLY 

NINE _ 

D<  PUT 

ANY  PLY  ONE  TO  NINF  IS  ACCfPTA3^F. 

27705 

TX 

zero 

PAPER  PLY 

• 

2771 

S, 

MON 

TY  3£R 

PMAX9  MSG 

SPRA  +8 

TYPE  DUES 

MORE  THAN  9 IS  SLIP  OF  FINGER. 

2773 

OK  PLY 

LA 

N COPIES 

PAPER  PLY 

ONE  RJN 

BRANCH  IF  ONE  PRINT  RUN  WILL  DO  IT. 

• 

2775 

s * 

MON 

TAOOF 

COPY  OP 

SKIP  IF  COPY  WORKER  MUST  BE  SNATcrEd. 

2777 

TS 

paper  ply 

COMMON 

_ POSIT  C?Y  _ 

% 

2778 

TS 

paper  ply 

COMMON 

MON  SNACH 

2779 

ALE 

t 3 

W10Y0105YULCDPYS 

2780 

POSIT  CPY 

TS 

PHI  TAPE 

% 

2781 

COPY  OP 

RW* 

5 

- 

- 

- 

2782 

TS 

CAC  3 

Z , X 4 

PHI  TAPE 

2783 

RF, 

5 

4,0 

% 

2784 

wD 

n copies 

ONE 

N COPIES 

2785 

WA 

common  . 

PAPER  PLY 

COMMON 

2786 

LA 

common 

N COPIES 

C,-l 

COMPUTE  EXACT  NUMBER  OF  COPIES. 

% 

2788 

TS 

common 

N COPIES 

PHI  TAPE 

2789 

RF  , 5 

- 

_ 

• 

% 

2794 

PARA  WAIT 

NA 

end  paras 

zero 

PARAP  NAP 

sleep  until  all  paraprograms  DIr. 

2796 

TN 

zero 

1 

S JBSTRA3 

% 

2797 

mt 

ZERO 

7 

N,AJ2, 1 

clear  out  subsfrand  (paragraph)  table. 

2798 

TX 

ADR  LIMIT 

N WD  RECS 

SUPPLY  max  L0C  +1  JO  PASS  1.5. 

2800 

S t 

MON 

ty3er 

END  YUL 

SPRA  +16 

THIS  MAY  INCLUDE  A MERGE  ERROR  FLAG. 

% 

2801  1 

* 

EX 

SWITCH 

BIT  7 

COMMON 

28012 

* 

LA 

COMMON 

ZERO 

LOAD  PAS  _2 

BRANCH  IF  NOT  DOING  A SEGMENT  ASSEMBLY, 

28013 

* 

SS 

ZERO 

BIT  7 

SWITCH 

% 

28014 

# 

NA 

seg  owner 

BLANKS 

LOAD  PAS  2 

BRANCH  IF  ITS  OWNER  WAS  NAMED. 

28015 

* 

TN 

W OWNER  EQ 

2 

OLD  LINE  +14 

"OWNER  = ?????????"  ON  COVER  SHEET. 

% 

28016 

* 

TX 

W OWNER  EQ  +1 

PAGE  HEAn  +14 

QUESTIONS  MARKS  TO  PAGE  HEAD  TOO. 

2802 

LOAD  3 AS  2 

S( 

PHI 

LOAD 

pass  2 

1 

BASE  ADOr 

LOAD  AND  GO  TO  PASS  1.5  AND  THEM  PASS  2. 

% 

% 

R2804 

MINOR  SUBROUTINE 

TO  STALL  IN  SEQUENCE 

MODE. 

2805 

PARAP  NAP 

TS 

_ 

MON  SLFFP  C 

% 

2806 

wD 

ZtSH 

ONE 

Z,SC 

> 


m n r\-r\ 
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Roooooi  wt  are  deeply  indebted  to  the  one,  the  only,  the  great  john  shaw  for  the  following  strong  magic.... 


R0002 

* JSOCT  _ 

0003 

* 

SET  LOC  ,2 

SIZ  PASS  1 

B1 

0004 

# 

MASKGrp  , 3 

S,1 

F , I 

R0005  THE  aGC4  3ART  OF  PASS  1 CONTAINS  THE  FDLLOwING  DATA: 


R0006  MAXIMJM  legal  NUMERIC'  OPERATION  CODE,  GREATEST  ADDRESS  OF  A MEMORY  LOCATION,  DITTO  + 1,  BLOCK  SIZt  - 1, 
Rooos  shift  amounts  for  concerting  a block  number  to  an  address  ANn  for  storing  a numeric  operation  code,  a table 

Rpoio  SHOWING  WHICH  LOCATIONS  IN  AGCa  are  fRASABLe , FIXfD,  and  SPfcIAL/IjONtXISTENT  , AND  A TABLE  of  SYMBOLIC  D3ERA_ 

ROO 12  TON  CODES,  EACH  WITH  EITHER  CODED  BINARY  INFORMATION  (INSTRUCTION  CODES)  OR  AN  ADDRESS  (CLERICAL  CqoeS). 

ROO 1 32  IN  AGC4,  THIS  TABLE  15  LOCATED  IN  BANK  5. 


ROOIA  CODING  IS  ALSO  PROVIDED  HeRE  TO  PROCESS  (PARTLY)  tH£  ADDRESS  FIELD  OF  POLISH  OPERATOR  CARDS. 
ROO] 6 »QUANT1T1FS  FILLED  IN  PQK  REFERENCE  BY  GENERAL  PASS  1. 


001.7  AH  OP  THRS  SPEC  OP  THRS 


0018 

0019 

0020 

A4 

A4 

A4 

MAX  NOP 
MAX  LOC 
ADR  LIM 

FXBIN 

OCT 

OCT 

7 

- 71777 

- 72000 

0021 

A4 

bldk  IS 

OCT 

-1777 

0022 

A4 

SHIFTS 

0C1 

0000  00  <t2  24 

0023 

A4 

TY3  TAB 

CAC 

COUNT  Si  A 

1024 

AGC4  MEMn 

• 

00231 

A4 

S J 3 LOC 

equals 

A 4 TYP  TAB 

00232 

A4 

COJNSP 

EQUALS 

A4  TYP  TAB 

0024 

#A4 

SPCIAL 

TS 

C,  + l 

op  found 

SEG  TEST 

0025 

TS 

AGC4  MXR 

Z , MXR 

POLISH  D 

00251 

A4 

eleft  p 

CAC 

6149 

GOT  ELEFp 

00252 

* A4 

PLEFT  P 

CAC 

6165 

1024 

A4  flefto 

- 

0026  AGca  »1E'M0  OCT  -1000  0057 


0027 

0028 
00281 

OCT 

OCT 

OCT 

-4000  1777 
-2003  1777 
-1004  1777 

00282 

OCT 

-2007  1777 

0029 

DEC 

BBOO  ffff 

00291 

*StG  MEMO 

OCT 

-1007  1777 

00292 

* 

DEC 

BBOO  FFFF 

0030 

* 

RESERVE 

20 

OO3O2 

*SEG  TEST 

EX 

SWITCH 

BIT  7 

SEG  TEST 

00304 

* 

LA 

SEG  TEST 

ZERO 

POST  SPEC 

EXIT  If  NOT  IN  A SEGMENT  ASSEM3.Y. 

— 

0030b  * TN  SEG  memo  2 A0C4  MEMO  +2  CHANGE  FIXED  TO  SPEC/UON  AND  EXIT. 

00308  * TS  - POST  SPEC 


L 

©YUL  system 

assembler 

AGC4  PASS  1 

USER'S  OWN  PAGE  NO. 

2 

PAGE  7 A 

poa3 1 

FIELD  AND- 

SHIP  I -MAbKS  COR  THE  AOCA  -PAR T OF  PASS  1. 

00319 

B » VMA  5KM 

OCT 

0 

_ - 0032 

£ » Cl  T 5 M - 

-OCT 

7777  7777  7777 

0033 

b,onesm 

OCT 

7777  7777  7777  7777 

00  3 A 

B*618T2AM 

OCT 

0000  0177 

0035 

B»B22I25M 

-OCT 

0000  0007  A _ „ 

0036 

B*B22I32M 

OCT 

0000  0007  776 

0037 

B.*B25T31M 

OCT 

-7740  0000  - _ . 

0038 

B»B1T29M 

OCT 

-0200  0000 

0039 

B * C7T  3M 

OCT 

-7777 

OOAO 

B , B37  3A8M 

OCT 

-A001 

00  A I 

B»BA1 TA5M 

OCI 

-370 

00  A2 

£.*  T 0 'I. 

QC1 

-2 

00a3 

B»ONEMi 

OCT 

-1 

00431 

B«CHAR7M 

OCT 

-7700  - - _ 

00A32 

B »CHAR8M 

OCT 

-77 

ROOAA 

CONSTANTS. 

004A1 

004A2 

00AA3 

B34T33M 
OCT  2000 
OCT  5777 

OCT 

OCT 

OCT 

-76000 

-2000 

-5777 

00  A5 

AGCA  MXR 

masabase 

S.l 

Ftl 

00A6 

SPECO'ID  7 

OCT 

-70 

00A7 

SPECO'I  12 

OCT 

-120 

00A8 

2 POL  DP  7 

OCT 

-Q3A0 

0000 

00  A9 
0050 

2 POLDP  17 
2 POLDP  27 

OCT 

OCT 

-07  AO 
- 1 3 AO 

0000 

0000 

R00501  SPECIAL  ROUTINE  IN  PASS  i FOR  AGCA  TO  ALLOCATF  LffTQVfR  INSTRUCTIONS  AND  CONSTANTS  TO  FIXhD  3AN<S. 


00502 

AA 

flefto 

LA 

LOC  CTR 

OCT  5777 

FF  OR  ERAS 

005022 

LA 

ONES 

LOC  CTR 

FF  OR  _£RaS  +1 

IF 

BAD  LOC  CTk.  ANYWHERE  IN  F1X£D  IS  DK. 

00503 

SS 

LOC  CTR 

B34T38M 

C * + 2 

IF 

LOC  CTR  IS  IN  A BANK,  SO  IS  LEFTOVER. 

0050A 

TS 

C,  + l 

COMMON  ♦ 2 

GOT  FLEFp 

00505 

CAC 

6 1 A 9 

_ 

00506 

FK 

OR  ERAS 

LA 

OCT  2000 

LOC  CTR 

GOT  FLEFP 

IF 

fixed  fixed,  orig.  parameter  was  D<. 

00507 

TS 

c » ♦ 1 

COMMON  +2 

GOT  FLEFP 

IF 

ERASABLE,  ANYWHERE  IN  FIXED  IS  OK. 

00508  CAC  6581  102A 
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USER'S  OWN  PAGE  NO. 


PAGE  75 


POQ51 

R0053 

R0055 


SPECIAL  ROUTINE  IN  PASS  1 FOR  AGCA  TO  RESPOND  TO  THE  FINDING  OF  An  INSTRUCTION  OPERATION  CODE.  JF 
THE  C:De  IS  A POLISH  OK  store  ADDRESS  CONSTANT,  R-SeTS  the  3fUINNING-OF. EQUATION  INDICATOR  (Bit  29  OF  SWITCH) 
AND  RrTURNS  TO  THe  G-NfRAL  I NSTRUCT I ON-PRDCeSSI No  PROCeDJRe.  IF  tHe  CODE  15  A POLISH  OPERATOR,  THe  SEYrN-BlT 


R0059 

RESET  (AS 

IS  TRUE  INITIALLY) , It  IS 

NOW  SET  AND  07  IS  SUPPLIED 

as  the  second  operator,  to  indicate  that  pass  2 

P0061 

is  td  decode  an 

OPERATOR 

i WORD  COUNT 

FROM  THERE. 

OTHERWISE,  the 

ADDRESS  FIELD  IS  INTERPRETED  AS  FOLLOWS... 

R0063 

BLANC  OPERATOR 

00,  HOMERIC:  OPERATOR  07  (ASSUME 

NEW  eQUAt I ON) , 

SYMBOLIC  with  modifier:  OPERATOR  17  (ILLEGAL 

R0065 

format) , symbolic:  va.ue 

. FROM  OPERATION  CODE  TABL 

E IF  POLISH  OPERATOR,  OR  OPERATOR  27  OTHERWISE. 

0067 

0068 

polish  a 

NA, 

sws. 

ON  EM 
B22T32M 

A , 0 

N , XA  _ _ ...  . 

ZERO 
16, L _ 

SEND  BITS  AS  USUAL  If  NOT  PQLIS-i. 

0070 

NA, 

TWOM 

A ,0 

ZERO 

Aa  PI  EXIT 

exit  IF  AN  IMPLIeD-ADDRESS  CODE. 

0072 

LA, 

BA1TA5M 

A , 0 

SPECOND  7 

aa  pi  exit 

0073 

LA, 

BA1TA5M 

SPECON  12 

A , 0 

a A Pi  LX  IT 

BRANCH  IF  NOT  A POLISH  OR  STORE  ADDRESS. 

0075 

TS, 

B I T29  H 

zero 

SWITCH 

aa  pi  exit 

RESET  INDICATOR,  EXIT. 

0077 

POLISH  OP 

sws. 

B18T2AM 

N » X4 

__  21  *- 

hlalth 

SEND  EQUIVALENT  OF  LEFT  OPfRATDH. 

0079 

SM 

health 

BIT  32 

health 

INDICATE  POLISH  OPERATOR  WORD. 

0081 

NA, 

B I T29  H 

switch 

ZERO 

TWO  POLES 

BRANCH  IF  NOT  BEGINNING  OF  EQUATION. 

0083 

SM 

health 

2 POLOP  7 

health 

SEND  INDICATION  TO  PASS  2. 

0085 

TS, 

BIT29H 

ONES 

SWITCH 

aa  pi  exit 

SET  INDICATOR  AND  EXIT. 

0Q87 

TWO  poles 

TX 

Pi  MASKS  _ 

z,mxr 

0088 

TS 

z,sc 

Z , X A 

ADR  FIELD 

DECODE  ADDRESS  FIELD. 

0090 

LA 

FIELD  COD 

ZERO 

INSTRJCt 

FAST  EXIT  FOR  BLANK  (VACUOUS)  OPERATOR. 

0092 

TX 

AGCA  MXR 

- 

Z,MXR 

0093 

NA 

FIELD  CqD 

BIT  1 

POLISH  Op  +3  BRANCH  IF  ADDRESS  FIELD  IS  NO  1 SYMBOLIC. 

0095 

__LA 

FIELD  COD  +1  ZERO 

C , + 2 

BRANCH  IF  NO  MODIFIER. 

0097 

TS, 

B25T3  1 Mi 

2 POLOP  17 

HEALTH 

aa  pi  ex t t 

indicate  improper  address  field,  exit. 

00982L 

NA, 

CHAR8M. 

ADR  WD 

astrisks 

C , +3 

branch  if  no  detached  asterisk. 

0098A 

NA, 

C)-|AR7  H 

AqR  Wd 

blanks 

POLE  FAIl 

BRANCH  If  OPERATOR  SYMBOL  TOO  L3No. 

00986 

TS, 

CHAR8M1 

BLANKS 

ADR  WD 

pole  seek 

blank  OUT  ASTERISK,  look  UP  code. 

0099 

NA* 

C7T8M 

ADR  WD 

BLANKS 

pole  fail 

BRANCH  IF  MORE  THAN  SIX  CHARACT-RS. 

00992 

TS 

N L ChAR  6 

Z , X A 

c , + 2 

REVER5E  BA5E  FOR  SET  OF  CHARACTER  MAsKs. 

0099A 

NA, 

VMaSKH. 

ADR  WD 

BLANKS 

c , + 2 

scan  to  left  until  a character  is  found. 

0100 

TS 

N ,XA  » 1 

N , MXR 

c,-l 

01002 

NA, 

VMASKM, 

ADR  wD 

astrisks 

POLE  SEEK 

PROCEED  with  Search  if  no  ASTERISK. 

0 1 00  A 

SS 

BLANKS 

n,mxr 

ADR  WD 

BLANK  OUT  ATTACHED  ASTERISK. 

0101 

pole  SEEK 

TX 

Aa  OP  thrs 

Z , X A 

0102 

SWS* 

B22T25M 

AqR  WD 

17 

C,  + l 

0103 

SWE, 

ONES  M 

A , 0 

0 

Z»XA 

SELECT  SECTION  OF  OP  CODE  LIST. 

0105 

TX 

Z,SC,1 

- 

0106 

LA 

n,xa,  1 

ZERO 

pole  faii 

BRANCH  IF  OP  CODE  NOT  FOUND, 

0108 

NA, 

C1T6M 

ADR  WD 

A , 0 

c,-i 

SEARCH  THROUGH  SELECTED  SUBLIST. 

0110 

LA, 

B37BA3M 

ONES 

A , 0 

c , ♦ 2 

BRANCH  IF  POLISH  OPERATOR  FOUND. 

0112 

POLE  FAIL 

TS, 

B25T3 1 M 

2 POLOP  27 

HEALTH 

aa  pi  exit 

INDICATE  FAILURE  AND  EXIT. 

0 1 1 A 

SWS, 

B25T31M 

N , X A 

1 A , L 

HEALTH 

SEND  EQUIVALENT  OF  RIGHT  OPERATOR. 

0116 

AA  Pi  EXIT 

TS 

PI  MASKS 

Z , MXR 

INSTRUCT 

c 

L 

POl 161 

@YUL  SYSTEM 

ASSEMBLER  AGCa  PASS  1 
SPECIAL  B-OLK  CODE  ImtRQI 

USER'S  OWN  PAGE  NO.  A PAGE  76 

t 

c 

01162 

maskgrp 

5,0 

F , 0 

t 

01163 

AGCA  3L0K 

TS 

c,  + i 

BLOK  SHIF 

block 

MODIFY  AND  ENTER  BLOCK/BANK  ROUTINE, 

c 

0 1 1 6 A 

TS 

C » + 1 

BLOK  SHIF 

C , + 2 

c 

RESTORE  ROUTINE  ANd  DO  SPECIAL  SHIFT. 

t 

01165 

SPE » FlXMAo 

ADR  WQ  

_ 10, u 

LOLL  VALJf 

01166 

SPE,  F I XM A 3 

ADR  WD 

8 , L 

LOC  y/ALJE 

S 

m 

01167 

agca  sank 

TS 

C,-2 

BL0<  SHIF  _ 

block  _ 

_ JUST  IN  CASE  BLOCK  FAILED  TO  RESTORE. 

V 

c 

R011681 

SPECIAL  PROCESSING  FOR 

COUNT*  CODE. 

• 

011682 

COUNT  STA 

NA,  CHARI 

ADR  WD 

DOLLARS 

ILL  CQJNt 

c 

• 

011683 

NA,  CHAR2 

ADR  WD 

DOLLARS 

ILL  COJNT 

c 

0 1 1 68 A 

SS 

zero 

CHAR2 

ADR  WD 

c 

011686 

SWS * AC02 

LUC  CTR 

22 

ADR  WD 

C 

i 

011688 

SWS,  CHARI 

LOC  CTR 

19 

ADR  WD 

s_ 

replace  dollar  signs  with  bank  number_. 

01169  bETL0C,3  . Q ....  B5 


011692 

setloc , a 

15 

B5 

) 

R0117 

OPERATION 

code  threads 

AND  TABLES  For 

agca,  use0  tn  pass  i. 

) 

0118  _QP  THRS 

CAC 

codes  01 

BAD  CODF 

0119 

CAC 

codes  li 

CODES  10 

0120 

CAC 

CODES  21 

CODES  20 

) 

0121 

CAC 

CODES  31 

CODES  iD 

0122 

CAC 

CODES  A 1 

BAD  CODE 

) 

0123 

CAC 

CODES  51 

CODES  50 

012A 

CAC 

CODES  61 

CODES  EQl 

0125 

CAC 

CODES  71 

CODES  70 

R01256  AGCA  OPERATION  CODE  TABLES.  PlEASE  IGNORE  THE  BAmK  ERRORS. 


0126 

CODES  01 

m*a»ma 

A , SK 

At 

B ,7A00 

0127 

m*a*de 

A ,C 

A, 

DECIMAL 

0128 

m,a,da 

A ,D 

A, 

B , A3 A 1 

( 

0129 

m,a,dd 

A , V 

A, 

B , A6A 1 

0130 

m,a,he 

A, AD 

A, 

head  1 A I_l 

0131 

m,a,me 

A, MO 

A *RY 

late  MEM 

« 

0133 

bad  CODE 

OCT 

0 

4 

013A 

CODES  11 

M,A,DV 

A t 

A, 

8,6600 

0 1 3 A 1 

M , A , MS 

A ,K 

A, 

B , 7 AOO 

0135 

M , A , DS 

A ,U 

A, 

B , A A AJ, 

01351 

M , A , DS 

A ,Q 

A, 

B , 533 1 

4 

0136 

M»A*MX 

A , V 

A, 

B , 52 A 1 

0137 

QCT 

0 

4 


« 


o rxo  o a 


L 
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P01375  AGC4  OPERATION  CODE  TABLES  CONTINUED.  PLEASE  IGNORE  THE  BAn*  ERRORS. 


0138 

0139 

CODES 

10 

M , A t MP 

. m.a*.dm 

A « 

A »P 

< <C 

B ,6200 

3,4591  _ _ 

ouo 

M * A * DM 

A, PR 

A, 

B » 5 1 01 

01  Al 

M,A,DO 

A , T 

A, 

B , 5641 

Q142 

m.a,un 

A, IT 

A * 

3,4231  

0U3 

m,a,dm 

A,OV 

A ,E 

8,5531 

0144 

M * A * DO 

A ,UB 

AtLE 

B , 7002 

0146 

OCT 

0 

01  A8 

CODES 

21 

M,A,AD 

A, 

A, 

B,7000 

01A81 

m,a*nd 

A , X 

A, 

3,5040 _ 

01A9 

M ,A , VA 

A ,D 

A, 

B , 534 1 

0150 

M * A ♦ AC 

A, OS 

A, 

B , 473 1 

__  0.151 

m*a.ab 

At  S 

At 

8,4531 

0152 

m,a,ab 

A,VA 

a»L 

B,4331 

0153 

M t A t VD 

A,  EE 

A, 

B , 5 7 3 1 

0154 

M,A, AD 

A, RE 

A,S 

3,4060  . . ....  ..  

0155 

m,a,re 

A,TU 

AtRN 

B , 4006 

01551 

m,a,ne 

A, XT 

At 

B , 57 1 1 

0156 

m,a,re 

A, LI 

A, NT 

B , 50  1 6 

0157 

m, a,re 

A,SU 

A t ME 

B , 5026 

0158 

OCT 

0 

0159 

CODES 

20 

M * A * 

A, 

At 

□3 

O 

O 

0160 

OCT 

0 

0161 

CODES 

31 

M,A,  IS 

A, 

At 

IS  EOUALe, 

0162 

M,A,EX 

A,TE 

A, NO 

B , 5 1 32 

01621 

M , A , EV 

A,EN 

A, 

EVEN 

0163 

M * A * 1 T 

A,C 

At 

B , 404 1 

01631 

M , A 1 1 T 

A, CO 

At 

B,5751 

016* 

M,A, VX 

A ,M 

A, 

B,5301 

0165 

M,A,VS 

A,U 

A, 

B ,4141 

0166 

m,a,vs 

A,RT 

A, 

B,5501 

0167 

M , A t VS 

A , LT 

At 

B , 5 5 4 1 

0168 

MtAtVX 

A,  SC 

At 

B ,4101 

0169 

M,A,VX 

A , V 

At 

B,5701 

0170 

MtAtEX 

A,  IT 

At 

B,401 1 

0171 

m,a,rt 

A ,B 

A, 

3,4051 

0172 

m,a,ax 

A , T , 

A , 1 

B ,41 1 1 

0173 

M t A , AX 

A , T , 

A, 2 

B,4151 

01731 

M t A , AX 

A,C, 

A , 1 

B , 521 1 

01732 

M t A t Ax 

A,C, 

A, 2 

B , 525 1 

01733 

MtA, VS 

A ,Q 

At 

B » 44  3 1 

0 1 7 A 

M * A ♦ AS 

A , T , 

A , 1 

B , 5 1 1 1 

0175 

M , A t AS 

A ,T  t 

A, 2 

B , 5 1 5 1 

0176 

M t A * AS 

A, IN 

A, 

B , 46  3 1 

0177 

MtAtlT 

A, A 

At 

B , 55  1 1 

0178 

M,A, IT 

A, Cl 

At 

B»555i 

0180 

OCT 

0 

L 

@YUL  SYSTEM 

assembler 

AGCa  PASS  1 

USER'S  OWN  PAGE  NO.  6 PAGE  78 

P01 801 

AGC4  OPERAT iOw  code 

TABLES  COmT-InUED-,- 

PLEASE 

IGNORE  THE-BA^k  ERRORS. 

0181 

CODES  30 

M,A,  IN 

a,de 

A ♦ X 

B t 5040 

0182 

-MjA.EQ  __ 

- _A  ,UA  _ 

A,ES  _ _ 

—.IS  EQUALS _ _ 

0183 

M t A t ER 

A, AS 

AiE 

ERASE 

0184 

M , A t No 

A,LO 

A * D 

8,5411 

01841 

M.»A  *N0 

A , LO  _ 

A, A3 

3 ,5411  - ----- 

0185 

MtA.RO 

A tUN 

A , D 

B , 545 1 

0186 

MtA.VM 

A ,0V 

A*E 

8,4131 

01-87 

MjA, IN 

A »CR 

A, , 1 

3,4611 

0188 

m,a,  in 

A,CR 

A*  *2 

3,4651 

01881 

MtA.Vp 

A,RO 

A , J 

3,5741 

0189 

M , A t NO 

A, OP 

A, 

3.5402 

0190 

M,A, IN 

A, HI 

A, NT 

3,5022 

0191 

OCT 

0 

0193 

CODES  41 

MtAtOC 

A,T 

A t 

octal 

0194 

M , A ,0C 

A , TA 

A,L 

OCTAL 

0195 

M , A , 2D 

A,  EC 

At 

- 20FCIMA1 - 

0196 

m.a.se 

A * TL 

A t DC 

SETLOC 

01961 

M,A,Ba 

A ,NK 

At 

AoC4  BANK 

0197 

m,a,bh 

A*I2 

At 

Bt  44-01 

0198 

M,A,BD 

A , SU 

At 

3,4501 

0199 

m,a,bd 

A ,DV 

At 

3,4701 

0200 

M , A 1 5 1 

A,GN 

At 

3,5201 

0201 

M *A , SI 

A ,N 

At 

B , 503 1 

0202 

M.A.SG 

A ,N 

At 

B ,5201 

0203 

* 

M*A,5E 

A,GN 

At  JM 

LATE  MEM 

0204 

OCT 

0 

0205 

CODES  51 

M , A , SU 

A, 

At 

3,7200 

02051 

MtAtST 

A, OR 

A.E 

B , 4 1 1 0 

0206 

M * A *0V 

A t SK 

At 

3,6402 

0207 

MtA.OV 

A, IN 

AtO 

B , 6420 

02071 

M « A * SW 

A, IT 

A t C H 

B , 565 1 

0208 

m.a.bz 

A »E 

At 

B.5401 

0209 

m,a,st 

A,Z 

At 

3,4241  --  ----- 

0210 

m,a,bv 

A , SU 

At 

B , 544 1 

0212 

M , A , SX 

A , A , 

A 1 1 

8,4411 

0213 

M t A , SX 

A, A, 

A, 2 

B , 445 1 - - - - - 

0214 

MtAtSU 

A ,BR 

AtO 

SJBRO 

0215 

OCT 

0 

0217 

CODES  50 

m,a,bp 

A *L 

At 

B , 5 60 1 

0218 

M ,A  ,BM 

A ,N 

At 

B , 42 0 1 

0219 

M,A,BO 

AjV 

At 

B.4301 

0220 

MtAtSQ 

A ,RT 

At 

3,5231 

0222 

M t A , SM 

A ,0V 

AtE 

8,5631 

0223 

M t A 1 2 Q 

A,CT 

At 

2DCT AL  

0224 

M,A,20 

A,CT 

AtAL 

20CTAL 

02241 

MtA.BL 

A,0C 

A t < 

AGC4  BLOK 

0225 

Mj  A * SO 

A ,UA 

A. RE 

3,6202 - 

0226  OCT  0 


L 
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USER'S  OWN  PAGE  NO. 

7 

PAGE  79 

PD227 

AGC4  OPERATION  CODE 

T AbOES  CONCLUDED. 

PLEASE 

IGNORE  THE  D A \j<  ERRORS. 

0228 

CODES  61  M,A,TC 

A, 

A. 

B , 4000 

0229 

_ _ M » A » X C 

A »H 

A_,  . 

B 1 5400 

0230 

M.AtCC 

A * S 

A, 

8t4430 

0231 

M,A,CA 

A»F 

A, 

Bt5410 

0231  i 

M ,A  » TE_  _ _ 

__  A, ST 

At  _ ... 

B 1 56 1 1 . _ __ 

0232 

M * A « XC 

A,HX 

At  1 1 

B 1 45 1 1 

0233 

M,A,XC 

A *HX 

At  t2 

B,4551 

0234 

M , A * XA 

.A  ,D,  . 

A 1 1 

3 »47 1 1 _ 

0235 

M t A » X A 

A,D, 

A 1 2 

Bt4751 

0236 

M , A * T I 

A ,X  , 

A 1 1 

B t 53  1 1 

0237 

. _ . _ M*A»TI 

A.X, 

3,5351 

02371 

M , A , T A 

A * D 

At 

B 1 47  4 1 

0238 

M , A , T C 

A »R 

At 

B ,4000 

0239 

M,A»TC 

A « AA 

At  _ 

B ,64_L2 

0240 

M « A « X A 

A »Q 

At 

B ,4002 

0241 

M , A » CA 

A, DR 

At 

3,4070 

0241  L 

M , A » XC 

A, AD 

AtR 

B,4120 

0242 

M,A,TA 

A 1 1 L 

At 

HEAD  TAIi 

0246 

OCT 

0 

0247 

CODES  60  M,A,= 

A. 

At 

IS  EOUALs 

0248 

M , A * P 

A, 

At 

B , 4 1 00 

0249 

OCT 

0 

0250 

CODES  71  M.A.CS 

A< 

At 

B , 6000 

0251 

M « A , TS 

A , 

A * 

B , 6450 

0252 

M » A ♦ TS 

A ,U 

At 

3,5141 

0253 

M , A , TS 

A ,RT 

At 

3 ,5041 

0254 

M , A , T 5 

A i LT 

At 

B ,4601 

0255 

M * A « TS 

A i LC 

At 

B,5001 

0256 

M,A,LX 

A, A, 

A 1 1 

B , 42  1 1 

0257 

M»A,LX 

A, A* 

A 1 2 

B,4251 

0258 

M , A , LX 

A ,C , 

A , 1 

B ,431 1 

0259 

M,A,LX 

A,C, 

A t 2 

B,4351 

0260 

M , A , Xs 

A,U, 

A 1 1 

3, 50  LI 

0261 

M,A,XS 

A,U, 

A t 2 

B , 505 i 

0264 

OCT 

0 

0265 

CODES  70  M » A » CO 

A ,M 

At 

3,6002 

0266 

M » A , LO 

A »C 

At 

SETLOC 

0267 

M * A »L0 

A, DO 

A t N 

B ,57 1 1 

0268 

M ♦ A » TM 

A * OV 

AtE 

3,4031 

0269 

M*A*Tp 

A, 

At 

B.4031 

0270 

M»A»CO 

A,MP 

At 

B , 54  3 1 

0271 

M , A ,C0 

A»S 

At 

3,5131 

02  72 

M , A » CO 

A, UN 

A , T 

. COUNT 

02721 

M , A ♦ = P 

A * LU 

A t S 

E JU  PLJS 

02722 

M,A,=M 

A,  IN 

At  JS 

EDO  viiNJc; 

0273 

OCT 

0 

M 

0 

m 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

> 

> 

> 

0 


L 

@YUL  SYSTEM  ASSEMBLER  3LK2 

PASS  1 

USER'S  OWN  PAGE  NO.  1 
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R0001 

R0003 

we  are  deeply  indebted  ro 
JSOCTL- 

THE  one. 

THE  ONLY,  THE  jRBAT  JOHN  aHAW  F0R  T«e  FOLLOWING  STRONG  MAGIC.... 

.00.04 SEILQ-C.2 5IZ  PASS-1- Bi 


0005 


MASKGRP.l  5,0  F , 0 


R0006 


THE  BLK2  3 £\K  T OF  PASS  1 CONTAINS  THE  FDLL3wING  DAT  A ! 


R0007  MAXIMUM  Legal  NUMeRIC  OPERATION  COUe,  GREATEST  ADDRESS  of  A Memory  LOCATION,  DITTO  + 1,  BLOCK  (BANK)  SIZE  -1, 
R0009  shift  amounts  for  concerting  a block  number  to  an  address  and  For  storing  a numeric  oReRation  code,  a table 
Roou  SmowIxG  WHICH  LOCATING  In  BLK 2 ARE  ERASABLE,  FlXrD,  AND  SPeC1AL/N0NE*ISTENT.  AND  A TABLe  OF  SYMBOLIC  O^eRA- 
Ro013  TlON  CODES,  each  with  EITHER  Cooed  BINARY  INFORMATION  (InSI RUCTION  CODES)  OR  AN  ADDKeSo  (CLERICAL  CoDeS), 

ROO 1 5 IN  BL<2  PASS  I,  THIS  TABLE  IS  LOCATED  IN  BANK  5, 


Roo 152  coding-  is  also  provided  Here  to  translate  the  address  field  oR  a polish  oRlRatoR  card  into  an  internal  code. 
R0016  in  b l < 12 , banks  and  boc^s  are  the  same  size.  3anc  nos,  are  block  nos,  reduced  by  a.  thus  10000  begins  bank  qo. 


R0018 

QUANTITIES 

FILLED  IN 

•OR  .REFERENCE  BY 

GENERAL  PASS 

1. 

0019 

B2 

0?  thrs 

SPEC 

OP  THRS 

0020 

82 

MAX  NOP 

FXBIN 

7 

0021 

B2 

MAX  LOC 

OCT 

-167777 

0022 

B2 

ADR  LIM 

OCT 

-170000 

0023 

B2 

6LD<  IS 

OCT 

-1777 

0024 

B2 

SHIFTS 

OCT 

0000  0042  24 

0025 

B2 

T Y 3 TAD 

CAC 

COUNT  SI  A 

2048 

BLK 2 MEMn 

00251 

B2 

SJ3  LOC 

equals 

B2  TYP  TAB 

00252 

B2 

CDJNSP 

EQUALS 

B2  TYP  TAB 

0027 

*B2 

spcial 

TS 

C.  + l 

OP  FOUND 

SEG  TEST 

0028 

SSL,  ONE 

N,X4 

0 

POLISH  3 

C 

FIND  OUT  WHETHER  IT'S  A POLISH  3P  WORD. 

00291 

B2 

eleft  p 

CAC 

8309 

B2  ELLFTn 

00292 

B2 

Fl-:ft  p 

_ CAC 

6165 

2048 

B2  FJ.EFTO 

- 

0030 

BL<2  MEMO  OCT 

-1000 

0057 

0031 

OCT 

-4000 

3777 

0032 

OCT 

-2001 

3/77 

0033 

OCT 

-1001  7777 

BANKS  02  AND  03  ACCESS  FIXED-FIXED. 

0035 

OCT 

-2011  7777 

00351  *SEG  MEMO 

OCT 

-1016  7777 

0036 

DEC 

BBOO  FFFF 

0037 

RESERVE 

21 

« 


* 
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P0038 

-SPEC I AL  B4\iK 

* BLOCK,  7FCADR,  AmP  2 < 31 C 

APR  CODE-,  T mtRODUCTTQnS 

•. 

1 

0039 

BL<2  3ANK 

TS 

C , + 1 

CH  3L  SIZE 

block 

SET  UP  TO  INCREASE  BANK  NUMBER  3Y  4. 

00902- 

TS 

C , + 3 

CH  3L  SIZiL- 

C « + 1 

-C  _ 

ALSO  RESTORE  BLOCK  ROUTINE. 

00909 

NA,  B2B6 

field  cod 

ONES 

C , 1 2 

C 

omit  increase  for  blank  bank. 

f 

0091 

wA 

LOC  VALUE 

BIT  36R 

LOC  VALJF 

C 

00  92 

-LA 

LOC  VALUE 

-—MAX  LOC 

- Ci  31 5I7E 

+-2 

s 

f 

0094 

BL<2  3L0K 

TS 

c,-l 

CH  3l  SIZE 

Block 

SET  UP  TO  DO  BLOCK  PROCEDURE  NORMALLY. 

0096 

B2  2FCADR 

SWS,  B22T32 

N , SC , 3 

16,1 

health 

2FCADR  IS  A DOUBLE  PRECISION  ADR.  CONST. 

0098 

OCT 

-370 

0099 

B2  2BCADR 

SWS,  B22T32 

N , SC , 1 

16, L 

health 

2BCADR  IS  A DOUBLE  PRECISION  ADR,  CONST. 

0051 

OCT 

-374 

0052 

TS,  CD  TY3E 

(INST  R ) 

health.. 

-.2 -DECIMAL 

tl 

R0053 

PASS  1 PROCESSING  OF  THE 

eban<=*  sbank 

=»  AMD  BNKSUM 

CODES. 

0054 

BL2  E3ANK 

SWS,  B22T32 

N , SC  , 5 

16, L 

health 

EBANK=  ESTABLISHES  AN  E-BANK  FOR  PASS  2 

L 

0056 

OCT 

-740 

CHECKING  OF  REFERENCES. 

00572 

BL2  S3ANK 

SWS*  B22T32 

N , SC  , 3 

16*L 

health 

sbank=  establishes  AN  S-BANK  FOr  PASS  2 

* 

00574 

OCT 

-744 

CHECKING  OF  REFERENCES. 

00576 

BL2  3\|KSM 

SWS,  B22T32 

N , SC  , l 

16, L 

health 

BNKSUM  FORMS  TC  SELF  PAIRS  A1  3aN<  ENDS. 

t 

00578 

OCT 

-750 

f 

0058 

TS,  CD  TY3E 

(NW  INST) 

health 

ND  SETLDr 

maybe  CUSS  NON-BLANK  loc.  field,  exit. 

00581 

B2  DNI3TR 

sm 

health 

N,Sc,l 

HEALTH 

DNpTR  IS  A CA  wlTH  A CONSTANT  FLA3. 

00583 

OCT 

0000  OObO  7 

r 

00584 

TS 

- 

instruct 

00586 

B2  ONCHAN 

TS 

2, SC, 6 

Z , SH 

SET  32  MxR 

c 

DNCHAN  IS  AN  ECADR  WITH  A 7 PREFIX. 

00588 

L EC A 0 COD 

SPEC 

ECADR  COD 

c 

0059 

B2  6DMADR 

TS 

2, SC, 9 

Z , SH 

SET  82  MXR 

c 

00592 

B2  5DNADR 

TS 

2, SC, 3 

2,SH 

SET  32  MXR 

c 

00594 

B2  9DMADR 

TS 

2, SC, 2 

Z,Si 

SET  32  MxR 

c 

00596 

B2  30  NADR 

TS 

2 , SC  , 1 

Z , SH 

SET  32  MxR 

c 

00598 

B2  2DNADR 

TS 

2,  SC 

Z,SH 

SET  32  MXR 

c 

r 

0060 

wD 

2, SC 

2 , SH 

Z * SH 

00602 

MASK&RP , 3 

S,1 

F , 1 

c. 

00604 

SWS,  B18T24M 

2 , SH 

27,  l 

health 

ndnadr  is  an  ecadr  with  AN  N-l  3refix. 

00606 

TX 

Pi  MASKS 

Z,MXR_ 

c 

00608 

TS 

L ECAD  COD 

Z,X9 

OP  FOJNO 

» 

ft 


0 


t 


L 
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USER'S  OWN  PAGE  NO.  3 

PAGE  89 

£! 

• 

P0061 

FIELD  AND  SHIFJ  MASKS  FOR 

THE  3LK2  PART 

_DF  PASS  1. 

r 

00619 

B»VMA5<M 

OCT 

0 

• 

0062 

B.rlTiM 

OCT 

7777  7777  7777 

0063 

B.ONESM 

OCT 

7777  7777  7777  7777 

£ 

0069 

B.318T29M 

OCT 

0000  0177 

0065 

B » 3 22  T 2 5 M 

OCT 

0000  0007  9 

a 

0066 

B.325T31M 

OCT 

-7790  0000 

• 

0067  B.BJT31M 

OCT 

-90  00-00 

0068 

B.B37398M 

OCT 

-9001 

c 

0069 

B.C7T3M 

OCT 

-7777 

• 

c 

R0071 

CONSTANTS. 

• 

00712 

OCT  1900 

OCT 

-1900 

0072 

BL<2  MXR 

MAS<EASE 

S.l 

F * 1 

• 

0073 

B3BT33M 

OCT 

-176000 

r 

00731 

B38T9DM 

OCT 

-3900 

• 

0079 

BLAN<  OP  2 OCT 

-5720  OQOO 

0075 

STAR  C7 

ALF 

# 

c 

0076 

STAR  08 

ALF 

* 

• 

R00761 

SPECIAL 

ROUTINE  IN  PASS  1 

For  3l<2  to 

ALLOCATE  LepTOVeR 

erased  regions  to  erasable  banks. 

00762 

B2  ELEFTO 

LA 

OCT  9000 

LOC  CTR 

got  elefp 

IF  LOC  CTR  IS  iN  FIXED.  1 

ORIG.  3 ARAM  0<. 

00763 

la 

OcT  1900 

LOC  CTR 

c * + 3 

* 

00769 

TS 

C,*l 

COMMON  +2 

GOT  EL£FP 

IF  LOC  CTR  IN  UNSwITCHED 

L,  SO  IS  LEFTO. 

_ 

00765 

CAC 

8229 

* 

00766 

SS 

LOC  CJR 

B38T90M 

C , + 2 

IF  LOC  CjHR  IS  IN  A BANK, 

SO  IS  LEFTOVER. 

00767 

TS 

C.  + l 

COMMON  +2 

got  elefp 

00768 

CAC 

8197 

• 

R0077 

special 

R 0 u 1 ine  in  pass  i 

For  3LK.2  TO 

allocate  Leftover 

instructions  and  constants  to 

fixed  banks. 

♦ 

00771 

B2  FLEFTO 

LA 

LOC  CTR 

C7J3 

ff  or  eras 

007712 

LA 

ONES 

LOC  CTR 

FF  OR  ERAS  .1 

IF  BAD  LOC  CTR,  ANYWHERE 

IN  FIX-D  is  ok. 

00772 

SS 

LOC  CTR 

B33I38M 

C.  + 2 

IF  LOC  CTR  IS  IN  A BANK, 

so  is  .eftover. 

% 

00773 

TS 

c * 1 

COMMON  +2 

got  flefp 

_ 

00779 

CAC 

6199 

- 

% 

00775 

FT  OR  ERAS 

LA 

OCT  9000 

LOC  CTR 

got  flefp 

IF  fixed  FIXED,  ORIG.  PARAMETER  was  o<. 

00776 

TS 

C,"l 

COMMON  +2 

got  flefp 

IF  ERASABLE.  ANYWHERE  IN 

FIXED  IS  OK. 

00777 

CAC 

7061 

2098 

• 

% 

R00778  "SPECIAL  ROUTINE  IN 

PAaS  1 For  BLK2  to 

change  fixed 

memory  to  spec/Non  in  A segment  assembly. 

% 

007782"SEG  TEST 

EX 

switch 

BIT  7 

SEG  TEST 

007789" 

la 

SEG  TEST 

ZERO 

POST  sPEr 

exit  if  Not  in  a segment 

ASSEM3.Y, 

00779 

# 

TN 

seg  memo 

2 

BLK2  MEMO  +2 

CHANGE  fixed  TO  SPEC/NON 

AND  EXIT. 

007792" 

TS 

- 

- 

POST  SPEC 

* 


K ‘1 
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POQ7B _ SPECIAL  ROJTIi-jE  IN  PASS  1 FOR  3UK2  TO  RESPOND  TO  THE  F.INDING  OF  Am  INSTRUCTION  OPERATION)  COO?.  IF 

Rooso  the  Code  Is  a BASIC  INSTRUCTION  OP  an  ADDReSS  Constant,  SETS  u BITS  INTO  Health  AS  USUAL,  AND  RtTURNS  T0  THE 

Ro082  GENERAL  INSTRUCTION-PROCESSING  PROCEDURE.  if  the  code  is  a POLISH  OPERATOR,  the  SEVeN-BII  EQUIVALENT  is  PLACED 
R008A  IN  BITS  18-2A  DF  HeA-TH  AND  THe  ADDReSs  FIeLD,  hItH  InDFXINo  ASTfRISK  (IF  ANY)  BLANKfD  OUT,  IS  INTERPRETED  AS 

R0086  FOLLOWS;  blank:  OPERATOR  136  ( I INTERNAL  CODES),  ANT  OTHER  FORMAT  BUT  PURE  SYMBOLIC!  OPERATOR  137.  SYMBOLIC!  VALUE 

R0088  FROM  TABLE  OF  INjeRNA.  CODES  IF  POLISH  OPERATOR,  OR  OPERATOR  137  OTHERWISE. 


00895- 

MASK GRP. 1 

s ,0  _ 

F , 0 - - . 

0090 

POLISH  3 

SWS,  B22T 3 2 

N ,XA 

16, L 

health 

s 

SEND  BITS  AS  USUAL  IF  NOT  POLISH, 

0092 

MASKGrP . 3 

5,1 

F.l 

0093 

JS 

BLK2  MXR  __  _ 

2. , MXR 

_ C.  + l 

009A 

0096 

0098 

SWS,  B18T2AM 

SM 

TS 

N,X4 

health 
Pi  masks 

21, L 

BLANK  OP  2 
Z.MXR 

HEALTH 

health 

_ Decod  ADp  - _ 

-V 

SEND  EQUIVALENT  OF  LEFT  OPERATOR. 
PLANT  POLISH  BIT  AND  OPERATOR  136. 
decode  address  fleld. 

0100 

LA 

field  cod 

ZERO 

INSTRUCT 

FAST  EXIT  FOR  BLANK  (VACUOUS)  operator. 

0102 

SET  3?  MXR 

TX 

- BLK2  MXr_ 

Z.MXR  _ . _ 

s 

0103 

0105 

0107 

PULE 

-AIL 

NA 

LA 

TS,  B I T 3 1 M. 

FIELD  COD 
FIELD  Cod  +1 
ONES 

BIT  1 

ZERO 

HEALTH 

POLE  F A 1 1 
seek  star  -1 
B2  PL-EXIT 

BRANCH  IF  ADDRESS  FIELD  IS  NOT  5YMBOLIC, 
BRANCH  IF  NO  MODIFIER. 

INDICATE  FAILURE  AND  E.X I I » 

0109 

0111 

NA,  C7T8M 
TS,  C7T8M 

ADR  WD 
BJ.ANKS 

STAR  C8 
AdR  WD 

C , +2 

POLE  SEEK 

branch  if  no  detached  asterisk. 
BLANK  OUT  ASTERISK,  look  UP  COoS, 

0113 

0115 

0117 

NA,  C7T8M 
TS,  C7J8M 
NA,  C7T8M 

ADR  WD 
BLANKS 
ADR  WD 

star  C7 
ADR  WD 
BLANKS 

pole  fail 
pole  seek 
pole  fail  +1 

branch  if  operator  symbol  too  long. 

BLANK  OUT  ASTERISK,  LOOK  UP  CODE. 
BRANCH  IF  MORE  THAN  SIX  CHARACTERS. 

0119 

0121 

seek 

star 

TS 

NA.  VMASKH 

N L CHAR  6 
Aj}R  Wo 

Z.XA 

blanks 

c , + 2 
c , + 2 

reverse  base  for  set  of  character  masks. 
SCAN  TO  i^FT  until  A CHARACTER  IS  FOJNd. 

0123 
0 1 2 A 
0126 

TS 

NA,  VMASM 

ss 

N.XA, 1 
ADR  WD 
BLANKS 

n.mxr 

astRisks 

n.mkr 

c * - 1 

pole  seek 

ADR  WD 

proceed  with  search  if  no  asterisk. 

BLANK  OUT  ATTACHED  ASTERISK. 

0128 

0129 

pule 

SEEK 

TX 

SWS*  B22T25M 

B2  OP  THR5 
ApR  WD 

17 

Z,XA 
X-,  + 1 

0130 

0132 

0133 

SWE,  ONESM, 

TX 

LA 

A , 0 

Z,SC,1 
NjlXA  , 1 

0 

ZERO 

Z.XA 

POLE  FAX) 

select  section  of  op  code  list. 

BRANCH  IF  OP  CODE  NOT  FOUND. 

0135 

0137 

NA,  C1T6M 
NA,  B37BA3M 

ADR  WD 
A , 0 

A , 0 
ONES 

c,-l 

pole  fail 

SEARCH  THROUGH  SELECTED  SUBLIST. 

BRANCH  IF  FIND  IS  NOT  A POLISH  OPERATOR. 

0139 
0 1 A 1 

B2  Pi 

EXIT 

SWS,  B25T31M 
TS 

n,xa 
Pi  masks 

1A,L 

Z.MXR 

health 

INSTRJCT 

SEND  INTERNAL  CODE  FOR  2ND  OPERATOR. 

s$ 


L @YU|_  SYSTEM  ASSEMBLER  3LK2  PASS  1 

P01411  SPECIAL  PROCESSING  FOR  COUNT#  CODE. 

USER'S 

OWN  PAGE 

NO.  5 

PACE  91 

014115 

MAS<6RP 

S,0 

F * 0 

- 

01412  COJNT  STA 

na  « chari 

ADR  WD 

dollars 

ILL  COUNT 

c 

01413 

NA,  CHAR2 

AdR  wd 

DOLlARs 

III  count 

c 

routine 

NAME  MUST 

BEGIN  WITh 

2 DOLLARS. 

01414 

_LA 

BIT  36R 

jjoc  ctr 

_ C,+2  _ 

c 

01415 

TS 

LOC  CTR 

COMMON 

C » + 2 

c 

01416 

WD 

LOC  CTR 

bit  36R 

COMMON 

c 

REDUCE 

address  TO 

get  fixed 

bAN<  NUMBER. 

01417 

SS 

ZERO 

_CHAR_2 

_ ADR  WD 

c 

01418 

SWS,  AC02 

COMMON 

22 

ADR  WD 

c 

01419 

SWS,  CHARI 

COMMON 

19 

ADR  WD 

S 

R0142 

OPERATION 

code  threads 

and  tables  for  sl<2,  used  in  pass  i*  special  internal  cqdfs  for  polish  qps. 

01432 

SET  LOC  i 3 

0 

B5 

01434 

SETL0C.4 

9 

B5 

0144  OP  THRS 

CAE 

CODES  01 

BAD  CODE 

0145 

CAC 

CODES  11 

CODES  10 

0146 

CAC 

CODES  21 

CODES  20 

0147 

CAC 

CODES  31 

CODES 

0148 

CAC 

CODES  41 

BAD  CODE 

0149 

CAC 

CODES  5 i 

CODES  50 

0150 

CAC 

CODES  61 

codes  60 

0151 

CAC 

codes  71 

CODES  70 

R0153 

BLK 2 OPERATION  CqDe 

tables,  please 

1 snore  the  bank  errors. 

0154 

CODES  01 

m.a.ma 

a.sk 

a. 

B 1 7400 

0155 

m,a,dc 

a. A 

A« 

B t 5420 

0156 

m,a,dc 

A,S 

A. 

B 1 602 0 

0157 

m,a,da 

A »S 

A. 

a. 5010 

0158 

m,a,di 

A »M 

At 

B , 5 3 30 

0159 

m*a*da 

A ,D 

At 

B * 43 3 1 

0160 

M , A * DD 

A,V 

At 

B.4211 

0161 

M » A » DC 

A *0M 

AtP 

8,5221 

0162 

M * A » DC 

A,OM 

At 

3,6206 

0163 

m.a.dd 

A * OU 

AtBL 

3,5042 

0164 

M * A » DE 

A.C 

At 

DECIMAL 

01641 

M.A.4D 

A »NA 

A t DR 

B2  4DN AOr 

0165 

m.a.he 

A, AD 

At 

HEAD  T A 1 1 

0166 

M.A.Me 

A, MO 

AtRY 

LATE  MEM 

0167 

BAD  CODE 

OCT 

0 

L 

&YUL  SYSTEM 

assembler 

3LK2  PASS  1 

USER’S  ObN  PAGE  NO.  6 PAGE  92 

Pol 675 

BL<2--. 

operation-  code 

I ABLF-'S  CONTINUED. 

-PLEASE 

IGNlRF  THF  BAN*  fRRdRS. 

0168 

CODES 

11 

M.A.DX 

A.CH 

A. 

B.6510 

0169 

M t A > QX 

_ A .CH 

A. - 

_Bj5-i2L_ 

0170 

M » A » MS 

A ,U 

A. 

B . 5030 

0171 

m.a.dv 

A, 

A, 

B . 4430 

0172 

M , A , MS 

A.K 

A.  . . 

.B.74QQ 

0173 

m.a.ds 

A ,U 

A. 

3,4311 

0174 

M , A » DS 

A ,Q 

A. 

B.5201 

0175 

._M.iA.MX.  . 

A . V 

A ..  . 

_ B.4131 

0176 

M.AiDT 

A ,CB 

A, 

B , 6456 

0177 

M.AiDT 

A.CF 

A. 

B , 64  52 

0178 

OCT 

0 

0180 

CODES 

10 

m,a,mp 

A « 

A. 

B , 74  20 

0181 

m.a.dm 

A , P 

-A... 

3,4351  . 

0182 

M.AiDM 

A, PR 

A. 

8,4201 

0183 

M i A i DO 

A , T 

A. 

B.4261 

0184 

M.A.UN 

A, IT 

A.  . 

. _ 3.5241 

0185 

M1A1DL 

A.OA 

A.D 

B.4061 

0186 

M.A.DO 

A.UB 

A.LE 

3,7002 

0 1 1 

M. A ♦ MM 

A, 

A.»  . . 

B.5740 

01862 

MiA.DN 

A.CH 

A. AM 

B2  DNCHAn 

01863 

M.A.DN 

A.PT 

A t R 

32  DNPTR 

0187 

OCT 

0 

0188 

CODES 

21 

MiA.AD 

A. 

A. 

B ,7000 

0189 

M.A.AD 

A , S 

A. 

B.531Q 

0190 

MiA.AD 

A, RE 

A . S 

B ,4340 

0191 

EUDR 

COD 

m.a.ec 

A, AD 

A » R 

B.4360 

0192 

M * A ♦ EB 

A.  AN 

A»<  = 

BL2  EBANjt 

0193 

m . a . re 

A.MA 

A. DR 

B , 4344 

0194 

M * A . VA 

A.D 

A. 

B , 4 2 3 1 

0195 

M.A.AC 

A, OS 

A, 

B.5171 

0196 

m.a.ab 

A » S 

A. 

B.5251 

0197 

m.a.ab 

A.VA 

A , L 

3,5331 

0198 

m.a.vd 

A.EF 

A, 

B.5231 

0199 

M.A.VC 

A.OM 

A.P 

B.5321 

0200 

M.A.RE 

A, AD 

At 

3.4034 

0201 

M ♦ A ♦ R A 

A.ND 

A. 

B.4134 

0202 

M.A.RE 

A, LI 

A. NT 

B.4016 

02021 

M.A.1D 

A.NA 

A. DR 

3,4360 

02022 

M.A.5D 

A.NA 

A, DR 

32  5DNA0R 

0203 

M.A.RE 

A.SU 

A. ME 

3,6442 

0204 

M.A.RE 

A.TU 

A.RN 

B.4012 

0205 

M.A.ED 

A.RU 

A.PT 

B , 42  72 

0206 

M.A.ND 

A.X 

A. 

B , 6450 

0207 

OCT 

0 

0208 

CODES 

20 

M . A . 

A, 

A, 

3 .4754 

0209 

OCT 

0 

L 
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P0210 

_BL<2  OPERATION  CODE 

I AdLE.S_  CONTINUED. 

PLEASE 

IGNORE.  THE  BA mk  LRRQ RS. 

0211 

CODES  31  M , A , EX 

A ,TE 

A, NO 

B t A 1 32 

0212 

_ M , A t A (J  . 

A ,0 

At  „ _ 

_ . B 1 52  30 

0213 

M t A t AX 

A,T, 

At  1 

Bt AA51 

02  1 A 

m,a,ax 

A,T, 

A 1 2 

B t AA5 1 

0215 

M.AfAX 

A * C , 

A 1 1 

3 » AA61 

0216 

M,A,AX 

A,C, 

A t 2 

BtAA61 

0217 

MtAtVX 

A,M 

At 

B , A 1 6 1 

0218 

. M , A , V S 

A.U  . 

_A-i  . . __ 

_ __  _ 3 t A2  A 1 

0219 

M.A.VS 

A »L 

At 

B , AA3 1 

0220 

M,A,VS 

A,R 

A t 

B t AAA  1 

0221 

MtAtVX 

A,  SC 

At 

- _ BtAOlL 

0222 

M , A , V/ 

A, SC 

At 

B,A071 

0223 

MtAtVX 

A,V 

At 

B.A271 

022A 

M * A * R T 

A,B 

At 

B t A65 1 

0225 

MtAtVS 

A ,Q 

At 

B,5261 

0226 

M * A * AS 

A,  IN 

At 

B t 5 1 61 

0227 

m,a,ex 

A, IT 

At 

B 1 5 1 2 1 _ . 

0228 

M.A.VS 

A, LI 

At 

B t 5 60 1 

0229 

MtAtVS 

AtRl 

At 

B » 5 6 1 1 

_ 0225 

M i A * VS 

A , L2 

At 

_ _ B ,5621 

0231 

m,a,vs 

A,R2 

At 

3,5631 

0232 

m,a,vs 

A ,.L3 

A t 

B , 56 A1 

0233 

R,A,VS 

A ,R3 

At 

B , 56  5 L 

023A 

M,A,VS 

A, LA 

At 

B , 566  1 

0235 

M.A.VS 

A ,RA 

At 

B , 567 i 

0236 

MtAtVS 

A i L5 

At 

3,5701 

0237 

MtAtVS 

A,R5 

At 

B , 5 7 1 1 

0238 

MtAtVS 

A , L6 

At 

B , 572 1 

0239 

MtAtVS 

A ,R6 

At 

B , 5 7 

02  AO 

M * A * VS 

A , L7 

At 

B , 5 7 A 1 

02  a 1 

MtAtVS 

A ,R7 

At 

B , 575  1 

02  A2 

MtAtVS 

A,L8 

At 

B , 5 76 i 

02  A3 

MtAtVS 

A »R8 

At 

3,5771 

02  AA 

Mt A, I T 

A , A 

At 

3 , A6 A i 

02  A5 

MtA,  IT 

A ,CQ 

At 

B , 530 1 

02  A6 

M,A,RX 

A, OR 

At 

B , A 3 3 A 

02A62 

M t A , N V 

A< 

At 

B , 5 7 A A 

02  A7 

MtA.EV 

AtEN 

At 

EVEN 

02  A8 

MtAtlS 

A, 

At 

IS  EOJALS 

02A85 

M,A,RV 

AtQ 

At 

B ,5301 

L 
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P0250 bl<2  operat i on  lode  tables .continued. please  ignore.  _t.H£_..ba_nic  -errors. 


0251 

CODES  30  M * A * I N 

A *DE 

A * X 

B * 6 A 5 0 

0252 

m.a,eq_ 

A »UA  _ 

A *.L5  _ _ 

IS  EOJAl.s 

0253 

m.a*er 

A, AS 

A*E 

ERASE 

02  5 A 

M*A, IN 

A, HI 

A, NT 

9 ♦ A022 

0255 

M.A.IN  _ 

A,CR 

A* 

_3j..521T2 

0256 

m*a*vl 

A,OA 

A»D 

B,A001 

0257 

M t A t VP 

A *R0 

A.J 

B,A301 

0258 

MtA* IN 

A * CR 

A * * 1 

B*A531 

0259 

MtA*  IN 

A *CR 

A * * 2 

B * A5  3 i 

0260 

M*A,NO 

A *RM 

A * 

B , A 1 7 1 

02608 

M,A*  IN 

AiV 

A* 

B.501 1 

0261 

M*A* IN 

A,VE 

a,rt 

B,50ll 

0262 

M * A * I N 

A * VG 

A * 0 

B t A 7 7 1 

. _ 026A 

M,A*RO 

A, UN 

_A  * Q_  . 

B.5211  _ . . _ _ . . _ .... 

0265 

M*A*AR 

A,CS 

A, IN 

B , 5 1 6 1 

0266 

M « A * AR 

A,CC 

A * OS 

B t 5 1 7 1 

0267 

M « A * ZL 

A, 

A* 

B t5Q52 

0268 

m*a*zq 

A, 

At 

B *5252 

0269 

M,A,RO 

A,R 

At 

B * A2  3 A 

02692 

M*  A * VN 

A, 

At 

_B  »57AA 

0270 

M * A * No 

A, OP 

At 

B * AA02 

0271 

OCT 

0 

L 
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PO.272  _ BL<2  OPERATION  CODF  r AbLFS  CONTINUED,  PLEASE  IGNORE  THF  BANK  ERRORS, 


0273  CODES  A1 

MtAtOC 

AtT 

0274 

M t A t 2d  _ . 

AtEC 

0275 

MtAtSE 

A,TL 

0276 

M t A t B A 

AtNK 

0277 

M t A 1 2B 

AtCA 

02  78 

M t A 1 2C 

AtAD 

0279 

MtAt2F 

A t CA 

02_80 

MtAtBB.  . 

AtCO  . 

0281 

MtAtFC 

AtAD 

0282 

MtAtBD 

AtSU 

Op  83 

. __M , A tBO 

A ,DV 

028A 

MtAtSl 

AtGN 

0285 

MtAtSE 

AtTP 

0286 

M t A 1 5E 

A,T 

0287 

M t A t SE 

A,TG 

0288 

MtAtBH 

A,IZ 

0289 

MtA.SI 

A,N 

0290 

MtAtSl 

A ,NE 

0291 

MtAtWA 

A ,ND 

0292 

MtAtOC 

A , T A 

02925 

MtAtSB 

AtAN 

02926 

M*A,2D 

AtNA 

02927 

M , A 1 60 

A ,NA 

02929  # 

m,a,se 

AtGN 

0293 

OCT 

0 

At 

A. 

AtOC 

At 

A, DR 

AtR 

A t DR 

A t N 

AtR 

At 

At 

At 

AtD 

At 

AtO 

At 


< = 
DR 
DR 


At  JM 


OCTAL 

2QEC1MAL 

SETLOC 
Bl<2  BANK 

B2_ 2BCADK 

B2  2BCADR 
B2  2FCADR 

Bt  A36a 

B t A35Q 
B t A32 1 

B*A221__ 

B t A02 1 
B t A36 1 

B t A75 1 

B t A7  3 1 
B.A661 

_ 

3 » 5 1 A l 
B * A 1 7 A 
PCTAL„_ 
BL2  SBANk 
32  2 ON A}r 
B2  6PNADR 
LATE  MEN 


0294 

CODES  51  MtAtSU 

A, 

At 

B , 7030 

0295 

M t A tBZ 

A ,F 

At 

B .4424 

0296 

M t A , BZ 

A,MF 

At 

3,70  24 

0297 

M,A,BV 

A,SU 

At 

B.4251 

0298 

M t A t SS 

A ,P 

At 

B.4111 

0299 

MtAtBZ 

AtE 

At 

B 1 457 1 

0300 

M t A t ST 

A, OR 

AtE 

B.4760 

0301 

M t A t ST 

AtOD 

AtL 

B ♦ 476^ 

.0302 

MtAtST 

• A,OV 

AtL 

B.4770 

0303 

MtAtST 

A,CA 

A t LL 

B 1 47 74 

0304 

Mt AtSX 

AtAt 

A 1 1 

B.4511 

0305 

MtAtSX 

A, A, 

A t 2 

B.4511 

0306 

M * A % 5j 

A, AD 

AtR 

B , 527 1 

0307 

MtAtST 

AtO 

At 

B.4641 

0308 

MtA.SU 

A,BR 

AtO 

SjBRO 

0309 

MtAtOV 

A,SK 

At 

B . 6462 

0310 

OCT 

0 

L @YUL  system  ASSEMBLER 

3Lk2  PASS  1 

USER'S  OWN  PAGE  NO.  10 

page  96 

PQ311  BL<_2_ 

OPERATIjQN. 

code 

tables  continufd. 

PLEASE 

IGNORE.  TME  BANK  ERRORS.  _ 

0312  CODES 

50  M.A 

.WR 

A. IT 

A ♦ E 

B .4074 

_ 03X3 

M.A 

iBE 

A.L 

A.  __ 

SjAEli 

03 1 A 

M * A 

.bm 

A.N 

A. 

B.A621 

0315 

M * A 

,B0 

A , V 

A. 

8.4711 

0315X- 

M.A, BO 

A.VB 

A. 

B .4701  _ 

0316 

M * A 

.SQ 

A.RT 

A. 

B.5131 

0317 

M * A 

,SL 

A.OA 

A.D 

8,4101 

0318 

M.A 

.SL  _ 

A.C 

A.  _ 

B . 4 1 7 1 

0319 

M * A 

,SL 

A. 

A. 

B.4371 

0320 

M.A 

. SR 

A, 

A, 

B.4401 

0321 

M * A 

. SL 

A.R 

A. 

_ B. 441 1 

0322 

M.A 

, Sr 

A ,R 

A. 

8,4421 

0323 

M ♦ A 

.BO 

A, NS 

A.ET 

8,4721 

_ .0324 

M.A.BO 

A.FS 

A.ET 

_ _ 3,4741  _ 

0325 

M * A 

,B0 

A ,N  I 

A, NY 

3,4761 

0326 

M*A 

.BO 

A, FI 

A. NY 

3,5001 

0327 

M.A 

,B0 

A.NC 

A.LR 

3,5021  

0328 

M.A 

,B0 

A.FC 

A.LR 

3,5041 

0329 

M.A 

.BO 

A.N 

A. 

3,5061 

03298 

M.A 

♦ BO 

A.F 

A. 

B.5101 

0330 

M.A 

.BO 

A.FF 

A. 

B.5101 

0331 

M , A 

.SL 

A.1R 

A. 

B.5401 

0332 

M.A 

.SR 

A,  1R 

A. 

B.5411 

0333 

M.A 

.SL 

A . 1 

A. 

B.5421 

0334 

M.A 

.SR 

A , 1 

A. 

B , 543 1 

0335 

M.A 

.SL 

A.2R 

A. 

B.5441 

0336 

M.A 

.SR 

A.2R 

A. 

3,5451 

0337 

M.A 

.SL 

A, 2 

A. 

B.5461 

0338 

M.A 

.SR 

A, 2 

A. 

B.5A71 

0339 

M.A 

.SL 

A.3R 

A. 

3,5501 

0340 

M.A 

.SR 

A.3R 

A. 

B.55U 

03  A 1 

M.A 

.SL 

A, 3 

A. 

3.5521 

03  A2 

M.A 

.SR 

A. 3 

A* 

3,5531 

03  A3 

M.A 

.SL 

A.4R 

A. 

B.5541 

03  AA 

M.A 

.SR 

A.4R 

A. 

3,5551 

03  A5 

M.A 

.SL 

A. A 

A. 

3,5561 

03  A6 

M.A 

.SR 

A.  A 

At 

B.5571 

03  A7 

M.A 

.WO 

A.R 

A. 

B , 42  74 

03A8 

M.A 

.Bl 

A.OC 

A , < 

BL<2  BLOk 

03A82 

M.A 

.bn 

A.KS 

A,  JM 

Bl2  3N<SM 

03A9 

M.A 

.SQ 

A.UA 

A. RE 

B , 7602 

0350 

M.A 

.20 

A.CT 

A. 

20CTAL 

0351 

M.A 

.20 

A.CT 

A.  AL 

20CTAL 

_ 0352  . 

ocl 

0 

L 
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P0353  BL<2  DPERAT I ON  CppE  TABLES  CONTINUED. PLEASE 


0354 

0355 

CODES 

61 

M.A.TC 
- M * A « CA 

A ,F 

. - - A,  _ _ __  __  __ 

At 

A_. 

B .4404 
3 . 5 4 0 0_ 

0356 

m.a.xc 

A.H 

A. 

B.6710 

0357 

M » A , CC 

A.S 

A. 

B .4410 

0358 

M.A.CA 

A . F 

A, 

- 3,540a  _ _ _ _____  ______  _ 

0359 

M.A.TC 

A, 

At 

B , 4000 

0360 

m.a.ca 

A . E 

A. 

B.5410 

0361 

m,a,pd_ 

A.DL 

A.  _ 

5,4121  _ 

0362 

M.A.PD 

A.VL 

A. 

B.4141 

0363 

M.A.CA 

A.LL 

A. 

B.4631 

03631 

m.a.ca 

A.LR 

A . 3 

B,50Z1_  _ 

0364 

M.A.XC 

A.HX 

A. . 1 

B ,452  1 

0365 

M.A.XC 

A.HX 

A. .2 

B.4521 

0366 

M . A . X A 

A.D. 

A » 1 _ 

_ 8.4551 

0367 

M . A . XA 

A.D, 

A. 2 

B.4551 

0368 

M.A.TI 

A»X » 

A . 1 

B.4541 

0369 

M.A.Tl 

A »X , 

A » 2 

B ,4541 

0370 

m.a.ta 

A.D 

A. 

B.4011 

0371 

M.A.CG 

A.OT 

A.D 

3,4041 

-0372 

M.A.CC 

A.AL 

AtL, 

B ,4151  - _ 

03721 

M.A.CC 

A.LR 

A . B 

B.5111 

0373 

M.A.TC 

A ,R 

At 

B , 4000 

0374 

M.A.TC 

A.AA 

A. 

B ,6466 

. 0375 

M.A.CA 

A, DR 

A. 

B , 4350 

0376 

m.a.ge 

A.NA 

A, DR 

B ,4354 

- 03761 

M.A.3D 

A.NA 

A. DR 

B2  3DNADr? 

0377 

m.a.ta 

A , 1 L 

A. 

head  TAIL 

0378 

OCT 

0 

0379 

CODES 

60 

M,A.= 

A, 

A. 

is  eduals 

0380 

M.A.P 

A « 

A. 

B , 4754 

0381 

OCT 

0 

L 

syul  system  assembler 

3LK2  PASS  1 

USER’S  OWN  PAGE  NO.  12 

PAGE  98 

P03R2 

_ BLC2  OPERATION  CODE 

I AbLES  CONCLUDED, 

PLEASE  IoNi: 

iRE  THE  BA\|K  ERRORS.  . 

0383 

CODtS  71  M , A , C S 

A, 

A, 

B , 6000 

0384  _ 

_ M ,A , T S 

A ♦ 

As 

3,6610 

0385 

M»A,LX 

A * CH 

A* 

B 1 5 1 1 0 

0386 

M,A»LX 

A, A* 

A » 1 

B ,447 1 

0387 

. M,A,LX 

A, A, 

A * 2 

_ 3,-447 1 

0388 

M , A , LX 

A ,C  » 

A * 1 

B ,4501 

0389 

m,a,lx 

A,C, 

A, 2 

8,4501 

-0390 

M » A , PU. 

A, Sri 

-At  - 

_ 3,5311 

0391 

M » A , XS 

A,U, 

Atl 

8,4561 

0392 

M % A ♦ X 5 

A »U  , 

A * 2 

B , 45  6 1 

0393 

M.AtXX 

A,AL 

A, 0 _ - 

B , 400.2 

0394 

OCT 

0 

-0395 

CODES  70  M,A,Cq  _ 

A ,M 

A,  _ 

_ 3,600.2 

0396 

M * A i GO 

A,  TO 

At 

B , 460 1 

03962 

M ,A  »Gq 

B * 1 563 

AtO 

B , 460 1 

03966  M.A,CL 

A»R 

At 

Bt505l 

0397 

m,a,cl 

A » EA 

A t R 

B , 5 05 1 

0398 

M * A » Co 

AtS 

At 

B , 5 1 5 1 

0399 

M , A » CO 

A, Si 

At-NE 

B.51 51 

0400 

m,a,tl 

A,OA 

AtO 

8,^051 

0401 

m,a,cl 

A,RG 

AtO 

3,5031 

0402 

M » A , XL 

A *0 

At 

Bi4Q06 

04025 

M ♦ A , CO 

A, UN 

A , T 

COUNI 

0403 

M, A , LO 

A »C 

At 

StTLOC 

04031 

M,A,=P 

A , LU 

AtS 

EOU  PLJS 

04032 

M»A,=M 

A*  IN 

At  JS 

EOU  Ml  N Jc; 

0404 


OCI 


L 
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R0001 

R0003 

we  art  Deeply  indebted  to  the  one,  the  only,  the  great  John  shaw  for 
JSOCTL 

thl  following  Strong  magic,,.. 

000  A 

__  SET  LOC , 2 _ SIZ  PASS  1 R1  _ 

0005 

MAS<GRP,l  s,o  f,o 

R0006 

the  agc  part  of  pass  i contains  the  fo. lowing  data; 

Rooo7  max i m jm  legal  numeric  operation  cope,  greatest  address  df  a memory  location,  dijio  +i,  block  (bank)  siee  -i, 

R0009  shift  amounts  for  CONCERTING  A bLOCK  NUMBER  TO  AN  ADDRESS  AND  FoR  STORING  A NUMERIC  OPERATION  CoDe,  A jABLe 

Rooil  SHOWING  WHICH  LOCATIONS  IN  AGC  are  ERASA3LE,  FIXED,  and  SPeCIAL/NoNeXISfeNT , AND  a table  OF  symbolic  OPcRA, 

Roo i 3 tIon  codes,  each  with  either  coded  binary  information  (instruction  codes)  or  an  address  (clerical  codesT, 

Rqo i 5 in  Asc  pass  i,  this  table  is  located  in  bank  5. 


R0016  CODIN3'  is  also  provided  heRe  to  translate  the  address  field  of  a polish  operator  card  into  an  internal  cool. 

R0018  IN  AGC,  BANKS  and  BLOCKS  ARE.  THE  SAMf  SIZE.  BAN<  NOS.  ARp  BLOCK  NOS.  REDUCED  BY  4. THUS  lOOOO  BEGINS  3AN<  00, 


R0020 

quantities 

filled  in 

•OR  REFERENCE  BY 

GLNEkAL  3AS5 

1 . 

0021 

AG  OP  THRS 

SPEC 

OP  THRS 

0022 

AG  MAX  NOP 

FXBIN 

7 

0023 

AG  MAX  LOC 

OCT 

-167777 

002A 

AG  ADR  LIM 

OCT 

-170000 

0025 

AG  BL3<  IS 

OCT 

-1777 

0026 

AG  SHIFTS 

OCT 

0000  00  A2  2A 

0027 

AG  TY3  TAB 

CAC 

COUNT  STA 

20  A 8 

AGC  MtMQ 

- 

0028 

AG  SJ3  LOC 

equals 

AG  TYP  TAB 

00282 

AG  CDJNSP 

equals 

AG  TYP  TAB 

0029 

* AG  SPCIAL 

TS 

C,  + l 

op  found 

SEG  TEST 

0030 

SSL,  ONE 

N,Xa 

0 

POLISH  3 

c 

FIND  OUT  WHETHER  IT'S  A POLISH  DP  WORD. 

OO32 

AG  ELEFT  P 

CAC 

8309 

Ao  ELEFT.n 

0033 

AG  Fl  EFT  P 

CAC 

6165 

20A8 

Ao  FLtFTO 

- 

003A 

0035 

0036 

AGC  MEMO 

OCT 

OCT 

OCT 

-1000  0057 
- AOOO  3777 
-2001  3777 

0037 

OCT 

-1001  7777 

BANKS  02  AND  03  ACCESS  FIXED-FIXED. 

0039 

OCT 

-2011  7777 

00  AO 

*seg  memo 

OCT 

-1016  7777 

00  A 1 

DEC 

BBOO  FFFF 

00  A2 

RESERVE 

21 

L 

(SYUL 

system 

ASSEMBLER  AGC  PASS  1 

USER'S  OWN  PAGE  NO.  2 PAGE  100 

P0043 

SPECIAL  B A mK 

, BLOC*;,  2FCADR*  AMD  2(3)C 

AUFLEJDDE  INTRODUCTIONS 

0044 

AGC 

3AN< 

TS 

C,  + l 

CH  3L  SIZE 

bloc< 

SET  UP  TO  INCREASE  BANK  NUMBER  3Y  4. 

0046 

XS_ 

C , + 3 

Cn  3l  SIZE 

C 

ALSO  RESTORE  BLOCK  ROUTINE. 

00472 

NA, 

B2B6 

FIELD  Cod 

ones 

C , + 2 

c 

omit  increase  for  blank  bank. 

0048 

wA 

LOC  VALUE 

BIT  36R 

LOC  VALJf 

c 

0049 

LA 

J-OC  VALUE 

_ MAX  LOC 

_ CH.  BJ SIZE  + 2 

S 

0050 

AGC 

3^0CK 

TS 

c.-l 

CH  3l  SIZE 

bloc< 

SET  UP  TO  DO  BLOCK  PROCEDURE  NORMALLY. 

0052 

AG 

2f:adr 

sws. 

B22T32 

N , SC  , 3 

16, L 

health 

2FCADR  IS  A DOUBLE  PRECISION  AO}.  CONST. 

0054 

OCT 

-370 

0055 

AG 

2b:adr 

SWS  * 

B22T32 

N , SC , l 

16, L 

health 

2BCADR  IS  A DOUBLE  PRECISION  A3?.  CONST. 

0057 

OCT 

-374 

0058 

TS* 

CD  T Y 3 £ 

( INSTR) 

..  HEALTH 

2 DECIMAL  +1 

R0059 

PASS 

1 PROCESSING  OF  THE 

eban<=,  sbank 

=*  AND  BNKSUM  CODES. 

0060 

AGC 

ebank 

SWS, 

B22T32 

N , SC , 5 

16, L 

health 

EBANK=  ESTABLISHES  AN  E-BANK  F 0?  PASS  2 

0062 

OCT 

-740 

CHECKING  OF  REFERENCES. 

0064 

AGC 

S3ANK 

SWS* 

B22T32 

N,SC,3 

16  *L 

health 

SBANK=  ESTABLISHES  AN  S-BANK  FDR  PASS  2 

0066 

OCT 

-744 

CHECKING  OF  REFERENCES. 

0068 

AGC 

0 M<SM 

SWS, 

B22T32 

N , SC  , l 

16, L 

health 

BNKSUM  FORMS  TC  SELF  PAIRS  AT  3aN<  ENDS. 

0070 

OCT 

-750 

0071 

TS, 

CD  T Y 3 £ 

(NW  INST) 

health 

NO  SETLOr 

MAYBE  CUSS  NON-BLANK  LOC.  FIELD,  E*IT. 

00711 

00713 

AG  DN=TR 

SM 

OCT 

HEALTH 
0000  0060  7 

N , SC , 1 

HEALTH 

DNpTR 

IS  A CA  WITH  A CONSTANT  FLAG. 

00714 

TS 

- 

INSTRUCT 

00716 

ag  dnchan 

TS 

Z,SC,6 

Z,SH 

SEI  AG  MxR 

C 

DNCHAN 

IS  AN  _ECADR  WITH  A 7 PRE-FIX, 

00718 

0072 

00722 

L ECAD  COD 
AG  6DNADR 
AG  5DNADR 

SPEC 

TS 

TS 

Z,SC,4 
Z , SC  , 3 

Z , SH 
Z , SH 

ECADR  COD 
SET  AG  MxR 
SET  AG  MXR 

c 

c 

00724 

00726 

00728 

AG  4DNADR 
AG  3DNADR 
AG  2DNADR 

TS 

TS 

TS 

Z , SC  , 2 
Z,SC,1 

z,sc 

Z,SH 
Z,SH 
Z , SH 

SET  AG  MXR 
SET  AG  MXR 
SET  AG  MXR 

c 

r 

c 

0073 

WD 

z,sc 

Z ♦ SH 

Z , SH 

00732 

MASKGRP , 3 

S,  1 

F*1 

00734 

00736 

SWS,  B18T24M 
TX 

Z , SH 

Pi  MASKS 

27, L 

HEALTH 

Z,MXR_ 

ndnadr 

IS  AN  ECADR  WITH  AN  N-l  =ReFIX. 

00738 

TS 

L ECAD  COD 

Z.X4 

OP  FOUND 

R Q IT 


<4 
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IS  ) 

POQXA . FIELD  AND  SHIFT  MASKS  FOR  THE  AGC  PART  OF  PASS  1. 


r\ 

00749  B*VMA5<M 
0075  B.C1TSM 

OCT 

0 

7777  7777  7777 

> 

0076 

bonesm 

OCT 

7777  7777  7777  7777 

0077 

B.318T24M 

OCT 

0000  0177 

0078 

B * 322  T 25M 

OCT 

0000  0007  A 

0079 

B.B25T31M 

OCT 

-7740  0000 

) 

OOBO  B * 9 1 T 3 1 M 

OCT 

-40  0000 _ _ _ 

0081 

B.3373A8M 

OCT 

-4001 

0082 

B*C7T3M 

OCT 

-1111 

J 

A 

R0084 

CONSTANTS. 

* 

0086 

olt  1 AOO 

OCT 

-1400 

0088 

agc  MKR 

MASKBASE 

S.l 

F.l 

) 

0089 

B 3 3 T 3 3 M 

OCT 

-176000 

* 

0090 

B'3  8T  A DM 

OCT 

-3400 

} 

0091 

BLAN<  JOP  2 

OCT 

-5720  00.00 

0092 

STAR  E7 

ALF 

Ik 

* 

0093 

STAR  C8 

ALF 

J 

R0094 

special  routine  in  pass  i 

For  agc  to 

A. LOCATE  LeFtOVeR 

ERASeL 

Regions  to  erasable  banks. 

J 

0096 

AG  ELEFTO 

la 

OCT  4000 

LOC  CTR 

GOT  ELEFP 

IF  LOC  CTR  IS  IN  FIXED.  ORIG.  PARAM  OK. 

0098 

LA 

OCT  1400 

LOC  CTR 

C f ♦ 3 

2 

0099 

TS 

C.  + l 

COMMON  +2 

got  eUlfp 

IF  LOC  CTR  IN  UNSWITCHED  E.  SO  IS  LEFTO. 

0101 

CAC 

8229 

0102 

ss 

LOC  CTR 

B38T40M 

C,+_2 

IF  LOC  CTR  IS  IN  A BANK,  SO  IS  LEFTOVER. 

0 1 0 A 

T5 

C.  + l 

COMMON  +2 

GOT  ELEFP 

0105 

CAC 

8197 

4P 

^0106 

SPECIAL  RdJtINe  in  PASS  1 

for  agc  to 

allocate  leftover 

INSTRUCTIONS  AND  CONSTANTS  to  FIXED  BANKS. 

0108 

AG  FLEFTO 

i-A 

LOC  CTR 

C7TB 

FF  OR  ERAS 

0109 

LA 

ONES 

LOC  CTR 

FF  OR  ERAS  + i 

IF  BAD  LOC  CTR,  ANYWHERE  IN  FIX’D  IS  OK. 

0111 

SS 

LOC  CTR 

B33T38M 

C , + 2 

IF  LOC  CTR  IS  IN  A BANK,  So  IS  LEFTOVER. 

0113 

TS 

C.  + l 

COMMON  +2 

GOT  FLEFp 

0 1 1 A 

CAC 

6149 

- 

ail  5 

FF  OR  ERAS 

LA 

OCT  4000 

LOC  Cl R 

got  flefp 

IF  fixed  FIXED,  ORIG.  parameieR  was  o<. 

0117 

TS 

C.  + l 

COMMON  +2 

got  flefp 

IF  ERASABLE.  ANYWHERE  IN  FIXED  IS  OK. 

0119 

CAC 

7061 

2048 

- 

r01191 

^special  routine  in  pass  i for  agc  to 

change  fixed  memory  to  sPeC/non  in 

a segment  assembly. 

01192 

*SEG  TEST 

EX 

SWITCH 

BIT  7 

SEG  TEST 

0119A 

* 

LA 

seg  test 

ZERO 

POST  SPEC 

EX i T IF  NOT  IN  A SEGMENT  AssEM3_Y. 

01196 

* 

TN 

SEG  MeMu 

2 

AGC  MEMO  +2 

CHANGE  FIXED  TO  SPEC/NON  AND  EXIT. 

01198 

Ik 

TS 

- 

- 

POST  SPEC 

» 
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poiza 

SPECIAL  ROUTINE  IN  PHSSLL 

FOR  AGC  TO  RES 

Q . PE.  An  INSTRUCTION  OPERATION  code,  if 

J 

r0122 

r0124 

r0126 

the  code  is  a basic  instruction  or  an  address  constant*  sets  n bits  into  health  as  usual,  and  returns  to  the 
general  instruction-processing  procedure,  if  the  code  is  a polish  operator,  the  seven-bit  equivalent  is  placed 

IN  BITS  1H-74  OF  HFA-TH  and  THf  ADDRfSS  FIfLD,  wlrH  INDFXINo  ASTFRISK  (IF  ANY)  BLANKeD  OUT,  IS  INTFRPRpTFD  AS 

J 

r0128 
R0 1 30 

follows : blank:  opeRajor  136  (Internal  codes),  any 
FROM  TABLE  of  INterNA-  CODES  iF  POLISH  OPERATOR,  OR 

OTHER  FORMAT 
OPERATOR  137 

BUT  PURE  SYMBOLIC:  OPERATOR  137,  SYMBOLIC:  VALUE 

otherwise. 

0132 

MaS<GRP,1  _ 

s,0  _ 

F ,0  _ _ 

-) 

0133 

POLISH!  3 

SWS,  B22T32 

N,X4 

16, L 

HEALTH 

S 

SEND  BITS  AS  USUAL  IF  NOT  POLISH. 

0135 

MASKGRP  , 3 

S 1 1 

F , 1 

0136 

TS  AGC  MxR 

7, MXR 

C.  + l 

0137 
0139 
0141  _ 

SWS , B18T24M 

SM 

JS 

N,X4 

health 
Pi  MASKS 

21,  L 

BLANK  OP  2 

z.mxr 

HEALTH 

HEALTH 

DeCQD  A Dr  _ 

c 

send  equivalent  of  left  operator. 

PLANT  POLISH  BIT  AND  OPERATOR  136. 
DECODE  address  FIELD. 

0143 

LA 

field  cod 

zero 

INSTRUCT 

fast  EXIT  for  BLANK  (VACUOUS)  OPERATOR. 

0145 

SET  AS  MXR 

TX 

AGC  MXR 

Z_»MX3 

S 

0146 

0148 

0150 

POLE  -AIL 

NA 

LA 

TS,  B I T 3 1 'A 

field  Cod 
field  cod  +i 

ONES 

bit  1 

zero 

health 

POLE  FAIi 
seek  STAR  -1 
Ao  Pi  EX  r T 

BRANCH  if  address  field  is  not  symbolic. 
BRANCH  IF  NO  MODIFIER. 

indicate:  failure  and  exit. 

0152 

0154 

NA,  C7T8M 
TS,  C7T8M 

ADR  WD 

Blanks 

STAR  C8 
AnR  Wn 

C , + 2 

POLE  SE_EX 

BRANCH  IF  NO  DETACHED  ASTERISK. 

blank  out  asterisk,  look  up  co->e. 

J 

0156 

0158 

0160 

NA,  C7T8M 
TS,  C7T8M 
NA,  C'7T8M 

ADR  WD 

blanks 

ADR  WD 

star  C7 

ADR  WD 
BLANKS 

pole  fail 
pole  seek 

POLE  FAIL  +1 

branch  IF  OPERATOR  symbol  tou  long. 
BLANK  OUT  ASTERISK,  LOOK  UP  CODE. 
BRANCH  IF  MORE  THAN  SIX  CHARACTERS. 

J 

0162 

0164 

SEE<  STAR 

TS 

NA,  VMASK M, 

N L CHAR  6 
AoR  WQ 

Z,X4 

BLANKS 

C , + 2 
C , + 2 

reverse  base  for  set  of  character  masks. 
SCAN  TO  LEFT  until  A CHARACTER  IS  FOUN^. 

0166 

0167 

0169 

TS 

NA,  VMASK*l 

ss 

N,X4, 1 

ADR  WD 
BLANKS 

n*mxr 

AStRISKS 

n,mxr 

C , - 1 

pole  seek 

ADR  WD 

proceed  with  search  if  no  asterisk, 
blank  out  ATTACHED  asterisk. 

0171 

0172 

POLE  SEEK 

TX 

SWS*  B22T25M 

AG  OP  THRS 
ADR  k/D 

11 

Z ,X4 
__C  i+  L 

-> 

0173 

0175 

0176 

SWE,  ONESM 

TX 

LA 

4,0 

Z,SC*1 
N , X4 , 1 

0 

ZERO 

Z,*4 

pole  faii 

SELECT  SECTION  OF  OP  CODE  LIST. 
BRANCH  IF  OP  CODE  NOT  FOUND. 

0178 

0180 

NA,  C 1 T6M 
NA,  B37B43M, 

ADR  WD 
4,0 

4,0 

ONES 

c , - 1 

POLE  FAIL 

SEARCH  THROUGH  SELECTED  SUBLIST. 

BRANCH  IF  FIND  IS  NOT  A POLISH  OPERATOR. 

J 

CnJ  >1- 
CD  CD 

r-4  r— 4 

o o 

AG  Pi  EXIT 

SWS,  B 2 5 T 3 1 M 
TS 

N,X4 

Pi  MASKS 

14, L 

z,mxr 

health 

instruct 

SEND  INTERNAL  CODE  FOR  2ND  OPERATOR. 

J 

Li 

■i 

— a 
c 

Jb 

a 


J 


» 
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P018A1  - 

SPECIAL  PROCESSING  FOR 

count  * Code,. 

0 1 8 A 1 5 

MAS<GRP 

s,o 

F * 0 

018A2 

COJNT  STA  NA,  CHARI 

ADR  WD 

DOLLARS 

ILL  CQJNt 

C 

018A3 

NA*  ChAR2 

ADR  WD 

dollars 

III  cdjnt 

C 

ROUTINE  NAME  MUST 

BEGIN  WITH  2 DOLLARS. 

0 1 8 AA 

. LA 

BIT  36R 

C » +2 

_ c 

018A5 

TS 

LOC  CTR 

COMMON 

C » ♦ 2 

V- 

018A6 

WD 

LOC  CTR 

BIT  36R 

common 

c 

REDUCE  ADDRESS  TO 

get  fixed  ban<  number. 

018A7 

SS 

. ZERO  . 

CHAR  2 

X _ 

0 1 8A8 

SWS,  AC02 

COMMON 

22 

ADR  WD 

c 

018A9 

SWS,  CHARI 

common 

19 

ADR  WD 

s 

R0185 

operation 

code  threads  AND 

TABLES-  FOR  AGC*  USfD  Im  PASS.  1.  SPECIAL  INTERNAL  CODES  FOR  PqLISR  DPS, 

01862 

SET LOC, 3 

0 

B5 

0186A 

0187  OP  THRE 

SETLOC.A 

CAC 

9 

CODES  Oj. 

B5 

Bad  copf 

0188 

0189 

0190 

CAC 

CAC 

CAC 

CODES  11 
CODES  21 
CODES  31 

CODES  10 
CODES  20 

CODES  30 _ _ _ _ . _ 

0191 

CAC 

CODES  A 1 

bad  code 

0192 

CAC 

CODES  51 

codes  so 

0193 

CAC 

CODES  61 

CODES  60 

019A 

CAC 

CODES  71 

codes  73 

ROl  96 

AGC  OPERATION  code  tables. 

PLEASE 

IGNORE  THE  B AMkr  ERRORS. 

0197 

CUDES  01 

M,A,Ma 

A,SK 

A, 

B.7A00 

0198 

M,A»DC 

A, A 

A, 

B , 5 A20 

0199 

M , A , DC 

A,S 

A t 

8,6020 

0200 

m,a,da 

A»S 

A, 

B , 5 0 1 0 

0201 

M , A » D I 

A,M 

At 

6,5330 

0202 

M , A , DA 

A , D 

A, 

B.A331 

0203 

M » A , DD 

A , V 

A* 

B » A 2 1 1 

020A 

M , A , DC 

A ,0M 

A t P 

B , 52  2 1 

0205 

M , A , DC 

A ,0M 

At 

B,620b 

0206 

M , A ,DD 

A ,0U 

A 1 3L 

B , 5 0 A2 

0207 

M.A.DE 

A ,C 

At 

DECIMAL 

02071 

m.a.ad 

A ,NA 

A t DR 

AG  AONAOr 

0208 

m,a,he 

A, AD 

At 

HEAD  TAIL 

0209 

m,a,me 

A,  MO 

AtRY 

LATE  MEM 

0210 

bad  code 

OCT  - 

0 

L 
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PAGE  10A 

P02105 

AGC  OPERATION  COoe 

TABLES  CONTINUE!!. 

PLEASE 

I SNORE  THE  HANK  ERRORS.  _ _ 

0211 

CODES  11  M » A ♦ Dx 

A,CH 

At 

B , 65 1 0 

021 1 

M t A t OX 

_ A * Ct-L 

Aa_  _ 

B.5130 

0213 

M t A * ^S 

A *U 

At 

B , 5030 

02  1 A 

m.a.dv 

A, 

At 

B t ****30 

0215 

M t A t MS 

A iK 

At 

B t 7A00 

0216 

M % A * D5 

A.U 

At 

B,4311 

0217 

M t A tDS 

A *Q 

At 

Bt5201 

. 0218 

M.A*MX 

A » V 

At 

...  3.A131 

0219 

m*a*ot 

A,CB 

At 

B t6**56 

0220 

m,a.dt 

A,CF 

At 

B 1 6 A5 2 

“221 

OCT 

0 

0223 

CODES  10  MtAtMP 

A, 

At 

B t 7 A2  0 

022** 

MtAtDM 

A *P 

At 

. B t A3 5 1 

0225 

MtAtDM 

A, PR 

At 

B , A201 

0226 

MtAtDO 

A,T 

At 

Bt A261 

0227 

M.AtUN 

A, IT 

Ar  _ 

. B.52A1  _.  ...  _ _ _ 

0228 

M t A tDL 

A *0A 

AtD 

B , A06 1 

0229 

m»a»do 

A tUB 

AtLE 

B t 7002 

0229L 

M,A»MM 

A, 

At 

Bj57**Q_ 

02292 

m.a.dn 

A,CH 

A t AN 

AG  DNCHAm 

02293 

m,a.dn 

A *PT 

AtR 

AG  ONPTR 

0 


0231 

CODES 

21 

MtAtAD 

A, 

At 

B,7000 

0232 

MtAtAD 

A t S 

At 

B 1 5 3 1 0 

0233 

MtAtAD 

AtRE 

A t S 

B t A3A0 

02  3 A 

eeadr 

COD 

MtAtEC 

AtAD 

AtR 

B.A360 

0235 

M t A t EB 

AtAN 

A t < = 

AGC  EBANic 

0236 

MtAtRE 

A,MA 

A t OR 

3 t A3AA 

0237 

MtAtVA 

AtD 

At 

B t A2  3 1 

0238 

MtAtAC 

A t_QS 

At 

Bt_51 71 

0239 

MtAtAB 

A,S 

At 

B , 52  5 1 

02  AO 

MtAtAB 

AtVA 

AtL 

B , 533  1 

02  A 1 

MtAtVD 

A,EF 

At 

Bt.5231 

02A2 

MtAtVC 

AtOM 

A t P 

B , 532 1 

02  A3 

MtAtRE 

AtAD 

At 

B t A03a 

02  AA 

MtAtRA 

AtND 

At 

B 1 4- 1 3 **  . 

02  A5 

MtAtRE 

A, LI 

A t N T 

B t AO  1 6 

02A51 

MtAtlD 

AtNA 

A t DR 

B t A360 

02A52 

M t A t 5D 

AtNA 

AtOR 

Ao  5DNADd 

02  A6 

MtAtRE 

AtSU 

A t ME 

B t6*t**2 

02  A7 

MtA,RE 

A,TU 

AtRN 

B , AO  1 2 

02  A8 

* 

MtAtED 

A.RU 

AtPL 

B t A02A 

02  A9 

MtAtND 

A t X 

At 

' Bt6A50 

0250 

OCT 

0 

0251 

CODES 

20 

M t A t 

At 

At 

B t A 75 A 

0252 

OCT 

0 

m 


L 
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PAGE  105 

P0253 

ACC  D3£RAT  I On  CODE  TA3LC5  COnIIwUEOj 

PLEASE 

IGNORE  T HE  BAM< _ ERRORS . 

025A 

CODES  31  M , A » EX  A,TE 

A, MO 

B * A 1 32 

0255_ 

_ __  ___  _M,A,AU  _ A,G  _ __  __ 

Ai 

... 3*5230 

0256 

M » A » Ax 

A.T. 

A . 1 

6.AA51 

0257 

M.A, AX 

A.T* 

A. 2 

B.AA51 

0258 

m.a.ax 

A,C, 

A . 1 . 

S.AA61  _ __  _____  __ 

0259 

m.a.ax 

A.C, 

A, 2 

3 , A A6 1 

0260 

M , A , VX 

A.M 

A. 

B.A161 

0261 

M.A.VS 

A.U  _ 

A.  __  . 

B.A2A1  _____  ___  , 

0262 

M * A * V S 

A.L 

A. 

B.AA31 

0263 

M.A.VS 

A.R 

A. 

B.AAA1 

026A 

M.A.VX 

A,  SC 

A, 

3.A031  _ _ 

0265 

M.A.V/ 

A. SC 

A. 

B.A071 

0266 

M.A.VX 

A . V 

A. 

B,A27i 

0267 

M.A.RT 

AjB 

_ A_.  _ 

B » A6_31 

0268 

M.A.VS 

A.Q 

A. 

B.5261 

0269 

M * A * AS 

A, IN 

A. 

B.5161 

0270 

M.A.FX 

A, IT 

A. 

B.5121 

0271 

M.A.VS 

A. LI 

A. 

B.5601 

0272 

M.A.VS 

A.Rl 

A. 

B.5611 

0273 

M.A.VS 

A.L2 

A. 

_ _ B , 5621 _ . 

027A 

M.A.VS 

A.R2 

A. 

B.5631 

0275 

M.A.VS 

A.L3 

A. 

B . 56 A 1 

0276 

M.A.VS 

A,R3 

A, 

B.565L 

0277 

M.A.VS 

A. LA 

A. 

B.5661 

0278 

M.A.VS 

A.RA 

A. 

B.5671 

0279 

M.A.VS 

A.L5 

A. 

B.5701 

0280 

M.A.VS 

■ A.R5 

A. 

B.5711 

0281 

M.A.VS 

A.L6 

A. 

B.5721 

0282 

M.A.VS 

A.R6 

A, 

3,5731 

0283 

M.A.VS 

A.L7 

A. 

B.57A1 

02  8 A 

M.A.VS 

A.R7 

A. 

B.5751 

0285 

M.A.VS 

A.L8 

A. 

B.5761 

02  86 

M.A.VS 

A.R  8 

A. 

B.5771 

0287 

M.A,  IT 

A, A 

A. 

B.A661 

0288 

M.A.IT 

A,CU 

A, 

8,5301 

0289 

M * A « RX 

A, OR 

A. 

B , A33A 

0290 

M.A.NV 

A. 

A. 

B , 57  AA 

0291 

M.A.EV 

A.EN 

A. 

EVEN  ____  _ _ ________ 

0292 

M.A.  IS 

A, 

A. 

IS  E3JAL<; 

0293 

M.A.RV 

A.Q 

A. 

B,5301 

___  029A 

OCI 

0 

9 


♦ 
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__  PC295  _ 

AGC  operation  code 

TABLfS  continued. 

please 

I_GNDRF  THF,  BAN<  ERRORS. 

0296 
_ 0297  _ 

CODES  30  M.A, IN 

. _ Mi  A_»  EQ 

> > 
pS 

A . X 
A,_LS_ 

B.64S0 

Ls  EOJALa 

0298 

M , A , ER 

A, AS 

A , E 

ERASE 

0299 

M . A * I N 

A, HI 

A, NT 

B.4022 

0300 

M,A, IN 

A.CR 

At _ 

____  B_.S210 

0301 

m,a,vl 

A.OA 

A , D 

3,4001 

0302 

M * A * VP 

A.RO 

A * J 

3,4301 

0303 

M.A.IN 

A.CR 

A » » 1 

___  _ B ,4531 

0304 

M,A,  IN 

A.CR 

A . » 2 

B.4531 

0305 

M.A, NO 

A.RM 

A. 

3,4171 

0306 

. M_,A, IN 

_A»V 

A . __  _ 

B.5011 

0307 

M.A.IN 

A , VE 

A.RT 

B.5011 

0308 

M.A.  IN 

A.VG 

A , 0 

B ,477 1 

_ 0309 

M_iA.RO 

__  A. UN  _.  __  __  __  __ 

A,D_  _ 

3,5211  __  ______  __  

0310 

M.A.AR 

A.CS 

A. IN 

B.5161 

0311 

M * A . AR 

A.CC 

A. OS 

B.5171 

0312 

M.A.ZL 

A, 

A, 

_ _ __  , 3,5052  __  _ _ _____ 

0313 

m.a.zq 

A, 

At 

8,5252 

0314 

M.A.RO 

A ,R 

At 

B , 42  34 

. 0315 

MiA.VN 

A.  _ 

A.  _ _ 

B . 5744  ___  __  __  _ _ ____ 

0316 

m.a.no 

A, OP 

At 

6,4402 

0317 

OCT 

0 

n 

L 

@YUL  SYSTEM  ASSEMBLER 
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P0318 

AGC  33ERATI0M  CPDE  T A3LES  COnT IuUED. 

PLEASE 

4 jN-D-RE-  T HE  BlA MX- ERRORS. 

c 

0319 

CODES 

41  m,a,oc 

A ,T 

A* 

OCTAL 

0320 

M , A , 2 D 

A. EC 

_ _ 2DEC1MAL 

0321 

M ♦ A » Se 

A ♦ TL 

4 . DC 

setldc 

Q 

0322 

m*a.ba 

A »NK 

A. 

AGC  BAN< 

0323 

..  .M , A ♦ 2B 

A »CA 

A. DR 

AG  25CADEL ...  - . 

0324 

M.A.2C 

A. AD 

A . R 

AG  23CADR 

Q 

0325 

M » A » 2F 

A * C A 

A, DR 

AG  2FCADR 

0326 

M * A ,BB 

A,  CO  . 

AtN  . 

3.4364  _ _ _ . _ 

0327 

M,A,FC 

A, AD 

A » R 

B ,4350 

c 

0328 

m.a.bd 

A , SU 

A. 

B ,432  1 

0329 

M , A »BD 

A i D _V 

A. 

3,4221 

0330 

M i A * S 1 

A »GN 

A. 

B ,402  1 

0331 

M * A * SE 

A, TP 

A.D 

B ,436  1 

0332 

M , A , BE 

A,T 

A * 

_ 3,4751 

0333  ' 

M , A , S£ 

A,TG 

A.D 

B.4731 

c 

0334 

m,a,bh 

A,IZ 

A. 

B 

0335 

M , A » S I 

A »N 

Aj 

B ,51 4 1 

0336 

M , A , S I 

A ,NE 

A. 

8,5141 

0337 

m.a.wa 

A,ND 

A. 

B , 4 1 74 

0338 

M.A.OC 

A , T A 

A,J_ 

OCTAL 

03385 

M,A,SB 

A .AN 

A,<  = 

AGC  SBANK 

03386 

M,A,2D 

A.NA 

A, DR 

AG  20NADR 

03387 

M , A , 6D 

A.NA 

A . DR 

Ag  6DNADK 

03389 

# 

m,a,se 

A.GN 

a.jm 

LATE  MEM 

0339 

OCI 

0 

0340 

CODES 

51  M ♦ A * 5U 

A, 

A. 

8,7030 

c 

0341 

M.A.BZ 

A . F 

A. 

B ,4424 

0342 

M * A * BZ 

A.MF 

A, 

B , 7024 

0343 

M,A,BV 

A.SU 

A. 

B ,4251 

0344 

M » A , SS 

A.P 

A. 

B ,41 1 1 

0345 

M , A ♦ BZ 

A . E 

A. 

8,4571 

0346 

M*  A ♦ ST 

A, OR 

A , E 

B , 4760 

0347 

M,A,St 

A.OD 

A . L 

8,4764 

0348 

M.A.ST 

A.OV 

A.L 

8,4770 

0349 

m,a,st 

A.CA 

A.LL 

B , 47  74 

0350 

M t A i SX 

A, A. 

A.  1 

B ,45  1 1 

0351 

M ♦ A * 5X 

A, A, 

A, 2 

B , 45 1 1 

0352 

M»A,ST 

A,  AD 

A . R 

8,5271 

c. 

0353 

M,A,St 

A .0 

At 

B , 466 1 

0354 

M » A ♦ S(J 

A.BR 

A.D 

SJBRD 

0355 

m.a.ov 

A * SK 

A. 

B , 6462 

0356 

OCT 

0 

4? 


f 


I 
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P.03  5 7 

AGC  OPERATION  C0D£ 

t a 3 l ls  coni inul p . 

_ please 

I5NDRF  THE  BAN<  fRRQRS.  

0358 

CODES  50  M.A.WR 

A. IT 

A . E 

B *9079 

0359.  _ 

M.AtBP 

. . . A ,L 

_Aj 

3.9611  _ _ 

0360 

m.a.bm 

A ,N 

A, 

B.9621 

0361 

M.A.BO 

A.V 

A. 

8,9711 

0362 

M * A i BO 

A.VB  _ 

A. 

.._B.i_97.01 

0363 

M.A.SQ 

A.RT 

A. 

B.5131 

0369 

M.A.SL 

A.OA 

A.D 

B.9101 

03  65_ 

M .A , SL  . 

A.C  ..... 

A, 

3.9171  - .....  ...  

0366 

M.A.SL 

A. 

A. 

B.9371 

0367 

M.A.SR 

A, 

A. 

B.9901 

0368 

M.A.SL 

A.R 

A. 

_ 3,9911  ...  _ __  . _. 

0369 

M.A.SR 

A.R 

A. 

B.9921 

0370 

M.A.BO 

A, NS 

A.ET 

0,9721 

_ 037L 

_M  » A . BO 

_ . A.FS  _ 

A.ET 

_ _ B . 9791 

0372 

M.A.Bo 

A.NI 

A.NI/ 

B.9761 

0373 

M.A.BO 

A, FI 

A.NV 

B , 5001 

03  79 

M.A.Bo 

A.NC 

A.LR 

3,5021  _____ 

0375 

M.A.BO 

A.FC 

A.LR 

B . 5091 

0376 

M.A.BO 

A.N 

A. 

B.5061 

0377 

M.A.BO 

A.F 

Aj.. 

_ _ 3,5101  _____  

0378 

M.A.BO 

A.FF 

A. 

B.5101 

0379 

M.A.SL 

A.1R 

A, 

B , 5901 

0380 

M.A.SR 

A,  1R 

At 

Bj5  91E 

0381 

M.A.SL 

A » 1 

At 

B.5921 

0382 

M.A.SR 

A . 1 

A. 

B.5931 

0383 

M.A.SL 

A.2R 

A. 

B.5991 

0389 

M.A.SR 

A.2R 

A. 

B.5951 

0385 

M.A.SL 

A. 2 

A. 

3,5961 

0386 

M.A.SR 

A, 2 

A. 

0,5911 

0387 

M.A.SL 

A , 3R 

A. 

B.5501 

0388 

M.A.5R 

A.3R 

A. 

B.5511 

0389 

M.A.SL 

A, 3 

A. 

B.5521 

0390 

M.A.SR 

A, 3 

A. 

B.5531 

0391 

M.A.SL 

A.9R 

A. 

B , 559  1 

0392 

M i A » SR 

A.9R 

A. 

B.555L. 

0393 

M.A.SL 

A. 9 

A. 

B.5561 

0399 

M * A f SR 

A. 9 

A. 

B.5571 

0395 

m.a.wo 

A.R 

A. 

B , 92  79 

0396 

m.a.bl 

A.OC 

A » < 

AoC  B L 3 Ck' 

0397 

m.a.bn 

A.KS 

A.  JM 

AoC  3N<SM 

0398 

M • A » SQ 

A.UA 

A. RE 

B.7602 

0399 

M.A.20 

A.CT 

A. 

20CTAL 

0900 

M.A.20 

A.CT 

A.AL 

20CTAL 

..  . 0901  . 

__QCT 

0 

* 

* 

♦ 

♦ 

•J 

- 

- 

♦ 

-) 

1 

1 

*) 

*■ 

r 

* 

C 


L 
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PQA02  AGC  QJfRATIDN  CODf  TABLES  CONTINUE.  PLfASf  IGNORE  THF  3AN<  fRRORS. 


0403 

COOES  61 

m.a.tc 

A ,F 

A. 

B . 4404 

040  A 

M t A * C A 

_ Aj_ 

_ _ _ . A,  _ . _ 

- 5.5400 

0405 

M.A.XC 

A.H 

A. 

5,6710 

0406 

M , A * CC 

A * S 

A. 

B ,4410 

0407 

m.a.ca 

A . F 

_ A.  . 

B ,5404  . _____  _ . . 

0408 

M.A.TC 

A. 

A, 

5,4000 

0409 

M.A.CA 

A . E 

A, 

B.5410 

0410 

m.a.pd 

_ A.DL 

A,  _ . 

5,4121  . _ 

0411 

M.A.PD 

A.VL 

A. 

B , 4 1 4 1 

0412 

M.A.CA 

A.LL 

A, 

B ♦ 465 1 

04121 

M.A.CA 

A , LR 

. A, 3 

_ 5,5071  ._  . _____ 

0413 

m.a.xc 

A.HX 

A.  . 1 

8,4521 

0414 

M.A.XC 

A.HX 

A.  .2 

B.4521 

0415 

m.a.xa 

A ,D , 

A » 1 

B .455 1 

0416 

M . A » X A 

A *0 . 

A. 2 

B ,455 1 

0417 

M.A.TI 

A i X * 

A . 1 

5,4541 

0418 

A . X . 

A, 2 

3,4541  _._  ____ 

0419 

M.A.TA 

A .0 

A. 

B ,40 1 1 

0420 

M.A.CG 

A.OT 

A.D 

5,4041 

0421 

M.A.CC 

A.AL 

A . L 

B.4L5J 

0421  1 

M.A.CC 

A.LR 

A.B 

B.5111 

0422 

M.A.TC 

A.R 

A. 

5,4000 

0423 

M.A.TC 

A.AA 

A. 

B » 6 A6b 

0424 

M.A.CA 

A. OR 

A. 

5,4350 

0425 

m.a.ge 

A.NA 

A, DR 

8,4354 

04251 

M.A.3D 

A.NA 

A, DR 

Ao  30NADr_ 

0426 

M.A.TA 

A , 1 L 

A. 

HEAD  T A 1 1 

0427 

OCT 

0 

0428 

CODES  60 

M , A » = 

A, 

A. 

IS  EDUALS 

0429 

M.A.P 

A, 

A. 

B , 47 5 4 

0430 

OCT 

0 
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POA31 

AGC  OPERATION-  CODE 

TA3i.ES  CONCLUDED.- 

PLEASE 

1 GnOpE  THE  3A-\1<  ERRORS-.  . . _ 

OA32 

CODES  71 

M.A.Cs 

A, 

A* 

B ,6000 

0A33 

_ M,A,TS_. 

. A » ..  

A i 

-..  _ _ 3 ,6610  _ - . 

0 A 3 A 

m»a*lx 

A ,CH 

A* 

B 1 5 1 1 0 

0A35 

M , A ♦ LX 

A, A, 

A ♦ 1 

B , AA7 1 

0A36 

MtA.LX 

A,  A. 

_ A , 2 _ 

...  ...  8.AA71.  _ . ...  ..  . ... 

0A37 

M , A , LX 

A,C, 

A * 1 

B.A501 

0A38 

MtA.LX 

A,C, 

A * 2 

B.A501 

0A39 

MtA.PU 

A.StL 

A » - .... 

. 3,5311 

OAAO 

MtA.XS 

A,U, 

A»1 

B , A56 1 

OA  A 1 

M,A,XS 

A,U, 

A, 2 

B , A561 

OAA2 

. M, A , XX 

A,AL 

A,  3 

. . .8  , A QC2 

OA  A3 

OCT 

0 

oaaa 

_COJ3j;S-70 

M,A,CO 

A,H 

_A , _ 

. ..  _.  B , 6002 

OAA5 

m.a.go 

A, TO 

A , 

8 » A6  0 1 

OA  A6 

M , A , Go 

B . 1 563 

A , 0 

B » A6 0 1 

0AA7 

M.A.CL 

A »R 

-A » 

B .505 1 . . . 

OA  AS 

M » A ♦ CL 

A,EA 

A*R 

B , 505 1 

0AA9 

M,A,CO 

A , S 

At 

B 1 5 1 5 1 

0A50 

M,A,CO 

A, SI 

A t_N£  . . 

... 8j5.15l1 

OA51 

M,A,TL 

A »OA 

A « D 

B.A051 

OA52 

M » A * CL 

A * RG 

AtO 

B , 503 1 

0A53 

M , A , XL 

A,Q 

B,AOQS 

OA535 

M ♦ A ♦ CO 

A, UN 

A * T 

COUNT 

OA5A 

M.A.LO 

A,C 

At 

SETLOC 

. OASA1 

M , A » = P 

A * LU 

A t S 

EOU  PL JS 

0A5A2 

M,A»=M 

A,  IN 

AtJS 

E3U  MINJq 

OA55 

OCT 

0 
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Roooi  ^eTTre  Deeply  INDEBTED  TO  THE  one.  THE  only.  THE  3REA1  JOHN  sHAw  fOR  THe  FOLLOWING  STRONG  MAGIC.... 

R0003  *JSQCT>- 


0004  * SETL0C.2  SIZ  PASS  1 B1 


0005  * MAS<GRP , 3 S.l  F.l 


R0006  THE  SACO  3 ART  OF  PASS  1 CONTAINS  THE  FDLLO/vING  DATA! 


R0007 

R0009 

ROOU 

MAXIMJM  LEGAL  NUMERIC  OPERATION  CODE,  GREATEST  ADDRESS  OF  A MEMORY  LOCATION 
ShIFT  AMOUNTS  FOR  CONCERTING  A BLOCK  NUMBER  TO  AN  ADDRESS  ANr>  FOR  STORING  A 
SHOWING  WHICH  LOCATIONS  In  SACO  ARE  ERASASLe,  FIX-D,  AND  SPfcIAL/NONEXI STENT 

, DITTO  + 1,  BLOCK  SIZE  - 1, 

numeric  operation  code,  a ta3Le 
, AND  a table  OF  SYMBOLIC  03ERA. 

R0013 

R001A2 

TION  CODES,  EACH  wlTH  EITHER  CODeD  BINARY  INFORMATION  (INSTRUCTION  CODES)  OR 
IN  SACO.  THIS  TABLE  IS  LOCATED  IN  BANK  5. 

AN  ADDRESS  (CLERICAL  CODES), 

R0015 

CODINS  IS 

ALSO  PROVIO 

ED  here  to  process  (3artlyj  [He  address  field  of  polish 

operator  cards. 

JO 

o 

o 

^QUANTITIES 

FILLED  IN 

for  reference  by 

GENERAL  PASS  J,  • 

0018 

SC  QP  THRS 

SPEC 

QP  THRS 

0019 

0020 
OOZl 

SC  MAX  NOP 
SC  MAX  LOC 
SC  ADR  LIM 

FXBIN 

OCT 

OCT 

7 

- 17777 

- 20000 

0022 

0023 

0024 

SC  BLO<  IS 
sc  shifts 
sc  T Y 3 TAB 

OCT 

OCT 

CAC 

-377 

0000  00^4  24 
COUNT  STA 

00241 

00242 
0025 

SC  SJ3  LOC 
SC  COJNSP 
*sc  SPCIAL 

EQUALS 

EQUALS 

TS 

SC  TYP  TAB 
SC  TYP  TAB 
C.  + l 

OP  FOUND  SEG  TEST 

0026 

# 

TS 

SACO  MXR 

z.mxr  polish  q 

00261 

00262 

SC  el^ft  p 
sc  fleft  p 

CAC 

CAC 

6149 

6165 

GOT  ELEFp 
1024  SC  FLEFTO 

0027 

SACO  NEMO 

OCT 

-1000  0057 

0028 

0029 

0030 

OCT 

OCT 

_D£C 

-4000  1777 
-2001  7777 
BBOO  FFFF 

00301 

0031 

*SEG  vj^MO 

* 

OCT 

RESERVE 

-1001  7777 
23 

00312 

00314 

*SEG  TEST 

* 

EX 

LA 

SWITCH 

SEG  TEST  __ 

BIT  7 SEG  TEST 

ZERO  POST  SPF/'-  EXIT 

If  not  in  a SEGMENT  assembly. 

00316  * ts  seg  memo  saco  memo  *z post  spec  change  fixed  to  spec/non  and  exit. 


•*  A 
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00329 

0033 

• B*VMA5KM 
B » CLT  SM 

OCT 

OCT  _ . 

0 

7 777  77  77  7777  _ 

) 

00  3 A 

BONESM 

OCT 

7777  7777  7777  7777 

00  3 5 

B*B18T24M 

OCT 

0000  0177 

0036 

_ B*  B22  f 2 5M 

JOCT 

0000  0007  A 

0037 

B * B2  2 I 32M 

OCT 

0000  0007  776 

0038 

B*£25T31M 

OCT 

-7740  0000 

0039 

B*8IT29M 

OCT 

-0200  0000 

0040 

B.C7T3M 

OCT 

-7777 

00  A 1 

B * B3 7 348M 

OCT 

-4001 

0042 

B * B4 1 T 45M 

OCT 

-370 

0043 

B * T W 0 *1, 

ocr 

-2 

0044 

B * ONE  *1. 

OCT 

-1 

0045  B»CHAR7M 

OCT 

-7700 

0046 

B *CHAR8M 

OCT 

-77 

R0048 

constants. 

00481 

B36T33M 

OCT 

-16000 

00482 

OCT  2000 

OCT 

-2000 

00483  OCT  5777 

OCT 

-5777 

0049 

SACO  MXR 

mascbase 

S . 1 F * 1 

0050 

SPECOND  7 

OCT 

-70 

0051 

SPECON  12 

OCT 

-120 

0052 

2 POLOP  7 

QCI 

o 

UJ 

O 

o 

c 

o 

o 

0053 

2 P0L3P  17 

OCT 

-0740  0000 

0054 

2 POLOP  27 

OCT 

-1340  0000 

R0054i 

SPECIAL 

rqjtine  in  pass  l 

For  sacq  iq 

ALLOCATE  LfftOVfR  INSTRUCTIONS  and  CONSTANTS  to  HXeD  3ANKS. 

00542 

005422 

sc 

flefto 

LA 

LA 

LoC  CTR 
ONES 

OCT  5777 
LOC  CTR 

ff  or  eras 
ff  or  eras  +1 

if  bad  loc  ctr.  anywhere  in  fixtd  is  ok. 

00543 

00544 

00545 

ss 

TS 

CAC 

LOC  CTR 
C,  + l 

B36T38M 
COMMON  +2 
6149 

C,  + 2 

GOT  FLEFP 

IF  LOC  Ctr  IS  IN  A BANK,  SO  IS  LEFTOVER. 

00546 

00547 

FF 

OR  ERAS 

LA 

TS 

OCT  2000 

C i + 1 

LOC  CTR 
COMMON  +2 

GOT  FLEFP 
GOT  FLEFP 

if  fixed  fixed,  oRIG.  parameter  was  d<. 
IF  erasable*  ANYWHERE  In  fixed  is  ok. 

00548 

CAC 

6245 

1024 

J 
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SPECIAL  ROUTINE  IN  PASS  1 

FOR  SACO  TO  RESPOND  10  THE  FINDING  OF_An  INSTRUCTION  OPERATION  CODc  IF 

R0057 

R0O59 

R0061 

THE  CODE  IS  A POLISH  OR  STORE  ADDRESS  CONSTANT. 
AND  R-TURNS  TO  THt  GENERAL  INSTRUCTION-PROCeSSIN 
_EUJmLENT  IS  PLACED  IN  BITS  18-24  OF  HEALTH  AND 

Resets  the  beginning-of-equation  indicator  <bit  2 9 of  switch) 
G PROCeDJRe.  if  the  CODE  IS  A POLISH  OPERATOR,  THe  SEVEN-BIT 
the  BeGINNInG-0F-E3UATI0N  INDICATOR  IS  EXAMINED,  if  IT  is 

R0063 

R0065 

R0067 

RESET  ( A5  IS  TRUE  INI  1 1 ALLY) • IT  IS  NOW  SET  AND 
IS  TO  DECODE  AN  OPERATOR  WORD  COUNT  FROM  THeRE. 
BLANC  OPERATOR  00.  NJMeRIC:  OPERATOR  07  (ASSUME 

07  is  sjpplied  as  the  second  operator,  to  indicate  that  pass  2 
OTHERWISE,  the  ADDRESS  FIELD  IS  INTERPRETED  as  follows... 

NEW  EQUATION) , SYMBOLIC  WITH  MODIFIER:  OPERATOR  17  (IL-EoAL 

R0069 

oon .. 

0072 

0074 

0076 

FORMAT),  SYMBOLIC;  VA.Ue  FROM  OPERATION  CODE  TABLE  IF  POLISH  OPERATOR,  OR  OPERATOR  27  OTHERWISE. 
POLISH  3 NA,  ONE M 4,0  ZERO'  POLISH  OP  

SwS,  B22T32M 
NA,  TWOM 
LA,  BA1T45M. 

N,X4 

4,0 

4,0 

16. L 
zero 

SPECQND  7 

health 

SC  Pl  EXIT 
SJC_P  1 EXIT 

SEND  BITS  AS  USUAL  IF  NOT  POLISH. 
EXIT  IF  AN  IMPLIeD-ADDReSS  CODE. 

0077 

0079 

LA,  B41T43M. 
TS,  B I T29 M 

SPECON  12 

zero 

4,0 

SWITCH 

SC  Pl  EXIT 
SC  Pl  EXIT 

BRANCH  IF  NOT  A POLISH  OR  STORE  ADDRESS. 

reset  indicator,  exit. 

0081 

POLISH  OP  SWS,  B18T24M 

N,X4 

21  *L 

health 

SEND  EQUIVALENT  OF  LEFT  OPERATOR. 

0083 

SM 

HEALTH 

BIT  32 

HEALTH 

INDICATE  POLISH  OPERATOR  WORD. 

0085 

NA,  B I T 2 9 M 

SWITCH 

ZERO 

TWO  POLES  

BRANCH  IF  NOT  BEGINNING  OF  EQUATION, 

0087 

SM 

health 

2 POLOP  7 

HEALTH 

send  indication  TO  PASS  2. 

0089 

TS,  B I T 29 Mi 

ones 

SWITCH 

SC  Pl  EXIT 

SET  INDICATOR  AND  EXIT. 

0091 

TWO  POLES  TX 

Pl  MASKS 

- 

Z.MXR 

0092 

TS 

Z,SC 

Z , X 4 

adr  field 

decode  address  field. 

0094 

LA 

field  cod 

ZERO 

INSTRUCT 

fast  £X1t  FOR  BLANK  (VACUOUS)  03ERAT or , 

OO96 

TX 

SACO  MXK 

Z.MXR 

0097 

NA 

FIELD  COQ_ 

BIT  1 

POLIstLOP  +3 

BRANCH  IF  ADDRESS  FIELD  Is  NOT  SYMBOLIC. 

0099 

LA 

FIELD  Cod  +1 

ZERO 

C , + 2 

BRANCH  IF  NO  MODIFIER. 

0101 

TS,  B2ST31M 

2 POLOP  17 

health 

SC  Pl  EXIT 

INDICATE  IMPROPER  ADDRESS  FIELD,  EXIT. 

0103 

NA,  CHAR8M 

ADR  WD 

ASTRISKS 

C , + 3 

BRANCH  IF  NO  DETACHED  ASTERISK. 

0105 

NA,  C'hAR7M. 

AqR  WD 

blanks 

POLE  FAIL 

BRANCH  If  OPERATOR  SYMBOL  TOO  LONG. 

0107 

ts,  chars m 

BLANKS 

ADR  WD 

POLE  SEEK 

blank  our  asterisk,  look  up  cod-. 

0109 

NA,  C7T8M 

ADR  WD 

BLANKS 

pole  fail 

BRANCH  IF  MORE  THAN  SIX  CHARACTERS. 

0111 

TS 

n l char  6 

Z , X 4 

C , + 2 

REVERSE  BASE  FOR  SET  OF  CHARACTER  MAs<S‘ 

0113 

NA,  (/MASK  M 

ADR  WD 

BLANKS 

C,  + 2 

SCAN  TO  LEFT  UNTIL  A CHARACTER  IS  FOJND, 

0115 

TS 

N,X4, 1 

N.MXR 

C,-l 

0116 

NA,  VMASKM 

ADR  WD 

ASTRISKS 

POLE  SEEK 

proceed  with  search  if  no  asterisk. 

0118 

SS 

BLANKS 

n.mxr 

ADR  wD 

BLANK  OUT  ATTACHED  ASTERISK. 

0120 

POLE  SEEK  TX 

SC  OP  THRS 

_ 

Z,X4 

0121 

SWS*  B22T25M 

AdR  WD 

17 

C,  + l 

0122 

SWE,  ONESM 

4,0 

0 

Z ,X4 

SELECT  SECTION  OF  OP  CODE  LIST. 

0124 

TX 

Z,SC»1 

_ 

_ 

0125 

LA 

N t X 4 « l 

ZERO 

POLE  F A 1 1 

BRANCH  IF  OP  CODE  NOT  FOUND. 

0127 

NA,  C1T6M 

ADR  WD 

4,0 

c , - 1 

SEARCH  THROUGH  SELECTED  S0BLIST. 

0129 

LA,  B37B43M 

ONES 

4,0 

C , +2 

BRANCH  IF  POLISH  OPERATOR  FOUND, 

0131 

POLE  -AIL  TS,  B2ST31M. 

2 POLOP  27 

health 

SC  Pl  exit 

INDICATE  FAILURE  AND  EXIT. 

_ _ 0133 

SWS,  B25T31M 

n.xh 

1 4 « L 

health 

SEND  EQUIVALENT  OF  RIGHT  OPfRATDR.  

0135 

SC  Pi  EXIT  TS 

Pl  MASKS 

Z.MXR 

INSTRUCT 

L 
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P01352- 

SPECIAL  PROCESSING  FOR  COUNT*  CODE, 

01354 

maskgrp 

S,0 

FtO 

01356 

COJNT  STA 

na*  Chari 

ADR  WD 

dollars 

ILL  COJNt  C 

01358 

sws*  chari 

LOC  CTR 

16 

ADR  WD  S 

REPLACE 

DOLLAR  SION  with  bank 

NJM3ER. 

R0136 

operation 

code  threads  and 

tables  For 

-Saco*.  JseD  lN- pass  i. 

01362 

SETL0C.3 

0 

B5 

01364 

SETL0C.4 

15 

B5 

0132 

_QP  T HRS 

CAC 

_ CODES  01  - 

_ BAD  CODE  - - 

0138 

CAC 

CODES  11 

CODES  10 

0139 

CAC 

CODES  21 

CODES  20 

0140 

CAC 

CODES  31 

Codes  aa_ 

0141 

CAC 

CODES  41 

bad  Code 

0142 

CAC 

CODES  51 

CODES  50 

0143 

CAC 

CODES  61 

Codes  jja 

0144 

CAC 

CODES  71 

CODES  70 

Ro  1 444 

sacd  operation  code 

tables,  please 

IGNORE  THE  BAmK  ERRORS. 

0145 

CODES  01 

M*A»MA 

A * 5K 

A* 

B 1 7400 

0146 

M t A , DE 

A * C 

At 

DECIMAL 

0147 

M.AtDA 

A»D 

A, 

B.4341 

0148 

M • A * DD 

AtV 

At 

B 1 464 1 

0149 

MtA.HE 

A, AD 

A. 

HEAD  TAIi 

0150 

M.A.Me 

A, MO 

A,RY 

LATE  MEM 

0151 

bad  CODE 

OCT 

0 

0152 

CODES  11 

M.A.DV 

A, 

A, 

B » 6600 

0153 

M t A * MS 

A.K 

At 

B 1 7400 

0154 

M . A , DS 

A,U 

At 

B . 444 1 

0155 

MtAtDS 

A * 0 

At 

B * 53 3 1 

0156 

M t A * MX 

A,V 

At 

B t 52  41 

0157 

OCT 

0 

0158 

CODES  10 

M « A * MP 

A. 

At 

B .6200 

0159 

MtAtPM 

A »P 

At 

3,4541 

0160 

M » A * DM 

A, PR 

At 

B.5101 

0161 

MtAtDO 

A * T 

At 

B » 5 6 4 1 

0162 

MtAtUN 

A, IT 

At 

B . 423 1 

0163 

M. A* DM 

A,OV 

. A,E 

3,5531 

0164  ■ M*A,D0  A.UB  A»LE  ~ B ,7002 

0165  OCT  0 
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P01 66  _ 

SACQ_  OPERATION  CODE 

TABLES  CONTINUED. 

_ PLEASE  _lGip 

RE  I HE  BA\jk  ERRORS.  

0167 

CODES  21  M * A * AD 

A« 

At 

B , 7000 

0168 

_ MtAtNP 

A » X 

At  

3t5040  . _ _ _ _ _ 

0169 

m,a,va 

AtD 

At 

3,5341 

0170 

M , A , AC 

A, OS 

At 

B , 47 3 1 

m.a,ab 

AtS 

At 

5,4531 

0172 

M t A , AB 

A * VA 

AtL 

3,4331 

0173 

m»a.vd 

A,EF 

At 

B , 57  3 1 

0174 

MiA*AD 

A , R£_ . 

AtS.  

B j 40  6-0- 

0175 

m,a,re 

A,TU 

A t R N 

B , 4006 

0176 

M , A ,NE 

A, XT 

At 

B , 57 1 1 

0177 

Mi A. RE 

A, LI 

A t NT 

3,5016 ___  

0178 

M * A * R E 

A,SU 

A t ME 

B , 5026 

0179 

OCT 

0 

0180 

CODES  20  M t A , 

A, 

At 

o 

o 

vT 

CO 

0181 

OCT 

0 

0182 

CODES  31  M * A * I S 

A, 

At 

IS  EDUALa 

0183 

MtAtEX 

A,TE 

A t NO 

B , 5 1 32 

01831 

M , A , E V 

A ,EN 

At 

EVEN  _____  _ _ _ _ _ 

0184 

M,A,  IT 

A,C 

At 

B,4041 

0185 

MtAt IT 

A ,CQ 

At 

B , 575 1 

0186 

M,A,VX 

A,M 

At 

3,5301  _ _ _ 

0187 

M » A * VS 

A,U  . 

At 

B , 4 1 4 1 

0188 

M t A t VS 

A ,RT 

At 

B,550l 

0189 

MtAtVS 

A,LT 

At 

B,554i 

0190 

M * A * VX 

A,  SC 

At 

B.4101 

0191 

m.a,vx 

AtV 

At 

B ,5701 

0192 

MtAtEx 

A, IT 

At 

Bi401_L 

0193 

M , A * RT 

A,B 

At 

B ,405 1 

0194 

M i A * AX 

AtTt 

A 1 1 

B ,41 1 1 

0195 

m»a,ax 

AtTt 

A 1 2 

B.415JL 

0196 

M , A t A X 

AtCt 

A 1 1 

8,5211 

0197 

MtAtAX 

AtCt 

A 1 2 

B ,5251 

0198 

M , A , VS 

AtQ 

At 

3,4431  _ _ _ 

0199 

M * A » As 

A,Tt 

A 1 1 

B , 5 1 1 1 

0200 

M * A ♦ A S 

AtTt 

A 1 2 

3,5151 

0201 

M * A * AS 

At  IN 

At 

B , 4 6 3_1 

0202 

M *A  * I T 

A, A 

At 

B , 55 1 1 

0203 

MtAtlT 

AtCI 

At 

B,5551 

0204 

_ OCT 

0 
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P02041 

SACO  OPERATION  CODE 

TABLES  CONTINUED 

. EL EASE. 

IGlNqRe.  THE- bank  ERRORS. 

0205 

COOES  30 

M.A,  IN 

A.DE 

A , X 

0 * 50^0 

0206 

M » A , fc  Q 

A.UA 

A.LS 

Is  EOJAls  _ . _ _ _ _ _ _ _ 

0207 

M.A.ER 

A, AS 

A , E 

ERASE 

0208 

M.A, No 

A.LO 

A , D 

B.5411 

0209 

M t A . NO 

A.LO 

A,  AD  .. 

B.5411  _ 

0210 

M.A.RO 

A, UN 

A , D 

8,5451 

0211 

M.A.VM 

A ,0V 

A , E 

B.4131 

. M.A, IN 

A.CR 

3,4611 _______ 

0213 

MtA.  IN 

A.CR 

A,  ,2 

B.4651 

0214 

M , A » VP 

A.RO 

A.J 

B.5741 

0215 

M.A, No 

A, OP 

A, 

B.54Q2 

0216 

m*a*  in 

A, HI 

A. NT 

B , 5022 

0217 

OCT 

0 

0219 

CODES  41 

M.A.OC 

A , T 

A, 

octal 

0220 

M.A.OC 

A.TA 

A , L 

OCTAL 

0221 

M.A, 2D 

A, EC 

A. 

2DECIMAL 

0222 

m.a.se 

A.TL 

A.OC 

SETLOC 

0223 

m.a.bh 

A.IZ 

A, 

B.4401 

0224 

m.a.bd 

A.SU 

A,  . 

3.4501  . _ _ ...  _ 

0225 

m.a.bd 

A.DV 

A, 

B.4701 

0226 

m.a.si 

A.GN 

A, 

B , 5201 

0227 

M.A.SI 

A.N 

A. 

B.503E 

0228 

M f A ♦ 5G 

A ,N 

A. 

B.5201 

02281 

* 

M.A.SE 

A.GN 

A.J''! 

LATE  MEM 

0229 

_DCT 

0 

0230 

CODES  51 

M.A.SU 

A, 

A. 

B , 72  00 

0231 

M » A * 5T 

A, OR 

A.E 

B ,41 10 

0232 

M , A » OV 

A.SK 

A. 

B , 6402 

0233 

M.A.SW 

A, IT 

A.CH 

B.5651 

0234 

M i A i BZ 

A , E 

A, 

B « 5401 

0235 

M,A,ST 

A.Z 

A, 

B ,4241 

0236 

M.A.BV 

A.SU 

A, 

B , 5441 

0237 

M , A » SX 

A, A, 

A ♦ 1 

B.4411 

0238 

M.A.SX 

A, A, 

A « 2 

B.4451 

0239 

M.A.SU 

A.BR 

A « 0 

SJBRO 

0240 

DC! 

0 

0241 

CODES  50 

m.a.bl 

A.OC 

A ,< 

BLOCK 

0242 

m.a.bp 

A , L 

A. 

3,5601  

0243 

m.a.bm 

A.N 

A, 

B.4201 

0244 

m.a.bo 

A » V 

A, 

B.4301 

0245 

m.a.sq 

A.RT 

A, 

B.5231 

0246 

m.a.sm 

A.OV 

A.E 

B.5631 

0247 

M.A, 20 

A.CT 

A, 

20CT AL 

0248 

M » A ♦ 20 

A.CT 

A,  AL 

20CTAL 

0249 

M.A.SQ 

A.UA 

A, RE 

B.6202 

0250 

OCT 

0 
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0252  CODES  61 

M,A,TC 

A, 

A, 

B.AOOO 

0253- 

M , A , XC 

A ,H  _ 

_ A,  _ 

B . 5400 

02  5 A 

M,A,CC 

A , S 

A. 

3,4400 

0255 

M,A,CA 

A , F 

A. 

B » 5410 

0256 

M.A, TE 

A, ST 

A i 

3,5611 

0257 

M.A.XC 

A.HX 

A,  , 1 

B.4511 

0258 

M,A,XC 

A.HX 

A , , 2 

B.4551 

0259 

M,A,XA 

A.D, 

A . 1 

_ B.4711 

0260 

m»a»xa 

A.D, 

A, 2 

B.4751 

0261 

M » A , T I 

A , X , 

A , 1 

6,5311 

02  62 

M , A , T I 

A , X , 

A, 2 - 

B .535  L 

0263 

M.A.TA 

A.D 

A. 

B.A741 

0264 

M , A , TC 

A ,R 

A. 

B.AOOO 

0265 

M» A * TC 

A.AA 

A.  

_ B.6412 

0266 

MtA.XA 

A ,Q 

A, 

B , 4002 

0267 

M.A.CA 

A, DR 

A, 

B.A070 

0268 

M ♦ A » 

A, AD 

A » R- 

_ B.4120  - _ 

0269 

M.A.TA 

A.IL 

A* 

HEAD  TAIf 

0270 

OCT 

0 

0271  CODES  60 

M»A.= 

A, 

A. 

IS  E3UALS 

0272 

M.A.P 

A, 

A, 

B.A100 

0273 

OCT 

0 

0274  CODES  71 

M.A.CS 

A, 

A. 

B , 6000 

0275 

M . A . TS 

A, 

A, 

B » 6450 

02751 

m.a.ts 

A ,F 

A. 

B , 6400 

0276 

M * A . TS 

A ,U 

A, 

B , 5 1 4 1 

0277 

M i A f T 5 

A.RT 

A, 

B.5041 

0278 

M.a.ts 

A.LT 

A, 

B ,4601 

0279 

M.A.TS 

A.LC 

A, 

B.5001 

0280 

M.A, LX 

A, A, 

A » 1 

B.4211 

0281 

M.A.LX 

A, A, 

A, 2 

B ,4251 

0282 

M.A.LX 

A , C , 

A.i 

B ,431 1 

0283 

m.a.lx 

A ,C , 

A, 2 

B,4351 

0284 

M ♦ A » XS 

A.U, 

A.I 

B , 501 1 

0285 

M.A.XS 

A ,U , 

A, 2 

B , 50  5 1 

0286 

OCT 

0 

0287  CODES  70 

M.A, CO 

A.M 

A, 

B , 6002 

0288 

M.A.LO 

A ,C 

: A, 

SETLDC 

0289 

M.A.LO 

A, DO 

A » N 

B , 5 7 1 1 

0290 

m.a.tm 

A.OV 

A » E 

B ,403 1 

0291 

M.A, TP 

Ai 

A, 

B.4031 

0292 

m.a.co 

A.MP 

A, 

3,5431 

0293 

M.A, CO 

A , S 

A. 

8,5131 

02935 

M.A.CO 

A, UN 

A , T 

COUNT 

02936 

M » A ♦ =P 

A.LU 

A » S 

EJU  PL JS 

02937 

M , A , =M 

A,  IN 

A.JS 

EUU  Ml  N J<; 

0294 

OCT 

0 
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Poo 01  wt  are  deeply  indebted  io  the  one,  the  only,  the  3*eat  jdhn  shaw  for  the  following  strong  magic.... 

R0003  JSQCTU 


ooo  A 


SETL0C.2 SIZ  P ASS  1 R1 


0005 


MAS<GRP , 1 5,0  F , 0 


R0006  THE  1800  3aKI  Oh  PaSS  1 CONTAINS  ONLY  a DUMMY  MEMORY  TYPE  TaBLE*  AND  EnOUGH  CODlNO  TO  MaKE  A L INPJT 

Rq008  CARPS  WITH  BLANic  IN  COLUMN  1 BE  TREATED  AS  IF  THEY  HAD  "Ri»  In  COLUMN  1. 


0009 

0010 
00  li 

RESERVE 

18  T Y 3 TAb  SPEC 
TX 

6 

NOT  RIGHT  +1 

1800  MEMO 
XM1T  RTRN  -l 

- 

MAKE  EVERYTHING  LOOK  LIKE  REMARKS. 

0013 

TN 

zero 

1 

PAGE  HEAD 

00132 

MT 

blanks 

1A 

N,AJ2, 1 

CLEAR  SPACING  AND  MOST  TEXT  Oh  HEAD. 

00139 

is 

c , + 1 

N LINES  . 

POST  SPEC 

00 1 A OCT  0070 


0015  1800  MEMO  0C1  -1000  0000 

0016  dec  bboo  ffff  _ _ _ 

OOW  RESERVE  26 

0018  OCT  0 MAKE  WHOLE  TABLE  LET  LOADED. 


END  Oh  KEVISION  28  OF  PROCLAIM  YULPASSl  BY  HB-S 


SYMBOL  TABLE  LISTING*  INCLUDING  PA&E  NUMBER  OF  DEFINITION,  AND  NUMBER  OF  REFERENCES  WITH  FIRST  AND  LAST  HAGe  NJ-lPg86  112 
THFRF  ARF  NO  SYMBOLS  IN  THIS  ASSEMBLY. 


THE  ASSEMBLY  WAS  GOODS  MANU- AL | URABLt  BINARY  RECORDS  STDRtD  ON  EXPEROGS 


L 


Roooooi 

ROOOOl 

R00005 

0001 

0002 
00022 

R0002A 

00026 


R0003 

ROG05 

R0007 

R0009 

Rooi  1 
Roo  1 3 
R001A 

Roo  1 6 
r0018 
R0020 
R0026 

r0027 

r0029 
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USER'S  OWN  PAGE  NO.  1 PAGE  1 


we  are  deeply  indebted  ro  the  owe.  the  only*  the  great  john  ahaw  for  the  following  strong  magic.... 

JSDCT  _ 


bank 

i part  of  genera. 

PASS  2. 

SETLOc, 6C 

102A 

B7 

MASKGrP , 6 

S,0 

F , 0 

cuss 

.1ST  RESERVE 

6 A 

general  pass  z masks  are  in  upper  half  of  bank  7.  program  u in  bank  1. 
SETLOc  * 1C  0 B 1 


YUL  SYSTEM  RASS  2 FINISHES  THe  eBSeNTIAL  FUNCTIONS  OF  ASSEMBLY.  IT  READS  PoPO  RECORDS  FruM  tA°E  2 

and  merges  thf  Resulting  sypt  RtcoRDs  (program  assembly)  or  sylt  records  (subroutine  assembly)  with  the  saved 
sypt  and  sylt  records  from  tape  3 onto  ta3e  i.  jnsorted  word  records  are  written  on  tape  a. 


PASS  2 ALSO  PRINTS  THe  ASSEMBLY  LISTING1*  SHOWING  tHe  ORIGINAL  YUL  LANGUAGe  SIDe  BY  SIDe  WITH  OCTAL 

equivalents,  and  inserting  deiailed  error  and  warning  messagfs  as  required,  right  print  cards  accompanying  «r» 
or  "P"  remarks  cards  are  printed  to  the  right  of  the  "R"  dr  "p"  card,  on  the  same  line*  otherwise  as  continua- 
tion CARDS  (BELOW,  AT  THe  RIGHT).  THIS  CODING  ALSO  I NCLJDE5  PASS  1.5  (SEE  PAGE  53). 


the  chief  rUNcrioNs  uF  pass  2 for  various  card  tvdes  are  tabulated  below... 

1)  instructions.  evaluate  t^e  address  field  and  fooM  the  instruction  word,  complementing  if  required, 

2)  constants.  evaluate  the  Constant*  flag  it  as  sjch,  and  form  one  or  two  words*  as  needed. 

3)  OTHER.  report  resjlts  from  PASSES  1 and  1.5. 


AT 

TO  BE  ANOTHER 


THe  eN3  OF  PASS  2* 

task. 


TAPeS  2* 


3*  and  a are  ReWOJND. 


tAPe  2 AND  tAPe  3 ARe  ReLeASeD,  UNLeBS  tHErE  IB 


L 


eYUL  SYSTEM  assembler  — PASS  2 


USER'S  OWN  PAGE  NO 


2 


PAGE 


P0CI30  ITEMS  FOR  INTERPASS  5IORAGE.  63  WORDS. 


0031 

PROG  MAME 

reserve 

1 

0032 

NEXT  NAME 

RESERVE 

1 

0033 

SWITCH* 

reserve 

1 

003A 

L OLD  LINE 

RESERVE 

1 

0035 

OLD  LINE 

RESERVE 

16 

0036 

PAGE  READ 

reserve 

16 

0037 

page  NO 

reserve 

1 

0039 

SYM  P.ACE 

reserve 

1 

00  AO 

SYM  TAB  XS 

RESERVE 

1 

00  A 1 

L COP  BUFS 

RESERVE 

1 

00  A3 

MID  POINT 

RESERVE 

1 

00  AA 

LIN  COUNT 

reserve 

1 

00A5 

N WD  RECS 

RESERVE 

1 

00  A6 

E SYLI  BAN 

RESERVE 

1 

00  A7 

L PROS  FIL 

reserve 

1 

00A8 

N LINES 

RESERVE 

1 

00A85 

L COM3  NAM 

reserve 

1 

C0A9 

N COPIES 

reserve 

1 

00  A9 1 

PAPER  PLY 

reserve 

1 

00  A92 

ERR  PAGES 

RESERVE 

1 

00A93 

N ERR  LINS 

RESERVE 

1 

00A9A 

L AJTRi  NAM 

reserve 

1 

00A95 

SORS  NAME 

RESERVE 

1 

00A96 

COMP J TER 

RESERVE 

1 

00A99 

seg  owner 

RESERVE 

1 

0050 

SUBS] RAB 

RESERVE 

8 

R0051 

THE 

•"oLLu^ING  INSTRUCTION 

IS  placed 

at  The  BaSc  address 

OF 

Pass  2 (loom  f0r  convenience. 

0053 

YUL  PASS  2 

TS 

P 1 * 5 MXR 

Z,MXR 

pass  1 ■ 5 

first  process  consequences  of  pass  1 

R005A1 

simulated 

£XteNDeD  TS 

ROUflNE*  PLACED 

heRe  to 

J-A<r  ADVANTAGE  OF  jHe 

7* 

works  with  either  maskgrp  0 oR  7. 

00SA2 

ETS 

EQUALS 

YUL  PASS  2 

005A3 

SWS. 

C7T8 

ETS 

1Z 

C.  + 2 

C 

ADDRESS  OF  REGISTER  TO  BE  LOADED. 

005AA 

EX 

N.AUl 

CAC  3 

ETS 

c 

INPUT  IS  16  BITS. 

005AS 

eba 

ETS 

BIT  25 

z,0 

c 

OUTPUT  IS  2 A BITS. 

005A6 

NA 

Z.CSH 

Z.SC 

N.AU2 

c 

005A7 

TX 

Z.AU2 

m 

Z.SC 

s 

EXIT  IN  SAME  MODE  AS  ENTRY. 

L &YUL  SYSTEM  ASSEMBLER  — PASS  2 USER'S  OWN  PAGE  NO.  3 

P005A78  TR ANSrER  VECTOR  ENTRIES  69  ONwARD.  (TRANSFER  VECTOR  BEGINS  wITH  PROGNAME.) 


005A8 

zero 

OCT 

0 

005A8A 

BIT  A5  NOT 

OCT 

-177767 

005A88 

BIT  AS 

OCT 

-A 

005A92 

FREE  EXIT 

OCT 

-133760 

005A96 

SYPT  NTRY 

OCT 

-3377  7 

0055 

L CJS  LIST 

SPEC 

CJSS 

LIST 

00550A 

GENL  MXR 

masabase 

S,0 

F.O 

005508 

CONTINUE 

DEC 

+ 0 

005512 

MAY  MERGE 

DEC 

+ 0 

005516 

END  PARAS 

DEC 

+ G 

00552 

LYST  SYPT 

TS 

SYPT  NTRY 

Z » R A 

LIST 

SYPT 

R005521  ROJTINE  FOR  ALL  UNMANAGEABLE  1 ROUBLES. 


00552A  DISASTER  MPC , H Z,1  301  MON  PCR  IMITATE  ThE  ACTION  OF  A BACkGROjND, 

005528  ALF  DISASTER 

R005532  COSEOJENCE  SLEEPING  SUBROUTINE.  ENTRY:  TS  Z,SC  Z,AUl  CSr  SLEEP  S 


005536 

CSC  s 

leep 

TS 

- 

- 

MON  SLEEP 

c 

0055A 

TS 

Z.Aul 

z»sc 

N,SH 

c 

RECOVER  saved  sc  and  exit. 

R0055AA 

TRIVIAL  SUBROUT INE (S) 

10  RELEASE  a 

tape  IF  there 

WILL  NOT  Be  another 

task,  or  just  Rewind  it  if  there  a/ill. 

0055^8 

PELS 

OR  RW 

TS 

z.sc 

z»csc 

PHI  RLE  A<; 

005552 

TS 

z.sc 

z*csc 

phi  tape 

P005556 

cosedjence 

SUbROUjIN; 

TO  PLACE  in 

AUi  jHe  NAMf  OF 

a free  bjffeR. 

sleeps  if  necessary  until  a buffer  is  free. 

00556 

grab 

CREE 

TS 

Z,CSH 

Z.AJ2 

C * + 3 

c 

use  CSH  For  return  address. 

00556A 

TS 

N.RA 

Z « A J1 

C * ♦ A 

c 

GET  BUFFER  NAME. 

005568 

TS 

z,sc 

Z.AJl 

CSC  sleep 

s 

GO  TO  SLEEP  UNTIL  A BUFFER  IS  FREE. 

005572 

TS 

FREE  EXIT 

z.ra 

- 

c 

get  free  list  exit  pointer. 

005576 

SSL  * ONE 

N,Ra 

16 

C * -3 

c 

TEST  WHETHER  THERE  ARE  ANY  FREE  BJFFERS 

00558 

TS 

BIT  32 

N * R A * 1 

. 

c 

PLANT  BUSY  FLAG  IN  FREE  LIST. 

00558A 

EX 

Z.RA 

BIT  A 5 NOT 

free  exit 

c 

modulate  free  list  exit  pointer. 

005588 

TX 

Z.AU2 

- 

z.csc 

c 

MAY  BE  USED  IN  SC  MODE  WITH  CAR£. 

L 


feYUL  SYSTEM  ASSEMBLER 


PASS  2 


P005599 

FIEIU  AN& 

shift  masks  for  general 

0056 

B * 3 1 T 1 

OCT 

A 

0057 

B ♦ 3 1 T 2 

OCT 

2 

0058 

B.BIT  3 

OCT 

1 

0059 

B * B23  6 

OCT 

21 

0060 

B.B3T6 

OCT 

17 

0061 

B *31 T 7 

OCT 

OOA 

006,2 

B * 3 1 T 3 

OCT 

002 

006A 

B * 3 1 T 9 

OCT 

001 

0065 

B.B1TU 

OCT 

0002 

0066 

B * 3 1 T 12 

OCT 

0001 

0067 

B.311T12 

OCT 

0003 

0068 

B.31TIA 

OCT 

00002 

0069 

B.3IT15 

OCT 

00001 

0070 

B * 3 1 T 16 

OCT 

0000  OA 

0071 

B * 3 1 T 1 7 

DEC 

00008 

00  72 

B * 3 1 T 33 

DEC 

-8000 

00  7 A 

B.31317B33 

DEC 

8000  8000  8000 

0075 

B.  ALL3UTB1 

DEC 

7GGG  oGuG  GGGG 

0076 

B * ONE 

OCT 

-1 

0077 

B » C7  T 3 

OCT 

-7777 

0078 

B * 01  2 

DEC 

— G 

0079 

B*D2T12 

DEC 

OGGG  ooLjG  GGGG 

0080 

B ♦ CH A R 1 

OCT 

77 

0081 

B«CHAR7 

OCT 

-7700 

0082 

B * CHA  R8 

OCT 

-77 

0083 

B.C2T3 

OCT 

0077  7777  7777  7777 

008  A 

B * 3 1 T 3 A 

OCT 

-AOOOO 

0085 

B * CAC  3 

DEC 

-GGGG 

0086 

B * CHA  R6 

OCT 

-77  0000 

0087 

B.C5T3 

OCT 

-7777  7777 

0089 

B,AVM5< 

OCT 

0 

0091 

B * 3 1 T AA 

OCT 

-20 

2" 


USER'S  OWN  PAGE  NO 


PA&E 


A 


A 


C7T8  must  be  THE  20 th  b mask. 


variable  mask 


L 

@YUL  SYSTEM 

ASSEMBLER  — 

PASS  2 

P0093 

further  shift  masks  ;dr 

the  general  part  of 

00  9 A 

s 

* 3 1 T 36 

OCT 

-1  0000 

0095 

s 

i 32  T 3 

DEC 

7G 

0096 

s 

» 35T  6 

OCT 

03 

0097 

s 

.TWO 

OCT 

-2 

0098 

s 

.310112 

OCT 

0007 

0099 

s 

.319125 

OCT 

0000  0077 

4 

0100 

s 

.320125 

OCT 

0000  0037 

4 

0101 

s 

.326130 

OCT 

-3700  0000 

0102 

s 

.328130 

OCT 

-700  0000 

0103 

s 

.338148 

OCT 

-3777 

0104 

s 

» C 1 T 7 

OCT 

7777  7777 

7777 

77  DO 

0105 

s 

. DEC  ALFM i 

OCT 

0000  7777 

0000 

7777 

0107 

s 

.342 1 48 

OCT 

-177 

0108 

s 

.B44I47 

OCT 

-36 

0109 

s 

.347148 

OCT 

-3 

0111 

s 

. DEC  ALFM2 

OCT 

0074  0074 

0074 

0074 

0112 

s 

.DEC ALFM3 

OCT 

1717  1717 

1717 

1717 

0113 

s 

.Dim 

DEC 

GGGG  GGGG 

GGGO 

0114 

s 

.0103T12 

DEC 

GOGG  ooGG 

GGGG 

0115 

s 

♦D8T12 

DEC 

— G GGgG 

0116 

s 

.SPECMAG 

OCT 

-77777 

0117 

s 

. CAC  2 

DEC 

0000  oouG 

0118 

s 

.D4T3 

DEC 

000G  GGgG 

0119 

s 

* D 1 T 3 

DEC 

GGG 

0120 

s 

.ONES 

DEC 

GGGG  GGGG 

GGGG 

0121 

s 

.OCT  HASK 

OCT 

-7777  7770 

0122 

s 

. threadio 

OCT 

-3776 

0123 

s 

» 3 1 T 38 

OCT 

-2000 

0124 

s 

.31THRU45 

OCT 

7777  7777 

7777 

7770 

0125 

s 

. C 1 T 4 

OCT 

7777  7777 

0126 

s 

.31 T 29 

OCT 

-200  0000 

0127 

s 

. 3A0RES 

OCT 

-7777  0000 

USER'S  OWN  PAGt  NO 


PAGE 


5 


L feYUL  SYSTEM  ASSEMBLER  --  PASS  2 USER'S  OwN  PAGE  NO. 

P0129  COnSTanTS»  VARIABLE  STORAGE,  ASSIGNMENTS.  ETC.  FOr  GENERAL  PaSS  2. 


R0131  VARIABLE  STORAGE  RESERVATIONS. 


0132 

POPO  BUFF 

reserve 

1 

0133 

P03  P _ACE 

RESERVE 

1 

0139 

HEALTH; 

reserve 

12 

0135 

CARD 

EQUALS 

HEALTH  +1 

0136 

MOD  RETRN 

reserve 

1 

0137 

SAVE  w6 

RESERVE 

1 

0138 

MAX  DECML 

RESERVE 

3 

0139 

1 SCALE 

EQUALS 

MAX  DeCML 

+ 1 

0190 

MAX  NJMBR 

equals 

max  DECML 

+2 

0191 

LOCATION 

reserve 

1 

0192 

2ND  AuF 

RESERVE 

2 

0199 

2ND  HALF 

RESERVE 

1 

0195 

WORD 

reserve 

1 

0196 

COMMON 

RESERVE 

10 

0197 

WORD  3AGE 

RESERVE 

1 

0198 

L WD  3UFF 

reserve 

1 

0199 

L OLD  FWA 

RESERVE 

1 

0150 

ADR  WO 

reserve 

3 

0151 

EOJALOC 

RESERVE 

3 

0152 

ADDRESS 

RESERVE 

1 

0153 

SY3  P lACE 

RESERVE 

1 

0159 

SYPT  BUFF 

reserve 

1 

0155 

END  SYBJF 

RESERVE 

1 

0156 

FIELD  COD 

RESERVE 

2 

0157 

AFIELD 

reserve 

3 

0158 

ADDRESS  1 

equals 

card  +3 

0159 

ADDRESS  2 

EQUALS 

card  +9 

0160 

DIG  FILE 

RESERVE 

8 

0161 

SENT  _0C 

reserve 

1 

0162 

exponent 

RESERVE 

1 

0163 

MANTISSA 

RESERVE 

1 

0169 

full  oelt 

RESERVE 

1 

0165 

NFJL  OELT 

RESERVE 

1 

0166 

caracter 

RESERVE 

1 

0167 

CON  WORD 

RESERVE 

1 

0168 

NUMBER 

reserve 

1 

0169 

E NUM3ER 

reserve 

1 

0170 

DEC  DIGS 

reserve 

1 

0171 

B NJM3ER 

RESERVE 

1 

01711 

W6JF  *ULL 

reserve 

1 

L 


SjYUL  system  ASSEMBLER 


PASS  2 


P0173 

numerical 

constants. 

017A 

COJNT  PTR 

OCT 

1 

o 

o 

o 

c 

o 

0175 

MIN  ADRES 

OCT 

0 

01  7 6 

(RIGRTP) 

OCT 

07 

0177 

DA 

DEC 

000G 

0178 

B39TA3 

OCT 

-1777 

0179 

OCT  1777 

equals 

B39TA8 

0180 

BIT  32 

DEC 

-1  0000 

0181 

C31 

OCT 

-37 

0182 

TYPE  E 

OCT 

-A000  0000 

0183 

type  f 

OCT 

- 2000  0000 

0 1 8 A 

6DA 

DEC 

0006 

0186 

5D8 

DEC 

-5  0000 

0190 

CD8 

DEC 

-C  0000 

0191 

B26TA3 

OCT 

-3777  7777 

0192 

DEC  600 

DEC 

-600 

0193 

DEC  999 

DEC 

-999 

0195 

EIGHT 

DEC 

-8 

0196 

UNSIG  NJM 

OCT 

23 

0197 

PL JS  75 

FXBIN 

75 

0198 

TEN 

FXB I N 

-10 

0199 

FL  JNITY 

FLDEC' 

1.0 

0200 

BIT  A 1 

OCT 

-200 

0201 

B2  1 0 

FXBIN 

-210 

0202 

HEX  A9L 

DEC 

A 9 

0203 

B1B2 

OCT 

6 

020A 

fli  zero 

DEC 

DB 

02061 

HALF  ADJ 

FLDEC 

0.5 

0207 

PL JS  A2 

FXBIN 

A2 

0208 

PL  JS  3 

FXBIN 

3 

0209 

B135TA8 

DEC 

8GGG  oGGG  GGGG 

0210 

B25T26 

OCT 

-6000  0000 

0211 

DECS  rLAG 

DEC 

5 

0212 

DEC6  rLAG 

DEC 

6 

02122 

USER  3AGE 

DEC 

0 

02125 

B20T2  A 

OCT 

0000  0037 

02126 

A ADRES 

OCT 

0000  7777 

02127 

DEF  X-ORM 

OCT 

-31  1116  1 5 55 A 

02128 

CAC12 

DEC 

GGGG  GGGG 

USER'S  OWN  PAGE  NO.  7 PAGE 


(INITIAL  CONDITION). 

POPO  BUFF  THRU  MIN  ADReS  ARe  AN  ARRAY. 


L 


@YUl  ST STEM  ASSEMBLER 


PASS  Z 


P0213 


PRINT  LINE  storage;  equivalences  ANO  assignments 


02131 

LINE  ST3R  OCT 

0 

02132 

ALF.5 

02133 

ALP  .5 

02134 

ALP  , 5 

0214 

LINE 

ASSIGN 

0*0 

02145 

CUSS 

-1ST 

ASSIGN 

1 ,0 

0215 

PHI 

TAPE 

ASSIGN 

7.1 

0216 

EOR 

ASS  1 Gn 

7.4 

0217 

Phi 

LOAD 

ASSIGN 

7.7 

0218 

PHI 

R.EAS 

assign 

7,19 

0220 

PHI 

PRiINT 

ASSIGN 

7,23 

0221 

BASE 

addr 

ASSIGN 

7.47 

02213 

MON 

wa<e 

ASSIGN 

7.99 

02216 

MON 

S.EEP 

ASSIGN 

7,166 

02218 

MON 

TTPER 

assign 

7,215 

02219 

MON 

PCR 

ASS  I Gn 

7,220 

USER'S  OWN  PAGE  NO 


8 


PAGE 


8 


G 


L <9YUL  SYSTEM  ASSEMBLER  — PASS  2 

P0222  ASSIGNMENTS  TO  ALLOW  1ASKS  TO  Be  USED  AS 


022201 

BIT  1 

ASSIGN 

1 

,06A 

022202 

BIT  2 

assign 

1 

.065 

022203 

BIT  3 

assign 

1 

.066 

02220A 

B236 

assign 

1 

,067 

022205 

B3T6 

assign 

1 

,068 

022206 

B I T 7 

ASSIGN 

1 

,069 

022207 

BITS 

assign 

1 

,070 

022208 

B I T9 

assign 

1 

,071 

022209 

BIT11 

ASSIGN 

1 

,072 

02221 

BIT  12 

assign 

1 

,073 

022211 

B 1 1 T 1 2 

ASSIGN 

1 

,07A 

022212 

BIT1A 

ASSIGN 

1 

,075 

022213 

B I T 1 5 

ASS  I Gn 

1 

,076 

02  22 1 A 

BIT16 

ASS  I Gn 

1 

,077 

022215 

BIT17 

assign 

1 

,078 

022216 

BI  T33 

ASSIGN 

1 

,079 

022217 

B 1 31 7 333 

assign 

1 

,080 

022218 

ALLBJT31 

assign 

1 

,081 

022219 

ONE 

assign 

1 

,082 

02222 

C 7 T 8 

assign 

1 

,083 

022221 

D12 

ASSIGN 

1 

,08A 

022222 

D2T12 

ASSIGN 

1 

,085 

022223 

CHARI 

ASSIGN 

1 

,086 

02222A 

CHAR  7 

assign 

1 

,087 

022225 

CHAR8 

ASSIGN 

1 

,088 

022226 

C2T8 

assign 

1 

,089 

022227 

BIT3A 

ASS  I Gn 

1 

,090 

022228 

CAC3 

ASSIGN 

1 

,091 

022229 

CHAR6 

ASSIGN 

1 

,092 

02223 

C5T8 

assign 

1 

,093 

022231 

AVMS< 

assign 

1 

,09<+ 

022232 

BITAA 

assign 

1 

,095 

022233 

B I T 3 6 

ASSIGN 

1 

,096 

02  22  3 A 

B2T8 

ASSIGN 

1 

,097 

022235 

B5  T 6 

ASSIGN  • 

1 

,098 

022236 

TWO 

ASSIGN 

1 

.099 

022237 

BlOTl  2 

ASaIGN 

1 

,100 

022238 

B19T25 

ASSIGN 

1 

,101 

022239 

B20T25 

ASSIGN 

1 

,102 

0222A 

B26T  3D 

assign 

1 

,103 

02  22 A 1 

B28T3D 

ASSIGN 

1 

, 10A 

constants. 


USER'S  OWN  PAGE  NO. 
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022242 

B38T43 

ASSIGm 

1,105 

022243 

C 1 T 7 

ASSIGN 

1 , 106 

022244 

decal-mi 

ASSIGN 

1,107 

022245 

B42T  43 

ASS  I Gn 

1,108 

022246 

844T4 7 

ASSIGN 

1,109 

022247 

B47T43 

assign 

1,110 

022248 

DECAL-M2 

ASS1&N 

1,111 

022249 

DECALFM3 

ASSIGN 

1,112 

02225 

D1T11 

ASSIGN 

1,113 

022251 

D1D3T12 

ASSIGN 

1,114 

022252 

D8T12 

assign 

1,115 

022253 

SPECMA3 

ASSIGN 

1,116 

022254 

CAC2 

ASSIGN 

1,117 

022255 

D4T8 

ASSIGN 

1,118 

022256 

Dl  T3 

ASSIGN 

1,119 

022257 

ONES 

ASSIGN 

1,120 

022258 

OCTMASiC 

ASSIGN 

1,121 

022259 

THREADIO 

ASSIGN 

1,122 

02226 

BIT38 

assign 

1,123 

022261 

B1THR J45 

ASSIGN 

1,124 

022262 

C1T4 

ASSIGN 

1.125 

022263 

B 1 T29 

ASS  I Gn 

1,126 

022264 

BADRES 

ASSIGN 

1,127 

022265 

LaSTREM 

EQUAl-5 

BITS 

022266 

SPEC  SIGN 

EQUALS 

B1T33 

022267 

CACN 

EQUALS 

AV  MS< 

022268 

THREE 

EQUALS 

B47T48 

022269 

FL  ZERO 

EQUALS 

BIT1 

02227 

A COLUMN  1 

equals 

B2  B6 

022271 

OCT  7777 

EQUALS 

C 7T8 

022272 

OCT  13000 

EQUALS 

BIT  36 

• 

022273 

OCT  3777 

equals 

638  T4b 

3” 

022274 

OCT  177 

equals 

B42T  48 

022275 

C1T2 

EQUALS 

D1T3 

022276 

OCT  2300 

EQUALS 

BIT  38 

022277 

ALF  2300 

EQUALS 

BIT  29 

9 

022278 

BIT  25 

EQUALS 

type  e 

2" 

022279 

FO  JR 

EQUALS 

BIT  46 

02229 

SPRA 

equals 

128 

1” 

022291 

zx 

EQUALS 

8 

10 


PAGE 
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G 


L 


eYUL  system  ASSEMBLER 


PASS  2 


'0223 

alphabeti  : 

constants. 

02  2 A 

PARP  NAME 

ALF 

????PAS2 

02  2 A 1 

OLD  PAGE 

EQUALS 

PARP  NAME 

0225 

PASS  3 

ALP 

YULPASS3 

0226 

w end  popo 

ALF 

ENDcPoPo 

0227 

E CDLJMN  1 

ALF 

0228 

BLOT  WORD 

ALP  .2 

0229 

ASTRI 5<S 

ALF 

******** 

0230 

c column  1 

ALF 

C 

0231 

BLANKS 

ALF 

0232 

W 3AD  WORD 

ALF 

bad  word 

0233 

HEAD 

ALF 

02  3 A 

W LAST 

ALF 

LAST 

023A2 

REF  1XXX 

ALF 

REF  >i< 

02  3 AA 

W TO 

ALF 

TO 

023A6 

W REV 

ALF 

REV 

0235 

ALF  9 Cl 

ALF 

9 

0236 

DC  1 

ALF 

D 

0237 

POINT  C8 

ALF 

0000000. 

0238 

EC8 

ALF 

OOOOOOOE 

0239 

BC8 

ALP 

OOOOOOOB 

02A0 

star  ;e 

ALF 

0000000* 

02  A 1 

P column  1 

ALF 

p @ 

02  A 1 0 1 

comer:  at 

EQUALS 

P COLJMN  1 

02A2 

L COLUMN  1 

ALF 

L * 

02A201 

MAR<ER| 

equals 

L COLUMN  1 

02  A2  1 

ZSUP  ONE 

ALF 

* 1 

02A211 

BLOT  Cl 

equals 

ZSUP  ONE 

02A22 

USERLDG 

OCT 

0002 

02A23 

ALF  * P 

02  A2A 

ALF  * 5 

02  A2  5 

ALF  ,5 

USER'S  OWN  PAGE 

02A26 

rt  END  NEW 

ALF, 2 

EinD  OF 

02  A2  7 

W END  REV 

ALF,  2 

END  OF  REVIS10 

0292  8 

W REV  NO 

ALF 

N 0 OF 

02  A29 

rt  LAS!  ASS 

ALF  ,2 

last  assembled  0 

USER'S  OWN  PAUL  NO 
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PAGE 
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@YUL  SYSTEM  ASSEMBLER 


PASS  2 


P024299 

ADDRtsS 

constants. 

02  A3 

L CD  TYPES 

CAC 

1024 

02  A3  1 

J COL  1 

equals 

L CD  TYPES 

02  A32 

J column  1 

equals 

J COL  1 

02  AA 

CARD  fYPS 

CAC 

MODIFY 

1 A 

02A5 

CAC 

CARD  NO 

14 

02  A6 

CAC 

DELETE 

14 

02A7 

CAC 

DISASTER 

2 

02  A8 

CAC 

memory 

14 

02  A9 

CAC 

illegop 

10 

0250 

CAC 

OCTAL 

DAMN  2eR0 

0251 

CAC 

SeTLOC 

15 

0252 

CAC 

20CTAL 

3 

0253 

CAC 

BLOCK 

12 

02  5 A 

CAC 

TOO  LATE 

15 

0255 

CAC 

instruct  +1 

15 

0256 

CAC 

COUNT 

15 

02561 

CAC 

3 

0257 

L PASS  2 

CAC 

1434  3 

11089 

0258 

l pro:  wd 

SPEC 

02581 

L END  CARD 

SPEC 

02591 

L NEXT  SUB 

RESERVE 

1 

0261 

L LINE 

SPEC 

02615 

L AV  TABLE 

SPEC  *B4 

0262 

L SYM  THR 

SPEC  *B5 

0263 

L TY?  TAB 

SPEC  *B5 

02  6A 

L CUS5ER 

SPEC 

0265 

L SJSIAB 

SPEC 

0266 

BAN<  5 

CAC 

30720 

0267 

DEPAG1N8 

EQUALS 

bank  5 

0268 

L DIRECTY 

SPEC  «B7 

02681 

DA'IN  EERO 

EQUALS 

0 

0269 

L DIG  FILE 

CAC 

10240 

02691 

SHARP  Cl 

equals 

l dig  file 

0270 

L END  THR 

SPEC  *B7 

0271 

END  SY  TAB 

equals 

L AV  TABLE 

USER'S  Ol*N  PAGE  NO 


12 


PA 


CARO  TYP^ 


END  OF 
END  ERROR 
ACCEPT 
REMARKS 
NO  L3C  SvM 
I NSTRJCT 

decimal 

EQUALS 

ERASE 

2DECIMAL 

HEAD  1 A I i 

SJBRO 

EVEN 

SEGNJM 

PASS  2 
PROC  <vORn 
CARD  +10 

LINE  S T DR 
DAMN  EERO 
836 
900 

CJSSER 
SJBSTRA3 
1 02  AO 

DAMN  EERn 

DIG  FILE 
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L 
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assembler  — 

PASS  2 

USER'S  OWN  PAGE  NO.  13  PAGE  13 

P0330 

beginning  Of- 

pass  z loop. 

BEGINS  BY  5 

etting  a podo  card  i 

FROM  TAPE  2. 

0332 

PASS  2 

TS 

PASS  2 OLD 

PASS  2 

phi  tape 

BEGINNING-OF-BUFFER  STATE. 

0334 

RF  * 

2 

- 

- 

disaster 

0335 

wA 

POPO  BJFF 

ONE 

Z,X4 

0336 

NA 

4,1 

W END  POPO 

PASS  2 Di  D +1 

0337 

TS 

- 

- 

END  PASS  2 

END  OF  POPO  FILE  MEANS  END  OF  PASS  2. 

0339 

END  ERROR 

NA, 

CHARi 

card 

B 1 32 

PASS  2 Of  D -3 

BRANCH  UNLESS  ANNOUNCEMENT  OF  R- JeCTS, 

03402 

SS 

card 

CHARI 

L COLUMN  i 

end  error  message  must  be  last  Iog  line. 

03404 

TS 

own  PROC 

OU  COL  SSL 

-2  UN  LAS  RpM 

c 

INHIBIT  check  on  COLUMNS  1,  17,  AND  24. 

0341 

TS, 

Bl  T34 

ONES 

switch 

modify 

PRINT  ERROR  MESSAGE  ABOUT  THAT. 

0343 

s, 

MOn  TY3ER 

PAGE  HEAD  +14 

SPRA  +16 

- 

"■REJECT  PAGE  NNN». 

03442 

SM 

switch 

BIT  44 

Switch 

SHUT  OFF  PRINTING  OF  REST  OF  PROGRAM. 

03444 

TS 

C , -3 

C , -2 

C,-2 

TYPE  THAT  JUST  ONCE. 

0345 

PASS  2 OLD 

TS 

pub  place 

Z * X 4 

C,  + l 

0346 

TN 

N ,X4  » 1 1 

11 

healt  h 

MOVE  POPO  INTO  HLALfH  ANo  CARp. 

0348 

NA 

4,2 

EOR 

NO  PO  EOP 

BRANCH  if  not  end  of  record. 

0350 

TS 

POPO  BJFF 

Z , X 4 

phi  tape 

0351 

RF, 

2 

4,0 

- 

DISAST  Er 

0352 

TX 

N ♦ SC , 1 

- 

PASS  2 

re-initialize  loop. 

0354 

TS 

PASS  2 OLD 

PASS  2 

phi  tape 

0355 

NO  PO  EOR 

TX 

Z,X4 

_ 

PoB  PLACp 

SAVE  PLACE  IN  BUFFER. 

03554 

TS 

zero 

eqjaloc 

PRINT  LIn 

c 

clear  location  symbol  switch. 

0356 

NA, 

Last  rem 

switch 

ONES 

RIGHT  PO 

branch  if  last  card  wasnt  remarks. 

0358 

UN  LAS  REM 

SS 

zero 

LAST  REM 

switch 

s 

0359 

NA, 

CHARI 

HtALTH 

(RI3H1P) 

RIGHT  PO  -1 

BRANCH  If  THIS  CARD  1SNT  RIGHT  3RINT. 

03601 

NA, 

bit  44 

CARD 

ones 

C , + 2 

BRANCH  IF  LINE  UNAFFECTED  BY  HlS  REV, 

03603 

TS, 

chars 

marker 

3*1 

MARK  LINc  +1 

0361 

TS 

- 

- 

SEND  SYPt 

c 

0362 

TN 

CARD  >1 

5 

3,11 

set  right  print  remarks  in  print. 

0364 

NA , 

bit  7 

health 

ONES 

C USSgR 

branch  if  no  right  print  cardnd  eRRdR. 

0366 

SWS 

* B38T43 

cuss  list 

32 

Z,R5 

ADDRESS  of  CDNO  CUSS  using  B.I.  5 IN  R5. 

0367 

TN 

N,R5 

4 

LINE  +12 

MAKE  up  card  NUMBER  error  note. 

0369 

LA 

bit  1 

CUSS  LIST 

REM  CN  EeR 

0370 

wA 

Z,Xo 

THREE 

Z,X5 

IF  1ST  CUSS  OF  page,  LEFT  END  0-  3L0TS, 

03702 

TS 

Z,SC,3 

Common 

Go  NJM  CUS 

c 

APPLY  SERIAL  NUMBER  TO  CUSS, 

0371 

REM  C S ERR 

SWE 

* CAC3 

CUSS  list 

32 

common 

0373 

TS, 

BIT  1 

zero 

cuss  list 

PRIN  CUSS 

c 

cuss  card  number  error  in  Remar<s  card. 

0375 

NA, 

LhaR  1 

health 

(RIGHtP) 

main  only 

branch  if  this  card  not  right  3rint. 

0377 

TS, 

CAC3 

6 CAC3 

COMMON 

count  cja 

c 

card  NUMBER  ERROR (S)  count  as  a CJSS. 

0383 

MAIN  ONLY 

SM 

bit  i 

TEN 

common 

ReL  addr  For  Cuss  with  RETURN  f_ag. 

0385 

TS 

z , SC * 1 

- 

count  cJa 

c 

0387 

LA 

bit  i 

cuss  list 

REm  cn  err 

branch  if  lone  Remarks  card  has  bad  num. 

L 

@ YUL 

SYSTEM 

assembler  — 

PASS  2 

USER'S  OWN  PACE  NO.  14  PAGE  14 

PO309 

PROCEDURE 

Ld 

X 

last  card  ms  not 

LEFT 

PRINT  REMARKS 

• 

0390 

Rio 

HT  PO 

ss 

CARD 

Cl  T 7 

LINE  +1 

SET  UP  COLUMNS  1-7. 

0391 

NA « 

B I T44 

CARD 

ZERO 

mark  linp 

branch  if  line  affected  BY  THIS  ReVISON. 

0393 

SWS 

. BIT  1 

HEALTH 

6 * L 

CJSS  LIST 

maybe  cuss  card  number  sequence  error. 

0395 

NA * 

Chari 

HEALTH 

(RI3HTP) 

WHAT  TYPp 

branch  if  card  is  not  right  print. 

0396 

TN 

card  +1 

5 

LINE  +11 

PRINT  UNDER  1ST  HALF  OF  REMARKS  FIELD. 

0398 

TS. 

chari 

C COLUMN 

1 

LINE  +1 

NO  LOC  SyM 

MAKE  RIGHT  PRINT  A CONTINUATION  CARD. 

0400 

WHAT  TYPE 

SWS 

» BIT  1 

CARD 

4 

LINE 

maybe  set  up  skip  bit. 

0402 

SPS 

* BI0T12 

CARD 

8 

LINE 

maybe  set  up  space  count. 

0406 

TN 

CARD  +1 

9 

LINE  +7 

SET  UP  COLUMNS  9-80. 

04091 

SS 

zero 

BIT  2 

smtch 

TURN  OFF  LEFTOVER  SWITCH. 

0410 

TX 

L CD  TYPES 

- 

Z,X4 

0411 

SWS 

♦ 620T25 

health 

19 

OwN  PROC 

04112 

ss 

OWN  PROC 

B20T24 

OJCOL  ssf 

04114 

SWS 

. BIT  29 

OWN  PROC 

4 

OJCOL  SSt 

set  up  branches  on  card  type. 

04116 

QUC 

OL  SSL 

SSL 

. 647T43 

4*0 

16 

c , + 1 

use  ternary  key  to  check  whether  coljmns 

0411& 

NA * 

Chari 

card 

J COL  1 

C * + 3 

1*  17*  AND  24  CONTAIN  QUEER  INFORMATION. 

041191 

TS 

- 

- 

OWN  PROC  +2 

0412 

OWN 

P ROC 

SWE 

. CAC3 

4,0 

0 

z.sc 

GO  TO  OWN  PROCEDURE. 

04122 

NA* 

CHARI 

CARD 

blanks 

OJEER  Cl 

04124 

NA* 

Chari 

CARD  +2 

blanks 

OJEER  C 1 7 

04126 

NA* 

CHAR8 

CARD  +2 

BLANKS 

OJEER  C 2 a 

04128 

TS 

- 

- 

OWN  PROC 

R0413 

TRIVIAL  SUBROUTINE 

i n pass  2 to  mark  a line 

AFFeCteD  BY  the  rURRENT 

REvIsION. 

04132 

MARK  LINE  SS 

marker  chars 

LINE  +1 

mark  print  positi 

ON  8 OF  LINE. 

04136 

SS 

astrisks  chars 

marker 

Restore  asterisk 

after  ACCEPTANCE. 

04138 

TX 

Z * SH 

z,sc 
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poaia  procedure  in  Pass  2 eor  instructions.  calls  for  i'ocaTiOn  processing,  op  code  and  address  processing, 

Rqai6  and  goes  on  to  process  the  resulting  word. 


0 A 1 7 

INSTRJCT 

TS 

Z.SC 

Z.XA 

OA  1 8 

SWE.  CAC3 

M PROC  OP 

32 

OA 1 9 

TS 

L PROC  iwD 

MOD  RETRN 

RoA2o 

procedure 

in  pass  2 f0r  single-pRecisidn 

ROA22 

tidn  dF  the  CONSTANT » 

AND  wORu  PROCESSING. 

0A23 

DECIMAL  TS 

Z,SC  Z.XA 

0A2A 

TS 

CARD  +5  SAVE  W6 

0A26 

TN 

Di  PARAMS  3 

OA28 

TS 

N.SC  Z.XA 

0A30 

L FIN1  IP  CAC 

CARD  +3 

0 A 3 1 

SWE.  CAC3 

M PROC  IP  16 

OA32 

TX 

L PROC  wD 

ROA33 

procedure 

IN  PASS  2 FOR 

SlNGLE-pREClsl ON 

ROA35 

OF  THE 

constant,  and 

WORD  PROCESSING. 

0A36 

OCTAL 

TS 

z,sc 

Z.XA 

0A37 

TS 

card  +5 

save  w6 

0A39 

TX 

K 1 MAXNUM 

_ 

OAAOl 

SWS.  B28T3D  ONE 

1 8 » L 

OA  A 1 

TS 

L FINI  IP 

Z.Xa 

instront 
z.csc 
N .CSC 

Decimal  constants. 

calls  for  location  processing,  j-r  ansla- 

instront 

delimit  c 

max  deCmi 
dec  const 

C.  + l 

ensure  Delimiting  of  field  by  asterisk, 
set  parameters  for  ip  decimal. 

TRANSLATE  CONSTANT. 

z.csc 

Z.SC  c 

OCTAL  CONSTANTS. 

calls  for  location  processing*  1 ransLation 

INSTRONT 

delimit  c 

max  n jm3p 
SIGND  OCT 
OCT  CONST 

ensure  DELIMITING  of  field  by  ASTERISK. 
set  LIMIT  FOR  ip  OCTAL  NUMBER. 

SET  UP  TO  SHIFT  LIMIT  1 IF  SIGNED. 

translate  constant  and  join  decimal. 

rOAa3 

TRIVIAL 

SUBROUT^E  TO’  DELIMIT  a constant  field 

by  an  asterisk 

. USING 

THE  PRESENCE  OR  ABSENCE  OF 

AN  AsTEHIsK 

IN 

ROAA5 

the  operation  code  field,  also  sets 

UP  z,S3  TO 

the  beginning 

OF  the 

field. 

OA  a7 

delimit 

SWE.  CAC3  L FINI  IP 

32 

Z .S3 

C 

0AA8 

ssl,  one  health 

37 

C,  + l 

c 

TEST  SO-CaLLeD  INDIRECT 

ADDRESSING 

bit. 

0A50 

TX  ASTRISXS 

_ 

card  +5 

if  zero,  field  is  2 words  long. 

0A52 

SM  AsTRI  b<S. 

65Tb 

card  +io 

if  one.  there  should  Be 

AN  EXPLICIT 

*. 

L 

gYUL  SYSTEM 

assembler 

— PASS  2 

USER’S  OWN  PAGE  NO.  16  PAGE  16 

P0454 

procedure 

IN  RaSS  2 FOR 

double-prec 1 si  on 

DECIMAL  CONSTANTS 

. Calls  for  location  processing*  transla- 

R0456 

t i on  of  the  constant, 

PRINTS  THE  FIRST  LINe*  SENDS 

He  FlRSr  WORD 

IF 

possible,  sets  up  a continuation  Line* 

R0458 

processes 

the  second 

location,  sets 

up  7 Hr  Second  word,  and  calls 

For 

word  processing. 

0460 

2 

decimal 

TS 

z,sc 

Z , X 4 

instront 

0461 

TS 

card  +5 

SAVE  W6 

DELIMIT 

c 

ENSURE  DELIMITING  of  field  BY  ASTERISK 

0463 

TN 

Dz  PARAMS 

3 

max  DeCmL 

set  parameters  for  zp  decimal. 

0465 

TS 

N , SC 

Z , X 4 

dec  CONST 

0466 

L 

F I N I 2P 

CAC 

C.  + l 

0467 

SWE*  CAC3 

M PROC  zP 

32 

Z,CSC 

c 

finish  words  according  jo  machime. 

0471 

TS 

z,sc 

Z , X 4 

PRINT  LIn 

PRINT  FIRST  line. 

0473 

TX 

L OLD  LINE 

- 

Z,X3 

0474 

TS 

3,1 

LINE  +1 

send  word 

c 

send  word  that  has  valid  location. 

0475 

SS 

c column  1 

CHARl 

LINE  +1 

set  up  continuation  line. 

0477 

LA 

ONES 

location 

2 bad  LOCS 

branch  if  both  locations  are  bad. 

0479 

na*  bit  14 

health 

ones 

C,  + 2 

branch  if  both  locations  are  good. 

0461 

TS 

Ones 

location 

C * + 2 

when  only  2nd  location  is  bad. 

0483 

wA 

location 

one 

Location 

0484 

2 

BAD  LOCS 

SWE * CAC3 

M PLOC  tB 

16 

z,csc 

c 

print  second  location. 

0486 

SS 

2ND  ALF 

CON  MAS< 

LINE  ♦ 5 

0487 

SS 

2ND  ALF  +1 

con  mas<  +1 

LINE  +6 

PRINT  SECOND  WORD. 

0489 

TS 

2ND  HALF 

WORD 

PROC  wORn 

R0490 

PROCEDURE 

IN 

Pass  z For 

DqUBLe-PReC I S I jN 

oCjal  constants. 

Calls  For  LqCatIon  processing,  translation 

R0492 

of  he  constant*  and 

JOINS  THE  2DECIMAL  PROCEDURE. 

0493 

2 octal  TS 

z,sc 

Z , X 4 

instront 

0494 

TS 

CARD  +5 

save  W6 

delimit  c 

ENSURE  DELIMITING  OF  FIELD  BY  ASTERIS<. 

0496 

TX 

K 2 MAXNUM 

- 

MAX  N JM3o 

set  limit  on  size  of  constant. 

04971 

SWS.  B28T30 

TwO 

18. L 

SlGND  OCt 

SET  UP  TO  shift  limit  2 IF  SIGNED. 

0498 

TS 

L FINI  2P 

Z,X4 

OCT  CONST 

TRANSLATE  AND  UOIN  2DECIMAL. 

# 
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P0500 

SUBROUTINE 

IN  PASS  2 TO  PROCESS  THE  LO 

cation  Field  of  an 

INSTRUCTION  Or  CONSTANT.  CUSSES  A3-JUT  LOCA- 

r0502 

T I ON  -ORMAT 

and  value. 

determines  the 

VALJe  of  a 

-EFTOVE*  LOrATlON 

IF 

ReqUIReD,  AND  PRINTS  the  LOCATION  VALUE 

R0504 

WITH  ;ND  OF 

block  OR  3ANK  NOTATION  IF 

REOJlRED. 

RETJRN  VIA  X4. 

0535 

INSTANT 

NA*  BIT  8 

HtALTH 

zero 

C , + 3 

branch  if  location  is  symbolic. 

05354 

SWS,  BIT  1 

HEALTH 

12. L 

CJSS  LIST  +1 

maybe  cuss  rejection  of  leftover  statjs. 

0505B 

T 5 

Z,SC,2 

- 

SETLOC 

r 

maybe  cuss  "D"  error,  zero  euja.oc. 

050595 

SWS*  BIT  33 

HEALTH 

16 

CJSS  list  +4 

maybe  cuss  loc  sym  no  fit  in  ta3Le* 

0506 

TS 

Z*sc 

Z » X 6 

LOC  SYM  1 

ANALYZE  and  PRl-PROCESS  LOCATION  SYMBOL. 

05062 

LA 

EUUALoC 

zero 

maybe  cjs 

BRANCH  IF  symbol  DIDN'T  FIT  IN  TABLE. 

05366 

SW5,  BIT  1 

health 

12. L 

CJSS  list  +17 

MAYBE  cuss  wrongful  PREDEFINITIdN. 

05068 

SWS,  B38T  A 3 

CUSS  LIST  +17 

32 

Z.R5 

put  LOCATION  SYMBOL  INTO  CUSS  In  CASE  IT 

05069 

TS 

- 

- 

SYM  c J5S  2 

r 

WAS  wrongfully  predefined. 

0507 

maybe  cus 

SWS,  BIT  1 

health 

13,  L 

CJSS  L1ST  +2 

maybe  cuss  oversize  location  vacue. 

0509 

SWS*  BIT  33 

health 

18 

CJSS  LIST  +1 

MAYBE  CUSS  LOCATE  MEMORY  TYPE  ErROr. 

0511 

SWS,  BIT  17 

HEALTH 

1 

CJSS  LIST  +1 

MAYBE  cuss  CONFLICT  in  location  content. 

0513 

SWS,  BIT  17 

health 

7 

CJSS  LISt  +4 

maybe  cuss  predefinition  failure. 

05  144 

NA,  Bjtia 

health 

zero 

ReGJLOC  -2 

BRANCH  IF  THERE'S  NO  GOOD  LOCATION  VAlU. 

0515 

NA*  BIT  12 

health 

ONES 

regjloc 

BRANCH  IF  LOCATION  NOT  LEFTOVER. 

0516 

na*  biT8 

health 

ONES 

RE&JLjC 

branch  if  no  location  field  symsol. 

0517 

SM 

switch 

BIT  2 

switch 

TURN  ON  LEFTOVER  SWITCH. 

0519 

LA 

BIT  1 

EQJALOC  +1 

C.  + 2 

BRANCH  IF  THE  LEFTOVER  WAS  DEFINED. 

0520 

TS 

ONES 

LOCATION 

regjloc  +l 

SHOW  LACK  OF  LOCATION  VALUE. 

0521 

SS 

common  +2 

CAC3 

health 

USE  VALUE  FOUND  BY  PASS  1.5. 

0522 

regjloc 

EX 

HEALTH 

CAC3 

LOCATION 

0523 

SWE.  CAC3 

M PLOC  tB 

16 

z.csc 

0524 

TX 

Z , X A 

- 

z,sc 

c 

PRINT  LOCATION  VALUE  AND  RETURN. 

R05  30 

SUBRoJTlNE 

IN  PASS  2 I 

0 ANALYZE  AND  PRe-PRoCeSS  a 

location  symbol. 

0532 

LOC  5YM  1 

TS 

card  +1 

COMMON 

ANALOx 1 M 

Fetch  location  field  of  card. 

0534 

na  * Chari 

Common 

BLANKS 

analoxim 

BRANCH  when  symbol  is  NORMALIZED. 

0536 

SWE*  ONES 

COMMON 

A.l.L 

common 

0537 

analdxim 

TS 

zero 

EQJALOC  tl 

C.-2 

show  UNDEFINED  when  not  fit  IN  T A3Le . 

0539 

NA*  bIT  33 

CuSS  LIST  +4 

ONES 

LSYM  F I T A 

BRANCH  IF  LOCATION  SYMBOL  IS  IN  TABLe* 

0541 

TS 

ZERO 

EUJAlOc 

fjllness  +1 

C 

SET  UP  PARAMETERS  TO  SHOW  FULL  TABLE. 

0543 

SS 

CUSS  LIST  +4 

B38T48 

Z.R5 

0544 

TS 

Z,X6 

z.sc 

SYM  CJSS  2 

c 

CUSS  FIT  FAILURE  AND  EXIT. 

0546 

LSYM  * I tS 

TS 

CoMMon 

EQJaLoC 

ANAL  BY  Mr 

c 

Get  history  of  normalized  symb3_. 

0548 

LA 

2,1 

D4 

NO  MJL  OpF 

branch  If  no  PAGE-OK-dEF initidn  for  sym. 

0550 

S,  ETS 

3,0 

ZX  .5 

C.  + l 

OTHERWISE,  point  10  mult.  DeF.  -lag. 

0552 

SM 

CAC12 

N.X2 

5,2 

advance  pointer  to  next  member  of  set. 

0554 

S * ET s 

2.0 

ZX  +2 

C,  + l 

05542 

TS 

Z,X2,1 

found  sym 

c 

get  history  of  this  definition. 

0556 

NO  MJ_  DeF 

eba  . 

Z,X2 

zero 

EUUALOC  ♦! 

COPY  OTHER  SYMBOL  PARAMETERS  to  safety. 

0558 

SWS,  B26T  3 0 

COMMON  +2 

2 » L 

c,  + l 

use  symbol  health  as  SHIFT  COJNt. 

0560 

SWS*  BIT  1 

DtF  XFORM 

EUUAi OC  *1 

SHOW  WHETHER  there  IS  a VALID  DrF I N I T ON. 

0562 

TS 

COMMON  +2 

EUJALOC  +2 

N,X6 

L 

(»YUL  SYSTEM 

ASSEMBLER  — 

PASS  2 

USER'S  OWN  PAGE  NO,  18  PAGE  18 

P06B* 

routine  In  pass  2 to  finish  processes  a 

WORD  (EITHER  aN 

INSTRUCTION  Or  CONSTANT).  RELEASES  THE  line 

R0686 

FOR  PRINTING,  HANSMlfS 

word  to  "Send 

WOfw"  IF 

He 

location  iS 

VALID 

, Sets  up  all  cusses  concerning  jHe  location 

R06B8 

SYMBo.  IF 

any,  Restores 

"NO  LqC  SYM" 

as  a general  end  procedure 

, RELEASES  tHe  CARD  FqR  TRANSMISSION  TO  rAPE  AS  A 

R0690 

SYPt  OR  SYLj  RECORD  component*  HND 

PROCEEDS  to 

he 

UNIVERSAL  CUSSING 

routine* 

0691 

PR0C  iYORD 

ts 

Z,sc 

z * x * 

PRINT  LIn 

Release  line  fqr  printing. 

06912 

ts 

N , SC  , 1 

NO  LOC  SYM 

send  word 

TEMPORARY  CHANGE  TO  NO  LOC  SYM. 

0691* 

TX 

PROC  WORD 

- 

no  LOC  SyM 

0692 

NO  WORD 

na*  biT  8 

health 

ONES 

ZeQJALOC 

BRANCH  IF  THERE  IS  NO  LOCATION  SYMBOL. 

069* 

NA 

eoualoc 

ZERO 

health  cq 

BRANCH  IF  LOC  SYM  IS  IN  SYMBOL  rA3LE. 

0699 

ZE3JA.DC 

TS 

Zero 

eujaloc 

NO  LOC  SyM 

0?02 

health  cu 

TN 

eoualoc 

3 

common 

recover  location  symbol  paramet-rs. 

070* 

LA 

CD8 

COMMON  +2 

C , + 2 

BRANCH  If  SYMBOL  HEALTH  IS  c 3*  MORE. 

0706 

SSL,  B**T *7 

common  +2 

15 

NO  LOC  SyM 

-12 

BRANCH  ON  HEALTHS  5 - B. 

0708 

SWS * B38T *9 

CUSS  LIST 

+ 7 

16 

Z , R 5 

0709 

ts.  biT  17 

ones 

CUSS  LIST 

+ 7 

SYM  CUSS  2 

r 

U 

cuss  multiple  definition. 

0711 

SSL,  B**T * 7 

common  +2 

15 

HELTHS  8 r - 

22 

BRANCH  ON  HEALTHS  C - G, 

07121 

SS 

ZtRO 

Bit  17 

CUSS  LIST  + 

7 

inhibit  mult.  def.  cuss  for  hea.ths  f,g. 

0713 

SYM  CJSS  * 

TS 

Z , 5C  , 2 

- 

SYM  rUSS  2 

C 

SET  UP  LOCATiOim  SYMBOL  FOr  CUSSinG. 

071* 

HEALTHI  5 

SWS,  B38T  R 3 

CUSS  LIST 

+ 10 

32 

Z,R5 

0715 

ts,  bit  i 

ONES 

cuss  list 

+ 10 

SYM  CUSS  A 

INDEFINABLY  LEFTOVER. 

0716 

NO  LoC  SYM 

TS 

z,sc 

Z,Xa 

PRINT  LIm 

(changed,  restored  by  proc  word  entry.) 

0718 

S,  ETS 

EQUAL JC  +1 

ZX  *2 

Pag  loxim 

RECOVER  LOC  SYM  ENTRY  ADR,  JuIN  SeTLoC. 

0720 

HE  ALT HI  7 

SWS,  B38T*3 

CuSS  LIST 

♦ 7 

16 

Z,R5 

0721 

TS,  BIT  17 

ones 

CUSS  LIST 

♦ 7 

SYM  CJSS  * 

MULTIPLE  DEFINITION. 

0723 

HELTH5  8C 

SS 

CUSS  LIST 

+ 6 

B3  8 T*8 

Z , R 5 

072* 

ts,  bit  33 

ONES 

CUSS  LIST 

+ 6 

SYM  CUSS  * 

oversize  location. 

0726 

HELTH5  90 

SWS*  B 3 8 T * 3 

CUSS  LIST 

+ 5 

16 

Z,R5 

0727 

ts,  bit  17 

ONES 

CUSS  LIST 

♦ 5 

SYM  CJSS  A 

memory  type  error. 

0729 

HELTHS  BE 

SWS,  B38 T * 3 

CUSS  LIST 

+ 6 

32 

Z ,R5 

0730 

ts,  bit  i 

ONES 

cuss  list 

♦ 5 

SYM  CJSS  A 

conflict  of  location  contents. 

0732 

health  f 

SWS,  B38T *3 

CUSS  LIST 

♦8 

32 

Z,R5 

0733 

TS,  B ! T 1 

Ones 

cuss  list 

♦ 3 

SYM  CUSS  * 

-1 

MULTIPLE  ERRORS. 

0735 

HEALTH  5 

SS 

CUSS  LIST 

+ 8 

B38TA8 

Z,R5 

0736 

TS,  Bit  33 

ONES 

CUSS  LIST 

♦ 3 

SYM  CJSS  A 

-1 

MISCELLANEOUS  TROUBLE. 

PASS  2 


USER'S  OWN  PAGE  NO.  19 


PAGE  19 
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P0738  SUBROUTINE  IN  PASS  2 TO  TRANSMIT  UNSoRrED  wQRriS  jn  PASS  3 VIA  TAPe  A.  WIjH  WoRD  AND  LoCatIOvI  Set  * Go 
Ro7ao  to  semd  word  via  C0Se3Uence  call,  the  sj3roUjine  forms  span  words,  or  fwa-lwa  words,  in  the  following  -ormat... 
R0792  CAC  (PAGeNO)  LWA  Fwa  WHERE  FWA  IS  the  ADDRESS  of  the  FlRSr  and  LWa 
R07 A A tHe  AODReSS  OF  THe  LA5t  IN  A CONTIGUOUS  BLOCK  OF  WORDS  GENERATED  BY  PASS  2.  THIS  IS  FoLLoWeD  BY  tHe  WORDS  tHem- 

Ro7a6  selves,  with  constant  or  interpretive  flags  as  needed,  or  Replaced  3y  ..bad  word.,  if  appropriate,  all  the 
ro7a8  acj ion  of  this  subroutine  is  omitted  if  t Re  Location  is  invalid,  a table  is  <ept  of  substRands  used.  the 
R O 7 5 O BUFFER  is  written  as  soon  as  it  is  full,  and  RE-JSED  ON  The  NEXT  call. 


0751 

send  word 

la 

ones 

location 

N « SC  * 1 

r 

IMMEDIATE  EXIT  for  bad  LOCATION. 

0753 

SPS, 

B26T30 

LOCATION 

10,  L 

c,  + l 

c 

CHOOSE  From  256  SUBSTRAND  USE  3ITS. 

0755 

swe. 

ONES 

BIT  1 

0 

COMMON 

c 

0756 

SWE , 

D12 

LOCATION 

13 

COMMON  +1 

c 

0757 

w A 

COMMON  +1 

L SJSTAB 

Z , S3 

c 

0758 

SM 

N , S3 

C0MM0N 

N , S3 

c 

MARK  SUBSjRAND  BIl  ACCORD  TO  THIS  LoCN. 

0760 

NA 

word 

W BAD  WORD 

00  parity 

c 

0761 

TS 

- 

- 

New  3jF  0 -1 

c 

BYPASS  PAklTY  COMPUTAlION  FOR  3aD  WORD. 

0763 

od  parity 

TX 

word 

- 

common 

c 

parity  computation  for  good  word  only. 

0765 

wA 

WORD 

WORD 

WORD 

c 

0766 

SWE  1 

ONES 

COMMON 

1 

COMMON  +1 

c 

0767 

HA 

common 

COMMON  +1 

COMMON 

c 

0768 

HA 

common 

WORD 

COMMON 

c 

0769 

SWE  ♦ 

ONES 

common 

3 

COMMON  +i 

c 

0770 

HA 

common 

COMMON  +1 

COMMON 

c 

0771 

SWE* 

ONES 

common 

6 

COMMON  +1 

c 

0772 

HA 

common 

CuMMoN  +1 

COMMON 

c 

0773 

SWE* 

ONES 

common 

12 

COMMON 

c 

07  7 A 

HA 

common 

COMMON  +1 

common 

c 

0775 

SWE* 

ONES 

common 

29 

common  +1 

c 

0776 

HA 

common 

COMMON  +1 

COMMON 

c 

0777 

HA* 

one 

common 

ONE 

WORD 

c 

put  PARITY  bit  in  word. 

07781 

TX 

L OLD  line 

_ 

z,x<+ 

c 

0779 

SS 

zero 

CHAR  6 

9,6 

c 

0780 

SWS, 

BIT  35 

word 

12,1 

9,6 

c 

SET  PARITY  BIT  IN  PRINT. 

07811 

LA 

BIT  1 

WORD 

C,  + 2 

r 

0782 

TS 

zero 

COMMON 

flag  con  -1 

c 

set  up  zero  if  no  internal  flag. 

078  A 

LA 

bib2 

WORD 

flag  con 

c 

branch  if  word  is  a Constant. 

0786 

NA. 

bit  3 

word 

ONES 

c , ♦ 2 

c 

07862 

TS 

PRET  FLAG 

COMMON 

flag  con  +1 

c 

set  up  external  interpretive  flag. 

07  66A 

TX 

Ml  SC  FLAG 

_ 

common 

c 

set  up  external  miscellaneous  f.ag. 

07871 

NA, 

Chari 

CARD  .2 

BIT  1 

C,  + 2 

c 

put  CONSTANT  flag  on  NEGATIVE  InStRUCtN. 

0788 

FLAG  CON 

TX 

Cons  flag 

_ 

common 

c 

set  up  external  constant  flag. 

0789 

SS 

common 

FLAG  MaS< 

word 

r 

APPLY  CHOSEN  EXTERNAL  flag  to  W3R0. 

07908 

WA 

sent  loc 

one 

sent  loc 

C 

advance  contiguity  criterion. 

0791 

NEW  3 JF  0 

TS 

L WD  BJHF 

Z.R7 

START  3 Jf 

c 

special  new-buffeR  status  initially. 

07922 

NA 

page  no 

OLD  PAGe 

CHANG  FWa 

C 

BRANCH  IF  Page  NUMBER  Has  changed. 

0793 

STORE  wD 

TS 

word 

N * R 7 , 1 

W3  FULL  ra 

c 

L 

e»YUL  SYSTEM 

ASSEMBLER 

--  pass  2 

P0605 

PROCEDURE 

TO  BEGIN  re 

-USE  OF  dJPFER. 

0808 

NEW  3 JFF 

TS 

L WD  BUFF 

Z , R 7 

phi  tape 

0809 

WF  * A 

- 

- 

DISASTER 

0811 

TS 

Z,S1 

z,sc 

C,*l 

0813 

START  BUF 

TN 

CAC2 

1 

N , R 7 , 1 

08133 

MT 

ONES 

AA 

N , A J2 , 1 

06135 

LA 

Z,AU2 

WBJF  FULL 

C,-l 

08137 

TS 

unset  Ntw 

NEW  BUF  2 

CHANG  FWa 

08  1 A 

CHANG  FWA 

WD 

sent  ldc 

ONE 

common 

081A2 

TX 

L OLD  FwA 

- 

Z , A J 1 

081AA 

SWS*  CAC2 

Common 

16  , L 

N.AJl 

0815 

TX 

Z ,R7 

L OLD  FWa 

08152 

SWE,  ONE 

switch 

A5 

OLD  PAGE 

08153 

DA 

page  no 

OLD  PAGe 

old  page 

061532 

TX 

OLD  PAGt 

word  pagp 

08 1 5 3 A 

LA 

WORD  PAGE 

DEC  999 

c , + 3 

081536 

LA,  C7T8 

DEC  600 

WORD  PAGE 

c * + 2 

081538 

wD 

WORD  PAGE 

DEC  600 

WORD  PAGf 

08  1 5 A 

SWE,  ONES 

OLD  PAGE 

32, L 

N,R7 

08156 

SM 

N,R7 

LOCATION 

N ,R7 , 1 

0816 

TS 

location 

sent  loc 

Store  wd 

0817 

wB  FJ.L  Q 

eba 

Count  PTR 

ZERO 

z ,xa 

08172 

DA,  D2T12 

A , 0 

BIT  32 

A , 0 

0817A 

SWS,  D1T3 

WORD  PAGE 

D,9»L 

n,xa 

0818 

LA 

Z,R7 

WBJF  PULL 

N , SC , i 

0822 

send  wb jf 

WA 

WBUF  FJLL 

three 

Z,R7 

0825 

TX 

L OLD  FwA 

- 

Z,AJ1 

0826 

SWS,  CAC2 

sent  log 

16,1 

N , AJI 

0828 

TX 

L WD  B JFF 

- 

Z ,XA 

0829 

CC 

N , XA 

_ 

N ,R7 

0830 

TS 

z,sc 

Z,si 

C , + 1 

0832 

TS 

set  new 

NEW  BUF  3 

PHI  TAPE 

0833 

WF , A 

A , 0 

_ 

DISASiER 

083A 

TS 

Z»RO» 1 

- 

N,S1 

0836 

SET  NEW 

TS 

z,sc 

Z,S1 

NEW  3 JFF 

0837 

unset  new 

NA 

sent  ldc 

LOCATION 

CHANG  Fwa 

nnnn  r> 


USER'S  OWM  PAGE  NO.  20 


PAGE  20 


WAIT  FOR  RECORD  TO  FINISH  WRITING. 

c switch  back  to  cosequence  mode. 

C SET  BANNER  WORD,  R7.  AU2 . 
c FILL  buffer  WITH  ONES  INITIALLY. 

C 

♦3  C 
C 

c 

c finish  OLD  FWA-LWA  WORD  WITH  LW<\. 

C NOTE  PLACt  IN  BUFFER. 

C 

c PAGE  NUMBER  COMPENSATED  For  OWED  heads, 

c 

c 

C 

c convert  hundreds  digit  to  hexadecimal. 

C PUT  page  NUMBER  in  fwa-lwa  word. 
c set  up  fwa  and  location. 

C SET  UP  COMPARISON  LOCATION. 

C 

C INCREMENT  word  count  for  current  rtne. 
c keep  pace  of  last  word  in  reach  of  rtne. 

c EXIT  IF  NOT  AT  OR  NEAR  END  OF  3jFFER. 

make  all  records  of  uniform  SIZE. 

FINISH  LAST  FWA-LWA  WD  IN  RECORD. 


SWITCH  TO  SEQUENCE  MODE. 


5TEP  COUNT  OF  wORD  RECORDS  AND  EXIT. 
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PASS  2 

USER'S  OWN  PAGE  NO.  21  p^GE  2 

P0838 

PROCEDURE  in 

pass  z For  setloc.  does  \jo t 

ACCEPT  ANY  CHANGES 

in  the  status  of  an  address  symsol. 

0840 

setlo: 

ts 

zero 

eQJaloc 

EQUALS 

c 

MAYBe  CUSS  D ERROR. 

0842 

SWS.  BIT  1? 

health 

9 

CUSS  LIST  +14 

maybe  cuss  nonblank  loc  field. 

08  44 

SWS • BIT  33 

HeALIH 

23 

CJSS  LIST  +1 

maybe  cuss  wrong  memory  type. 

0846 

SWS.  BIT  33 

health 

20 

CJSS  LIST  +2 

maybe  cuss  meaningless  address  field. 

0848 

SWS.  BIT  17 

HEALTH 

3 

cjss  list  +3 

maybe  cuss  address  size  error. 

0850 

na,  Bit  15 

health 

ONES 

ASYM  F 1 t 7 

branch  if  ADR  sym  FITTED  IN  SYM  TAB. 

0852 

TS 

z,sc 

Z,X4 

ADR  FIEld 

0853 

NA,  CHAR8 

ADR  WD 

BLANKS 

C.  + 2 

0854 

SS 

head 

CHAR8 

AOR  WD 

get  address  symbol  (Headed), 

0856 

SWS.  B38T43 

CUSS  LIST  +5 

32 

Z,R5 

0857 

TS 

ADR  WD 

COMMON 

SYM  CJSS  2 

c 

0858 

TS,  Bit  1 

ones 

CUSS  LIST  +5 

form  locn  -i 

CUSS  FULLNESS  OF  SYMBOL  TABLE. 

0860 

ASYM  =ITZ 

TS 

Z , SC , 1 

Z , SH 

FITS  F 1 t 7 

£ 

RECOVER  ADDRESS  SYMBOL  INFORMATION. 

0861 

TS 

zero 

Z , X 2 

form  locn 

BRANCH  IF  NO  ADDRESS  SYMBOL. 

0865 

NA,  BIT11 

health 

ONES 

C , + 3 

0866 

SS 

cuss  LIST  +14 

B38T48 

Z ,R5 

UNDEFINED  SETLOC  SYMBOL  IS  FA1  A . 

0867 

ts,  bit  33 

Ones 

CUSS  LIST  +14 

SYM  CJSS  2 

c 

cuss  no  define  by  pass  i. 

0869 

na,  bit  12 

health 

ONES 

C,  + 3 

0870 

SWS*  B38T43 

CUSS  LI5T  +15 

32 

Z ,R5 

0871 

ts,  bit  i 

ones 

CUSS  LIST  +15 

SYM  CUSS  2 

V. 

CUSS  NEAR  DEFINE  BY  PASS  1. 

0873 

SWE,  D8T12 

N,X2 

16 

common  +, 

Get  SYMBOL  table  info  entry. 

0877 

TX 

RESTOrU 

- 

SYMB  MOO  u 

0884 

TS 

z.sc 

Z , X 5 

SYMB  FITS 

MODIFY  AND  VISIT  ADDRESS  SYMBOL  CJSSER. 

0885 

REST  3 Id 

TS 

SYMB  MOD  A 

SYM3  Mod  u 

L,  + l 

executed  either  here  or  there. 

0687 

NA,  BiiT12 

health 

ZERO 

FORM  LOOM  -1 

BRANCH  If  no  DEFINITION  FROM  PASS  1. 

08882 

SWE,  THREE 

health 

34 

location 

08884 

LA 

LqCaT I ON 

zero 

Form  locm 

BRANCH  IF  NO  ADDRESS  FIeLD  PR03u£MS. 

0889 

TS 

ONES 

LOCATION 

C , +2 

SIGNAL  BAD  LOCATION. 

0691 

form  _oCn 

EX 

health 

CAC3 

location 

use  determined  location. 

0693 

TX 

M PLOC  IS 

- 

z,csc 

c 

PRINT  LOC  VALUE  IF  ANY. 

0895 

TS 

z,sc 

Z , X 4 

PRINT  LIn 

06953 

PAG  LjXIM 

SWE*  one 

SWITCH 

45 

EUUALOC  +1 

compensates  if  page  heads  are  owed* 

08956 

DA 

EUUALOC  +1 

PACE  No 

EUUALOC  +1 

PREPARE  PAGE  NUMBER  OF  DEFINE  JR  REFER. 

08957 

LA 

EUUALuC  +1 

DEC  999 

C , + 3 

branch  if  number  is  storable  as  is. 

06958 

LA,  C7T8 

Dec  6oo 

EUUALOC  +1 

C,  + 2 

BRANCH  TO  MODULATE  A NUMBER  OVER  1599. 

08959 

wD 

EUUALOC  +1 

DEC  600 

EUUALOC  .1 

convert  hundreds  digit  to  hexadecimal. 

0896 

LA 

EUUALjC 

Zero 

C , + 2 

branch  if  no  LoC  symbol  in  sym  table. 

08963 

SWS,  D1T3 

EUUALOC  +1 

D , 9 , L 

2,1 

record  page  on  which  symbol  was  defined 

06966 

LA 

L ref  sym 

Zero 

send  cjsc 

branch  if  no  ADDRESS  SYMBOL  IN  SYM  TAd. 

0897 

EBA 

L REF  SYM 

ONE 

Z,X2 

point  TO  third  WORD  OF  SYM  tab  rNT R Y . 

08973 

TS 

zero 

L REF  SYM 

REFRENCe 

clear  ref  analysis  FLAG,  GO  to  3AoE  22. 
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P0698 

procedure  in 

PASS  2 for  is 

, = , EDuAlS  ca 

0903 

eQJals 

sws,  BIT  17 

health 

8 

0905 

SWS , bit  17 

HEALTH 

9 

0907 

HA 

Cuss  LIST  +15 

BIT  17 

0909 

SWS,  BIT  17 

HEALTH 

7 

0910 

SWS,  BIT  33 

health 

18 

0911 

SWS.  BIT  33 

health 

20 

0913 

SWS,  BIT  17 

health 

3 

0915 

NA,  BIT  17 

Cuss  LIST  +15 

ONES 

0917 

TS 

zero 

egjaloc 

09l9 

TS 

z,sc 

Z » X6 

0936 

NA,  BIT  16 

HEALTH 

ONES 

0938 

TS 

z,sc 

Z , X A 

0939 

NA,  CHAR8 

ADR  WD 

BLANKS 

09  AO 

ss 

head 

CHAR  8 

09  A2 

SWS,  B38TA3 

CUSS  LIST  +5 

32 

09  a3 

TS 

ADR  WD 

COMMON 

09A5 

ts,  bit  1 

ONES 

CUSS  list  + 

09  a7 

fits  -1TZ 

SWE»  CAC3 

health 

16 

09  A75 

la 

ETS 

ZERO 

09A8 

eba 

ETS 

B26TA8 

09A9 

TS 

N , X2 , 1 

COMMON 

0950 

ASYM  -ITS 

TS 

Z.SC.1 

Z.SH 

0952 

TS 

ZERO 

Z.X2 

095A 

TS 

c , + 1 

SYM3  Mod  0 

0956 

TS 

symb  mod  a 

symb  mod  d 

0958 

FORM  EOLC 

LA 

EUUALOC 

zero 

0962 

la 

BIT  1 

EQJAlOc  +1 

096A 

TS 

ONES 

location 

0966 

EX 

EOUALOC  +2 

CAC3 

0968 

TX 

M PLOC  IS 

_ 

0970 

tn 

EQUALOC 

3 

0972 

LA 

5 Da 

EOJALOC  +2 

097A 

SSL , BA AT  A 7 

COMMON  +2 

15 

i" 
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. PR  I NT  A VALUE.  CUSSES  FOR  FORMAT,  VALUE.  ANq  BOH  SYMBOLS. 


CJSS 

LIST 

CJSS 

list 

+ 15 

CJSS 

LIST 

+ 15 

CJSS 

LIST 

+ A 

CJSS 

LIST 

+ A 

CJSS 

LIST 

♦2 

CJSS 

list 

+ 3 

C , + 2 

C , ♦ 2 

maybe  cuss  d error. 

MAYBE  CUSS  UNSYMBOLlC  LOC  FIELD. 

(THAT  BIT  INVERTED  IN  ERR/WARN  CODE). 

maybe  cuss  predefinition  failjrj. 
MAYBe  cuss  LoC  SYM  no  fit  IN  TA3LE. 
maybe  cuss  meaningless  address  -ifld. 
maybe  cuss  address  size  error, 
branch  if  location  is  symbolic. 
PROCLAIM  ABSENCE  OF  LOCATION  SYMBOL. 


LOC  aYM  i 
ASYM  FITS 


analyze  and  pre-process  location  symbol, 
branch  if  address  symbol  is  in  table. 


ADR  FIELD 
C»  + 2 

ADR  WD 
Z,R5 

SYM  CJSS  2 
form  locm  -i 


FORM  HEADED  SYMBOL. 

CUSS  FULLNESS. 

Go  TO  JOIN  END  OF  SETLOC  PROCEDJRe. 


ETS  C 
N , SH  C 
Z.X2  C 
FIND  OR  NO  +1  C 


EXIT  TO  N+ 1 If  NO  ADDRESS  SymBD,'. 

POINT  TO  SYMBOL  IN  TABLE  WITH  PlUS  SPEC. 
fetch  information  WORD  FOR  symbol. 


fits  fitz 

FORM  E3LC 

restore  _1 

C,  + l 


C RECOVER  ADDRESS  SYMBOL  INFORMATION* 

branch  if  there  is  no  address  symbol. 
C CALL  For  address  SYMBOL  CUSSING. 

EXECUTED  ElTHEk  HERE  OR  THERE. 


Form  ldcm 

C.  + 2 

C,  + 2 

LOCATION 

z.csc 
common 
health  Cn 


EXIT  WHEN  NO  LOCATION  SYMBOL. 

BRANCH  If  SYMBOL  IS  DEFINED. 

SHOW  LACK  OF  LOCATION  VALUE. 

PRINT  LOCATION  VALUE. 

move  LOCATION  SYMBOL  UUANTITIES  For 

cussing  by  proc  word,  done  for  5 thrj  g. 


C.-l 


SELECT  LOCAL  CUSSING  PROCEDURE  ON  1 - A* 
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P09751 

disposition 

of  equals 

laru  location  symbol  health  s 

tates. 

..1 

0976 

0978 

HEALTH  1 

SWS,  B38TA3 
TS*  0 i t 1 7 

CUSS  LIST  +9 
ONES 

16 

CUSS  LIST 

♦ 9 

Z ,R5 

sym  cjss  A 

nearly  defined  by 

EQUALS. 

0980 

0982 

HEALTH  2 

SWS  * B 3 8 T '+  3 
TS,  BIT17 

Cuss  LIST  + 10 

ONES 

1 6 

CUSS  LIST 

+ 10 

Z,R5 

SYM  CjSS  A 

multiply  defined 

including 

NEARy  by  =. 

1 !R..z 

098A 

0985 

HEALTH  3 

TS 

S,  ETS 

z,sc 

EOUALQC  +1 

Z,Xa 
ZX  *2 

PRINT  LIm 
Pag  LOXIM 

defined  by  equals 

(NO  CUSS) 

• 

0987 

0988 

HEALTH  A 

SS 

TS,  BIT33 

Cuss  LIST  +10 
ONES 

B38TA8 

CUSS  LIST 

+ 10 

Z ,R5 

Sym  cjss  a 

MULTIPLY  DEFINtD 

INCLUDING 

BY  EjUALS. 

Ro^Ro 

continuation  of  pag  _qxim.  count 

number  of  ReFeR 

-NCeS  to  each 

symbol 

AND  Kee^  A ReCqRD  oF  1 S 1 AND  LAST  PaGES. 

R0991 

IN  2 N o ANq 

3 Rd  WORqS  Of 

PRINTLINE, 

GIVE  serial  No 

. OF  REFERENCE 

ANq  PAGE  OF  LasT  REFERENCE  AS  REF  NNN  LAST  PPP. 

09915 

REFRENCE 

TX 

L OLD  LINE 

Z ,X3 

0992 

NA,  C7X8 

2,0 

zero 

C , + 3 

BRANCH  IF  THIS  IS  NOT  THE  FIRST  REF. 

099A 

sws,decal‘ h,i 

EUUALjC  +1 

D , 6 , L 

N,X2 

RECORD  PAGE  NUMBER  OF  FIRST  REFERENCE. 

0996 

TS 

- 

- 

REF  SERNO  - 

1 

0997 

ReF  sjpp  q 

NA,  b1TAA 

SwItCH 

ONES 

ref  serno 

BRANCH  IF  DOING  A SUPPRESSED  SJ3RoUtINe. 

0998 

swe, decal? Ma 

N,X2 

D , 3 , L 

ARG  1 

1000 

DA 

zero 

ARG  1 

ARG  1 

Convert  Hex  HUNDREDS  DIGIT  TO  DECIMAL. 

1002 

TS 

W LAST 

3,3 

P 2 D2 A L7S 

r 

100A 

SWS,  C5T8 

ARG  1 

A, 2 

3,3 

SET  IN  PRINT  PAGE  OF  LAST  ReF  I \l  ALPHA. 

1006 

SWS,  B ADRZS 

EOUALOC  +1 

D , 3 , L 

N,X2 

RECORD  PAGE  NUMBER  OF  LATEST  RE-ERENCe. 

1008 

REF  SZRNO 

TX 

REF  1XXX 

_ 

3,2 

tentatively,  set  up  "ref  >ikm. 

1010 

la,  C7T8 

DEC  999 

2,0 

send  cus* 

If  OVER  999  REFERENCES,  LEAVE  IT  THERE. 

1012 

DA,  C7T8 

2,0 

ONE 

2,0 

COUNT  UP  REFERENCES  TO  EACH  SYM3OL. 

10  1 A 

swe, decal1 Ha 

N,X2 

D , 6 , L 

ARG  1 

1016 

TS,  C5T8 

W BAD  WORD 

ARG  1 

P2  D2 A L7S 

c 

MAKE  BITS  25-28  = 1101  TO  BECOM;  3LANK . 

1020 

SWS,  C5T8 

ARG  1 

A,  1 

3,2 

set  in  print  serial  no.  of  ref  in  alpha. 

102A 

send  cuss 

TS 

L CUSSER 

z , SC 

send  sypt 

C 

release  card  Fqr  tape  and  go  to  cuss. 

i" 
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P 1 026 

procedure  in 

PASS  2 FOR 

count,  prints 

Analyzer  for  preceding  reach  of  same  routine. 

10265 

cojnt 

TS 

zero 

eojaloc 

setldc  +, 

c 

maybe  cuss  non-blank  location  field. 

10275 

SWS.  BIT  33 

health 

24 

CJSS  LISt  +2 

maybe  cuss  meaningless  address  -ipLD. 

10285 

SWS.  BIT  1 

health 

9 , L 

CJSS  list  +5 

MAYBe  CUSS  no  ROOM  FOR  ROUTINE  NAME. 

10295 

TS 

z.sc 

Z.X4 

PRINT  LIN 

1030 

NA»  BIT9 

health 

ZERO 

COUNT  X I t 

BUG  OUT  IF  NO  GOOD  ROUTINE  NAME. 

1031 

LA 

Cuss  LIST 

+5  BIT  1 

DISPLAY 

10315 

TS 

z.sc 

Z,X4 

ADR  FIELD 

1032 

TS 

ADR  WD 

COMMON 

SYM  CJS5  2 

c 

PREPARE  NO-ROOM  CJSS  FOR  PRINTING. 

1033 

TS 

Z(_RO 

L ReE  SYM 

COUNT  X I r 

preceding  reach  continues  thru  aborts. 

1034 

DISPLAY 

EBA 

health 

ZERO 

Z ,X2 

10345 

EBA 

Z.X2 

BIT  25 

count  PTR 

change  WORD-COUNTING  ADDRESS* 

10355 

TS 

L OLD  LINE 

Z 1 X 3 

ref  sjpp  q 

c 

CUT  ANALYZER  Short  IN  SUPPRESSED  subro. 

10365 

TS 

C.  + l 

PAG  LOXIM  ,5 

Pag  ldxim 

1037 

TS 

c,  + l 

PAG  LOXiM  + 3 

c , + 2 

LET  MODIFIED  PAG  LOXIM  DO  "REF-rAST" , 

1038 

LA 

euualoc 

ZERO 

Pag  loxim  *1 

10385 

NA.  C7T8 

2,0 

ZERO 

C , + 2 

BRANCH  Ip  not  FIRST  COUNT  CARD  of  Rtne. 

10395 

LA 

N.X2 

ZERO 

1ST  COJNT 

branch  if  not  dealing  with  uncdjnteds. 

10405 

SWE  * D4T8 

N.X2 

0 

ARG  1 

COUNT  OF  WORDS  IN  LAST  REACH  OF  ROUTINE 

10415 

SWS.  B ADRES 

2,1 

D , 6 

N ,X2 

MOVE  PAGE  OF  LAST  COUNT  CARD  TO  SAFETY. 

10425 

DA.  D2T12 

2,1 

ARG  1 

2,1 

ADD  LAST  REACH  TO  TOTAL  FOR  ROJrINE. 

10435 

TS.  b2B6 

zero 

3,5 

P2  D2A  L7S 

c 

CHANGE  BLANK  TO  COLON. 

10445 

SWS,  C2T8 

arg  1 

A , 1 , L 

3,5 

set  in  print  count  for  last  reach. 

10455 

SWE,  D4T8 

2,1 

0 

ARG  1 

1046 

TS 

w TO 

3,4 

P2  D2 A L7S 

c 

10465 

SWE,  ONES 

ARG  1 

A , 3 , L 

3,6 

SET  IN  PRINT  CURRENT  WORD  COUNT  FOR  RTN 

10475 

SWE  .UeCALFiMiI 

N,X2 

D , 3 

arg  1 

1048 

DA 

zero 

ARG  1 

ARG  1 

CONVERT  100'S  DIG  OF  PAGE  OF  LAST  WORD. 

1049 

TS.  UHAR6 

ASTR I S<S 

3»6 

P2  D2 A L7S  -1 

c 

10495 

SWS,  C5T8 

ARG  1 

0 

3,4 

SET  IN  PRINT  PAGE  NUMBER  OF  LaST  WORd. 

10505 

TS 

C , + 2 

SEND  CUSS 

R£f  SUP3  0 +1 

SET  IN  PRINT  REF-NNN-LAST-COUNT  INFO. 

1051 

1ST  COUNT 

TS 

c , + 1 

SEND  CUSS 

REF  SERNn  -1 

SET  IN  PRINT  "REF  l". 

10515 

TS 

COUNT  XIT 

SENo  CUSS 

C,*l 

1052 

SWS.D1T3 

N,X2 

D , 6 ♦ L 

2,1 

10525 

EX 

N,X2 

C7T  8 

N,X2 

CLEAN  OUT  WORD  COUNT  AND  PAGE  0-  WORD. 

10535 

COJNT  XIT 

TS 

L CUSSER 

Z,SC 

send  sypt 

c 

i" 
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1054 

procedure  IN 

PASS  2 

FOR 

ERASE. 

1055 

erase 

SWS,  BIT  17 

health 

8 

CJSS  LIST 

MaYBe  cuss  d error. 

1057 

SWS,  BIT  17 

health 

7 

CJSS  list 

+ 4 

maybe  cuss  preoefinition  failure. 

1059 

SWS,  BIT  33 

health 

22 

CJSS  LIST 

+ 2 

maybe  cuss  meaningless  address  -ieLD. 

1061 

SWS,  BIT  17 

health 

5 

CJSS  list 

♦ 3 

maybe  cuss  address  size  error. 

1063 

SWS,  BIT  33 

health 

20 

CJSS  LIST 

+ 1 

maybe  cuss  type  error. 

1065 

NA,  B i je 

health 

ZERO 

C,  + 2 

Branch  if  location  IS  SYMBOLIC, 

1067 

TS 

zero 

eqjaloc 

C , + 3 

PROCLAIM  ABSENCE  OF  LOCATION  SYMBOL. 

10681 

SWS  * BIT  33 

HlALTH 

17 

CJSS  LIST 

♦4 

maybe  cuss  Loc  sym  no  fit  in  tarle» 

1069 

TS 

Z »Sc 

Z , X 5 

LOc  SYM  1 

ANALYZE  AND  pRE-pROcESS  LOCATION  SYMBOL. 

1079 

na,  bit  is 

health 

zero 

ERA  LEFTn 

BRANCH  IF  ERASE  IS  LEFTOVER. 

1081 

SWS*  BIT  17 

HEALTH 

3 

CJSS  LIST 

♦ 1 

maybe  cuss  location  conflict. 

1083 

NA,  » I T8 

health 

ZERO 

C , + 3 

1084 

SWS,  BIT  17 

health 

1 

CJSS  LIST 

+ 17 

maybe  cuss  unsigned  numeric  loc. 

1086 

NA*  Bit  17 

CUSS  LI 

ST 

+17  ZERO 

NO  ERALOC 

10862 

LA,  BuT12 

HeALIH 

zero 

PRIN  ERAS 

BRANCH  IF  LOCATION  VALUE  IS  0<. 

10864 

TS 

ONES 

LOCATION 

PRIN  ERAS 

+ 1 

1087 

era  LeFTO 

na,  Bus 

health 

zero 

C,  + 2 

BRANCH  IF  THERE  IB  A LOCATION  SYM30L. 

1089 

ts,  bit  17 

ONES 

CUSS  LIST  +: 

L 5 C , ♦ 2 

cuss  non-symbolic  Location, 

1091 

LA 

BIT  1 

EOJALOC  +1 

0 , + 2 

branch  if  leftover  is  now  DeFIN-D. 

1093 

NO  ErAlOC 

TS 

ones 

LQCATiOm 

PRIN  ERA<; 

♦ 1 

SHOW  THAT  THERE  is  NO  LOCATION  value. 

1095 

SWS,  CAC2 

common 

+ 2 

16*. 

health 

use  location  value  found  by  pass  1.5  to 

1097 

wA,  CaC3 

health 

COMMON  +2 

HeAL  t h 

form  upper  and  lower  erase  addresses. 

1103 

PRIN  ERAS 

SWE,  CAC3 

health 

16 

LjCAT ION 

1104 

SWE,  CAC3 

M PL0L 

EB 

16 

Z,CSC 

c 

PRINT  OR  BLOT  FIRST  LOCATION. 

11052 

LA 

ones 

LOCATION 

C,  + 2 

BRANCH  IF  THERE  IS  NO  LOCATION  VALUE. 

1106 

EX 

health 

CAC3 

location 

1107 

TX 

M PLOC 

IS 

- 

z,csc 

c 

PRINT  OR  BLOT  SECOND  LOCATION. 

1109 

LA 

EUUALJC 

zero 

NO  LOC  SvM 

QUICK  EXIT  IF  NO  SYMBOL. 

1111 

TS 

- 

- 

health  CO 

CALL  FOR  LOCATION  SYMBOL  CUsSINo. 

L eYUL  SYSTEM  ASSEMBLER  — PASS  2 


Pi  1 122 

PROCEDURE  IN 

pass  ^ for 

EVEN  CARDS. 

11123  EVEN 

TS 

Zero 

eojaloc 

SETLOC  *i 

c 

1112A 

SWS*  Bill 

healt  h 

1 3 * L 

CJSS  LIST 

+ 2 C 

11126 

SWS,  BIT1 

health 

1 2 * L 

CJSS  LIST 

+ 21 

111272 

na,  Bn  3 3 

CuSS  LIST 

♦1  ZERO 

C,  + 2 

11128 

NA,  BiTIA 

health 

ONES 

form  locn 

11129 

TS 

ONES 

LOCATION 

form  ldcn 

♦ 1 

R 1 1 1 3 

procedure  in 

PASS  2 FOR  BLOCK  CARDS. 

1 1 1 A BLOCK 

TS 

ONES 

location 

SETLOC 

c 

1116 

SWS. 

BIT33 

HEALTH 

19 

CJSS 

list 

+ 9 

1118 

SWS, 

BIT  33 

health 

21 

CJSS 

list 

+ 2 

1122 

SWS, 

BIT  1 

health 

9 , L 

CJSS 

list 

+ 18 

1 12A 

SWS, 

BIT  33 

health 

22 

CJSS 

list 

+ 17 

11252 

SWS, 

BIT  33 

healt  h 

20 

CJSS 

list 

+ 1 

1 125A 

SWS, 

BIT  17 

health 

9 

CJSS 

list 

+ 1A 

1126 

NA. 

B l IT  1 2 

health 

zero 

FORM 

locn 

tl 

11262 

NA, 

bit  33 

Cuss  LIST  +1 

zero 

form 

locn 

+ 1 

1 126A 

NA, 

B I T33 

CUSS  LIST  +9 

zero 

form 

LOCN 

+ 1 

1127 

SSL , 

ONE 

health 

38 

form 

LOCN 

R 1 1 2 8 

PROCEDURE  in 

pass  2 

for 

memory  cards. 

1130 

memory 

TS 

ONES 

location 

SETLOC 

c 

1132 

SWS, 

BIT  17 

health 

9 

CJSS  LISt 

♦ 18 

1 1 3A 

SWS, 

BIT  33 

health 

22 

CJSS  LIST 

♦ 2 

1136 

SWS, 

BIT  17 

health 

5 

CJSS  LIST 

+ 3 

1138 

SWS, 

BIT  1 

health 

12, L 

CJSS  LIST 

+ 19 

11392 

NA, 

bits 

health 

zero 

bad  memry 

1 139A 

NA, 

B1 1T1  2 

health 

zero 

Bad  MeMRY 

11396 

SSL. 

one 

health 

35 

c,  + l 

11  AO 

SWE, 

CAC3 

health 

16 

location 

1 1A1 

BAD  MEMRY 

SWE , 

CAC3 

M PLOC 

eb 

16 

z,csc 

1 1 A3 

SSL, 

ONE 

location 

16 

Form  loCm 

R 1 1 A A 1 

PROCEDURE 

in  Pass  2 for 

SEGnUM  CARDS* 

1 1 A A2  SEGNJM, 

SWE,  DAT 8 

health 

D , A , L 

ARG  1 

1 1 AAA 

TS 

W REV 

LINE  +5 

P2  D2 A 

L7S 

c 

11AA6 

TS.  CAC3 

ARG  1 

LINE  +5 

memory 

+ i 

c 

11AA8 

TS 

zero 

eojaloc 

NO  LOC 

SyM 
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MAYBE  CUSS  NON-BLANK  LOCATION  FieLD. 

cuss  oversize  loc*  wrong  memory  type, 
maybe  cuss  non-blank  address  fi-ld. 
maybe  cuss  LOCATION  IN  WRONG  Mem  TYPE. 
branch  if  location  size  is  ok. 

SHOW  lack  of  location  value. 


MAYBe  CUSS  "D"  ERROR. 

MAYBe  cuss  ADDR  RELATIVE  to  bao  loc. 
maybe  cuss  meaningless  address  held, 
maybe  cuss  fullness  of  block, 
maybe  cuss  no  such  block. 

MAYBe  CUSS  memory  type  error, 
maybe  cuss  nonblank  location. 

BRANCH  IF  NO  LOCATION  VALUE. 

maybe  cuss  location  in  wrong  me m type, 
test  FULLNESS  OF  BLOCK. 


MAYBE  cuss  d ERROR. 

MAYBe  cuss  illegal  location  format, 
maybe  cuss  meaningless  address  -ield. 
MAYBe  cuss  address  size  error, 
maybe  cuss  oversize  memory  type  table. 

BRANCH  IF  ILLEGAL  LOC  FIELD  FORMAT. 
BRANCH  IF  ADDRESS  FiELD  UNUSABLE. 

"branch"  if  memory  table  overflowed. 

SET  FIRST  LOCATION  IN  PRINT. 

test  FoR  a Second  location  to  Rrint. 


set  "Revnnn"  in  print. 

maybe  cuss  bad  location  field  contents. 


..t  !■ 
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PASS  2 

P 1 1 A 5 

procedure  in 

PASS  2 FOR 

SUBRO  CARDS. 

1146 

SUBRO 

TS 

L DIReCtY 

Z , X 6 

1147 

SWS»  BIT  17 

healt  h 

8 

1148 

SWS,  BIT  33 

health 

14 

1149 

SWS,  BIT  1 

health 

10, L 

1150 

SWS,  BIT  33 

health 

21 

11505 

SWS,  BIT33 

health 

16 

1151 

SWS.  B38T43 

health 

16 

1152 

TS 

N.X6 

COMMON 

11522 

SSL.  ONE 

health 

34 

11524 

LA.  BHT12 

health 

ZERO 

11526 

TX 

ones 

- 

1153 

SWS.  BIT  17 

HtALTH 

4 

1154 

TS 

Z,X6 

COMMON  +3 

11546 

na.  lhari 

CARD 

REF  lXXX 

11548 

TS,  Bin 

zero 

CUSS  LIST  + 

1155 

LA 

Z,X6 

L DIRECTY 

1156 

SSL.  ONE 

HEALTH 

30 

1157 

S’  ETS 

6,0 

ZX  +6 

1158 

S » E Ts 

6,1 

ZX  .6 

1159 

NA.  CAC3 

6,0 

COMMON  +3 

1161 

LA 

bit  16 

N , X S 

1162 

PAG 

SUBRO 

SWE,  ONE 

switch 

45 

11622 

DA 

NO  LOG  OYM 

page  no 

11623 

SWE.  ONES 

CAC3 

16 

11624 

SWS,  AV  MSG 

NO  LOC  SYM 

D.8.L 

116252 

na,  bits 

health 

ONES 

11626 

ts 

z,sc 

Z.X6 

1163 

END 

SJBRo 

TS  ' 

NO  WORD  _i 

NO  LOC  SYM 

1 164 

SWE’  CaC3 

l pass  2 

16 

1165 

TS 

z.csc 

Z ♦ X 6 

1166 

TS 

VDA  VDB 

TS 

- 

- 
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MAYBE  CJS 

c 

CUSS  LIST 

c 

CUSS  LIST 

+ 31 

c 

CUSS  LIST 

+ 31 

c 

CUSS  LIST 

+ 2 

CUSS  LIST 

+ 4 

Z , X 6 

form  locn 

c 

C.  + l 

C » ♦ 2 

location 

CUSS  LIST 

+ 31 

c 

form  locn 

+ 2 

c 

C , + 2 

END  SJBRn 

end  SJBRn 

-2 

MAYBe  CUSS  OVERSIZE/ILL-DEFINE3  LOC. 
may  cuss  "O"  error,  loc  in  wrong  memtyp. 
May  CUSS  head  def  or  LOC  use  CONFLICTS. 
may  cuss  NO  SUCH  SUB,  LOC  PREUE-  fail, 
maybe  cuss  meaningless  address  field, 
maybe  cuss  loc  sym  no  fit  in  ta3le. 

POINT  TO  SUBRO'S  PLACE  IN  TAPE  DIRECTRY. 

Fetch  6 set  in  print  the  location  value. 
"BRANCH"  if  BAd  LOCATION  value, 
branch  unless  no  such  sub  or  bao  adrfld. 

maybe  cuss  multiple  calls  in  a sroG/sjb. 

PRINT  LINE  WITH  LOCATION  VALUE. 
branch  unless  SUBS  FROZEN  this  ASSEMBLY. 
OTHERWISE  UNDO  UUeER-COL-1  CUSS,  exit. 

branch  if  pass  i failed  to  find  a sjbro. 


end  SU3RO  +1  c 

C . + 2 


DID  THE  SUBRO  name  FIT  IN  SYMBO.  TABLE? 
POINT  TO  FIRST  SUBRO  IN  Ad  hoc  directry. 


c.  + i 

c,-l  FIND  SUBRO  ENTRY  IN  AD  HOC  DIR. 


END  SJBRn  -2 
NO  LOC  SYM 
NO  LOC  SyM 
AV  MSK 
N,X6 

end  sJBRo 

LOC  SYM  i 
NO  WORD 


BRANCH  IF  SUBRO  CALL  PAGE  ALREADY  DONE. 
MAY  COMPENSATE  FOR  OWED  PaGe  HeaDS. 


RECORD  PAGE  NUMBER  OF  FIRST  CAUu  TO  SJB. 
branch  if  there  is  no  location  symbol, 
analyze  and  pre-process  location  symbol, 
process  location  symbol  and  exit. 


Z.Xfa 

SYMB  FIT*  -2 
PAG  SJBRn 


point  to  ad  hoc  dir.  if  sub  is  there. 

CUSS  FULLNESS  of  SYMTAB  UNO  SJBnAME). 


L 
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Pi  169 

PROCEDURE  in 

pass  2 eor 

remarks  cards. 

postpones  cussing 

TO  CHECK  FOR  A RIGHT  PRInT  CARD. 

11692 

remarcs 

TN 

line  +7 

9 

line  +2 

move  remark  5 words  left. 

11694 

MT 

blanks 

5 

N.AJ2.1 

FILL  OUT  LINE  WITH  BLANKS. 

11696 

ts,  Last  Rem 

ones 

SWI TCH 

NO  LOC  SvM  C 

SIGNAL  THAT  LAST  WAS  REMARKS,  3RlNT. 

11698 

ts 

L PASS  2 

Z,SC 

SEND  SYPT  C 

R 11701 

SEOJENCE- 

mode  subroutines 

IN  PASS  2 TO  CUSS  OJEER  1 

NfORMATlON  IN  COLUMNS  1,  17,  ANd  24. 

11703 

queer 

Cl 

SM 

CUSS 

LIST 

+ 20 

BIT  1 CJSS 

list 

+ 20 

11704 

TX 

Z , SH 

Z,SC 

11705 

queer 

C 1 7 

SM 

cuss 

LIST 

+ 20 

BIT  1 7 CJSS 

LIST 

+ 20 

11706 

TX 

Z , SH 

Z,5C 

11707 

queer 

C24 

SM 

CUSS 

LIST 

+ 20 

BIT  33  CJSS 

LIST 

+ 20 

11708 

TX 

Z ,SH 

z,sc 

R 1 1 7 1 

PROCEDURES 

IN  PASS  2 FOR 

all  them 

FJSSY  LITTLE  jobs 

• 

1172 

ILLeSoP 

TS,  B 1 T 33 

ones 

cuss  list  Decimal 

C 

CUSS 

ILLEGAL  OR  MIS-SPeLLeD  oP  code. 

11732 

TS 

w bad  word 

NUM3eR 

L FINI  Id 

♦ 1 

11734 

head  TAIL 

TS,  ChAR8 

health 

head 

ZeQJALOC 

set  up  head  and  join  proc  word. 

117a 

accept 

NA  * <-278 

health 

zero 

card  no  +2 

branch  on  sinful  acceptor  card. 

1175 

TS.  CHARS 

COMERc  at 

marker 

PASS  2 

NORMALLY  CHANGE  MARKER,  GET  next  CARD. 

1176 

delete 

SWS,  B1T33 

health 

21 

CJSS  LIST 

+ 19 

MAYBe 

CUSS  TOG-SMALL  SECOND  card  NUMBER. 

1177 

SWS,  BIT1 

health 

10, L 

CJSS  LIST 

+ 23 

maybe 

CUSS  NO  MATCH  ON  2ND  CARD  NUMBER. 

1178 

card  mo 

SWS,  BIT  17 

HEALTH 

9 

CJSS  LIST 

+ 18 

maybe 

cuss  bad  location  field  format. 

1179 

SWS*  B I T3 3 

HEALTH 

24 

CJSS  LIST 

+ 2 

MAYBE 

CUss  MEANINGLESS  ADDRESS  "1  eld. 

1180 

SWS,  B1T17 

HEALTH 

7 

CJSS  LISt 

+ 19 

maybe 

CUSS  NO  MATCH  ON  CARD  NJM3ER. 

1181 

modify 

TN 

line  +7 

9 

LINE  +2 

PRINT 

merge  control  lines  at  LEFT. 

1182 

MT 

BLANKS 

5 

N * A J2 , 1 

1183 

TS 

L CUSSEK 

Z , X 4 

PRINT  LIn 

print 

but  do  NOT  keep  such  cards. 

1185 

TOO  LATE 

ts,  bit  33 

ONES 

CUSS  LI 

ST  +18  ZEQJALOC 

cuss 

too-late  MEMORY  code. 

2" 


r* 
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119101 

PROCEDURE  in 

PASS  2 FOR 

"END  OF"  CARDS 

• 

119106 

end  of 

NA,  Chari 

card  + i 

BLANKS 

END  OF  RpV 

branch  if  not  for  new  and  main  program. 

1 19108 

TN 

CARD  +1 

6 

LINE  +2 

move  all  information  but  date. 

11911 

ss 

W REVN  o 

ClT7 

card  + i 

CHANGE  "NEW"  TO  "REVISION  0 OF", 

11912 

ss 

W END  NEW  + 

1 C1T2 

LINE  +2 

11913 

mt 

blanks 

8 

N , A J2 , 1 

line  had  BEEN  SET  UP  IN  INStR.  format. 

11914 

ts 

w end  new 

LINE  +1 

SP3  BeFOo 

FINISH  INCLUDING  "END  OF". 

11915 

end  o-  Rev 

TN 

W END  RtV 

2 

LINE  +1 

INCLUDE  "END  OF"  FOR  REVISIONS. 

11916 

TN 

CARD  +1 

6 

LINE  +3 

MOVE  ALL  INFORMATION  BUT  DATE. 

11917 

MT 

BLANKS 

7 

N , A J2 , 1 

11918 

SP3  3EF0R 

TX 

L OLD  LINE 

- 

Z , A J 1 

11919 

wA 

BIT  12 

USER  LOG 

N , A Jl 

FORCE  SPACE  3 AFTER  PRECEDING  LINE. 

1192 

ON  FIRSr  " 

END  OF"  CARD, 

s£nd  sypt. 

close  OUT  LASy 

SYP[  3 JF F eo , ALLOW 

rd3  to  deliver  sylt  records,  print  "end  of" 

1193 

LINE  (WITH 

DATE  IF  R £ 3R 

i n r ) • subsequently,  jus i 

3R I NT  LINE  WITH 

DATE 

• 

1194 

watch  ojt 

FOR  TRICKY  3 1 SEUUENcE  and 

incrementing 

action. 

1195 

TS 

C ♦ ♦ 3 

c,o 

send  sy^t 

C 

send  sypt  of  main  "end  of"  card  only. 

1196 

LA 

z,xa 

end  SYBUF 

CLOS  SYPt 

CLOSE  OUT  last  SYPT  buffer. 

1197 

SM 

TS  VDA  VDB 

SPEC  MAG 

send  sypt 

destroy  send  sypt. 

1198 

TS 

Z,SC,3 

continue 

MON  WA<E 

C 

WATCH  that  increment 

1199 

TN 

W LAST  ASS 

2 

LINE  +11 

1200 

TN 

CARD  +7 

2 

LINE  +13 

1201 

ts,  Chari 

W REVN  0 

LINE  +13 

C , + 2 

INCLUDE  DATE  LAST  ASSEMBLED, 

1203 

LA 

bit  1 

SWITCH 

C * - 3 

BRANCH  IF  MAIN  "END  OF"  IN  REPRINT. 

1204 

ts,  one 

zero 

switch 

NO  LOC  SvM 

C 

CLEAR  ANY  WHAM  CALL. 

1205 

na,  bit  3 

switch 

ONES 

C,  + 3 

BRANCH  UNLESS  PAGE  HEADS  ARE  OWED. 

12052 

TS 

c,  + i 

PRINT  OLD 

PAGE  JNIr  -1 

print  page  heads  only  and  residue 

12054 

TS 

PRINT  HtD 

PRINT  OLD 

C,  + l 

printing  ROUTINE. 

1206 

EBA 

L NEXT  SUB 

BIT  25 

Z,X4 

POINT  TO  AD  HOC  ENTRY  OF  NEXT  SjBRO. 

12062 

LA 

ONES 

N , X 4 

SJB  SJP?  Q 

BRANCH  IF  THERE  are  no  MORE  SJ3ROJTINES. 

12064 

DA 

PAGE  NO 

ONE 

common 

12065 

SWE , ONES 

CaC3 

16 

AV  MSK 

12066 

SWS,  A V M 5 <i 

common 

D , 8 , L 

4,1 

PLANT  STARTING  PaGe  NUMBER  FOR  SU3RO. 

12068 

na,  Chari 

page  head  + 14  blot  ci 

C,  + 2 

branch  unless  reject  or  obsolete  Reprin. 

1207 

TS 

c,+o 

C*-l 

SJB  SJPP  0 -2 

12072 

TX 

N ,X4 

- 

Z.AJ1 

12074 

SWS,  CHAR 3 

N , AU 1 

A , 1 , L 

page  heap,  +13 

12078 

SWS,  C1T7 

N,AUl,i 

A , 1 , L 

PAGE  HEAD  +14 

PUT  SUBRo  name  IN  PAGE  HEAD  IF  POSSIBLE. 

120792 

SWE*DECAL*'U 

N ,AU1 

0 

ARG  1 

120794 

TS 

W REV 

USERLOG  +14 

P 2 D2 A L7S  -1 

C 

120796 

SWS,  CAC3 

ARG  l 

0 

JSERLOG  + 1 4 

PRINT  SUBROUTINE  REV  NO.  IN  SU3heaD. 

1208 

SWE,  CHAR 3 

N,Xa 

A, 3 

Head 

establish  head  that  WAS  GIVEN  IN  aDRFLD. 

12082 

EX 

4,1 

CAC  3 

L NEXT  Si iB 

12084 

SUB  SJPP  Q 

na,  bit  u 

Sw i tch 

ONES 

jnlog 

BRANCH  UNLESS  INACTIVE  SUBS  SJP3ReSSeO. 

12086 

SWS»  BIT  44 

N , X A 

13 

Switch 

12092 

NA,  B I T44 

SwlTcH 

ZERO 

JNuOG 

branch  if  coming  subroutine  is  active. 

12093 

TS,.  BIT3 

ONES 

SW I T CH 

PRINT  LIm 

V. 

OWE  heads  AND  point  TO  OLD  line  with  X3. 

12094 

na 

N COPIES 

zero 

copy  pRts 

branch  if  more  copies  must  be  made. 

12095 

S,  PH  I PRINT 

3,0 

PRINT  "END  OF"  LINE  NOW  IF  NEXT  IS  SJPP. 

12096 

UNL03 

TX 

zero 

~ 

jseR  page 

Leave  log-card  mode. 

12098 

TS,  C5T8 

BLANKb 

USERLO&  + i 5 

PASS  2 

clear  some  Special  flags  in  log  line. 
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1210 

SUBROUTINE  IN  pass  2 TO 

TRANSMIT  SY3 i 

OR  SYLT  RECnRDS 

TO  WR1 

for  writing  on  tape  i.  with  io  words 

1212 

starting  in 

• • c 

ARD..,  ENTER  bY  CoSeqUenCe  call. 

GRABS  A BUFFER 

no  sooner  than  it  needs  it.  and  puts  it  into 

1 2 1 A 

sypt  status 

AS 

Soon  as  it  is  full. 

IN  A 3R0GRAM 

ASSEMBLY . MgRU 

Wait  IS 

initially  set  ro  zero  (proceed),  but  in 

1216 

a subroutine  assembly  it  is  set  to 

zero  as  soon 

AS  THE  FIRST  SYLt  RECORD  MAY  Be  TRANSMITTED. 

1218 

send  sypt 

TS 

N.CSC.l 

send  sypt 

GRAB  FREf 

c 

INITIAL.  OR  BUFFER-SEEKING.  MOOS. 

1222 

TS 

SYB  PLACE 

Z.XA 

MOVE  SYPt  +2 

c 

1223 

TX 

Z * AUI . 3 

_ 

SYPT  BUFF 

c 

1 2 2 A 

MT 

Z. AUI. 31 

9 

end  sYBJp 

c 

COMPUTE  both  ends  OF  bYPT  buffer. 

1233 

TX 

SYPT  BUFF 

- 

Z.XA 

c 

1 2 3A 

TX 

computer 

- 

n.xa.1 

c 

PUT  COMPUTER  name  IN  BANNER  word. 

1236 

TX 

PROG  NAME 

- 

N.XA.I 

c 

12362 

swl. 

CITa  Z.R6.1 

15 

n.xa 

c 

SEOUENCE  number  of  recd  in  program. 

1237 

MOVE  SYPt 

wD 

l end  card 

TEN 

Z.AUl 

c 

set  aui  to  Beginning  of  card. 

12372 

TS 

Z , X A * 1 

Z.SH 

SUUEEZER 

c 

save  ADDRESS  of  code  word. 

123725 

TS 

Zero 

n.xa 

MOVE  SYPr 

c 

12373 

TS 

N.AUl.l 

N.Xa.I 

SjUEEZER  +2 

c 

move  non-blank  word  to  condensed  image. 

1237A 

SQUEEZER 

NA 

N ♦ AU  1 

BLANKS 

C.-l 

c 

12375 

sws. 

B1T33  Z,AUl,l 

5 

N.SH 

c 

store  indicator  bit  and  advance  aui. 

12376 

SWS . 

C5T8  N.SH 

1 

N.SH 

c 

12377 

NA 

Z » AU  1 

L END  CARD 

SjUEFZER 

c 

1238 

LA 

Z,Xa 

end  sybuf 

SYP]  EXIr 

r 

BRANCH  IF  there  IS  room  FOR  MORr  IN  buf. 

1 2 AO 

TS 

SYPT  BUFF 

Z.AU2 

MERU  rt A I t 

Q 

1 2 A 1 

TS 

Z.SC 

Z.AJ1 

CSC  SLEEP 

S 

12A2 

MERj  MAlT 

NA 

may  merge 

ZtRO 

C.-l 

C 

GO  TO  SLEEP  IF  MUSTNT  SlND  1ST  SYLT  YET. 

1 2 A A 

CC 

N.AU2 

- 

n.xa 

c 

TENTATIVE  ORtHo  UNTIL  BANNER  INSERTION, 

12A6 

TX 

SYPT  bUFF 

- 

Z,  AU2 

c 

12A7 

TS 

C.  + l 

send  sypt 

LIST  SYPt 

c 

set  up  buffer-seeking  mode  of  sjbroutine 

12A72 

TS 

N.CSC.l 

SEND  SYPT 

grab  free 

12A7A 

sypt  exit 

TX 

Z,Xa 

- 

SYB  PLACE 

s 

Mark  PLACE  IN  BUFFER  AND  EXIT. 

12A752 

CLDS  sypt 

TS 

Z.SH 

Z.SC 

MERU  rt  A I t -2 

c 

' 1 2 A76 

general  multi  programmable  subrduti 

ne  In  pass  2 to  Rut  into  sypt 

status 

i He  buffer  whose  name  is  supplied  in  au2. 

12^8 

LA 

N , R a 

zero 

LIST  SYPt  +1 

c 

branch  IF  THeRe  is  ROOM  in  SYPj  list. 

12A9 

TS 

z.sc 

Z.AJl 

CsC  SLEEP 

s 

OTHErWjsE  SLEEP  UNTiL  There  IS. 

1250 

list  sypt 

TS 

SYPT  NTRY 

Z*RA 

C.-2 

c 

* # * ENTER  SUBROUTINE  here.  * » 1* 

1251 

TS 

Z.AU2 

N . R A « 1 

- 

c 

put  buffer  into  sypt  status. 

1252 

SM 

Z.RA 

bit  A6 

SYPT  NTRY 

c 

modulate  sypt  list  entry  pointer. 

1 2 5 A 

TS 

Z.SC 

Z.CSC 

MON  WA<E 

c 

wake  any  SLEEPERS  and  exit. 

L 
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P 1 2 60 

subrout ine 

in  pass  2 to  process  the  aodress  field  of  instructions  or  clerical  codes  with  similar 

P 1 2 62 

address  format,  enter 

with  Return  address  in 

X 6 . 

THe  address  value  is 

Delivered  as  an  unsigned  integer  in 

P 1 2 64 

address,  or 

A WORD  0" 

ones  is  Delivered  there 

11-  thE  ADDReSS  value 

cannot  Be  determined,  some  address  cussing 

R 1 2 66 

is  dome*  address  sym3ol  transformations  are  done. 

and  all  ADDRESS 

symbol 

. cussing  is  done. 

1268 

ProC  ADR 

TS 

Z,sc 

z , X 4 

ADR  FIELD 

form  subfields  from  address  fie^d. 

1270 

NA 

FIELD  Cod 

ONES 

C , + 2 

1271 

TS,  B I f 3 3 

ONES 

CUSS  LI 

ST  ♦ 2 

NO  ADRESs 

cuss  and  exit  on  meaningless  field. 

1273 

NA 

FIELD  CuD 

ZERD 

C , ♦ 2 

12  74 

TS 

zero 

AdR  WD 

+ 1 

REL  AdREs 

fake  zero  MODIFIER  when  FIELD  Is  3LANK. 

1276 

NA,  B2B6 

field  cod 

BIT  2 

ndn  rel  aD 

br  if  main  part  is  not  signed  njmeRic. 

12771 

la.  biT  2 

ONES 

switch 

ReL  ADReS  +3 

BRANCH  if  RELATIVE  to  LEFTOVER  LOCATION 

1278 

LA 

field  cod  +1 

ZERD 

C , + 2 

1279 

BA 

ADR  WD 

ADR  WD 

+ 1 

ADR  WD 

ADD  TWO  SIGNED  NUMERIC  PARTS. 

1281 

TX 

ADR  WD 

- 

ADR  WD  ♦ 1 

MODIFIER  RELATIVE  TO  CURRENT  LOCATION. 

1283 

REl  ADRES 

SM 

Location 

bit  1 

ADR  WD 

1286 

NA 

ADR  WD 

ONES 

MINAD  CHk  -1 

1287 

ts.  bit  33 

ONES 

CUSS  L 1 

ST  *3 

ND  ADRESS 

CUSS  AND  exit  WHEN  LOCATION  IS  bad. 

1289 

non  ReL  ad 

la 

bit  1 

FIELD  C0D 

SYMBOL  An 

branch  if  main  part  is  symbolic. 

1291 

la 

FIELD  cod  +1 

ZERD 

C.  + 2 

1292 

BA 

ADR  WD 

ADR  WD 

♦ 1 

ADR  WD 

add  modifier  to  main  part. 

1294 

minad  chk 

ln 

min  ADReS 

ADR  WD 

C , *2 

branch  if  value  mot  too  neGativ-. 

1296 

TS.  Bn  17 

OrES 

cuss  list  +3 

ND  ADrESs 

cuss  and  exit  when  address  value  faulty 

1298 

LA.  C2T8 

BIT  32 

ADR  WD 

c,-l 

BRANCH  IF  value  IS  MORE  THAN  CAC3. 

1300 

EX 

ADR  WD 

CAC3 

ADDRESS 

1301 

TX 

Z.X6 

- 

z,sc 

NORMAL  EXIT. 

1303 

SYMBo.  AD 

TS 

ADR  WD 

common 

ANAL  SY Mr 

c 

ANALYZE  HISTORY  oF  SYMBOL. 

1305 

NA 

COMMON  +2 

ONES 

SYMB  FITr 

1306 

SWS . B38T48 

CUSS  LIST  ♦ 5 

32 

Z ,R5 

1307 

TS,  Dm 

ONES 

CUSS  LI 

ST  +5 

SYM  CJSS  1 

CUSS  AND  EXIT  WHEN  NEW  SYMBOL  DoNT  FIT. 

13082 

SYMB  -ITS 

EBA 

z,x2 

ZERD 

L ReF  SYm 

SAVE  address  of  SYMBOL  REFERRED  td« 

1309 

la 

CD8 

COMMON 

♦ 2 

C , + 2 

BRANCH  IF  HEALTH  of  SYMBOL  is  c or  more 

1311 

SSL,  B 4 4 T 4 7 

common  +2 

15 

state  0 

CHOOSE  cuss  FOR  SYMBOL  HEALTHS  3 TO  B. 

1313 

SS 

CUSS  LIST  +7 

B38T46 

Z,R5 

1314 

TS,  B 1 T 33 

Ones 

CUSS  L 1 

SI  *7 

SYM  CJSS  2 

c 

MULTIPLE  DEFINITION  CUSS. 

1316 

SSL,  B44T  4 7 

Common  +2 

15 

STATES  bo  -22 

CHOOSE  CUSS  FOR  SYMBOL  HEALTHS  c TO  G. 

3" 
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1319 

STATE  0 

SWS,  B38T43 

CUSS  LIST 

♦ 3 

32 

Z ,R5 

1320 

TS  * t3 1 T 1 

ones 

CUSS  LIST 

+ 3 

SYM  CJSS 

1 

1322 

STATE  1 

SS 

CUSS  LIST 

+ 15 

B38T48 

Z ,R5 

1323 

TS.  »IT33 

ONES 

cuss  list 

♦ 15 

SYM  CJSS 

1 

1325 

STATE  2 

SWS.  B38T43 

Cuss  LIST 

+ 16 

32 

Z ,R5 

1326 

TS,  BlTl 

ONES 

CUSS  LIST 

♦16 

SyM  CJSS 

1 

1328 

STATE  3 

TS 

- 

_ 

SYMB  MOD 

Q 

1330 

L REF  SYM 

OCT 

0 

1331 

STATE  4 

SS 

CUSS  LIST 

+ 16 

B38T48 

Z,R5 

1332 

TS,  Bit33 

ONES 

CUSS  LIST 

+ 16 

SYM  CUSS 

3 

1334 

STATE  5 

SWS  * B38TA3 

CUSS  LIST 

+ 16 

16 

Z ,RS 

1335 

ts,  bit  17 

ONES 

CUSS  LIST 

♦16 

SYM  CJSS 

1 

1337 

SYMB  MOD  U 

TX 

bit  i 

ADR  WD 

1339 

TS,  CAC3 

common  +2 

ADR  WD 

NON  REL  a 

D + 

1374 

STATE  7 

SS 

CUSS  LIST 

+ 7 

B38T48 

Z,R5 

1375 

TS*  B I T33 

ones 

CUSS  LIST 

+ 7 

SYM  CJSS 

3 

1377 

STATES  8C 

SWS,  B38T4B 

CUSS  LIST 

+ 7 

32 

Z,R5 

1378 

ts,  biT  i 

ones 

cuss  list 

♦ 7 

SYM  CJSS 

1 

1380 

STATES  9D 

SS 

CUSS  LIST 

+ 5 

B38T48 

Z,R5 

1381 

TS,  B I T33 

ONES 

CUSS  LIST 

♦ 5 

SYM  CjSS 

3 

1383 

STATES  BE 

SWS,  B38T43 

CUSS  LIST 

+6 

16 

Z , R 5 

1384 

TS,  B i T 17 

ONES 

CUSS  LIST 

♦ 5 

SYM  CJSS 

3 

1386 

STATE  F 

SWS,  B38T43 

CUSS  LIST 

♦8 

16 

Z ,R5 

1387 

TS*  B ! T 17 

Ones 

cuss  list 

♦3 

statf  g * 

2 

1389 

STATE  G 

SWS,  B38T43 

CUSS  LIST 

♦ 9 . 

32 

Z ,R5 

13891 

SS 

ONES 

bit  1 

CJSS  list 

+ 9 

1391 

SS 

ZERO 

BIT  33 

CJSS  LIST 

♦ 7 

1392 

SYM  CJSS  1 

SWS*  C2T  8 

common 

6 

N.R5.1 

1394 

SwS,  cHARl 

COMMON 

6 

N ,R5 

1395 

NO  adress 

TS 

ONES 

address 

N,X6 

1397 

SYM  CJSS  3 

SWS*  C2T8 

common 

6 

N »R5 » 1 

1399 

SWS,  CFiARl 

COMMON 

6 

N ,R5 

1400 

TS 

- 

- 

SYMB  MOD 

Q 

1401 

SYMB  MOD  A 

TX 

bit  1 

- 

ADR  wD 

1403 

SYM  CJSS  2 

SWS,  C2T8 

common 

fa 

N , R5 , 1 

1405 

SWS,  CHARI 

COMMON 

6 

N,R5 

i 
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undefined. 

nearly  defined  by  equals. 

multiply  defined  including  NEAR_Y  by  = . 
defined  by  equals  (NO  CUSS). 

MULTIPLY  defined  including  by  e OUaLS, 
failed  leftover. 

SET  UP  VALUE  OF  ADDRESS  SYMBOL  AS  A 
1 FULL-WORD  SIGNED  INTEGER.  CHt<  modifier. 

MULTIPLY  DEFINED. 

OVERSIZE  DEFINITION. 

WRONG  MEMORY  TYPE. 

conflict. 

MULTIPLE  ERRORS. 

miscellaneous  trouble. 

NO  MULTIPLE  DEFINITION  CUSS  FOR  F AND  G. 
PUT  SYMBOL  IN  QUOTES. 

COMMON  FAILURE  EXIT. 

final  cuss  for  defined  address. 

constant  to  be  restored  in  symb  mod  d. 

c closed  profanity  subroutine. 
s 
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14D7 

1409 

SUBR0U1 INS  TO  BREA<  AN 
RESJLrS  ARE  DELIVERED  IN  FIeLDCoD 

ADDRESS  FIELD  down  into  SJrFIELDS.  PUT  RETURN  ADDRESS 
AND  FlELDCODtl,  AnD  IN  ADRwD  AND  ADRWO+l,  AS  FOLLOWS... 

into 

• 

X4  ON 

ent-ring. 

1411 

1412 

1413 

1414 

1415 

1416 

fieldcod  all  zeko 
fieldcod  ALL  ONES 
fieldcod+i  all  ZtRO 
FIELDCOO+I  INDITES  SIGNED  num 
fieldcod  indicates  symbolic 
FIeLDCoD  INDICATES  s dr  us  num 

blank  address  field 

ILLEGAL  FORMAT 
NO  MODIFIER 

MODIFIER  GWEN  IN  ADRWD+l 
ADDRESS  SYM30L  IN  ADRWD 
VaLJe  GWEN  In  adrwd. 

1417 

USES  ANALSUBF,  S3,  X 3 , AND  X5. 

1418 

ADR  FIELD 

na 

ADDRESS 

1 

BLANKS 

TEST  wD2 

1419 

NA 

ADDRESS 

2 

blanks 

MOV  ADRES 

1420 

TS 

zero 

field  cod 

N , X A 

INDICATE  bLANK 

address  FIELD  and  EXIT 

1422 

TEST  wD2 

NA 

ADDRESS 

2 

blanks 

MoV  ADRea 

branch  if  both 

words  non-blank. 

1424 

TX 

address 

1 

- 

afield  +1 

1425 

TS 

BLANKS 

AFIELD 

M3V  ADRES  +1 

SHORT  CUy  WHEN 

WORD  2 IS  BLANK. 

1427 

MOV  ADRES 

TN 

address 

1 

2 

AFIELD 

1428 

swe*  ones 

C , + 3 

16 

Z,X3 

initial  procedure  for  non-num  address 

1430 

TX 

zero 

- 

FIELD  CDn  +1 

INITIALLY  Assume  no  modifier. 

1432 

TS 

c , + 1 

Z*X5 

LD  A2  S3 

1433 

CAC 

NO  MoDlF 

Found  rnk 

Set  up  to  look 

for  signs  init i a.ly. 

1435 

LD  A2  S3 

TX 

EIGHT 

Z , S3 

maximum  number 

OF  NBCS  IN  A SU3SIELD. 

1437 

TS 

blanks 

AFIELD  +2 

FIND  NBCs 

1438 

Ml  n°R 

SJBrOuTjneS  TO 

SHIFT 

TWO 

Or 

three  wDrds 

R I oH  T By  D\jE 

Character. 

1439 

3SRT 

lC 

SWS,  ONES 

af 

ield 

♦ 2 

A , 1 

AFIELD 

♦ ? c 

1440 

SWS,  CHARI 

AF 

ield 

+ 1 

A 1 1 

AFIELD 

+ 2 c 

1 4 A 1 

2SRT 

lC 

SWS.  ONES 

AF 

ield 

+ 1 

A,1 

AFIEl'D 

+ 1 c 

1 A A2 

SWS 1 ONES 

AF 

ield 

A , 1 

AFIELD 

c 

1 AA3 

ss 

AF 

ield 

CHARI 

AFIE'D 

♦ 1 C 

1 AAA 

ss 

blanks 

CHARI 

afield 

1" 


14441 

&YUL  SYSTEM 

assembler 

— PASS  2 

1445 

to 

u 

CO 

O 

? 

li_ 

NA ♦ CHAR8 

AFIELD  +i 

BLANKS 

1-447 

1449 

TS 

SPEC 

C.  + l 

z.sc 

1450 

FOJMD  RNB 

T 5 

Z.S3.1 

_ 

1452 

NA.  B3T6 

AF I ELD  +2 

zero 

1453 

LA.  LHARl 

AFIELD  +2 

ZERO 

1454 

NA.  LhaR8 

AFIELD  +i 

blanks 

1456 

TS 

AFIELD  +2 

COMMON 

1458 

NA.  tJ 2 B 6 

field  cod 

B I T 2 

1460 

NA 

afield  +1 

BLANKS 

1461 

NA 

AFIELD 

BLANKS 

1463 

TS 

Common  + i 

ADR  wD 

1465 

FOJND  MNB 

TS 

2 . S3  ♦ l 

- 

1467 

NOT  SIGN 

NA 

AFIELD  +1 

BLANKS 

1468 

NA 

afield 

BLANKS 

1470 

TS 

AFIELD  +2 

COMMON 

1472 

NA.  BIT2 

FIELD  cod 

ONES 

1474 

TS 

common  +i 

ADR  WD 

1476 

NO  MODIF 

TN 

ADDRESS  1 

2 

1478 

TS 

blanks 

AFIELD 

14783 

TN 

also  MAIN  -2 

2 

14785 

TS 

bLANKb 

afield 

1479 

SEE<  HEAD 

na*  Chari 

AFIELD  +2 

blanks 

— * m 

GO  GO 

TS 

SPEC 

C , + 1 

z.sc 
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5,0 

BRANCH  when  2 WORDS  ARE  R IGHT- J JSt 1 F I ED 

2SRT  lC 
FIND  NBCa 

SHIFT  AFIELD  And  AFIELD+1  right  1 CHAR. 

3SRT  1C 
N31  SIGN 
NO i SIGN 

C 

procedure  when  seeking  sign. 

NO  M0D1F 

branch  if  sign  not  preceded  by  a 3lan<» 

ANAL  SJ3E 

no  modi f 

+ 2 

c 

ANALYZE  POSSIBLE  MODIFIER. 

BRANCH  IF  TWASimT  A SIGNED  numeric  SU3F, 

ALSO  MAIm 
also  MA i fj 

branch  if  compound  address. 

N.X4 

exit  for  signed  numeric  field. 

3SRT  iC 

c 

procedure  when  not  seeking  sign. 

8 NBC  0 
8 NBC  0 

BRANCH  IF  MORE  NBCS  TO  EXAMINE. 

ANAL  SJ3r 
3,0 

+ 2 

c 

analyze  possible  main  address. 
BRANCH  IF  not  NUMERIC. 

N.X4 

EXIT  WHEN  MAIN  ADDRESS  IS  S OR  JS  NJM. 

afiei'd 

SEEK  HEAn 

+ 1 

SET  UP  PUTATIVE  SYMBOLIC  SUBFIc-D. 

afield 

SEE<  HEAn 

♦ 1 

recover  non-mouifier  part  of  adr  field. 

C.  + 3 

branch  when  possible  head  found. 

3SRT  1C 
SEEK  HEAn 

c 

triple  shift  right  to  find  head. 

L 

<sYUL  SYSTEM 

ASSEMBLER  — 

PASS  2 

P14831 

1484 

NA,  ChaRH 

AFIELD 

+ 1 

blanks 

no  Head 

I486 

NA 

afield 

BLANKS 

SRT  SYM 

1488 

NA 

AFIELD 

+ 1 

blanks 

C , + 2 

1489 

TS 

afield 

♦ 2 

ADR  WD 

N,X4 

1491 

NA,  CHARl 

AFIeLd 

+ 1 

blanks 

Place  Heh 

1493 

SWS,  ONES 

afield 

+ 1 

A,  1 ,L 

AFIELD  *i 

1494 

TS 

- 

- 

C , - 2 

1495 

SRT  SYM 

TS 

_ 

_ 

2SRT  1C 

1496 

NA,  CHAR8 

afield 

♦ 1 

BLANKS 

bad  adre<; 

1498 

NA 

afield 

blanks 

C,-2 

1500 

place  hed 

SWS»  CHAR i 

afield 

*2 

A * 1 *L 

AFIELD  +1 

15011 

TX 

bit  1 

field  coo 

1502 

TS 

afield 

+ 1 

ADR  WD 

N,X4 

1504 

NO  HEAD 

SWS.  ONES 

AFIELD 

+ 1 

A * 1 »L 

afield  +1 

1506 

NA , C’hAR8 

AFIELD 

+ 1 

BLANKS 

BAq  AqRE*; 

1508 

NA 

AFIeLd 

BLANKS 

bad  adRes 

1510 

SWS*  CHARS 

afield 

+ 2 

A * 1 * L 

AFIELD  +1 

1512 

NA,  ChAR  l 

afield 

♦ 1 

blanks 

Place  hed 

1514 

SWS,  ONES 

afield 

♦ 1 

A.l.L 

AFIELD  *1 

1515 

TS 

- 

- 

C,-2 

1516 

8 NBC  3 

NA 

Z,S3 

ZERO 

FIND  NBCs 

1518 

BAD  ADRES 

TS 

ones 

field  cod 

N.X4 

15191 

RESERVE 

2 

1520 

ALSO  MAIN 

TX 

field  i 

Cud 

_ 

field  con 

15211 

TN 

AFIELD 

2 

ALSO  MAIN 

1522 

SM 

Z , X3 , 2 

Z,X5,9 

- 

1524 

TS 

common 

+ 1 

ADR  WD  +1 

LD  A2  S3 
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CHAR.  PRECEDED  BY  NON-BLANK  iSNr  READ. 

mqVe  symbol  right  to  insert  head. 


exit  when  main  address  is  i_char.  sym. 
move  symbol  left  to  insert  head. 


ERROR  if  no  room  for  head. 

shift  until  normalized  in  AFIELD  +1. 

INSERT  head  CHARACTER. 

ANNOUNCE  SYMBOLIC  ADDRESS  PART. 

EXIT  WHEN  MAIN  ADDRESS  IS  SYMBOLIC. 

BACKTRACK  AFTER  NO-HEAD  FINDIN3. 
ERROR  IF  SYMBOL  IS  TOO  LONG. 

ERROR  IF  SYMBOL  IS  TOO  LONG. 

FINISH  BACKTRACKING. 

+i  branch  when  symbol  is  normalized. 


seek  another  non-blank  character. 

ERROR  EXIT* 


♦1  INDICATE  PRESENCE  OF  MODIFIER. 

-2  SAVE  ORIGINAL  FORM  OF  ReSt  OF  FieLD. 

SET  UP  TO  OMIT  SIGN  SEARCH. 
deliver  VALUE  OF  MODIFIER. 


L 
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P 1 5 26  SUBRDUtIne  TO  ANALYZE  a SUBFiELD  OF  EIGHT  CHaRACIErS.  ENTER  WITH  THE  SUBFiELD  IN  COMMON.  C(:OMMOm) 

R 1 528  IS  NORMALIZE0  UN  RETURN.  IF  I He  SUBFIELD  IS  NJMe^IC,  tHe  ResULtinG  BINARY  INTEGER  IS  DeLIVeReD  IN  COMMoN+l  wIjH 

r 1 530  the  specified  sign  i r any  or  a plus  sign  if  no  sign  is  given:  cifieldcqD)  gives  the  Results  of  analysis.,.. 


532 

bit 

1 

zero 

5 3 A 

BIT 

2 

zero 

536 

bit 

5 

zero 

538 

BIT 

6 

zero 

NO-N-SYMBoLlC  SUBFIELD 
NON-NUMERIC  Subfield 
minus  SIGNED  subfield 

SI GNED  NUMERIC  SUBFIELD 


one  --  symbolic  subfield 

one  --  numeric  Subfield 

ONE  --  JnSIGNeD  or  PLUS  SIGNED  SUBFIELD 

one  — unsigned  numeric  subfield 


R 1 5 AO 


bit  9 of  health  is  set  to 


1 if  a decimal  subfielo  is  written  without  a d 


1 5 A 1 
1 5 A2 

ANAL  SUBF 

NA 

TX 

Common 

zero 

BLANKS 

C , + 2 

FIELD  CDd 

r 

INDICATE  bLANK  SUBFIELD  AND  EXIr. 

1 5 AA 
1 5 A6 
15A7 
1 5 A9 

TS 

NA. 

SWS 

TS 

Chari 

, ONES 

U|\)SIG  num 
common 
common 
common 

FIELD  COD 
BLANKS 
A , 1 , L 

COMMON  +1 

normaled  -1 

NORMALED 

common 

C,-2 

c 

c 

c 

temporarily  assume  unsigned  NUMrRlC. 
NORMALIZE. 

1550 

normaled 

LA, 

CHARl 

common  +i 

zero 

set  dig 

c 

BR  if  1ST  CHAR  OF  SUBFIeLD  IS  Z?RO. 

1552 

155A 

1556 

1550 

TX 

NA, 

SWS 
NA , 

B3T6 
, B5T6 
C2T8 

ONES 

COMMON  +1 
COMMON  +1 

common  +1 

ZERD 

3 

blanks 

dig  file 

NO  SIGN 
field  CDn 
BLANK  FIL  +2 

c 

c 

c 

c 

INDICATE  NO  DIGITS  YET. 

BR  IF  1ST  CHAR  OF  SUBFIELD  ISNT  A SIGN 
INDICATE  SIGN  AND  WHICH  SIGN. 

1559 

SYMBOLIC 

TX 

Bit  1 

- 

field  con 

indicate  symbolic  and  exit. 

R 1 5 6 1 

NO  SI3N  IS 

the 

BegIMNI 

ng  of  the  loop 

TO  EXAMINE 

EACH  CHARACTfR. 

1562 

NO  SIGN 

LA, 

CHARl 

common  +1 

ALF  9 Cl 

DIGITS 

c 

branch  if  character  is  a numeRa.. 

1 5 6A 

NA, 

chari 

Common  +1 

D Cl 

SYMBOLIC 

r 

L 

BRANCH  IF  NEITHER  NUMERAL  NoR  D. 

1566 

NA, 

C2T8 

common  +1 

BLANKS 

SyMBOLIC 

c 

branch  if  d with  more  to  come. 

1568 

LA 

ones 

DIG  FILE 

SYMBOLIC 

c 

BRANCH  IF  D WIjH  NO  PRECEDING  NUMERALS 

1570 

1572 

DECIMAL) 

TS 

BT 

C,  + l 

COMMON  +1 

CON V LOOP 
10 

CONV  LDDp  -1 
COMMON  +1 

c 

Sf.T  UP  CONVERSION,  DECIMAL  TO  3 1 NARY , 

L @YUL  SYSTEM  ASSEMBLER 


P 1 5 72  1 

1573 

DIGITS 

SM, 

» IT3 

1575 

NA 

1577 

SET  DIG 

TX 

1579 

TX 

1581 

TX 

1582 

FILE  DIG 

NA* 

CHARI 

1583 

LA 

1585 

NZ  DIGIT 

SWE 

♦ 012 

1587 

NA, 

C2T8 

1589 

NA* 

*8 1 T 3 

1591 

TS, 

BIT  9 

PASS  2 


field  cod 
DIG  FILE 

L DIG  FILE 
ZERO 

L DIG  FILE 

common  +i 

dig  fill 

COMMON  +1 
common  +1 

field  cod 

ONES 


1593  BLAN<  FIL  SWS*  ONES 
1 5 9 A NA  * CHARI 
1595  TS,  ChaRI 


Common  +i 
common  +i 

BLANKS 


1597  OCTAL) 
1599 


TS  C * + 1 

SWE*  OcTMASK  COMMON  +1 


1600 

TS 

1601 

CONV  .OOP  TS 

1603 

NA 

1 60A 

NA 

zero 

COMMON  +1 
Z,SO 


sws*  biti  field  Cud 


COMMON  +1 

ones 


Zero 

ZERO 

A, 7 

BLANKS 


ONES 

health 


A*  1 iL 

BLANKS 
CoMNoN  +1 

CON*/  LOO3 
3 * L 

Common  +i 

N * S 1 * I 
Z,si 

A * L 


1606 
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field  con 

c 

TELLTALE  bIT  For  BS  AND  9S. 

file  dig 

c 

BRANCH  if  2ND  UR  SUBSEQUENT  DIGIT. 

z * so 

c 

PROCEDURE  for  first  digit* 

DIG  file 

c 

fake  a zero  preceding  first  digit. 

Z,S1 

£ 

NZ  digit 

Q 

NZ  DIGIT  + 

1 

c 

SUPPRESS  INSIGNIFICANT  zeros. 

N , SO  * 1 

c 

file  SIGNIFICANT  digit. 

BLANK  FIT 

+2 

c 

CONTINUE  if  more  to  come. 

OCTAL) 

c 

BRANCH  IF  NO  D AND  NO  BS  OR  9S. 

DECIMAL) 

c 

Set  complaint  when  bs  or  9s  and  no  d. 

COMMON  +i 

c 

NO  SIGN 

c 

BLANK  F 1 1 

c 

insert  blank  For  used  DIGIT,  NORMALIZE. 

CONY  LOOP 

-1 

c 

set  up  conversion*  octal  to  binary. 

COMMON  *1 

c 

CONY  LOOP 

disaster 

+2 

C 

(SHOULD  ALWAYS  GET  REPLACED) 

COMMON  +1 

c 

CONV  LOOP 

c 

loop  until  all  significant  DIGITS  used. 

Common  +1 

insert  correct  sign  and  exit* 

L 
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P 1 608 

subroutine 

IN  PASS  2 TO 

ANALYZE  THE  Hi 

story  OF  <\  symbol 

• 

enter  with  the  normalized  symbol  im  common. 

P 1 6 1 0 

prevailing 

head  is  A33 

ended  to  symbol 

in  common  i 

r THERE  IS  ROOM, 

the  present  health  and  definition  <if  any> 

R 1 6 1 2 

are  delivered  in  commdn+2  in  bits 

29- 

A8  * 3UT  ALL 

ones  is  delivered 

in 

common+2  if  He  symbol  is  new  and  there 

R 1 6 1 A 

IS  ND  ROOM 

IN  THe  TA3= 

E.  Z.Xz  IS 

bet 

TO  THE  ADDR 

ess  of  he  second 

WORD  OF  THE  TABLE  ENTRY,  OR  TO  COPY  3UFF  -i 

P 1 6 1 6 

IE  TH-  table  IS  FULL, 

x,X3  is  set 

TO 

the  address 

OF  A WORD  WHOSE 

RIGHT  CAC  FIELD  POINTS  to  THE  SYMBOL,  EXCEPT 

P 1 6 1 8 

IE  h-  table  is  FULL. 

new  symbols 

are  INSeRTEO  IN  the  table  WITH 

ALPHABETICAL  ORDERING  BY  A COMBINATION  of 

P 1 620 

ASSOCIATIVE 

; referencing  on  the  front 

7 BITS  and  THREADING  FRnM  SYMBOL 

to  symbol,  searching  is  aided  by  dividing 

R 1622 

the  set  of 

symbols  U3 

into  strings 

WHOSE  MAXIMUM 

SIZE  IS  U SYMBOLS, 

the  dividers  being  up  to  102A  pairs  of  spec 

R 1 62A 

FIELDS.  the  FIRST  and 

second  specs  i 

N EACH  PAIR 

301Nt  TO  Hf  end 

AND 

beginning  of  its  string. 

1626 

anal  symb 

Tx 

L SYM  7HR 

Z ,X5 

ADDRESS  OF  LIST  OF  126  specpair  threads. 

1628 

NA,  CHAR8 

common 

blanks 

C , + 2 

C 

1629 

tx,  chars 

head 

m 

common 

c 

append  head  IF  THERE  is  room. 

1631 

SWS.B19T25 

common 

18 

SYM  SHIFt 

c 

CHOOSE  thread  BY  7 FRONT  BITS  D-  SYMBOL, 

1633 

SYM  SHIlFT 

SWE*  CAC3 

5,0 

0 

Z,X3 

c 

THREAD  FOR  1 OF  126  OF  102A  SPE-  PAIRS. 

1635 

LA 

ONES 

CoMMoN 

FULLNESS 

c 

"CCCCCCCC"  IS  SOCIALLY  UNFIT  FOR  TABLE. 

1637 

SEEK  eFRG 

S»  FTs 

3,0 

ZX  +2 

C,  + l 

POINT  TO  LAST  SYMBOL  IN  STRING. 

1639 

LA 

common 

N , X 2 , 1 

in  string 

c 

BRANCH  IF  SYMBOL  MUST  Be  IN  THIS  STRING, 

1 6 A 1 

TS 

N,X2 

Z , X 3 

SEEK  ST  RG 

r 

point  TO  spec  PAIR  FOR  NEXT  STRING. 

16A3 

IN  STRING 

TS 

Z,X3*1 

- 

SEEK  SYMR  +3 

c 

16AT 

SEE<  symb 

LA 

Common 

N,X2 

FIND  or  mO 

c 

1 6 A8 

S » ETs 

2,1 

ZX  ♦ 3 

C , ♦ 1 

argument  is  greater,  try  next  symbol. 

1650 

LA 

common 

N , X 3 , 1 

C , ♦ 2 

c 

1651 

S,  ETs 

3,0 

ZX  +2 

SEE<  SYMr 

ARGUMENT  IS  GREATER.  TRY  NEX1  SYMBOL. 

1653 

eba 

Z,X2 

ONE 

Z,X3 

C 

POINT  TO  SECOND  WORD  OF  PRECEDING  SYMB. 

1655 

S,  ETs 

3,0 

ZX  *2 

c,*l 

POINT  TO  eOUAl  OR  GREATER  SYMBO_. 

1657 

find  or  no 

NA 

N,X2,1 

common 

C , + 3 

c 

BRANCH  IF  SYMBuL  IS  NOT  IN  TABL-. 

1659 

LA 

2,1 

CAC12 

found  sym 

c 

BRANCH  IF  SYMBOL,  NOT  MULT.  DEF.  FLAG. 

1661 

S.  ETs 

2,1 

ZX  *2 

C , -2 

POINT  TO  CURRENT  MEMBER  OF  MULT  DEF  SET. 

1663 

NA 

SYM  PLACE 

end  SY  tab 

New  SY  M3 

c 

BRANCH  IF  SYMBOL  TABLE  IS  NOT  FULL. 

1665 

FULLNESS 

DS 

SYM  TAB  XS 

ONE 

SYM  TAB  XS 

c 

count  how  many  TOO  MANY. 

1667 

wD 

L COP  BUFS 

ONE 

Z,X2 

c 

PREVENT  possible  trouble  with  2 ,N  ReFS. 

1669 

TX 

ONES 

- 

COMMON  +? 

s 

SET  FULLNESS  SIGNAL  AND  EXIT. 

1671 

NEW  SYMB 

TX 

N*X3 

_ 

Z , SH 

c 

SAVE  ADDRESS  OF  NeXT  SYM  OR  SPEC  PAIR. 

16722 

NA 

sym  place 

SPEC  MAG 

C , + 2 

c 

1672A 

WA 

SYM  PLACE 

three 

SYM  PLACr 

c 

SKIP  OVER  32K  STOPPER. 

1673 

SS 

SYM  PLACE 

CAC3 

N,X3 

c 

thread  to  this  from  last  sym  or  spec  PR. 

1675 

EBA 

SYM  PLACE 

BIT  25 

Z ,X2 

c 

1676 

TX 

COMMON 

_ 

N,X2,1 

c 

PUT  NEW  SYMBOL  IN  SYMBOL  TABLE. 

1678 

TX 

Z ,SH 

N,X2 

c 

THREAD  TO  NEXT  SYMBOL  OR  SPEC  =AIR. 

1680 

TX 

zero 

- 

2,1 

c 

INITIALIZE  ANALYZER  WORD. 

1682 

wA 

SYM  PLACE 

THREE 

SYM  PLACf 

c 

1 68  A 

FOJND  SYM 

SWE  * D8T12 

N,X2 

16 

common  ♦ 2 

s 

deliver  health  and  equivalent  d-  symbol. 
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1712 

subroutin 

i In  PASS  2 TO 

translvie  THE 

ADDRESS  F i El  D 

OF 

A DECIMAL  C0nSTAnT.  EXPECTS  TO  FIND  rHE  FjeLD 

171<t 

delimited  by  an  asterisk.  delivers 

Th£  Result  as 

An  integer  with 

SIGN  IN  BIT  1 IN  NUMBeR,  OR  DeLIVfRS 

1716 

. . 3A0  WORD. 

. IN  NUMB 

eR  if  the  value 

CANNOT  Be  Det 

rRMlMED.  ENTER 

w I T H 

return  in  x<,  and  with  the  fwa  of  the 

1718 

address  field 

IN  S3, 

I He  MAX  1 MJM  INTEGER  IN  FLJA  | 1 NG  DECIMAL  FOR 

rnE 

CONSTANT  TyPe  and  MACHINE  IN  max  DzCML,  the 

1720 

SAME  DUANTI 

TY 

♦ 1 IN 

IsCALe,  and  the 

MAXI MJM  NUMBe 

R AS  ABOVE  TN 

binary 

IN  Max  numbr.  APPROPRIATE  cussing  IS  Done. 

1722 

dec  const 

TX 

PLUS  75 

exponent 

initially  assume  integer. 

1724 

TX 

BIT  1 

- 

mantissa 

INITIALLY  ASSSUMe  PLUS. 

1726 

BS 

zero 

one 

FULL  DELt 

expo  increases  when  wd  full,  no  point. 

1728 

TS 

zero 

NFJL  Belt 

norma  COn 

+ 2 

c 

but  POINT  MOVES  DOWN  when  wd  not  fjll. 

1730 

NA, 

Dl2 

CaRACTER 

zero 

next  CHAR 

*1 

branch  IF  CANNOT  Be  a sign. 

1732 

LA 

CaRACTER 

ZERO 

next  char 

+ 2 

1733 

SWS 

, BIT 

1 CARACTER 

43, L 

mantissa 

PLACE  EXPLICIT  SIGN  ON  MANTISSA. 

1735 

NEXT  CHAR 

tS» 

CHARa 

CHAR  b 

con  word 

NjRMA  Com 

n 

£ 

cream  last  character  and  get  ne*t* 

1737 

LA 

TEN 

CARACTER 

NON  DIGIT 

1738 

LA, 

°2T12 

BIT  12 

mantissa 

FULL  MANT 

10  (NORMALIZED)  DIGITS  IS  A FULL  MANT. 

1740 

SPE 

* D IT  1 

1 MANTISSA 

d»i«l 

mantissa 

1741 

SM 

mantissa 

BIT  2 

MANTISSA 

signal  theRes  at  least  one  digit. 

1743 

BA 

EXPONENT 

nfjl  delt 

EXPONENT 

1744 

TS, 

D 1 2 

CaRACTER 

MANTISSA 

NeXT  chad 

put  digit  into  mantissa. 

1746 

FULL  MANT 

BA 

exponent 

FULL  DELI 

exponent 

1747 

TS, 

bit  1 

ONES 

CUSS  LIST  +13  NEXT  CHA» 

signal  more  than  10  digits. 

1749 

NON  DIGIT 

NA 

NFUL  DELT 

ZERO 

NON  POINT 

branch  if  a point  has  occurred. 

1751 

NA 

CARACTER 

POINT  C8 

NON  POINt 

branch  if  not  a point. 

1753 

TX 

ONE 

- 

NFUL  DELT 

1754 

TS 

zero 

full  delt 

NEXT  char 

signal  point  occurrence  and  get  NeXT. 

1756 

NON  P 3.1  NT 

SSL 

* one 

mantissa 

46 

c»n 

TEST  NONe/SOMe  DIGITS  INDICATOR. 

1758 

TS 

fl  unity 

NUMBER 

e Quest 

number  = i.o  ip  no  digits  befdre  e or  b. 

1760 

SWE 

, B2T 8 

exponent 

40,  L 

exponent 

17601 

EX 

mantissa 

B135TA8 

NJMBER 

1761 

FFN 

exponent 

NUM3eR 

njmber 

float  number  before  e or  b adjust. 

1763 

E OUeST 

NA 

CARACTER 

EC8 

NON (E) 

branch  if  not  an  e . 

1765 

TX 

bit  1 

E NJMBER 

initially  assume  plus  e number. 

1767 

SM 

MANTISSA 

bit  2 

mantissa 

SIGNAL  NON-VOID  FIELD, 

1769 

TS 

zero 

DEC  DIGS 

NORMA  COw 

c 

1770 

NA, 

D 1 2 

CARACTER 

ZERO 

NEXT  ECAR 

♦ l 

1771 

LA 

CARACTER 

zero 

NEXT  ECAr 

+ 2 

1772 

SWS 

, bit 

1 CaRACTER 

43, L 

E NJMBeR 

PUT  EXPLICIT  sign  ON  E NUMBER. 

L 
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1774 

loop  ro  deal  w 

ITh  digits  after  e. 

1775 

NEXT  ;CAR 

TS, 

Chars 

CHAR8 

CON  WORD 

1777 

LA 

TEN 

CARACTER 

1779 

BT 

E NUMBER 

10 

1780 

w A 

E NUMBER 

CARACTER 

1781 

w A 

dec  digs 

ONE 

1782 

LA 

dec  digs 

THREE 

17  84 

TS* 

bit  17 

OmES 

CUSS  LIST 

1785 

NON  £ DIG 

LA 

DtC  DIGS 

ZERO 

1787 

TX 

BIT  1 

_ 

1788 

sws 

, B42T43 

NUMBER 

40 

1789 

BA 

E NUMBER 

COMMON 

1791 

LN 

E NUMBER 

ONE 

1793 

LA, 

C2T8 

BIT  41 

E NUMBER 

1795 

SWS 

, B2T8 

E NUMBER 

40, L 

1797 

NON (E) 

NA 

CaRAC[ER 

BC8 

1799 

SM 

MANTISSA 

BIT  2 

1801 

B FACTOR 

TX 

BIT  1 

- 

1803 

TS 

ZERO 

DEC  DIGS 

1804 

NA, 

D 1 2 

CARACTER 

zero 

1805 

LA 

CARACl ER 

zero 

1806 

sws 

, BIT  1 

CARACTER 

43, L 

1808 

NEXT  3 CAR 

TS* 

CHAR8 

CHAR8 

CON  WORD 

1809 

LA 

TEN 

CARACTER 

1811 

BT 

8 NUMBER 

10 

1812 

WA 

B NUMBER 

CARACTER 

1813 

WA 

dec  digs 

ONE 

1814 

LA 

Dec  digs 

three 

1816 

TS, 

BIT  17 

ONES 

CUSS  LIST 

1817 

NON  B DIG 

LA 

Dec  digs 

zero 

1819 

NN 

b number 

ZERO 

1821 

TS 

- 

- 

1822 

LA, 

CAC3 

B210 

B NUMBER 

1824 

LN 

B NUMBER 

zero 

1826 

TS 

L POWERS  2 

Z , S3 

1827 

SWE 

, CAC3 

L POWERS  2 

16 

1829 

TS 

fl  unity 

COMMON 

norma  com  +1 

C 

cream  last  character  and  get  next. 

NON  F dig 
E NUMBER 

branch  IF  NOT  a DIGIT. 

E NUMBER 

dec  digs 
NeXT  E Car 

branch  if  e number  not  too  long. 

EX  RANGE  +1 

BAD  CONST 

NO  DIGITS  AFTER  E is  WRONG. 

COMMON 

common 

E NUMBER 

ADD  IMPLICIT  AND  EXPLICIT  EXPONrNTS. 

ex  range 

NEGATIVE  result  is  wrong. 

EX  RANGE 

128  OR  MORE  IS  WRONG  TOO. 

NUMBER 

TRUE  MAGNITUDE  of  number  is  now  known 

NON (B) 

branch  IF  CHARACTER  is  not  b. 

MANTISSA 

signal  non-void  field. 

B NUMBER 
NORMA  COm 
NEXT  B CaR  +1 
NEXT  6 CAR  ♦ 2 

c 

initially  ASSUME  PLUS. 

B NUMBER 

PUT  IN  EXPLICIT  SIGN. 

NoRMACON  +1 
NON  B Dir, 

B NUMBER 
B NUMBER 
dec  digs 

c 

branch  IF  not  A DIGIT. 

NeXT  B CaR 
EX  RANGE  +1 

ERROR  IF  B NUMBER  IS  TOO  LONG. 

Bad  const 

no  digits  after  b is  wrong. 

C , +2 
NON ( 3) 

branch  If  b number  NOT  TRIVIAL. 

EX  range 

B NUMBER  MORE  THAN  209  IS  WRONG, 

C,  + 2 

branch  if  B NUMBER  norz. 

C,  + 2 

Z , S3 

BUILD  B *3 

CHOOSE  POS  OR  NEG  POWERS  OF  2. 

L 
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Pl830 

LOOP  [0  FORM  SCALING  "ACTOR  by  a product  OF  FAC 

I DRS 

DF  T Re  FnRM  2**<2**N)  WHERE  N = o<l>7. 

I832 

BUILD  B 

SM 

2 .S3 , 1 

Z , SC  , 3 

- 

advance  index  AND  SKIP. 

1834 

fdm 

N.S3.1 

COM -ION 

COMMON 

FORM  PROD(2**(+-POWERS  OF  2)). 

1836 

SWE*  CAC3 

b number 

1 

B NJMBER 

1837 

SSL  , ONE 

b number 

0 

BJILD  3 

1838 

NA 

B NUMBER 

ZERO 

BUILD  3 *2 

BRANCH  IF  B NUMBER  NOT  EXHAUSTED. 

18<»0 

EX 

number 

B2T  3 

COMMON  +1 

1841 

EX 

COMMON 

B2T3 

COMMON  +2 

1642 

wA 

COMMON  +1 

COMMON  +2 

common  m 

TENTATIVELY  COMBINE  EXPONENTS. 

1844 

LA 

COMMON  +1 

HEX  49L 

ex  range 

BRANCH  IF  PRODUCT  WILL  UNDERFLOW, 

1846 

LA 

BlB2 

CUMMON  +1 

EX  range 

BRANCH  IF  PRODUCT  WILL  OVERFLOW. 

1848 

FDM 

NUMBER 

COMMON 

NUMBER 

scale  by  b factor. 

1850 

NON (3) 

NA 

CaRACteK 

star  cs 

bad  const 

error  if  character  is  not  asterisk. 

1852 

SSL « ONE 

mantissa 

46 

c.  + l 

TEST  NONE/SOME  DIGITS  INDICATOR. 

1854 

TS,  BIT  33 

ones 

cuss  list 

+ 2 

bad  const  +2 

void  field  is  illegal. 

1856 

LA  , AllBU 1 3 1 

Fl  unity 

NUM3eR 

iNTEGtR 

1857 

FDM 

number 

ISCALE 

NUMBER 

turn  FRACTION  into  INTEGER  For  MACHINE. 

18582 

LA.  allbu  r 3i 

half  ADj 

NUM3ER 

C.  + 3 

ok  IF  NUMBER  WILL  ASSEMBLE  AS  NoN-ZeRO. 

18584 

la.  allbu i 3 1 

number 

ZERO 

C , + 2 

zero  is  ok  if  it  was  meant  to  3e  zero. 

18586 

SM 

CUSS  LIST  +13 

BIT  33 

CUSS  LIST  +13 

inadvertent  ZERO  is  a SCALING  3 .under. 

1859 

TS 

number 

COMMON 

dec  to  3 t n 

c 

1860 

LA 

number 

MAX  NUMBR 

set  sign 

branch  if  We  DIDNT  ROUND  UP  TO  ONE. 

1862 

TS 

max  NUMbR 

NUM3ER 

set  sign 

ust  1 - EPSILON  IN  that  CASE. 

1864 

integer 

la.  allbu i 3 1 

NUMBER 

MAX  DECML 

C , + 2 

1865 

T 5 » Bn  17 

ONES 

CUSS  LlSf 

+ 13 

EX  RANGE  +1 

ERROR  If  T00-B1G  INTEGER. 

1867 

FDA  J 

NUMBER 

FLI  ZERO 

common 

create  integer  Version  of  number. 

1869 

FDS 

NUMBER 

COMMON 

number 

1870 

FNN 

number 

fl  zero 

c « + 2 

BRANCH  if  the  FRACTIONAL  pari  I SNT  Zero 

1872 

TS 

Z.SC.l 

_ 

dec  To  3 t N +2 

c 

1873 

ts,  bit  33 

ONES 

CUSS  LIST 

♦ 13 

Dec  10  3 r n +2 

c 

cuss  fraction  loss  AND  CONVERT. 

1875 

SET  SIGN 

TX 

SaVe  rt'6 

m 

card  +5 

Restore  possibly  starred  word  im  card. 

1877 

ss 

COMMON 

BIT  1 

number 

ATTACH  sign. 

1879 

TS 

ONES 

E NUMBER 

N.Xa 

declare  number  to  be  signed,  exit. 

1881 

bad  const 

ts.  bit  33 

ONES 

CUSS  LIST 

♦2 

C.  + 2 

signal  meaningless  address  format* 

1883 

EX  RANGE 

SM 

CuSS  LIST  +13 

bit  17 

CUSS  LIST  +13 

signal  range  error. 

18841 

TX 

save  w6 

_ 

card  +5 

1885 

TS 

w bad  word 

NUM3eR 

n.xa 

EXIT  when  value  IS  UNDETERMINED. 
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1888 

ROTACdN 

SWS'  ones 

CqN  WqRD 

A*  1 *L 

con  word 

C 

1889 

NA,  ChAR8 

CON  WOR[j 

blanks 

rjtaxit 

C 

BRANCH  if  character  NON-BLANK 

1891 

norma  con 

SM 

CuN  WoRO 

CHARa 

con  word 

c 

CREAM  last  CHARACTER. 

1893 

NA 

con  word 

ones 

ROTACON 

c 

branch  if  word  NOT  EXHAUSTED. 

1895 

TS 

N *S3  * 1 

CON  WORD 

ROTACON 

c 

begin  next  word. 

1897 

ROT  AX  1 T 

ex 

Con  WORD 

CHAR  8 

CARACfER 

ISOLATE  CHARACTER  AND  EXIT. 

1899 

CLOSED  SUBROUTI 

Ne  to  sink  a floating 

DECIMAL  NJM3ER 

INTO  THE 

BINARY  deep 

• 

1901 

DEC  TO  SIN 

ss 

common 

BIT  1 

HALF  ADJ 

c 

round. 

19021 

FDA 

common 

HALF  ADJ 

CoMMoN 

c 

1903 

FDA  J 

common 

FLI  ZERO 

common 

c 

SINK. 

1905 

SWS. 

ONES  COMMON 

D.3.L 

COMMON 

c 

1906 

TX 

TEN 

- 

Z . S3 

c 

INITIALIZE  DIGIT  COUNT. 

1908 

TS 

zero 

NUM3ER 

dtob  LOOP 

+ 3 C 

1909 

DTOB  _00P 

WA 

NUMBER 

COMMON  +1 

NJMBfR 

c 

1910 

BT 

NUMBER 

10 

n jmber 

c 

1911 

SWS. 

ONES  COMMON 

D.l.L 

common 

c 

1912 

EX 

common 

D12 

common 

c 

1913 

NA 

Z . S3  . i 

ONE 

dtob  loop 

c 

1 9 1 A 

WA 

number 

COMMON  +1 

njmber 

1915 

L POWERS 

2 

CAC 

POW  POW  2M 

POW  PqW  ?P 

1916 

POW 

POW 

2M 

FLDEC 

.5. 

.25, 

.0625 

, .390625  E-2 

1917 

FLDEC 

.15 

2587 

8906 

E-A,  .23  2830 

6 A3 7 E-9 

1918 

FLDEC 

. 5 A 

2101 

086A 

E-19,  .29  3373 

5877  E-^8 

1919 

POW 

?0w 

2P 

FLDEC 

2.0 

. A . 0 

, 16.0 

, 256.0 , 65536 

.0 

1920 

F LDLO 

• A2 

9A96 

7296 

E10,  .18  AAS7 

AA07  E20 

1921 

FLDEC 

.3A 

0282 

3669 

E39 

I 
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subroutine  in  pass  z to  translate  the  address  field  of  an  octal  constant,  expects  to  find  The  Field 
delimited  by  an  asterisk,  delivers  the  result  as  an  intfGer  with  sign  in  bit  i in  number,  or  delivers 

..bad  WORD.,  in  NUMB r R IF  tHe  VaLUe  CANNOT  faE  DeterMIN1ED.  EwTEr  wItH  RETURN  IN  X<,  AND  WITH  THe  FwA  OF  tHe 
ADDReSS  FIELD  in  S3,  AND  tHe  MAXIMUM  OCTAL  UNSIGNED  INTEGER  FOR  THE  MACHINE  AND  THE  CONSTANT  TYPE  IN  Max  NUM3R. 
EXPECTS  THE  EXPRESSION  TO  Be  AN  INTEGER,  AND  CUS5rS  IF  A FRACTIONAL  PAR]  IS  LOST  bY  TRUNCATION. 


1932 

OCT  CONST 

TX 

PLUS  92 

- 

EXPONENT 

initially  assume  integer. 

1939 

TX 

ZERO 

- 

E NJMBER 

initially  assume  unsigned  numbet. 

1936 

TX 

bit  1 

- 

mantissa 

INITIALLY  ASSUME  PLUS. 

1938 

TX 

PLUS  3 

_ 

FJLL  DELt 

1939 

TS 

Zero 

NFJL  DeLT 

norma  con  *z 

c 

get  first  character. 

1991 

NA,  D iz 

caracter 

ZERO 

next  bcar  + i 

branch  if  CANNOT  Be  a sign. 

1993 

LA 

CaRACTER 

ZERO 

NeXT  8CAR  +2 

branch  if  zero  rather  than  sign. 

1995 

SWS,  BIT  1 

CaRACteR 

93  , L 

mantissa 

shift  SIGN  bit  into  place. 

1997 

TX 

ONES 

- 

e number 

DECLARE  NUMBER  TO  Be  SIGNED. 

1999 

SIGNO  OCT 

SWE,  D2T12 

MAX  NUMBR 

0 

Max  NJM3p 

SMALLER  NUMBER  is  max  if  signed. 

1951 

NEXT  3CAR 

ts,  chars 

CHAR  8 

CON  WORD 

norma  con  +i 

c 

CREAM  LAST  CHARACTER  and  get  next. 

1953 

LA 

eight 

caracter 

NON  8 dig 

BRANCH  IF  NOT  AN  OCTAL  DIGIT. 

1955 

LA,  D2T12 

BIT  9 

mantissa 

FJL  8 MamT 

19  octal  digits  make  a full  mantissa. 

1957 

SPE  ♦ B i THR  J9  5 

MANTISSA 

3 » L 

mantissa 

1958 

SM 

MANT 1 SSA 

caracter 

MANTISSA 

PUT  DIGIT  INTO  MANTISSA. 

I960 

SM 

mantissa 

bit  2 

MANTISSA 

INDICATE  SOME  DIGITS. 

1962 

BS 

exponent 

NFJL  delt 

exponent 

1963 

TS 

- 

- 

NEXT  8CAp 

1969 

FUL8  MANT 

BA 

EXPONENT 

full  delt 

exponent 

1965 

ts  * bit  i 

ONES 

CUSS  LIST 

+19  NeXT  bCAp 

CUSS  TOO  MANY  OCTAL  DIGITS. 

1967 

NON  8 DIG 

NA 

NFUL  DeLt 

zero 

NO  8 POINT 

branch  if  a point  has  occurred. 

1969 

NA 

CARACTER 

POINT  C8 

NO  8 POINT 

branch  if  this  is  not  a point. 

1971 

TX 

PLUS  3 

_ 

NFUL  DELT 

1972 

TS 

zero 

full  delt 

NeXT  8 CAR 

signal  point  occurrence  and  get  next. 

197A 

NO  8 30ijmt 

SSL,  TWO 

MANT I bSA 

95 

c , ♦ 1 

TEST  NONE/SOME  DIGITS  INDICATOR. 

1976 

NA 

CARACTER 

BC8 

BAD  cONSt 

only  b is  legal  here  if  no  digits. 

1978 

TS,  ALLBUT31 

ONE 

MANTISSA 

C , + 2 

number  = i if  no  digits  before  3. 

1980 

NA 

caracter 

BC8 

NON <3) 8 

1981 

TX 

BiT  1 

B NUMBER 

INITIALLY  ASSUME  PLUS  B NUMBER, 

1983 

TS 

zero 

DEC  DIGS 

NORMA  COn 

c 

1989 

NA,  D i ^ 

CARACTER 

ZERO 

NEX  3b  CaR  +1 

1985 

LA 

caracter 

ZERO 

NeX  38  CAR  +2 

BRANCH  IF  NOT  A SIGN. 

1987 

SWS,  BIT  1 

caracter 

93 » L 

B NUMBER 

SHIFT  SIGN  BIT  INTO  POSITION. 

L 
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1990 

NEX 

33  CAR 

ts  * 

CHAR8 

CHAR  8 

CON  WORD 

NjRMA  CON  +1  C 

1991 

LA 

ten 

caracter 

NON  38  0 I G 

b-factoR  is  made  of  decimal  digits. 

1993 

BT 

B NUMBER 

10 

B NJMBER 

1 99A 

WA 

B number 

CARACTER 

B NJMBER 

1995 

WA 

DEC  DIGS 

ONE 

dec  digs 

1996 

LA 

dec  digs 

TWO 

NEX  38  CaR 

1997 

TS, 

bIT  17 

ONES 

cuss  list 

+ 13 

EX  RANGE  +1 

ABORT  WHEN  B-FACrOR  IS  TOO  LONG. 

1999 

NON 

33  DIG 

LA 

Dec  digs 

zero 

bad  const 

NO  DIGITS  AFTER  B is  illegal. 

2001 

BA 

EXPONEN 1 

B NjmBER 

exponent 

combine  Implicit  and  explicit  exponents 

2003 

NON (3)8 

NA 

CARAC  ieR 

star  C8 

Bad  const 

ONLY  ASTERISK  IS  OK  HERE. 

2005 

LN 

PLUS  A2 

exponent 

all  bint 

branch  IF  VALUE  is  integer. 

2007 

SSL 

* ONE 

MANTISSA 

0 

c , + 1 

TEST  VALUE  of  BIT  TO  BE  DISCARDED. 

2009 

TX 

Z,SC,1 

- 

- 

2010 

SM 

CUSS  LIST 

+13  BIT  33 

CJSS  list  +13 

CUSS  LOST  FRACTIONAL  BITS. 

2012 

SPE 

»DiD3Tl2 

mantissa 

1 

mantissa 

discard  lowest  bit. 

20 1 A 

BS 

EXPONENT 

ONE 

exponent 

2015 

TS 

- 

- 

NON ( 8 ) 8 *1 

CONTINUE  UNTIL  we  HAVt  AN  INTEGER. 

20 1 7 

ALL 

3 1 NT 

LA* 

°ZJ12 

Mantissa 

MAX  NUMBR 

C * + 2 

branch  if  NUMBER  IS  of  oK  SIZE. 

2019 

TS, 

BIT  17 

ones 

CUSS  LIST 

+ 13 

ex  Range  +1 

2020 

LN 

exponent 

PL JS  A 2 

OCT  I NT  Gp 

branch  if  scaling  is  finished. 

2022 

SPE 

, ONES 

mantissa 

1 «L 

mantissa 

SHIFT  NUMbER  UP. 

202A 

w'D 

exponeni 

ONE 

exponent 

2025 

TS 

- 

- 

ALL  3 1 NT 

2026 

OCT 

intgr 

EX 

mantissa 

B1B5TA8 

NJMBER 

PREPARE  FINAL  FORMAT  OF  CONSTANT. 

2028 

TS 

SAVE  W6 

CARO  +5 

N,Xz 

restore  possibly  starred  word,  exit. 

L 
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P2030  SUBROUTINE  IN  PASS  2 TO  BUFFER  6 PRINT  A LinE  a I Tui  PAGINATION  AnD  VERTICAL  FORMAT  CONTROL.  ENTRY  IS 

R2032  TS  2, SC  Z.X4  PRINT  LIN  THE  SYMBOL  ..LINE..  IS  ASSIGNED  TO  0.0. 

R203A  ER*OR  ANU  WARNING  LINES  FROM  PASS  2 CoMe  WITH  AN  IN  He  EQUIVALENT  OF  COLUMN  1,  AND  CONTINUATION  .INES 

R2036  COMe  WITH  A ..C..  TH£Re.  PAGt  SKIPS  ARE  INSERTED  BEFORE  CARDS  WITH  ..P..  OR  ,.L.,  IN  COLUMN  1.  LOG  CARDS  ARe 
R2038  PRINTED  AS  SUBSIDIARY  PaGe  HEADS  ( SP2 ) ON  SUCCEEDING  PAoES,  UNTIL  SUPPLANTED  BY  ANOTHER  LOG  CARD.  STRlTTLY 

R20362  SPeAKING,  HIS  SUBROUTINE  PRINTS  He  LINE  LASt  Qe-IVeReO  TO  IT.  WHeN  SUPPRESSING  INACtIVE  SUBROUTINE^,  PRINTS 
R20384  CUSSED  LINES  WITH  THEIR  CUSSES. 


20389  PRINT  LIN 

TX 

L OLD  LINE 

- 

Z.X3 

203891 

TX 

Z.XO 

- 

L OLD  LINE 

NEW  LINE  AGES  SUDDENLY. 

203893 

NA, 

Chari 

LINE  +1 

L COLUMN  1 

NO  NEw  LOG 

203896 

NA 

LINE 

BIT  12 

C,  + 2 

203898  sP2 

T -MS 

TX 

BiT  11 

- 

line. 

5 

ChAnGE  LOG  CArd  SP1  TO  SP2. 

2039 

TX. 

C5T8 

BLANKS 

- 

USERLOo  +15 

ERASE  ANY  SPECIAL  FLAG  at  END  OF  L0GL1N. 

203902 

SS 

zero 

LAST  REM 

switch 

lose  any  right  print  on  Log  card. 

203904 

SS 

ZSUP  one 

C5TB 

USERLOG  + 1 3 

always  start  page  number  at  i. 

203906 

TN 

line  +1 

10 

USERLOG  +1 

KEEP  log  line  for  page  subheads. 

203908 

MT 

N.AU2.1 

5 

N.AUl.l 

set  up  "user's  own  page  no." 

20391 

TX 

ONE 

- 

USER  PAGc 

203911 

NA . 

BIT44 

SwITcH 

ZERO 

PRIN  SKIP 

branch  unless  printing  is  suppressed. 

203913 

NA. 

B I T 3 

switch 

zero 

PRINT  OLn  +2 

EXIT  AT  ONCE  IF  page  HEAD  IS  OW£D. 

203915 

NA 

3,1 

E COLUMN  1 

C , + 2 

203916 

TS, 

B I T 3 

ONES 

switch 

ENDOFORM  -1 

print  e and  owe  heads  if  e is  owed. 

203918 

wA 

Z.X3 

ONE 

Z.AU2 

203919 

MT 

BLANKS 

15 

N.AU2.1 

IF  NOTHING  Is  owed,  WE'RE  IN  MID-PAGE. 

203921 

TS. 

B I T 3 

ONES 

SWITCH 

endoform  -2 

SO  PRINT  BLANK  LINe(S)  TO  Get  TO  E-O-F. 

203923  NO 

NEW  LOG 

NA. 

chart 

LINE  +1 

ZERD 

PRIN  SUP  0 

make  card  number  look  helpful 

203925 

SS 

blanks 

CHAR7 

LINE  +1 

suppressing  at  most  two  zeros 

203927 

NA, 

CHAR6 

line  +1 

zero 

PRIN  SUP  Q 

FROM  right  TO  LEFT  (COLUMNS  7 AwD  6). 

20393 

SS 

BLANKS 

CHAR6 

LINE  +1 

20394  PRI 

N SUP  Q 

NA  * 

B I T44 

SWITCH 

zero 

P SKIP  0 

branch  unless  printing  is  suppressed. 

203942 

NA 

LINE  +1 

E COLUMN  1 

WAs  LAST  E 

BRANCH  UNLESS  OWE  A CUSS  0R  CUStiED  LINE. 

203946 

TS 

BIT  12 

N » X 3 

SP2  THIS 

c 

SINGLE-SPACE  ANY  LINE  PRECEDING  E-LI NE. 

203948 

NA. 

B I T 3 

Switch 

zero 

page  unit  -i 

branch  IF  WE  Owe  heads. 

20395 

TS 

- 

- 

PRINT  OLri  -1 

203952  WAS 

LAST  E 

NA 

3,1 

E COLUMN  1 

PRINT  OLn  +2 

EXIT  AT  ONCe  IF  NOR  THIS  NOR  LAST  WAS  E. 

203954 

wA , 

ALLBUi Bi 

Lin  count 

3.0 

lin  count 

ADD  TO  LINE  COUNT  FROM  LAST  Li  We. 

203956 

LA 

lin  count 

N LINES 

PRINT  OLD 

branch  to  normal  print. 

203958 

TS, 

BIT3 

ones 

SWI TCH 

ENDOFORM  -1 

L i 

SYUL  SYSTEM 

assembler  — 

pass  2 

USER'S  OWN  PAGE  NO.  46  PAGE  46 

P20396 

ARRANGE  FOR 

! A PAGE  SOI  P 

IF  NECESSARY. 

203962 

na  * one 

SWITCH 

ONES 

SJPP  SKIP 

BRANCH  IF  NO  CUSSES  ON  THIS  PAGr. 

203966 

Ts*  °NE 

ZERO 

SWITCH 

C , + 2 

20397 

ENOOF3RM 

MT 

BLANKS 

15 

N » A U 1 , 1 

GO  TO  END  OF  FoRM  BY  BLANK  LINES  W/  SP2. 

203974 

TS 

BIT  11 

N » X 3 

WAS  LAST  E 

+ 1 

c 

set  up  SP2  and  record  it  in  lin:  count. 

203978 

NA 

N COPIES 

ZERO 

copy  prts 

BRANCH  IF  More  copies  should  be  "done • 

203982 

S,  PHI  PR I MT 

3,0 

203984 

X3P1AJH 

WA 

Z,X3 

ONE 

Z.AUl 

5 

203986 

LA 

Lin  count 

N LINES 

END0F0RM 

BRANCH  IF  NOT  YET  AT  eND  OF  FORM, 

20399 

MT 

blot  WORD 

15 

N , AU 1 , 1 

5 

PREPARE  a wham  For  LAST  line  of  page. 

203994 

SUPP  5< I P 

NA 

n copies 

zero 

COPY  PRTs 

BRANCH  IF  MORE  COPIES  SHOULD  Be  DONE. 

203996 

S , PHI  PRIST 

DtPAGI N8 

203998 

TS 

BIT  1 

N » X 3 

PRINT  OLn 

PRINT  LAS]  LINE,  SKIP,  AND  OWE  READS. 

2040 

P S<I3  3 

na , Chari 

LINE  +1 

P COLUMN 

1 

C , + 2 

UNLESS  IMMEDIATELY  FOLLOWING  A ToG  CARD, 

2041 

NA.  CHARl 

3,1 

L COLUMN 

1 

PRIN  s<IP 

SKIP  TO  HEAD  Of  form  before  CARO. 

2042 

na,  Chari 

LINE  +1 

A column 

1 

IS  T -U  S E 

2043 

NA.  CHARI 

3,1 

c column 

1 

ASK  SKIP 

branch  UNLESS  A-LINE  AFTER  C-LImE. 

2044 

TN 

3,2 

5 

line  +2 

MAYBe  COPY  2ND  LOC  AND  WORD  OP  DP  CONST. 

2045 

NA 

BLANKS 

LINE  +6 

PRINT  OLn 

+ 2 

ABSORB  It  into  A-line  IF  IT  WAS. 

2046 

IS  THIS  E 

NA,  CHARI 

LINE  +1 

E COLUMN 

1 

C , + 2 

BRANCH  IF  not  PASS  z ERROR/WARNING  line. 

2048 

TS 

- 

- 

C , + 2 

2049 

na,  Chari 

LINE  +1 

c column 

1 

ASK  SKI? 

BRANCH  IF  NOT  PASS  2 CONTINUAIloN  LINE. 

20501 

NA 

LIN  CqJnT 

N LINES 

C»  + 2 

20503 

WD 

LIN  CJJist 

BIT  12 

LIN  COUNt 

KEEP  "E"  AND  "C"  LINES  ON  SAME  :>AGE. 

2051 

LA 

bit  1 

N , X3 

ASK  SKIP  - 

1 

BRANCH  IF  LAST  LINE  IS  ALREADY  SKIP, 

2053 

LA 

N,X3 

BIT  12 

C,  + 3 

BRANCH  IF  LAST  LINE  IS  SPl. 

2055 

WD 

N,X3 

BIT  12 

LINE 

IF  NOT,  SPACE  THIS  LINE  1 LESS. 

2057 

TS 

BIT  12 

N » X 3 

ASK  SKIP  +1 

make  last  LINE  SPl. 

2059 

TS 

BIT  12 

LINE 

C,-l 

IF  LAST  LINE  IS  SPl,  SO  IS  THIS  E-LINE. 

2061 

TS 

bit  1 

LINE 

C,-2 

move  last  lines  skip  to  this  e-_ine. 

2063 

AS<  5 01  P 

LA 

Bit  1 

N*X3 

PRIN  SKId 

BRANCH  IF  LAST  LINE  IS  SKiP. 

2065 

wA 

lin  cojnt 

N»X3 

lin  count 

add  to  line  count  from  last  lH  = . 

2067 

LA 

LIN  CoJlST 

N LINES 

PRINT  OLD 

branch  to  normal  print. 

2069 

PR  1 N S<IP 

SSL,  jWO 

SWITCH 

1 , L 

C,*l 

"BRANCH"  if  ANY  CUSSES  ON  THIS  :>AGE. 

20692 

TS 

bit  1 

N*X3 

DPAGi n A T 

skip  after  last  line  at  end  of  =>age. 

20694 

MT 

BLANKS 

15 

n.aui ,1 

go  TO  END  OF  FORM  BY  BLANK  LINES  w/  SP2 . 

20696 

TS 

bit  11 

N » X 3 

ASK  SKIP  ♦ 

1 

c 

SET  UP  SP2  AND  RECORD  It  IN  LINE  COUNT. 

20698 

NA 

N COPIES 

ZERO 

COPY  PRU 

BRANCH  IF  MORE  COPIES  SHOULD  Be  done. 

2070 

S,  PHI  PRIST 

3,0 

20702 

ts,  one 

zero 

SWITCH 

X3PIAUI 

c 

TURN  OFF  CUSSES-ON-THIS-PAGE  FlaG. 

20704 

LA 

LIN  COUNT 

N LINES 

PRIN  SKIP 

+ 2 

BRANCH  IF  NOT  YET  at  END  OF  FORM, 

20706 

TS 

BIT  1 

N , X3 

SUPP  SKIP 

-1 

c 

PREPARE  A WHAM  FOR  LAST  LINE  Or  PAGE. 

2071 

DPAGI SAT 

NA 

N COPIES 

zero 

COPY  P R T q 

BRANCH  IF  MORE  COPIES  SHOULD  Be  MADE. 

20711 

S,  PH  1 PRIST 

OEPAGINb 

20714 

NA 

N COPIES 

zero 

copy  prts 

BRANCH  IF  MORE  COPIES  SHOULD  BE  DONE. 

20716 

S,  PH  1 PRIST 

3,0 

L 

gYUl  system 

assembler  — 

PASS  2 

USER'S  OWN  PAGE  NO.  47  PAGE  47 

P20718 

PRINT  I No  Of 

PAGE  HEAO  AND  SUBnEAO 

(loo  , and  detail 

lines. 

2072 

DA 

page  no 

ONE 

page  no 

2073 

PAGE  JNIT 

SWE.  CAC2 

page  no 

D*4»L 

ARG  1 

2075 

TS 

- 

- 

P2  D2 A L7S 

c 

2077 

SS 

ARG  1 

C5T8 

page  head  +15 

PUT  PAGE  number  IN  ALPHA  IN  PAG?  HEAD. 

20822 

PRINT  HED 

NA 

N COPIES 

zero 

copy  prts 

2083 

S,  PHI  PRINT 

PAGE  HEAD 

208** 

TX 

page  head 

- 

LIN  rOJNT 

reset  line  COUNT  10  3. 

208402 

LA 

user  pale 

zero 

PRINT  OLD  -2 

FINISH  UP  AND  EXIT  IF  NO  LOG. 

208^04 

NA 

USER  pale 

ONE 

print  log 

Go  TO  PRINT  IF  NOT  NEW  LOG. 

20841 

NA,  BIT3 

switch 

ZERO 

PlOG  lINf 

PRINT  LOG  LINE  NOW  IF  HEADS  A«E  0«E0. 

20842 

TS 

two 

user  page 

Print  OLn  +2 

ADVANCE  PAGE  NO.  FOR  NEXT  USE  0-  LOG. 

20843 

PRINT  LOG 

SWE*  CAC2 

USER  PAoE 

D*4*L 

ARG  1 

20844 

TS 

- 

- 

P2  D2 A L7S 

c 

20845 

SS 

ARG  l 

Cs  T 3 

JSERLoG  +13 

PUT  page  no,  in  alpha  in  page  sjbhead. 

2085 

PL05  _INE 

NA 

N COPIES 

zero 

COPY  PRTr 

20852 

S,  PH  I PRINT 

USERLJG 

PRINT  LOG  LINE  AND  DOUBLE  SPACE. 

2086 

DA 

USER  PAGE 

ONE 

USER  PAGf 

20862 

*vA 

lin  count 

user  log 

LIN  COUNt 

ACCORDINGLY  SET  LINE  COUNT  TO  5. 

20865 

NA,  BlT3 

switch 

ONES 

PRINT  OLn  +2 

EXIT  NOW  UNLESS  HEADS  WERt  OWED. 

20867 

TS,  BiT3 

zero 

SWITCH 

was  last  e + 1 

C 

NOW  heads  are  paid  up,  print  A :USSeO  l. 

2087 

PRINT  OLD 

NA 

N COPIES 

zero 

copy  prts 

2088 

S.  PH  I PRINT 

3,0 

2089 

TX 

Z,X3,1 

_ 

z,xo 

OLD  LINE  DISCOVERS  FOUNTAIN  OF  TOUTH. 

2091 

MT 

Blanks 

15 

N,X3,1 

2092 

TS 

ztRo 

IN , X 0 

N,X4 

AND  IS  MOREOVER  MADE  CLEAN  AGAIm. 

R20931 

MINOR  SUBROUTINE  TO 

COPY  PRINTING 

ONTO  TAPE  5. 

20932 

COPY  7RT5 

SS 

N , SH 

A AORES 

C,  + 2 

20933 

wA 

L COP  BJFS 

ONE 

z,xo 

20934 

TN 

16 

N , XO  , 1 5 

COLLECT  4 

LINES  BEFORE  WRITING. 

209342 

TX 

Z , SH 

_ 

CAC  N 

209344 

NA 

0,3 

EOR 

copy  exit 

BRANCH  IF 

record  not  FILLED  yet. 

209348 

IX 

0,4 

z*xo 

20935 

cc 

0,1 

- 

0,65 

20936 

TS 

N ,X0 

L COP  EJUFS 

PHI  TAPE 

SWAP  TAPE 

BUFFERS. 

20937 

WF  * 5 

0,1 

- 

DISASTER 

20938 

TX 

CAC  N 

Z,SC 

20939 

COPY  EXIT 

TS 

Z,XO 

L COP  BUFS 

C,-l 

advance  pointer  within  buffer. 

L @YUL  SYSTEM  ASSEMBLER  — PASS  2 USER'S  OWN  PAGE  NO.  48  PAGE  48 

P2094  CUSSInU  RsJTINe  IN  Pass  2.  OOfS  THROJ3H  the  ENTIRE  CUSS  list  Looking  For  CUSS  DEMAND  bits  Im  3ItS 

R2096  1.  17.  ANO  33.  THE  -1ST  TERMINATE^  IN  A SENTINEL  OF  ALL  ONeS.  EACH  THIRD  OF  A WORD  IN  THE  CUSS  LIST  CONSISTS 

R2098  OF  A DEMAND  BIT  (ReS£T  BY  THIS  ROUTINE).  A POISON  Bit  TO  DETERMINE  IF  THIS  CUSS  IS  FATAL,  THREE  BITS  GIVING  THE 


R2100 

NUMBER  of 

WORDS  IN  THE 

cuss,  AND  an 

11-BIT  SUB4107ESS.  THE  rUSSES 

themselves  are  in  bank  5. 

21012 

CUSSER. 

TX 

zero 

- 

common 

2102 

TS 

l cus  list 

Z , X 6 

C , + 2 

2103 

TX 

Z , X6 , 1 

- 

- 

2104 

LA,  B1B17333 

6,0 

ZERO 

C,-l 

BRANCH  IF  NO  CUSSES  IN  THAT  WORO. 

21053 

NA 

N ,X6 

ones 

TRY  BIT  1 

branch  if  real  cuss,  not  end  of  list. 

21056 

LA 

COMMON 

ZERO 

PASS  2 

EXIT  IF  NO  CUSSES  FOR  THIS  LINE, 

21059 

TS 

ten 

COMMON 

COUNT  CJe 

C 

2108 

TRY  BIT  1 

na,  bit  1 

6,0 

ONES 

TRY  BIT  ]7 

2109 

SWE,  CAC3 

N , X 6 

32 

COMMON 

2110 

ts,  bit  1 

zero 

6,0 

PRIN  CJSe 

C 

RESET  DEMAND  BIT  AND  CUSS. 

2112 

TRY  BIT  17 

na,  bit  h 

6,0 

ONES 

TRY  BIT  33 

2113 

SWE,  CAC3 

N,X6 

16 

COMMON 

2114 

ts,  bit  17 

zero 

6,0 

PRIN  CJSS 

C 

RESET  DEMAND  BIT  AND  CUSS. 

2116 

TRY  3 I T 33 

NA,  bit  33 

6,0 

ONES 

C , + 3 

2117 

TS 

N , X6 

COMMON 

PRIN  CJSe 

c 

2118 

ss 

ZERO 

BIT  33 

N,X6 

CUSS  AND  RESET  DEMAND  BIT. 

21192 

ts,  one 

ones 

SWITCH 

CJSSfR  +1 

show  that  there  are  cusses  on  this  page. 

R2120 

closed  subroutine  to  set  the  gooses 

IN  PRINT. 

2121 

PR  1 n :uss 

ss 

Common 

B38T48 

Z,R5 

c 

R5  maintains  bank  indicator  5 1 m pass  2. 

2123 

sws,  B28T30 

common 

7 , L 

C»  + l 

c 

2124 

TN 

n , R 5 

0 

LiNE  + 3 

c 

21242 

TX 

Z.AU2 

_ 

Z,X5 

c 

IF  1ST  CUSS  OF  PAGE,  LEFT  END  0=  BLOTS. 

2125 

na,  bit  3 a 

common 

zero 

C , + 2 

c 

BIT  34  INDICATES  FATAL  CUSS  (BAD  ASSY). 

2127 

GO  NJM  CUS 

ts 

z,sc 

Z,X4 

NJMB  CJSe 

s 

Get  into  SC  MODE  for  dec-to-alf,  print. 

2129 

SWS,  BIT14 

switch 

4 , L 

SWITCH 

c 

effect  CONDITIONAL  SUPPRESSION. 

2131 

IS,  B I T34 

ones 

SWI TCH 

Go  N Jm  ClJS 

c 

indicate  that  assembly  is  Bad. 

2133 

NUMB  CUSS 

DA 

n eRr  Lins 

ONE 

ARG  1 

Form  serial  number  for  this  cjsseO  line. 

2135 

SWE,  ONES 

ARG  1 

D » 4 »L 

ARG  1 

2136 

TS 

E COLUMN  1. 

LINE  +1 

P2  D2 A L7S 

c 

2137 

SWE,  ONES 

ARG  1 

A,  1 ,L 

ARG  1 

2138 

la,  Chari 

blanks 

ARG  1 

C,-l 

normalize  alpha  serial  of  cusseo  line. 

2140 

SWE*  ONES 

ARG  1 

A, 2 

LiNE  +2 

2141 

ts,  chari 

SHARP  Cl 

LINE  +2 

PRINT  LIn 

PRINT  SERIAL  '•#  NN  " AND  TEXT  OF  CJSS. 

1" 
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P21A3 

SUBROUt I N - 

in  pass  2 to  count  cussed 

lines  AND  <efP  TRAC< 

of  first  and  last  page  numbers,  a. so  pjt: 

«2U5 

"Preceding 

CUSSED  LINE 

IS  ON  PA&e  NNN 

" ON  THE  last  CJSS  OF  the  first 

CUSSeD  line  oF  a page. 

2H9 

TS 

BlOT  wDrD 

N * X 5 * 1 

PrEV  CJSS  -2 

c 

FILL  EMPTY  part  OF  1ST  CUSS  wlT-i  SLOTS 

2150 

NEW  P <VC>E 

SWS*  ClTL 

err  Pages 

A * A * L 

PREV  CJSS  + A 

r 

supply  former  last-page-with-cjsses. 

2152 

WA 

L OLD  LINE 

COMMON 

Z,X3 

c 

point  to  old  line  or  old  line  +5. 

21532 

LA 

Z,X5 

z * x 3 

New  page  — 1 

c 

branch  until  blot  filling  is  do^e. 

2154 

TN 

N,CSC,7 

5 

3,1 

c 

MSG  TO  UNUSED  PART  OF  LINE*  1 A3  TO  SS. 

2156 

prey  :uss 

ALF,5 

preceding  cussed  line  is 

on  page  ■■■ 

21568 

COJNT  CJS 

DA 

N ERR  LINS 

ONE 

N eRR  LIms 

r 

increment  number  of  error  lines. 

2157 

SWS * Cl T A 

page  head  +15 

A * A * L 

err  pages 

C 

ON  FIRST  ERROR,  SAVE  PAGE  NUMBER. 

2159 

TN 

N.CSC.l 

3 

COUNT  CJS  +1 

c 

INHIBIT  ABOVE  FOR  ERRORS  AFTER  -IRST. 

2161 

NA * C5T8 

ERR  Pages 

page  head 

+ 1 5 NEW  Page 

c 

BRANCH  IF  CUSSED  LINE  IS  FIR5T  DN  PAGE 

2163 

SS 

Page  head  +15 

C5T8 

ERR  PAGES 

c 

SHOW  LATEST  PAGE  NUMBER  WITH  ERROR. 

2165 

LN 

COMMON 

ZERD 

PASS  2 

s 

RETURN  TO  EITHER  OF  TWO  PLACES. 

r2167 

SUBROUTINE 

1 pASS  2 

to  convert  a 

decimal  number 

to  alphabetic  and  suppress  left  zeros  in  It. 

21688 

SWE  * DAT 8 

ARG  1 

D,2 

ARG  1 

c 

SPECIAL  ENTRY  TO  FLUSH  DIGITS  RIGHT. 

2169 

P2  D2  A LZS  SWS*  C5T8 

ARG  1 

8 

ARG  1 

c 

2172 

SWS, DeCALF Ml 

ARG  1 

A 

ARG  1 

c 

217A 

SWS,DFCALr M2 

ARG  1 

2 

ARG  1 

c 

2176 

SWE*DeCALFM3 

ARG  1 

2 

ARG  1 

c 

2177 

2179 

TS 

ARG  1 RESERVE 

C1T7 

1 

CACN 

C,  + 3 

c 

SUPPRESS  AT  MOST  7 LEFT  ZEROS. 

2181 

SWS*  C1T7 

CACN 

A*  1 *L 

CACN 

c 

2183 

NA*  CACN 

ARG  1 

ZERO 

C,-l 

c 

2 1 8 A 

SS 

blanks 

CACN 

ARG  i 

s 

BLANK  OUf  LEADING  ZEROS,  EXIT. 

L &YUL  SYSTEM  ASSEMBLER  — PASS  2 


P2398 

F 1 NALIZlNG 

actions  FOR 

PASS  2. 

2399 

END  PASS  2 

SSL*  ONE 

SWITCH 

99 

23993 

RW  * 2 

- 

- 

23995 

LA 

L LINE 

z.xo 

2900 

TN 

line  stor 

16 

2902 

TX 

z.xo 

- 

2906 

NA 

NEW  BJF  Q 

unset  NEW 

2908 

TS 

- 

- 

2910 

TS 

Z.RO 

N WO  RECS 

2911 

WF  * 9 

- 

- 

2912 

ts.  bit  33 

zero 

N WO  RECS 

2919 

6 CAC  3 

RW  * 9 

- 

0 

2915 

TS 

Z » SC  * 1 

2919 

TS 

- 

- 

2921 

PARA  WAIT 

NA 

END  PARAS 

ZERO 

2926 

S,  PH  I LOAD 

PASS  3 

1 

R2927 

items  to  be 

. FILLED 

IN  BY  PARTICULAR  PASS  2. 

2928 

PATCHES 

reserve 

10 

29289 

SIZ  PASS  2 

equals 

patches  - prog  name  + 1 

2929 

m pro:  op 

EQUALS 

PATCHES  +10 

2930 

m pro:  ip 

EQUALS 

M PROC  UP 

2931 

m plo:  IS 

equals 

M PROC  OP 

2932 

D1  PARAMS 

EQUALS 

PATCHES  +11 

2933 

K 1 MAXNJM 

equals 

PATCHES  +19 

2939 

D2  PARAMS 

equals 

PATCHES  +15 

2935 

M PRO:  2P 

equals 

PATCHES  +18 

2936 

M PLO:  EB 

EQUALS 

M PROC  2P 

2938 

K2  MAXNUM 

EQUALS 

patches  +19 

2939 

maxlo: 

equals 

PATCHES  +20 

29391 

CON  MAS< 

equals 

PATCHES  +21 

2990 

PRET  -LAG 

equals 

PATCHES  +23 

2991 

FLAG  MASK 

equals 

PATCHES  +29 

29A2 

CONS  FLAG 

equals 

PATCHES  +25 

29921 

M MXR 

EQUALS 

PATCHES  +26 

29  A22 

MISC  -LAG 

EQUALS 

patches  +27 
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RtLS  OR  rW 

c Release  or  rewind  tape  2*  as  Required. 

C * + 3 

old  Tine 
L OLD  line 

ENSURE  THAT  STORED  LINE  IS  IN  InTERPASS. 

1 -1 

C.  + 2 

SEND  w3 JF 

branch  if  last  wd  record  HAS  Be-N  sent. 
c FINISH  and  write  last  word  RECORD. 

PHI  TAPE 
DISASI ER 
PHI  TAPE 
6 

save  word  RECORD  COUNT  IN  UNSIGNED  FORM. 

mon  wa<e 

MON  SLEEP 

C,-l 

BASE  ADOR 

C WAKE  RD3  AND  WR1  JUST  IN  CASE. 

C SLEEP  UNTIL  PARAPROGRAMS  DIE. 

L 
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P2450  ON  THFSE  3AGeS  IS  A PReLUDe  TO  PASS  2 I N I T i AL I Z A T I ON , WHICH,  AS  It  REALLY  PROCeSSeS  THe  CoNSpCIJeNCeS 

R2A52  OF  PASS  1,  IS  CALLED  3ASS  1.5.  IT  BEGINS  BY  DEFINING  ALL  Hr  LEFTOVER  SYMBOLS  SPECIFIED  IN  PASS  i,  IN  rHc  ORDER 

«2A53  OF  jHrlR  INTRODUCTION.  IT  THqN  EXAMINES  ALL  THt  NEARLY  OefIneD  SYMBOLS  AND  FOLLOWS  jHReADS  TO  DeFINeRS  AND  De- 

r24532  FINEES  TO  DeFINE  tHeM',  U PERFORMS  NO  OtHer  ACTION  FOR  ReprINT,  FOR  A ReJeCTeD  (I.E.  BAD-MeRGe>  ASSeM3LY,  IT 
R2A5A  Sets  "‘Reject  " next  io  the  page  number  in  the  page  head  and  subtracts  one  from  the  Revision  number  (Revision) 

r2a56  or  demands  a silent  d-Letion  of  an  aborted  Version,  for  a non-ReJeCted  assembly.  It  clears  out  the  list  of  pro- 

R2A58  gRAviS  AND  SjbRDutINeS  TO  bE  DeLcTED  AND  v|AkES  OR  REmA<eS  A LIST  OF  THREADS  TO  SUBROUTINES  D1RECtLy  CALLrD  By  THE 

R2460  PROGRAM  OR  SUBROUTINE  BEING  ASSEMBLED. 


2463 

SETLOC.7C 

siz  pass  2 

B 

2465 

MASKGrP . 7 

S.7 

F 

R2A66 

FIELD  masks 

FOR  PASS 

1.5. 

24668 

B.3IT7H 

OCT 

004 

2467 

B.3IT9H 

OCT 

001 

2468 

B.3IT11H 

OCT 

0002 

2469 

B.3IT12H 

OCT 

0001 

2470 

B * 3 1 T 1 3H 

OCT 

00004 

2471 

B.3I T25H 

OCT 

-4000  0000 

2472 

B ♦ 3 1 T 32H 

OCT 

-20  0000 

2473 

B.3I T36H 

OCT 

-1  0000 

2474 

B.3I T37H 

OCT 

-4000 

2475 

B.310312H 

OCT 

0005 

24755 

B.312313H 

OCT 

00014 

2476 

B.B122436H 

OCT 

0001  0001  0001 

2477 

B.313336H 

OCT 

0000  4000  0001 

24779 

B.D4H 

DEC 

000  G 

2478 

B.D4T5H 

DEC 

000  GGG 

2479 

B.CHAR5H 

OCT 

-7700  0000 

2480 

B.CAC3H 

OCT 

-17  7777 

24801 

B.LSTYPEH 

OCI 

-7000  0000 

24802 

B.AVM5KH 

OCT 

0 

248022 

B.C7T3H 

OCT 

-7777 

24803 

B.FIXMAGh 

DEC 

OGG  GGG  GGG  GGG 

24804 

B . CAc 1H 

DEC 

GGGG 

Pass  1.5  is  overlaid  by  particj.ar  Pas2. 


VARIABLE  AVAILABILITY  MASK. 
C7T3H  MUST  Be  I HE  20TH  B MASK. 


L 

SYUL  SYSTEM 

ASSEMBLER 

— PASS  2 

P2481 

FURTHER  SHIFT  MAS<s  - 

OR  PASS  1.5. 

2482 

S.31T012H 

OCT 

7777 

2.48  3 

StSPECMAGH 

OCT 

-77777 

24B31 

S.326T30H 

OCT 

-3700  0000 

248311 

S.327T30H 

OCI 

-1700  0000 

24832 

S * 3 3 8 I 48H 

OCT 

-3777 

24834 

S.B1SRCMAG 

OCT 

4000  0000  0007  7777 

24835 

S«CHAR8H 

OCT 

-77 

24836 

S * LEF [MASK 

OCT 

0 

2485 

S.CAC2H 

OCT 

0000  0377  7760  OOOO 

24854 

S.ACH2 

OCT 

0017 

24855 

S ♦ ACH  3 

OCT 

000017 

2486 

S » THR  ED 10H 

OCT 

-3776 

2487 

SfOTHRDllH 

OCT 

3777 

2488 

S * ATHRD1 1H 

OCT 

0000  3777 

24889 

S.3T  HRDIOH 

OCT 

-3776  0000 

2489 

S.8THRD11H 

OCT 

-3777  0000 

2490 

s.thrediih 

OCT 

-3777 

2491 

S » ONE  H- 

OCT 

-1 

2492 

S * T WO  Hi 

OCT 

— 2 

2493 

StFOJRH 

OCT 

-4 

2494 

S.0NE5H 

OCT 

7777  7777  7777  7777 

^2495 

Constants 

needed  onlt 

during  pass  1.5  0r  in 

24958 

P2  SIDE  GP 

alf 

yulside2 

2496 

W REJECT 

ALF 

■REJECT 

2497 

*DELE  CARD 

ALF  .4 

DELETE  REV 

2498 

W PROGRAM 

ALF  » 2 

PROGRAM 

2499 

W SJ3R0TI 

ALF  ,2 

subroutine 

2500 

W BY 

ALF 

BY 

25006 

BIT  6 Hi 

OCT 

01 

2501 

BIT  10H 

OCT 

0004 

2502 

BIT  24H 

OCT 

0000  0001 

25021 

BIT  43H 

OCT 

-40 

2503 

B 1 3B2  3 

OCT 

0000  9000  4 

2504 

B132537 

OCT 

-4000  9000  aooo 

2505 

B24  336 

OCT 

-1  0001  0000 

2506 

12(12)48 

OCT 

0001  0001  0001  0001 

ON  oF  PaSS 


OF 
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1 


» 


% 

L 

e?YUL  ststem 

assembler 

— PASS  2 

* 

P250605 

PASS  1.5  CONSTANTS  concluded. 

25061 

3D4H 

DEC 

0003 

% 

25062 

4D4H 

DEC 

0004 

250622 

5D4H 

DEC 

0005 

25063 

8D4H 

DEC 

0008 

% 

25064 

CD4H 

DEC 

OOOC 

25069 

ACH4 

OCT 

0000  0017 

2507 

SIXH 

OCT 

-6 

% 

2508 

SEVEN  H 

OCT 

-7 

25081 

C259 

FXB1N 

-259 

25082 

C 1 T 3 

OCT 

777777 

« 

2509 

CAC12H, 

OCT 

7777  7777  7760 

2510 

CAC3M1 

OCT 

-17  7776 

• 

25102 

chec<ed 

DEC 

-lGG  ooGG  GGGG 

25107 

L STOPPER 

SPEC » B3 

DAMN  ZERO 

25109 

L JNAi/S 

CAC 

END  CAT  3 

END  WD  3 

2511 

Pl»5  MXR 

mascbase 

S*7 

F * 7 

25111 

L SYMTH  14 

SPEC  *B5 

848 

2513 

DI rnordb 

SPEC  *B7 

8 

« 

25132 

L 32  START 

SPEC.B7 

707 

% 

2514 

MON  WAA 

SPEC » B7 

600 

» 

R2515 

SYMBo.  SELECTION  LoGl 

: for  leftover 

SYMBo.  RESOLUTION  ON  NEXy  PaGF 

25155 

pass  i«5 

TX 

L CUS  LIST 

_ 

Z,Xl 

2516 

TX 

L AV  TABLE 

- 

Z ,X6 

* 

2517 

S,  ETS 

6,1 

ZX  f6 

c , + 1 

2519 

LA 

ONES 

N.Xb 

RESOLVEM  -1 

2521 

LA 

6,2 

CAC  12 

FIX  LEFTn 

2523 

eba 

Z,X6*2 

ZERO 

common  +7 

2524 

S * ETS 

6,0 

ZX  *5 

NX6  TO  C6 

25252 

SM 

CAC12 

5,1 

N,X6 

2526 

WA 

NExT  LSYM 

EIGHT 

NEXT  LSYM 

• 

2528 

S,  ETS 

common  +6 

ZX  .6 

FIX  i'eFto 

3"  | 

2530 

NA ' CAC3H 

6 ' 1 

Common 

Pass  1*5  *z 

2532 

WD 

NEXT  LSYM 

EIGHT 

next  lSym 

2533 

S,  ETS 

Common  +7 

ZX  +6 

next  LSYm 

• 

25334 

NX6  to  C6 

ts 

N , X5 

CqMMqN  +6 

Pass  1*5  +7 

2" 


% 

% 

I 

> 

* 
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LOAD  ADDRESS  OF  CUSS  LIST  AND  MaS<S. 
SEE  WHETHER  NEXT  SYMBOL  IS  LEFTOVER. 

branch  if  no  more  symbols  in  tasle. 

BRANCH  IF  SYMBOL,  NOT  MULT.  UEr.  FLAG. 


let  mult  def.  flag  point  to  fust  def. 
modify  procedure  for  multiple  d-fs. 
do  last  definition  first. 

loop  until  Pointing  to  last  def.  again. 


point  to  last  definition  of  symbol 
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pass  z 
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L 

P2534  ASSIGNMENT  UK  LEFTOVER  SYMBOLS  TO  FI*E0  Or  ERAsA3i  t MEMORY.  MAKES  USE  OF  THE  FOLLOW jnG  PATI^rn  In 

R2536  THE  SeCONO  SYM30L  TA3-E  ENTRY  WURD,  PLaCeO  THeRE  3Y  PASS  i;  BIT  1,  0 FoR  FIxeD  OK  i FOR  ERASABLE?  BlTS"2-6.  16 

R2S38  minus  modularity?  bits  ?-i2»  the  number  of  additional  blocks  allowed*  bits  13-16.  oiou  bits  17-32*  minimum 

R25aO  base  ADDRESS  (AN  INTEGER  TIMES  2**M0DULaR 1 T Y ) ^LUS  RESERVATION  SIZE  - 1*  THe  IDeA  IS  THAT  LEFtOVeRS  MJsT  F I t 

R2542  IN  SPECIFIED  REGIONS  Op  MEMORY  AND  MAY  NOT  CROSS  :E*TAIN  BOUNDARIES  (SUCH  AS  ThE  SwItChEd  BANKS  OF  AGC4).  T-|IS 

R2544  PROCESS  MUST  Be  DONE  “OR  ALL  LEFTOVER  SYMBOLS  BeFoRE  ANY  NEARLY-DEFINED  EQUALS  DEFINITIONS  ARe  RESOLVED. 


2546 

FIX  LeFTO 

NA*  D4H 

6*1 

5 D(*  h 

NeXT  lsym 

Branch  if  this  symbol  is  not  Leftover* 

2548 

SWS * B26T30H 

6,1 

A, 4 

c,  + l 

USE  (16-M0DULARiTY)  AS  SHIFT  COUNT. 

2550 

SWE*  CAC3H 

CAC3 

left  mask 

FORM  2**MoDULARITY  - 1. 

2552 

SW£*LfFTMA5K 

6*1 

16 

COMMON  +1 

fetch  block  length  - 1. 

2554 

SWE*SPECMASri 

6*1 

16 

COMMON 

2555 

HA 

COMMON 

COMMON  +1 

Z ,R1 

form  minimum  base  address  for  Block. 

2557 

SWE*  CHAR 8 "i 

6,1 

A * 6 

C0MM0N  + ? 

fetch  number  of  additional  blocks. 

2559 

LA 

BIT  1 

6*1 

C , ♦ 2 

2560 

TS,  LSTYPEH 

type  f 

SWITCH 

C,*2 

leftover  instruction  or  constant. 

2562 

SS 

type  e 

L STYPe  H 

SWITCH 

leftover  erased  region. 

2564 

SS 

Zero 

C1T2 

6,1 

make  room  for  page  numbers  in  3ass  2. 

2566 

FORM  _I ML 

SM 

Z,R1 

left  mask 

Common  + * 

FORM  MAXIMUM  ADDRESS  FOR  LAST  WoRD. 

2568 

TX 

Z,R1 

- 

COMMON 

2569 

TX 

L TYP  TAB 

- 

Z*X4 

2570 

LA,  LAC3H 

COMMON 

4*0 

C,  + 2 

FIND  NEAREST  MEMORY  TYPE  CATEGORY  LIMIT 

2572 

TS 

Z,X4*1 

- 

C,-l 

2573 

TX 

N * X4 

_ 

Z *R2 

2574 

LA 

Z,R2 

COMMON  4.3 

C , ♦ 2 

CHOOSE  MIN  (CATEGORY  END,  BLOCK  END). 

2576 

TX 

COMMON  +3 

- 

Z *R2 

2577 

NA.  LSTYPEH 

4,0 

switch 

NeXT  cat 

branch  if  wrong  memory  type. 

2579 

CAT  0<i  TYP 

SWE*  B38T43H 

Z , R 1 

5 

Z *X2 

2580 

wA 

Z *X2 

L AV  TABLE 

Z ,X2 

form  address  of  availability  word* 

2582 

SM 

Z*R1 

C31 

Z,R3 

form  LAST  ADDRESS  FOR  THIS  AVAIW  WORD. 

2584 

COMP  ENDS 

LA 

Z,R2 

Z,R3 

left  srcw 

branch  if  end  category  in  this  avail  wd 

2586 

TS 

L UNAvS 

Z , X 3 

left  srch  +1 

SET  UP  TO  CHECK  END  OF  AVAIL  WD  FIRST. 

2588 

end  cat  Q 

NA 

Z ,R  1 

z * r2 

next  ABIt  -1 

BRANCH  IF  NOT  END  OF  CATEGORY. 

2590 

next  cat 

wA 

Z,R2 

one 

Z,R1 

FIRST  ADDRESS  OF  NEXT  CATEGORY. 

2592 

LA 

Z,Rl 

COMMON  +3 

form  li mi  +1 

branch  if  next  category  is  in  same  blok 

2594 

BS 

COMMON  +z 

ONE 

C0MM0N  +2 

DECREASE  count  OF  ADDITIONAL  BLOCKS. 

2596 

LN 

COMMON  +2 

zero 

FORM  L 1 Mi 

BRANCH  IF  we  MAY  TRY  ANOTHER  BLOCK. 

2598 

NEXT  uSYM 

LA*  CAC3H 

6 * 1 

L AV  TABLE 

Pass  1*5  +2 

Go  LOOK  FoR  ANOTHER  LEFTOVER  SY^BoL. 

25992 

TS 

6*1 

Z * X 6 

C*-l 

SKIP  OVER  SPEC  PAIR. 

2600 

LEFT  srch 

SWE,  CAC3-I 

L UNAVS 

16 

Z,X3 

set  up  to  check  end  category  first. 

2602 

LA 

N,X2 

CAC3 

3,1 

BRANCH  IF  ALL  OF  AVAIL  WD  IS  RESERVED. 

\" 


* 


L 

eVUL  SYSTEM 

assembler  — 

PASS  2 
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P2604 

FIND  4 SIN 

SLe  FrEE  LDCAflON  FIRST. 

and  then  see 

1-  THeRe'S  RnOM  FOR 

the  entire  Reservation. 

y 

..i 

2606 

SWS . B26T30H 

Z,R1 

18, L 

C,*l 

y 

2607 

SWE.  ONESH, 

BIT  1 

Av  MSK  H 

FORM  MASK  TO  EXAMINE  AVAIL  WORD. 

2609 

TS 

“ 

- 

NEXT  A3 1 ir  +1 

2610 

aA 

Z.R1 

ONE 

Z.Rl 

j 

,.z 

2611 

NEXT  ABU 

SWE»  ONESH 

AV  MSK 

H 

1 

A V MsK  H 

ADVANCE  MASK  TO  EXAMINE  NEXT  B I T . 

2613 

NA,  AvMSKH 

2,0 

ONES 

3,0 

BRANCH  IF  LOCATION  IS  RESERVED. 

y 

2615 

HA 

N*X2 

AV  MSK  H 

N,X2 

OTHERWISE  RESERVE  IT  NOW  (TENTATIVELY). 

2617 

TX 

Z,R1 

- 

COMMON 

record  initial  address* 

2619 

SM 

AV  MSK 

H 

Z , X 2 

common  +s 

SAVE  MASK  AND  ADDRESS  IN  CASE  D-  FAIL. 

..E 

2621 

LA 

Common 

+ 1 

zero 

def  leFto 

BRANCH  IF  BLOCK  SIZE  = 1 AND  1 T WAS  OK. 

•y 

2623 

wA 

Z,Rl 

COMMON  +1 

common 

if  not  done  yet»  form  end  of  block  addr. 

2625 

LA 

common 

♦ 4 

Z , R 2 

END  WD  0 2 

BRANCH  Ip  BLOCK  fITS  IN  THIS  CATEGORY, 

2627 

TS,  AvMSKH 

ones 

2,0 

NeXT  cat 

UNRESERVE  FIRST  WORD  IF  IT  DOESN'T. 

2629 

end  aID  a 

NA 

Z,Rl 

Z,R3 

NEXT  A3 1 t -1 

CHECK  NEXT  BIT  IN  SAMt  AVAIL  WOTD. 

2631 

W A 

Z.R3 

ONE 

Z.Rl 

y 

2632 

TS 

Z.X2.1 

- 

COMP  ENDS  -1 

start  on  new  availability  word. 

2634 

END  AID  a 2 

NA 

Z.Rl 

Z.R3 

NEND  WD  ? 

branch  if  not  end  of  avail  word. 

y 

2636 

W A 

Z ,R3 

BIT  43r 

Z ,R3 

2637 

SWE,  ONEH 

Z.X2.1 

15 

AV  MsK  H 

j 

2638 

NEND  aID  2 

w A 

Z , R 1 

ONE 

Z,R1 

2639 

SWE , ONESH 

AV  MSK 

H 

1 

AV  MSK  H 

ADVANCE  MASK. 

26a1 

NA,  AvMSKH 

2,0 

ONES 

failjre 

branch  if  part  of  tent,  block  is  in  jse. 

y 

2643 

HA 

N,X2 

AV  MSK  H 

N,X2 

reserve  location  tentatively. 

2645 

NA 

Z.Rl 

COMMON  +4 

END  WD  3 2 

BRANCH  UNLESS  bLoCK  ALL  TEStlD  UNO  RSVD. 

j 

264? 

def  leFto 

SWS,  CAC2H 

common 

16* L 

6 » 1 

PUT  DEFINITION  INTO  SYMBOL  TABLE... 

2649 

TS,  D4H 

6 D4 

6 9 1 

NEXT  LSrM 

CALL  IT  NORMALLY  DEFINED,  SEEK  ANOTHER. 

J 

2651 

FAILJ7E 

TX 

CuMMON 

+ 5 

Z , X 2 

2652 

HA 

common 

+ 5 

Z,X2 

AV  MsK  H 

Restore  availability  word  address  6 bit. 

2654 

unreserv 

SM 

N.X2 

AV  MSK  H 

N.X2 

put  availability  bits  back. 

y 

2656 

wA 

common 

ONE 

COMMON 

2657 

LA 

Z.Rl 

Common 

END  LFAlf 

branch  IF  UNRESERVING  is  done. 

2659 

NA 

AV  MSK 

H 

BIT  32 

C,  + 2 

branch  if  not  end  OF  avail  WORD. 

y 

2661 

SWE.  CAC3H 

Z,X2,i 

15 

AV  MSK  H 

ADVANCE  COUNTER,  SET  MASK  = i. 

2663 

SWE,  ONESHl 

AV  MSK 

H 

1 

AV  MSK  H 

ADVANCE  MASK. 

2665 

TS,  AVMSKH 

ONES 

2,0 

jnreserv  +1 

PUT  AVAILABILITY  bITS  BaCK. 

y 

2667 

END  LrA  I L 

LA 

Z,R2 

Z.Rl 

next  cat 

branch  if  at  end  of  category. 

2669 

wA 

Z.Rl 

ONE 

Z ,R  1 

y 

2670 

TS 

- 

- 

CAT  OK  TvP 

y 


y 

y 


' 
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p267i  resolution  of  randomly  ordered  equals  oefinitiqns,  using  threads  attached  to  nearly  defined  symbols 

R2673  IN  TH-  SYMBOL  TaBLe  AND  TO  THeIR  DeFINeRS.  the  THREADS  Form  a CAC  in  THe  third  WORD  of  The  table  ENtR'i',  thus; 

R2675  Left  CAC,  thread  TO  DpF1NeR?  MIUDLe  CAC,  thread  TO  Next  Co.DpFINEE?  RIGHT  CAC,  THREAD  to  FIRST  DeFINeE.  all 

R2677  THREADS  are  TO  THE  SfCoND  WORD  oF  A SYMBOL  TABLE  ENTRY.  [Hp  METHOD  IS  ROUGHLY  AS  FOLLOWS!  ( 1 ) SCAN  Up  TABLE 

R2679  for  nearly  defined  symbols.  when  one  is  found,  jse  defIneR  threads,  marking  each  one  found,  until  a symbol 
R268I  is  found  that  ib  not  nearly  defined.  (3)  if  it  is  defined,  the  symbols  dependent  on  It  may  be  defined,  if  not* 

r2683  ALL  I t S DePeNDeNtS  AR-  UnDeFINAdLe.  FoLLOw  IyS  FiRST-DefI Nee  THReAD  TO  DeFINe  I T S FIRST  DePeNDeNt,  tH£N  FOLLOW 

R2685  CO-De-INeE  tHREaDS  TO  DeFINe  ALL  DIReCt  DePeNDeNtS.  IOR,  MApK  THfM  UNDtF I NABLe. ) (a)  USING  tHe  SYMBOL  IN  THAT 

R2687  SET  WHICH  HAS  A MARKO  THReAD  (I.e.  WAS  JSeD  IN  THE  DeFINeR  SEARCH),  REPEAT  STEp  ( 3 > UNTIL  ALL  LeVeLS  0-  DEFINEE 

P2689  THREADS  ARE  EXHAUSTED.  THIS  PRoCeSS  IS  GUARANTEED  TO  INCLJDp  THE  SYMBOL  FOUND  BY  tHe  ORIGINAL  SCAN, 


2691 

wA 

L AV  TABLE 

one 

Z.X6 

2692 

resolyem 

S.  ETs 

6,0 

ZX  *6 

C,  + l 

269A 

LA 

ONES 

N , X 6 , 1 

OP  T 1 THR<P 

BRANCH  IF  NO  MORE  SYMBOLS  IN  TA3LE. 

2696 

LA 

6,1 

CAC12 

near'y  0 

branch  if  symbol,  not  mult.  def.  FLAG. 

2698 

eba 

Z » X6  * 1 

ZERO 

COMMON  +7 

2699 

TX 

N,X6 

- 

COMMON  +6 

POINT  TO  FIRST  DEFINITION  OF  SYMBOL. 

2703 

wA 

NEX  EO 

sym 

+ 1 

SEVEN  h 

NE*  EU  SYM 

+ 1 

modify  procedure  for  multiple  d=-fs. 

2705 

S * ETS 

Common 

+ 6 

ZX  ♦ 6 

NeARTy  3 -1 

do  first  definition  first. 

2707 

NA*  CAC3H 

6*0 

COMMON  +8 

reSolvem 

loop  until  pointing  to  first  de*.  again. 

2709 

wD 

NEX  EO 

SYM 

+ 1 

SEVEN  H 

NEX  ED  SVM 

+ 1 

2710 

S * ETs 

common 

+ 7 

ZX  +6 

NEX  E3  SyM 

+ 1 

L 
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P27102 

IF  A 

thread  is  seen  to 

BE  POINTING 

TO  A MJLTIPLE 

DEFINITION  flag. 

2711 

TX 

Z , X6  » 1 

_ 

_ 

2712 

NEARLY  0 

LA.  D^h 

3D9H 

6,0 

NEX  EO  SvM 

2713 

LA,  D^h 

6,0 

zero 

nex  eo  sym 

2715 

SWE,  CAC3 H 

6,1 

32 

Common  +r, 

2717 

LA 

COMMON  +5 

zerd 

NeX  ED  SvM 

27182 

EBA 

COMMON  +5 

BIT  25 

Z,X9 

2719 

ss 

BIT  16 

CAC1H 

6,1 

2721 

M def 

test 

LA 

9*1 

CAC12 

def  test 

2723 

S*  ETS 

9,1 

ZX  ,9 

C.  + l 

27292 

TX 

Z.X9.1 

- 

- 

2725 

DEF  T 

EST 

SWS,  B27T30H 

N,X9 

19 

c , + 1 

2727 

SSL,  ONEH 

Def  xform 

16 

c , + 1 

2729 

S,  ElS 

9,1 

ZX  +2 

DeFINEM  _1 

2731 

LA,  D9H 

9,0 

ZERO 

voidem 

2732 

LA,  D9H 

3D9H 

9,0 

voidem 

2739 

SWE,  CAC3H 

9,1 

32 

common  ♦ 

2736 

LA 

COMMON  + 5 

ONE 

VOIDEM 

2738 

SS 

BIT  16 

CAC1H 

9,1 

2790 

S , ETs 

COMMON  +5 

ZX  *9 

M DEF  TEaT 

2^912 

VOID 

I NAN 

TX 

zero 

- 

9,1 

27913 

LA.  CAC3H 

COMMON  +5 

ZERO 

NEX  ED  SvM 

27919 

S , ETs 

common  +5 

ZX  ,9 

VOID  MR<  Q +1 

2792 

VO  I De  Mi 

TS 

9,1 

COMMON 

+ 5 

VOID  INAN 

27932 

eba 

z,x  9 

ZERO 

Z,X2 

27  99 

ss 

zero 

CACl  H 

9,1 

2796 

SWE,  CAC3H 

9,1 

16 

common  + f 

2798 

LA 

COMMON  +5 

zero 

VOID  LOOP  +1 

27992 

EBA 

COMMON  +5 

BIT  25 

Z,X9 

2750 

LA 

9,1 

CAC12 

VOID  MR<  0 

2751 

WA 

9,1 

ONE 

COMMON 

27512 

S , ETs 

COMMON  +5 

ZX  .9 

C t ♦ 1 

2752 

VOID 

MRK  0 

NA,  CAC1H 

9,1 

BIT  16 

VOIDfM  ♦, 

2759 

LA 

9,1 

CAC12 

VOIDEM  ♦, 

2755 

WA 

9,1 

ONE 

COMMON  +s 

2756 

VOID 

.OOP 

S,  ElS 

Common  +5 

ZX  ,9 

VOIDEM  *i 

2758 

LA»  CAC3H 

2 » 1 

zero 

NEX  ED  SYM 

2760 

EBA 

Z ,X2 

zero 

Z,X9 

27612 

TS 

9,1 

common 

♦ 5 

void  inam 

27619 

TX 

zero 

. 

9,1 

it  wants  to  point  to  the  first  definition. 


if  not  nearly  defined,  seek  another. 

fetch  definer  thread. 

branch  IF  DEFINER  DIDNiT  fit  in  table. 

mark  DEFINER  thread  to  find  way  back. 

branch  if  symbol,  not  mult,  def,  flag. 
POINT  TO  FIRST  definition. 

fetch  symbol  health  code. 

"BRANCH"  IF  SYMBOL  HAS  NO  VALID  DeFIN. 

fetch  first-definee  thread,  go  oefine. 

branch  if  SYMBOL  IS  UNDEFINABLE. 
fetch  definer  thread. 

VICIOUS  CIRCLE  IF  MARKED,  VoiDEO  IF  o. 

CONTINUE  DEFINER  SEARCH. 

initialize  symbol  analyzer  word, 
branch  If  definer  LACKS  definee  thread. 

Fetch  FIRST-DEFINEE  THREAD. 

X2  POINTS  TO  FIRST  OR  MARKED  DE-INEE. 
VOID  A DEFINER  THREAD. 

fetch  co-definee  thread. 

BRANCH  IF  THERE  ARE  NO  MORE  CO-DEFINEES. 


branch  IF  THIS  DeFINER  THREAD  JnMaRKeD. 


branch  if  prime  definee  Defines  ndbody. 

START  ON  NEXT  LEVEL  OF  DEF'INEES, 


INITIALIZE  symbol  analyzer  word 


L 

&YUL  SYSTEM 

ASSEMBLER  — 
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P2762 

apply  A DEF 

ined  definer 

TO  A TREE  OF 

NEARLY 

DEFi 

2763 

definem 

SWe*  CAC3 H 

N,XA 

16 

27642 

eba 

Z,X2 

ZERO 

2765 

LA 

2,1 

CAC12 

2766 

wA 

2,1 

ONE 

2767 

S,  ETS 

COMMON  +5 

ZX  ♦ 2 

2769 

LA 

4,1 

CAC12 

2770 

wA 

4,1 

ONE 

27702 

S * ET  S 

COMMON  +5 

ZX  +4 

2771 

get  ajgmt 

SWE  « B i SPC  M AG 

n,xa 

17 

2773 

BS 

common 

COMMON 

+ 1 

2774 

LN 

common  +1 

zero 

2776 

SSL*  ONEH 

N,Xa 

32 

2777 

ts*  dah 

CD4H 

4,0 

2779 

TS*  D^H 

8D4H 

4,0 

2781 

EOJ  2 31 G 0 

LA*  FiXMAGR 

N WD  RECS 

common 

+ 1 

2783 

SWS*  CAC2R 

common  +1 

16  * L 

2785 

SSL*  ONEH 

N,X4 

32 

2786 

TS,  DAH 

4D4H 

4,0 

2788 

ss 

3D4H 

D4H 

2790 

MARK  TEST 

LA 

BIT  15 

4*1 

2792 

EBA 

Z*X  4 

ZERO 

27922 

SS 

ones 

CAC 1 H 

2794 

SWE*  CAC3R 

4,1 

16 

2796 

NA 

COMMON  +5 

ZERO 

2798 

LA*  CAC3H 

2 1 1 

zero 

27992 

EBA 

Z,X2 

ZERO 

2800 

TS 

- 

- 

2802 

NEX  EU  SYM 

SS 

zero 

CAC12H 

2804 

LA,  CAC3H 

6,0 

L AV  TABLE 

28052 

TX 

N,X6 

- 

28054 

TS 

Z,X6,1 

- 
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SYMBOLS. 

common 

Z,X4 

get  ajgmt 

COMMON  +5 
DEFINEM  *1 

GET  AJGMt 
COMMON 

C,-2 

COMMON  +1 
Common  +i 
EUU  2 Bir,  Q 

C,  + l 

MARX  TEST 

mar<  IESt 

C,-3 

N * X<t 

C * + 1 

mar<  test 

N » X A 

C.+3 
Z »X2 
A,  1 

COMMnN  + * 

get  ajgmt  -i 

NEX  eU  SvM 
Z.XA 

DeF  TEST 
6*1 

RESOLVEM 

Z,X6 

C,-2 


Fetch  value  of  defined  symbol. 


copy  oefinee  thread. 


see  call  at  mark  test  +A. 
reconstitute  signed  modifier. 

ALL  SIGNS  are  BASS-ACKWaRDS  HER- . 
branch  if  definition  VALUE  IS  =oSITIVE. 


MULT  near  DEf  bEcOMES  MULT  OVERSIZE  DEF. 
nearly  def  becomes  oversize  defined, 
branch  if  definition  too  big  for  mac-i, 

store  good  definition. 

MULT  NEARLY  def  BECOMES  MULt  DEF  3Y  =. 
NEARLY  DEFINED  BECOMES  DEFINED  3Y  =. 

BRANCH  IF  DEFINER  THREAD  UNMAR<£D. 

unmark  it  and  save  its  address, 
fetch  co-definee  thread. 

BRANCH  IF  THERE  IS  A CO-DeFINEE. 

branch  if  prime  definee  defines  nobody. 

Go  TEST  PRIME  DEFINEE  FOR  GOOD  OEFINE. 

show  absence  of  definition  pa^e  number, 
go  look  for  anotfieR  nearly  defined  sym. 

skip  over  spec  pair. 


i 
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V 

P2806 

OPTIMIZATION  OF  symbol 

table  cac- 

THREADS.  lACH 

OF 

WHICH  IS  To  P0tnT  TO 

THE  SPEC  PAir  WhOsE  STrinG  COnTAjnS  THE 

R2808 

FIRST  SYMBOL  WHOSE  L£'T 

7 bits  corresponds  TO 

that  CAC-THREAd. 

* 

2809 

OPTI  THRS 

TX 

L SYM  THR 

Z.X4 

2810 

TX 

N,X4 

- 

Z.X2 

POINT  TO  FIRST  SPEC  PAIR. 

, 

2812 

S,  ETS 

2.0 

ZX  *3 

CH  THREAD 

point  to  the  last  symbol  in  a string. 

2814 

SS 

Z.X2 

CAC3 

N.X4 

PUT  OPTIMUM  VALUE  ON  EVEN  CAC-THREAD. 

* 

2816 

CH  THREAD 

la 

N.X3 

CHECKED 

NEXTRINo 

BR  If  no  NEW  CATEGORY  IN  THIS  STRING. 

2818 

W A 

CHECKED 

BIT  7 

chec<ed 

2819 

NA,  BIT  7H 

checked 

ONES 

CH  THREAD  -1 

BRANCH  IF  DOING  EVEN  CAC-THREAO. 

e 

2821 

SWS.  CAC1H 

Z.X2 

32.  L 

N.X4 

PUT  OPTIMUM  VALUE  ON  ODD  CAC-HREAD. 

2823 

NA 

Z.X4.1 

L SYMTH 

1A 

CH  T HRE AD 

BRANCH  IF  NEXT  IS  NOT  13TH  CaC-a/ORD. 

2825 

wA 

Checked 

BIT  6H 

checked 

leap  over  subro  directory  origh. 

e 

2827 

T 5 

Z.X4.1 

- 

CH  THREAD 

2628 

NEXTR1NG 

LA 

ONES 

CHECKED 

ASSY  ]Y?  Q 

BRANCH  WHEN  ALL  CAC-THREADS  DONr. 

c 

2830 

TS 

3.1 

Z.X2 

CH  THREAD  -2 

POINT  TO  NEXT  SPEC  PAIR. 

; 


>2 

a 

c 


* 

> 

..i 


..z 


> 


..E 


> 

' 

' 

' 

' 

y 


g 


G 


:> 
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O 


G * 


O 


> 


Cf 


1 


\" 


o 


) 


o 
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P2832 

TEST  -OR  TYPE  OP  ASSEMBLY » DISPOSITION  OF  REPRINT  AND  BaD  MERGE. 

2833 

assy  typ  o 

NA,  0 I T 1 1 H 

SWI tCh 

ONES 

real  assy 

branch  if  not  reprint  or  bad  m^rge. 

2835 

LA 

BIT  1 

SWITCH 

INISH  P 2 

BRANCH  IF  REPRINT,  NOT  BAD  MERSe. 

2837 

TX 

w reject 

PAGE  HEAD  +19 

SAY  "REJECT"  ON  EVERY  PAGE. 

28382 

TX 

L PROG  F I L 

- 

Z,X9 

2839 

LA,  B i 2B 1 3 H 

SWI TCh 

ZERO 

DeCRevNO 

BRANCH  UNLESS  VERSION  OR  TRANSFERRED. 

&28U 

A VERSION 

OR  transferrer  assembly  IS 

rejected. 

Delete  the  new  proG/sub 

name  without  typing  anything. 

2693 

WAA  TO  X5 

TX 

MON  kAA 

_ 

Z.X5 

in  Rejecting  a version  or  transfer  assy. 

2895 

* 

TX 

ONES 

- 

N.X5 » I 

SET  A SPECIAL  FLAG  IN  THE  SENTENCE  AREA, 

2897 

# 

TN 

DeLe  lard 

9 

N.X5.3 

AND  SUPPLY  AN  INVISIBLE  DIRECTOR  CARD. 

26982 

SWS , ACH2 

9,1 

9.L 

N,X5 

28989 

SWS , ACH3 

9,1 

2 , L 

N,X5 

ALLOW  FOR  A TRANSFERRED  ASSEMBLY  WITH  AN 

26986 

SS 

9,1 

ACH  9 

N.X5.1 

UPGRADED  REVISION  NUMBER. 

2899 

MT 

BLANKS 

6 

N , A J2 , 1 

2850 

TS 

L COMP  NAM 

z,s: 

C , ♦ 3 

2851 

TN 

W PROGRAM 

2 

N *X5  S 

2852 

TN 

W SUBROT I 

2 

N,X5  S 

2853 

SSL,  ONEH 

SWITCH 

39 

C ,-2  C 

2859 

SS 

IN , SH 

C 1 T 9 

N.X5.2 

2855 

TX 

PROG  NAME 

- 

N , X 5 , 1 

2856 

TX 

W BY 

- 

N »X5 « 1 

28562 

SM 

SWITCH 

BIT  12H 

switch 

MAKE  TRANSFERRED  LOOK  HKe  VERSION. 

2657 

TX 

L AUTH  NAM 

- 

Z.AUl 

2858 

TX 

N , AU1 , 1 

_ 

N ,X5 , 1 

2859 

SS 

N,AU1 

B38T96 

Z , AJi 

2860 

TS 

N ♦ AU1 

N.X5 

BIT  13  OfF 

R2861 

a revision 

is  rejected. 

subtract  one 

FROM  THE 

Revision  njmbfr. 

2863 

decreed 

SSL,  TWOH 

9,1 

22 

C,  + l 

SEE  WHETHER  PROO/SUB  HAS  SUBROUTINES. 

2865 

OS*  DaT6H 

9,1 

bit  29H 

9,1 

PROGRAM  OR  SUBROUTINE  WITHOUT  SjBROS. 

2867 

bit  13  OFF 

TS,  B i t 1 3 H 

ZERO 

SWITCH 

INISH  P2 

2868 

sws*thrediih 

9.1 

29 

Z * X9 

2869 

SwS,  ONESH 

N ,X9 

12 

N ,X9 

2870 

DS,  Da16H 

9,0 

BIT  29H 

9,0 

PROGRAM  OR  SUBROUTINE  WITH  SUBRtUtINES. 

2872 

SWS,  ONESH 

N,X9 

36 

N,X9 

2873 

TS 

- 

- 

INISH  P 2 

> 
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p2  874 

assembly  OF 

A new  PROGRAM  OR  SJBRoUtINe,  OR  A WeL 

.-merged  Revision 

OR 

Version,  clean  out  He  Delete  list  and 

,.l 

R2876 

REFJR3ISH  THe  LISTS  Of 

THREADS  TO 

SUBSIDIARY  SUBROUTINES. 

2877 

REAL  ASSY 

TX 

L DIRECTY 

_ 

Z,X6 

J 

2878 

TX 

6,9  ' 

- 

Z , X4 

get  INITIAL  DELETE  THREAD. 

2880 

TS,  CaC3H 

L END  THR 

6,9 

END  DELE  Q 

make  initial  delete  thread  vacuous. 

> 

2882 

mt  delets 

SS 

6*8 

CAC  i2H 

**•1 

thread  from  here  to  next  of  singleton 

288** 

SwS,  cACH' 

Z,X** 

32,i_ 

6,8 

AND  PAIR  THREADS,  AND  POINT  INITIAL 

> 

2886 

SWS , CAC2H 

Z,XA 

1 6 , L 

6,8 

threads  of  those  to  here. 

2888 

wA 

6,8 

BIT  16 

N,Xa 

MAKE  SINGLETON  CONNECTION  WIHI\|  PAIR, 

2890 

SS 

**»1 

THREAD  10 

z,x*, 

FOLLOW  THE  DELETE  THREAD. 

) 

2892 

end  DeLe  q 

NA 

z,xg 

L END  THR 

mt  DeLeh 

BRANCH  IF  MORE  PROGRAMS  TO  DELETE. 

Hi  ,.e 

28938 

SS 

zero 

BIT  13H 

switch 

> 

289** 

TS 

L PROS  f I L 

Z,X1 

WAA  TO  X5 

r 

POINT  TO  PROGRAM  NAME  AND  TO  DATE  AReA. 

2896 

NA,  »ioB12H 

SWITCH 

BIT  10H 

ma<e  thds 

BRANCH  IF  ANYTHING  BUT  REVISION. 

2898 

NA*  Bit25H 

1,1 

ONES  H 

PJT  DATE 

BRANCH  if  no  subsidiary  subroutines. 

> 

2900 

NA*  B i ygH 

Switch 

ONES  H 

C,  + 3 

branch  if  PROGRAM  assembly. 

2902 

tn 

Z,X1 

3 

Z,X2 

distribute  bank  INDICATOR  7. 

290** 

TS 

N »SC , 1 

NO  Mo  SU3S 

*1  SJB  THRDt; 

C 

2905 

TS,  B i t 25 Hi 

zero 

1 * 1 

give  loop 

> 

2906 

WD 

z,csc 

ONE  H 

Z,AJl 

IN  SUBROUTINE  assembly,  THE  0BS3LETING 

2908 

SS 

N,AU1 

CHAR  5H 

C * + 1 

BITS  THAT  are  RELAYED  By  the  SJ3RDUT1NE 

2910 

SWS,  ONEH 

N,X3 

A , 1 

are  SAVED  IN  the  call  BITS  OF  THE  SUBRO 

> 

2912 

wD 

z , SC 

FOJRH 

Z,SC 

c 

NAME  ENTRY,  AND  RESTORED  AT  MA<  =•  THDS. 

R29 1 *t 

destroy  the 

; EXISTING  SUBRO  THREAD 

WORD  TREE  AND  R 

EbJILD  IT  At  MaKe 

thds. 

> 

2915 

GIVE  -OOP 

SWS  * T HRED 1 1 H 

1,1 

2** 

Z , X A 

get  address  of  first  subro  thread  word. 

29162 

SWS,  D**T6  H 

N,XA 

12 

1,1 

SAVE  REVISION  NUMBER. 

> 

2917 

SS 

6,8 

CAC  1H 

N *XA 

2918 

SWS,  CACH 

Z,XA 

32, L 

6,8 

PUT  location  at  head  of  singleton  list. 

2920 

TX 

Z , X*, 

- 

Z,X2 

) 

2921 

HA 

Z , X A 

ONE  H 

Z,X3 

FORM  ADDRESS  OF  OTHER  HALF  OF  => a I R . 

2923 

SWE,  CAC3H. 

N,Xg 

32 

Z , X A 

FOLLOW  THE  SINGLETON  THREAD. 

2925 

LA 

Z,Xg 

L END  THR 

END  51 Ve  Q 

BRANCH  IF  OTHER  MeMBeR  OF  PAIR  OCCUPIED. 

0 

2927 

NA 

z,x<* 

Z , X 3 

C , -2 

2928 

SS 

zero 

ONE  H 

Z ,XA 

other  MEMBER  Of  PAIR  IS  VACANT,  SO  HE 

"> 

2930 

SM 

Z,X3 

one  h 

Z.X3 

pair  must  be  declared  vacant  as  a pair. 

2932 

SS 

6,8 

CAC2  H 

N.X3 

2933 

SWS,  CAC2 HI 

Z,Xg 

16,  L 

6,8 

put  PAIR  AT  head  of  PAIR  LIST. 

) 

2935 

END  olV'E  o 

SS 

N*X2 

THRf Dl 1 H 

z,x* 

FOLLOW  THREAD  TO  NEXT  SUbRO  HRrAD  WORD. 

2937 

NA,  B I T 37  Hi 

2,0 

ONES  H 

GIVE  lDDd  + 2 

BRANCH  If  any  SubRO  thread  WORDS  left. 

) 

2939 

PUT  DATE 

SS 

5,100 

B1T012H 

1,1 

put  packed  revision  date  in  name  entry. 

> 

r\ 


\” 


3 


) 


« 
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P2941 

WHEN  Am  OBSOLETE  PrOjrAm  is  RE Vj  sED  » 

IT  nMOrAlLY  CEASES  ro  RE 

OBSOLETE 

. obsoleting  bits  must  be  remOy^d  from 

R2943 

THE  SJBRO 

THREADS  OE  iHOSt  SU8RuUtINes  THAT  USeD  TO 

Relay  obsolescence 

UP  FROM  A SUBSIDIARY,  SEE  DELETE,  PASS  o 

2945 

TX 

L COMP  naM 

_ 

z,xo 

POINT  TO  COMPUTER  NAME  ENTRY, 

2947 

TN 

Z,X1 

3 

Z,X2 

distribute  bank  indicator  7. 

2949 

SWS,  BIT36H 

1,1 

23 

SWITCH 

TRANSFER  OBSOLESCENCE  bit. 

2951 

SWS,  B1T13H 

SWITCH 

4 

1,1 

PROG/SUB  to  OBSOLESCENCE/OBSOLErING  BIT 

2953 

NA,  B I T 1 3 H 

1,1 

ZERO 

RSUB  TESt 

♦ 1 

BRANCH  IF  SUBROUTINE,  NOT  PROGRAM, 

2955 

NA  » B I T 36  H 

Sw I TCH 

ONES  H 

MAKE  THOs 

IF  THIS  PROG  WASN'T  OBSOLETE,  S<IP  IT. 

2957 

ENDl  REYP 

SWS,THREDi OH 

N ,X0 

12 

Z,X2 

POINT  TO  1ST  PROG  OR  SUB  FOR  MACHINE, 

2959 

NA,  BIT36H 

Sw I TCH 

ONES  H 

L JP2  Re  Yd 

+ 1 

branch  when  ALL  OBSOLeTING  SUBS  MARKED. 

29fal 

TS,  BIT36h 

Zero 

SWI TCH 

LJPl  REYP 

+ 1 

reset  switch  and  start  another  ^ass. 

2^63 

LUPi  R£VP 

SWS’THREDl OH 

2 » 1 

0 

Z,X2 

FOLLOW  THE  THREAD  TO  NEXT  PRuG  3R  SJ3R0 

2965 

LA 

Z ,X2 

L END  THR 

ENDl  RE YP 

BRANCH  AT  ENd  of  pass. 

2967 

SSL,  FqURH 

2 , 1 

33 

LJPl  REYP 

select  on  OBsOLESCeNCe/OBSOLeTHG  bit. 

2969 

TS 

Z,X4 

z,x2 

LJPl  REYP 

+ 1 

SUB  THRDS  exit  WHEN  NO  MORE  iHRrAOS, 

2971 

TS 

C,-l 

NO  Mo  SU3S  ,1 

SJB  7HR0S 

c 

request  presentation  of  subro  threads. 

2973 

WD 

Z,CSC 

ONE  H 

Z , AJl 

2974 

SS 

N,AU1 

CHAR  5H 

C,  + l 

2975 

SSL,  ONEH 

N , X 3 

C , ♦ 3 

SELECT  on  OBSOLETING  BIT. 

2977 

SM 

4,1 

BIT  13H 

4,1 

PLANT  OBSOLETING  BIT  ON  SUBro  NAME* 

29  79 

SM 

Switch 

BIT  36  H 

switch 

demand  that  thdRe  be  another  pass. 

2981 

wD 

z,sc 

S I X H 

z,sc 

c 

ASK  FOR  ANOTHER  SUBRO  THREAD. 

2983 

SSL,  TW0H 

<,,1 

34 

C,-3 

SELECT  ON  OBSOLETING  BIT. 

2985 

OBSLI  NG  Q 

SWS,lHREDllH 

2,1 

24 

Z,X3 

MAYBE  get  ADDRESS  OF  1ST  SUB  THREAD  WD. 

2987 

NA,  B i J25  Hi 

2,1 

zero 

C , + 2 

branch  if  it  really  was. 

2989 

SS 

z, SC, 7 

BIT  13H 

2,1 

clear  OBS  bit  AND  JUMP  TO  LUP2  REYP. 

2991 

SS 

zero 

B24336 

N,X3 

THIS  SUBROUTINE  NO  LONGER  OBSDL^TeS  ANY 

2993 

SSL*  ONEH 

N ,X3 

11 

C , + 1 

program,  so  remove  all  obsoleting  bits 

2995 

TS 

Z , SC , 2 

- 

OP  THREAD 

c 

from  ITS  subro  call  threads. 

2997 

SWS , ONEH 

Z , SC , 3 

16 

N,X3 

end  HERE  IF  ONLY  ONE  SUB  THREAD  WORD. 

2999 

TS*  B 1 2 24  3 bH 

Zero 

3 ’ 0 

op  thread 

c 

clear  obs  bits,  get  next  thread  word. 

3001 

SSi  , TwOH 

N,X3 

10 

C»-l 

select  ON  lAST-THREAd-WORd  bit. 

3003 

SS 

Zero 

12(12)48 

N,X3 

clear  obs  bits  of  last  thread  word. 

3005 

LUP2  REYP 

SWS'THREDlOH 

2»1 

0 

Z,X2 

FOLLOW  THREAD  to  NEXT  PROG  OR  SJBRO. 

3007 

la 

Z,X2 

L end  thR 

MAKE  Thjs 

branch  when  all  subros  have  beem  tested. 

3009 

NA,  B I J 36 H‘ 

2,1 

ONES  H 

LJP2  REYP 

if  program,  look  again. 

3011 

SSL,  7W0H 

2,1 

34 

OBSLlNo  Q 

SELECT  ON  OBSOLETING  BIT. 

« 


p3013 
R 30 1 5 

3016 

3018 

3020 

3021 
3023 

3025 

3027 

3028 


3030 

3031 
3033 


3035 

3037 


R3039 

3041 


3043 

3045 


30462 

3047 

3049 

3050 

3052 

3053 
3055 
3057 
3059 
3061 

3065 
3067 
3069 
3071 
30  n 

3075 

3077 


3079 
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SU3R3JMNE  IN  PASS  1.5  TO  PRESENT  in  tMe  SUSRoJtINe  CALL  THREADS  of  tHe  PROGRAM  or  SUBROUTINE  WHOSE  MAMe  is 


INITIALLY 

pointed  TO  BY 

X2. 

SUB 

THRDS 

SWS«ThrEDUH 

2*1 

24 

z,x3 

c 

maybe  get  address  of  ist  sub 

THREAD  WO. 

NA.  tJ  I T25  H 

2,1 

ZERO 

A THREAo 

c 

BRANCH  IF  IT  REALLY  WAS. 

TS 

- 

- 

NO  MO 

SJhS 

c 

OP 

thread 

SWS, THREOl 1H 

N,x3 

0 

Z , X3 

c 

follow  thread  to  next  subro 

f H ^ £ A 0 WORD. 

sws.thredidh 

N.X3 

36 

Z,X4 

s 

PRESENT  OP  CODE  THREAD. 

A THREAD 

SWb’THREDlOH 

N.X3 

24 

Z , X4 

s 

present  a address  thread. 

NA.  t5 1 t 1 3 H 

3,0 

ZERO 

NO  Mo 

S JhS 

c 

SWS . 1 HREO 1 DH 

n,x3 

12 

Z.X4 

s 

present  b address  thread. 

NA»  BIT25B 

3,0 

ZERO 

NO  MO 

SJrS 

r 

NA,  BIT37H 

3,0 

ones  h 

OP  thread 

r 

L. 

branch  If  there  is  another  thread  wd. 

SWS.THREDlOH 

N , X 3 

0 

Z,X4 

s 

PRESENT  c address  thread. 

NO 

MO  SUBS 

sws.thredidh 

2»1 

0 

Z,X4 

c 

tentatively  follow  thread  to 

next  pr/su. 

PR 

(TO  BE  FILLED  in  ON  INITIAL 

call) • 

LOOP 

JO  MARK  t hose  p r o°i 

RAMS  AND 

subroutines  that 

CALL  tHe 

S JrRqUt 1 Ne 

Being  revised,  direcjly  or  indirectly. 

SWS.THREDlOH 

N.XO 

12 

Z.X2 

THREAD  TO  FIRST  PROG  OR  SUb  OF  MACHINE. 

RSJB 

-.OOP 

TS 

N , SC , i 

NO  Mq  SUBS 

*1  SJB  THROA 

C 

ASK  FOR  presentation  OF  SUBko  threads. 

TS 

Z ,X4 

Z.X2 

RSUB 

TESt 

(disposition  when  threads  run  djtj. 

TX 

Z.X2 

Z,X4 

L 

ASK  FOR  ANOTHER  THREAD. 

NA 

Z.X4 

COMMON 

C,-l 

BRANCH  IF  CALL  IS  NOT  FOR  THIS  SU3R0. 

wD 

Z.CSC 

ONE  H 

Z,X4 

WD,  CHAR5H 

B25T26 

4,0 

C,*l 

reverse  direction  of  shift. 

SWE.  ONESH 

one  h 

COMMON  +1 

SM 

N.X3 

COMMON  +1 

N,X3 

PLANT  OBS  BIT  IN  SUBRO  THREAD  W3RO, 

SM 

2,1 

BIT  13H 

2,1 

PLANT  OBSOLESCENCE/OBSOLET ING  BIT. 

NA.  tB  I T 36  H 

2,1 

zero 

RSUB 

LOOP 

♦ 2 

BRANCH  IF  PROCESSING  A SUBROUTINE. 

SM 

2,1 

ONE  H 

2,1 

SAVE  OBS-RELAYING  BIT  FOR  MAKE  fHOS. 

TS,  B I j 1 3 H 

ones  h 

SWITCH 

RSUB 

LOOP 

♦ 2 

SHOW  THAT  SOMETHING  WAS  OBSOLETE. 

RSJB 

test 

NA 

Z,X2 

L END  THR 

RSUB 

LOOP 

branch  if  there  are  more  progs  3r  subs. 

SWS.THREDlOH 

N,X0 

12 

Z,X2 

THREAD  to  FIRST  PROG  or  sub. 

NA,  H 1 363 6 H 

2.1 

ONES  H 

C , + 3 

branch  IF  NOT  AN  OBSOLETING  SJBtoJTINE. 

HA 

2,1 

BIT  13H 

2,1 

REMOVE  OBSOLETING  BIT  FROM  SU1BR3  NAME. 

TS 

Z.X2 

COMMON 

RSUB 

LOOP 

-1 

SAVE  SUBRo  NAMe  ADR,  LOOK  FoR  CALLERS. 

SWS, THREDIOH 

2»1 

0 

Z,X2 

FOLLOW  THREAD  TO  NEXT  PROG  OR  SJBRO. 

NA 

Z ,X2 

L END  THR 

RSoB 

test 

♦ 2 

branch  Ip  there  are  more. 

TS,  B I J36  H 

ONES  H 

switch 

ENDi 

RE  VP 

SUBS  NOT  TREED  TO  PROGS  OBSOLETE  NOBODY 
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P30B1  every  assembly  except  reprint  or  bad  merge  comes  here  to  get  a tree  of  subroutine  thread  words  made  up. 


3083 

MA<E  THDS 

TS 

L SYM  THR 

Z , X 5 

FIND  SLOt  -2 

c 

SET  X5  AND  CSC. 

3085 

SET  0 THRD 

SWE’OtHRDiiH 

N ,X2 

12 

N.X3 

£ 

MOVE  C THREAD  OF  LAST  WD  TO  OP  THREAD. 

3087 

SS 

Z »X3 

thred  1 1 h 

N,X2 

c 

THREAD  LAST  WORD  TO  THIS  ONE. 

3089 

SM 

N,X3 

B132537 

N,X3 

c 

TENTATIVELY  PLANT  LAST-THREAD  SITS. 

3091 

SWS«ATHRDl 1H 

N,X5 

2A*L 

N,X3 

s 

plant  a address  thread,  exit. 

3093 

HA 

N*X3 

BIT  1 3H 

N * X3 

c 

remove  last-thread  bit  from  a field. 

3095 

SWS.BThRDI 1H 

N,X5 

12  * L 

N,X3 

S 

plant  B-AddRESS  THREAD,  exit. 

3097 

HA 

N,X3 

BIT  25H 

N,X3 

c 

REMOVE  LAST-THREAD  Bll  FROM  b FjeLD. 

3099 

SWS.THREDl 1 H 

N,X5 

0 

N,X3 

s 

plant  c-address  thread,  exit. 

3101 

TS 

Z,X3 

z.x2 

Find  slot 

c 

this  WORD  WILL  BeLoMe  LAST  WORD. 

31022 

eba 

5,13 

BIT  25 

Z,X5 

c 

3103 

TS 

- 

- 

ANY  SJBS  Q 

s 

get  address  of  head  of  subro  directory. 

3105 

FI  NO  SLOT 

SWE,  CAC3 Hi 

6,8 

32 

Z,X3 

c 

point  to  head  of  singleton  list. 

3107 

NA 

Z,X3 

L END  THR 

NOT  ADD  , 

c 

branch  IF  THERE'S  an  internal  s.ot. 

3109 

TX 

6,8 

_ 

Z,X3 

c 

make  a vacant  pair  at  end  of  directory. 

3111 

EX 

6,8 

CAClH 

3*1 

c 

2ND  WORD  OF  THAT  GOES  TO  HEAD  0-  SLOTS. 

3113 

wA 

6,8 

ONE  H 

6,8 

c 

3 1 1 A 

SWS.CaCIH 

6,8 

32, L 

6,8 

c 

MODIFY  POINTER  OF  SINGLETON  LIST. 

3116 

WA 

6,8 

ONE  H 

6,8 

c 

FINISH  EXPANDING  DIRECTORY. 

3118 

TS 

- 

- 

NEw  S 1 w 0 

c 

3119 

NOT  A OD  1 

SS 

N » X3 

CAClH 

6,8 

c 

detach  slot  from  singleton  list. 

3121 

EX 

Z,X3 

CAC3MI 

Z , A J 1 

c 

FORM  ADDRESS  OF  PAIR  THAT  INCLUDES  SLOT 

3123 

TS 

DIRWORDb 

Z , A J2 

NEW  ST  wO  -1 

c 

we  must  see  if  slot  is  in  vacant  pair. 

3125 

PAIR  5RCH 

SWE*  CAC3H 

N,AU2 

16 

Z , A J2 

c 

FOLLOW  THREAD  TO  NEXT  VACANT  PAIR. 

3127 

la 

Z , AU2 

L END  ThR 

NEW  STwO 

c 

BRANCH  if  SLOT  was  not  part  of  a pair. 

3129 

NA 

Z,AU2,l 

Z,AJl 

C,  + 3 

c 

BRANCH  IF  SLOT  NOT  PART  OF  THIS  PAIR. 

3131 

SS 

N,AU2 

CAC2  H 

N,CSH 

c 

detach  pair  from  pair  list. 

3133 

TS 

- 

_ 

NEW  STwO 

c 

3 1 3 A 

TS 

Z,AU2 

z,csc 

pair  srcw 

c 

save  ADDRESS  ok  PAIR  AND  TRY  NEXT  ONE. 

3136 

NEW  STwO 

SWE  * B1T012H 

1*1 

1 2 * L 

N,X3 

L 

MOVE  REVISION  NO.  TO  1ST  SUB  HREAD  WO. 

3138 

SS 

BIT  25H 

bl3  b25 

1,1 

c 

CLLAR  OBS  BIT,  SET  SUbROS  Bll. 

3 1 AO 

SWS , ATHRD 1 1 h 

Z,X3 

2A*L 

1,1 

c 

PLANT  THREAD  TO  1ST  SUBRO  THREAD  WORD. 

3 1 A2 

TS 

C,  + l 

NEW  STwD 

set  0 thrd  *2 

c 

CHANGE  NEW-WORD  RESPONSE. 

3 1 A A 

TS,  BIT37-I, 

zero 

2*0 

SET  0 THRD 

c 

remove  last-thread  bit  from  c field. 

31A8 

DIR  CALL  0 

NA,  B I ] 32 H. 

5*0 

ONES  H 

0 , ♦ 3 

BRANCH  IF  CALL  IS  NOT  DIRECT. 

3150 

TX 

N.X5 

Z ,XA 

3151 

SS 

A , 1 

ONE  H 

N,X5 

c 

set  obs  relay  bit  for  subro,  plant  thrd 

31522 

SS 

ZERO 

ONE  H 

N ,X5 , 1 

3153 

EX 

N,X5 

CAC3H 

E TS 

FOLLOW  thread  IN  SUBROUTINE  DIRECTORY. 

315A2 

EBA 

El  S 

BIT  25 

Z,X5 

3 1 5 A A 

ANY  SJBS  U 

NA 

N,X5 

ONES  H 

DIR  CALL  0 

BRANCH  IF  NOT  ALL  OF  DIRECTORY  DONE. 

1 
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P3155 

IN  program  assembly 

. make 

program  first 

IN  COMPUTER'S 

LIST. 

IN  subroutine  assembly,  rethreA}  the 

R31552 

subroutine 

TO  PRECEDE  the  SUBROUTINE 

whose  name  is 

in  next  name, 

OR  TO 

come  last  if  (Next  name)  = "end  syltm. 

R 3 1 554 

these  things  are  done  here  to 

Bt  SUR 

e of  no  bad  me 

RGE. 

3156 

BEFORE  CH 

TX 

L COMP 

NAM 

z.xo 

3157 

TX 

L PROG 

FIL 

- 

Z.Xl 

3158 

TN 

Z,xi 

2 

Z.X2 

distribute  bank  indicator  7. 

3160 

SWS»THREDlOH 

N,XO 

12 

Z.X2 

point  to  first  program  of  computer. 

3162 

NA 

Z,X2 

L PROG  FIL 

UNDO  MAIn 

branch  if  not  prog  or  sub  in  assembly. 

3164 

NA,  B1T9H 

Switch 

ONES  H 

INISH  ?z 

exit  IF  PROGRAM  IS  ALREADY  FI RS f , 

3166 

SWS»BtHRDiDH 

2 » 1 

12»L 

N.XO 

detach  subroutine  from  head  of  _ i st . 

3168 

TS 

- 

- 

GET  NEXTn 

3169 

TX 

Z,X3 

_ 

Z.X2 

advance  pointer  pair  thru  subro  list. 

3171 

UNDO  'IAIN 

SS 

2 , 1 

THRED  10  H 

Z , X3 

S 

point  to  next  prog  or  sub. 

3173 

NA 

Z,X3 

L PRgG  FIL 

C.-2 

BRANCH  IF  NOT  PROG  OR  SUB  In  ASSEMBLY. 

3175 

SS 

3,1 

THRED  10  H 

2,1 

detach  it  and  sew  up  the  thread. 

3177 

NA  , B I T9H 

Sw I tch 

0NE5  H 

head  list 

go  to  put  program  at  head  of  list. 

3179 

GET  NE*TN 

sws.ihredidh 

N,Xq 

12 

z,x3 

point  to  first  other  prog  or  sj3  of  com. 

3181 

LA 

Z,X3 

L END  THR 

head  list 

branch  if  list  is  now  empty. 

3183 

NA 

N,X3 

NEXT  NAME 

nextn  ljp 

branch  UNLESS  first  PROG/SUB  IS  NeX  sub. 

3185 

HEAD  LIST 

sws*thredidh 

N * XO 

12 

1,1 

3186 

SWS’BThRDIOh 

L PROG 

FIL 

12.  L 

N.XO 

REThREAD  PROG/SUB  AT  head  of  L I ST . 

3188 

TS 

- 

- 

INISH  P 2 

3189 

NEXTN  LUP 

TS 

Z,x3 

z,x2 

undo  main 

c 

advance  search  For  successor  subroutine. 

3191 

LA 

Z,X3 

L END  THR 

G.  + 2 

MUST  have  been  END  IF  DIDN'T  F HD  IT. 

3193 

NA 

N , X3 

NEXT  NAME 

NeXTN  lup 

BRANCH  IF  DIDN'T  FIND  SUCCESSOR  SUBRO. 

3195 

SS 

2.1 

THRED  10  H 

1,1 

rethread  subroutine  to  precede  its 

3197 

SS 

L PROG 

FIL 

THRED  10  H 

2,1 

IMPLICIT  OR  DESIGNATED  SUCCeSSO-i. 

l 

eYUL  SYSTEM 

ASSEMBLER  — 

pass  2 

P3200 

INITIALIZING 

PrOCEOJkE  for 

pass  2. 

r3202 

loads  the 

SPECIAL  PROCESSING  ANU  cussing  3ARtS, 

32032 

MAS<GrP 

s.o 

F , 0 

32  0 A 

INI  SH  P2 

TS 

L STOPPtR 

Z.X2 

3205 

RF  * 2 

2,0 

- 

32062 

ss 

Pass  3 

C1T3 

3206A 

S»  PH I LOAD 

P 2 SIDE  GP 

1 

3207 

TS 

L CUS  LIST 

Z,Xi 

3208 

TS 

L B2  START 

Z , X 6 

3211 

TS 

Z.AUl 

Z,x5 

3213 

TS 

Z.AUl 

L WO  BUFF 

3215 

RF.2 

- 

- 

3216 

wA 

L WD  BUFF 

C25  9 

3217 

TS,  BitaA 

ONES 

SWl ICH 

32182 

RF , 3 

2,0 

- 

3219 

MT 

N.SC.l 

2 

3230 

SPEC  *B7 

3231 

SPEC  *B7 

3237 

get  parp 

TS 

L COMP  NAM 

z,x6 

3239 

SWS.THREADlO 

6,1 

2 A 

32  A 1 

TX 

CHAR  1 

_ 

32  A3 

SS 

N,X6 

AV  MSK 

32A5 

SWE.  Cl TA 

A V MS< 

A , 1 

32  A7 

NA*  Ay  MS 0 

6,0 

BLANKS 

32  A8 

TS 

BIT33 

Z.R3 

3250 

NA.  Bit  9 

SWITCH 

ZERO 

3252 

SWE.  CAC3 

L PASS  2 

16 

32  5 A 

EX 

N , AU1 

CAC  3 

3256 

TS 

zero 

merj  wait 

3258 

SU3RA5SY 

SW£  ♦ SPEC  *1AG 

L PASS  2 

32 

3260 

TX 

N , Sc  , 1 

- 

3262 

TS 

- 

- 

32622 

TX 

N.SC.l 

- 

32  62  A 

TS 

Z.SC.7 

Z , S H 

3263 

TX 

C , +2 

m 

3265 

TX 

N , SC  , 1 

- 

3267 

TS 

- 

- 

3268 

RD  PO^O  1 

TS 

Z,X5 

POPO  BUFF 

3269 

RF.2 

5,0 

- 

3271 

TX 

zero 

32  7A 

s,  ph i load 

parp  name 

1 

1 
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HRTS  RD3  AND  WR1,  GRaBs  BUFFERS  FOR  POPOS  ANU  WORDS,  A\|D 

Cabling  on  the  latter  to  unscramble  the  cuss  list. 


PHI  TAPE 

DISASTER 

BYPAss  LABEL  ON  POPO  TAPE. 

P 2 SIDE  r,P 

SELECT  VERSION  OF  YUL  SYSTEM. 

C,*l 

RESET  MXo 

c 

GRAB  FREE 

c 

grab  a buffer  FUR  POPOS. 

grab  fref 

c 

GRAB  a buffer  for  WORD  RECORDS, 

phi  tape 

s 

disaster 

WBUF  FJLi 

PHI  TAPE 

TURN  ON  PRINT  SWITCH  FOR  MAIN  PART. 

DISASTER 

BYPASS  LAbEL  ON  SAVE  TAPE. 

N , X 6 , 3 

SET  UP  PARAPROGRAM  STARTS. 

1159 

1155 

MoN  WA<E 

c 

point  to  computer  name,  start  3araprogs. 

Z,X6 

address  of  prefix  for  partic.  r<\ss  name. 

Ay  Mb< 

move  LEADING  NoN-BLANK  characters  of 

PARP  NAMf 

referenced  computer  name  to  form 

Ay  Ms< 

complete  name  uf  particular  pass  2. 

C ,-2 

UN  LAS  RpM 

£ 

initialize  count  of  word  records. 

sjbrassy 

branch  if  assembling  a subroutine. 

Z.AJl 

point  to  ad  hoc  subro  directory  origin. 

L NEXT  Si iB 

point  to  ad  hoc  entry  of  first  subro. 

RD  POPD  i 

KNOCK  OUT  MERGE  WAIT  IF  ASSEMBLING  PROG. 

L NEXT  SUB 

OTHERWISE  point  to  END-OF-THREAO  signal. 

HEAlTHI  +1 

DON'T  CUSS  NEAR-DEFINITION  IN  SjBRO  ASSY 

HE ALT  H 3 

ASYM  F 1 T 7 

NOR  UNDEFINED  SETLOCS 

FITS  FITZ 

c 

STATEO  +1 

NOR  UNDEFINED 

STATEl 

NOR  NEARLY  DEFINED  SYMBOLS. 

NO  ADRESS 

phi  tape 

DISASi ER 

read  first  popo  record. 

ERR  PAGES 

end  I N I T 2 

load  particular  pass  2 for  this  machine. 

L @YUL  SYSTEM  ASSEMBLER  --  PASS  2 

P32755  FINAL  PASS  2 INITIALISATION*  HIDING  IN  A SUFFER. 


32  76 

SETLOc.l 

HEALTH 

3277 

END  INIT  2 

TX 

L CUS  LIST 

Z.AJ1 

3278 

TX 

BANK  5 

- 

Z.AJ2 

3279 

TS 

M MXR 

Z * MXR 

N.AJ2.6 

3281 

TX 

ONES 

- 

N * A J1 

3283 

RESET  MXR 

TX 

Gc.NL  MXR 

- 

Z.mxr 

32832 

wA 

BIT  33 

ONE 

Z * R6 

328  A 

TS 

L LINE 

Z.XD 

PASS  2 

SE3BRK 

END 

yul  pass  2 

general 

USER'S  OWN  PAoE  NO.  67 


PAGE  67 


C COOING  IN  BANK  5 PUTS  CONVERTED  CJSSLIST 
INTO  THE  FIRST  6A  WORDS  OF  BANK  2. 

S 

INITIALIZE  PROGRAM'S  RECORD  COJnT. 


PAGE  «>8 


YUL  SYSTEM  ASSEMBLER  PARA  PA5S  2 


USER* 5 OwN  PAGE  NO.  1 


R?300  AbblbWHbWIb.  GUNS  | ANT  St  ANL)  IN1|TaLU1NG  P0K  HA-.S  2 MAKAWUWAHb.  wTaKE  lHut*W  *»  »»»»>•  JU  UUH*  oHA.  FOR 
R330O2  JSOcTL 


3301 

3302 

3303 

3304 

3305 

3306 


SETLCC  i 2 

NEXt  NAME  ASSIGN 
SWITCH  ASSIGN 

KID  POINT  assign 
t SyLT  ban  assign 
COMPUTER  assign 

ZERO  assign 

blT  45  NOT  ASSIGN 


1152 


6,1 
6,2 
6, AO 
6,43 
-6.53- 


3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 
332  1 


SYPT  ntky  ASSIGN 

l CuS  list  assign 

GENL  MXR  ASSIGN 

CONTINUE  ASSIGN 
KAY  MERGE  ASSIGN 
end  PARAS  ASSiGN 
LYSt  SYPT  ASSIGN 

LISaSTEK  ASSIGN 
CSC  SLEEP  ASSIGN 
PELS  OR  Kw  ASSIGN 
grab  FRtL  ASSIGN 


6,76 


6.78 

6.79 


3322  IREe  NTKY  OCT 

3323  K ENO  SYLT  ALF 

3324  l bank  i spec*bi 


-133760 
END  SYLT 


DAMN  ZtRO 


3325 

3327 

3329 

3331 

3332 

3334 

3335 


BASS  2 GPC  TX 
TS 
SM 
TS 


F A S s 2 GPb 
LD  Xl 


TX 

TX 

PA 


L SANK  1 
SYPT  NTRY 
MID  sOINT 
GENL  MXR 


Z,R1 


L BANK  1 
L CJS  LIST 
GENL  MXR 


BIT  33 
Z ,MXR 


ONE 


LD  XI 
Z,X4 

rfRl  BEGIN 

Z,X6 
Z,X1 
Z ,'MXR 


INITIAL  COOING  for  wRl  IN  GROUP  C< 
C SET  UP  SYPT  LIST  ENTRY  POINTER. 
Form  record  count  fur  yulprqgs. 


INITIAL  CODING  FOR  RD3  in  group  b. 

use  same  s,  inverse  f as  group  a. 


n 


10 

V 


L Y'UL  SYSTEM  ASSEMBLER  PARA  PASS  2 USER'S  OwN  PAGE  NO*  2 PAGE  69 


P33 37  (■  aRaPROORAM  RD3  --  PASS  2 --  GROUP  B 

R33  38  

R3339  this  parapkogkam  operate^  in  group  e during  pass  2 and  reads  syptsaves  and  syltsaves  from  iape  3. 

R33 !,  1 iaP(.  3 is  rewound  or  released  after  end  sylts  are  read,  pass  1 sets  nextname  to  the  name  of  the  program  whose 

r 3 3 a 3 first  reuord  may  not  be  delivered  to  wri  until  all  of  the  main  part  of  the  program  being  assembled  has  been 

R3345  delivered,  merj  wait  is  a sleep  order  in  pass  2 ustD  in  subroutine  assembly  to  prevent  delivery  of  any  main 

R33A7  SYLt  UNTIL  ALL  PRECEDING  SYlTSAVeS  HAVE  BEEN  DELIVERED.  CONTINUE  IS  CHANGED  TO  A PROCEED  AS  SOON  AS  ALL  MAIN 

R33 A9  SyPtS  OR  SYLTS  have  been  delivered  to  wri. 


J 

) 


3350 

3351 

3352 

CH 

nex  buf 

T5 

TS 

RF,3 

Z . X2 
Z.AJi 
2,0 

Z,X3 

Z.X2 

GRAB  FREE 
PHI  TAPE 
DISASTER 

A. 

READ  A SAVED  SYPT  OR  SYLT  ReCURD. 

33  5 A 
3355 
3 3^7 

CH 

r E M bUF 

TS 

SSL.  ONE 
TS 

FREE  EXIT 
N , RA 
N,RA 

Z.RA 

16 

Z ,X3 

C . + 1 

GRAB  REMO 

BRANCH  IF  THERE  are  NO  MOkE  free  BUFFERS 

3358 

LA 

Z , X 3 

ZERO 

CHECK  tOF 

GIVE  UP  AFTER  TWO  FAILURES* 

3350 

TS 

ZERO 

Z.X3 

PHI  TAPE 

3351 

3353 

RF,3 

TS 

FREE  EXIT 

Z , R A 

DISASTER 
CH  REM  EUF  *1 

STALL  FOR  NE*T  BUFFER. 
TRY  AGAIN. 

3355 

3357 

GRAB  R£MO 

TS 

TS 

Z,SC 

Z,AU2 

GRAB  FREE  +5 
PHI  TAPE 

r' 

GRAB  BUFFER  l-UR  REMUTt  RECORD* 

3358 

3359 
3371 
3373 
33  7A 

CHECK  EOF 

RF  * 3 

NA 
1 A 

3.0 

^♦1 
7 . X 3 

W END  SYLT 
ZERO 

DISASTER 

CHEK  NEXT 
CHEK  NEXT  -3 
PHI  TAPE 
DISASTER 

BRANCH  IF  NOT  END  oF  SYPT  OR  syLT. 
BRANCH  IF  THERE  IS  NO  REMOTE. 

T5 

RF  ,3 

3375 

TS 

Z , X 3 

Z , SH 

FREE  BUFF 

c 

FREE  REMOTE  BUFFER. 

3377 

3378 
3380 

3331 

TX 

SSL.  ONE 
RW,3 

“na 

DELIVER  +3 

switch 

AA 

DELIVER  +1 
rels  or  rw 

c 

RELEASE  OH  REWIND  TAPE  3,  AS  REQUIRED. 

CHEK  NEXT 

2.1 

NEXT  NAME 

deliver 

bKANCH  IF  we  MAY  DELIVER  SAVES  HOW. 

3333 

LA 

N , X 2 

C5T8 

C , ♦ 2 

ASSUME  AGREEMENT  IF  NU  COMPUTER  NAME. 

3335 

3337 

3339 

3391 

3392 

NA,  C 1 T A 

TS 

TS 

TS 

LA 

2,0 

zero 

EOR 
C AC  3 

COMPUTER 
MAY  MERGE 
NEXT  NAME 

continue 

DELIVER 
MON  WAKE 

C , *2 

MON  SLEEP 
C.-l 

c 

bRANCH  TO  DELIVER  IF  WRONG  COMPUTER  NAME 
PERMIT  DElI VtRY  OF  MAIN  SYLTS  FROM  YP2 * 
ENSURE  DELIVERY  AFTER  THIS. 

- 

3393 

3395 

3397 

3399 

deliver 

TS 

LA 

TS 

TS,  C 1 T A 

Z , X2 
Z,X3 
z , x 3 
zero 

Z,AU2 

zero 

Z,X2 

END  PARA5 

LYS[  STH 
CH  NEX  BUF 
CH  REM  BUF 
DEAD  5T0P 

-T.  - 

PUT  BUFFER  INTO  SYPT  STATUS. 
bRANCH  IF  THtRE  IS  NO  REMuTE. 
REMOTE  BUFFER  bECOMtS  NEXT. 
(REPLACES  DEUVEK.l  AT  END). 

10 


t YuL  SYSTEM  ASSEMBLER  PARA  PASS  2 USER'S  OwN  PAGE  NO.  3 PAGE  TO 

33A01  FARaPROGRAM  WRl  — PASS  2 --  GROUP  C 
R3A32  


8 

R3A03  THIS  PARAPROSRAM  OPERATE^  IN  GRoOP  C DURING  PASS  z AND  WRITES  SYPyS  AND  SYLtS,  WITH  THeIR  tND-OF-F I Le  « 

R3A0S  FeCoRDS.  ON  TAPE  1.  WRI  RE-BANNERS  THE  RECORD5  ^ WRITES,  USING  ITS  Z,XA  WHICH  MUST  B£  INITIALISED  FROM  THE  Tot 

R3A07  MIDPOINT  NUMBER  KEPT  IN  PASS  1.  it 

- = ' " ' 

3A3ri  '0  SYP  EOF  TS  Z ,X2  Z,X3  CflEK  SYPT  LAST  BECOMES  REMOTE • 


3A10  TS  - 

3 A 1 2 CHEk  SYPT  WA  R,RI  ZERO 

ftf^  ^ SM  Z , K 1 "BIT  ~A6  = 

3 A 1 9 RT  2,6 

3A21  AO  Z , A J 1 THREE 

3 A 2 3 SS  Z , x a , 1 SPEC  MAG 

3A25  CC  n,X2 

3A27  NA,  BIT II  SWITCH  ZERO 

3A29  TS,  CHARS  ONE  0 

3 A3 1 wF , i 2,0 

3A33  uA  Z,X3  ZERO 

3A35  TS  Z , X3  Z , SH 

3 A 37  NA  2,1  w END  SYLT 


MON  SLEEP 
WRl  REMOT 
Z ,X2 

MON  WAX  t 
Z , R 1 

Z , CSH 
N,X2 


C..3 

PH'I  TAPE 
DISASTER 
C,+2 

FREE  bUFF 
NO  SYP  EOF 


C 


SLEEP  UNTIL  SOMEBODY  PREPARES  A RECORD. 
BRANCH  IF  NO  RECORDS  K£AdY • 

REMOVE  BJFFER  FROM  SYPT  STATUS. 

MODULATE  sYPT  LIST  EXIT  POINTER. 

FIND  THE  END-UF-RECURD  WORD. 

dACX  UP  TJ  JRIHOWOKP  I.  

insert  new  record  count  in  banner  word. 

CORRECT  ORTHOWORD  FUR  NEW  BANNER. 

NO  WRITE  IF  REPRINT  OK  BAu  MERGE. 

ENSURE  THAT  BACKUP  IS  MADE  AT  eNdjob. 
MAIN  WRITE  ORDER  FOR  WRl, 

BRANCH  IF  THERE  IS  NO  REMOTE* 

FREE  REM01E  BUFFER. 

BRANCH  IF  THAT  WAS  NOT  END  SYLT. 


z 

3A39 

NA,  B I T 1 1 

switch 

ZERO 

C * + 3 

NO  WRITE  IF  REPRINT  OK 

BAD  MERGE. 

o 

3*Al 

TS 

- 

- 

PHI  TAPE 

3H2 

3AA3 

3A<t5 

3AA7 

WF  , I 

TS,  CSTH 

Z , X 2 
Z , XA 
ZERO 

Z , SH 

END  PARAS 

DISASTER 
FREE  BUFF 
E5YLT  PAN 
DEAD  STOP 

C FREE  END  SYuT  BUFFER. 

SAVE  SERIAL  NUMBER  FOR 

PASS  3. 

3H8 
3A50 
3A52 
3 A 53 
3 A55 
3 A57 

WRl 

remot 

LA 

NA,  BITI1 
TS 

Z,X3 
SwI TC  H 

zero 

zero 

WRl 

begin 

wr  , i 

TS 

TS 

Z , X 3 
ZERO 

Z , SH 
Z,X3 

CHEK  SYPT  -I  GO  TO  SLEEP  IF  THgRt  IS  NO  REMOTE* 

C , + 3 NO  WRITE  IF  REPRINT  OR  bad  mE«GE* 

PHI  TAPE 

DISASTER  STALL  FOR  REMUTE. 

FREE  BUFF  C FREE  REMOTE  BUFFER. 

CHEK  SYPT  TRY  AGAIN  AFTER  STALLING. 


R3<*59  SEOUENCL-TO-COSE3UENCE  SUBROUTINE  TO  FREE  THE  BUFFtR  WHOSE  NAME  IS  IN  SH*  AND  WA*c  JP  ANY  SLEEPERS. 


3 AS  1 
3AS3 

free  buff 

TS 

TS 

FREE  NTRY 
Z , SH 

Z ,R A 
N , RA , 1 

- 

W 

GET  FREE  wIST  ENTRY  POINTER. 

PUT  BUFFER  NAME  INTO  FREE  LIST. 

3A65 

EX 

Z,RA 

BIT  AS  NOT 

FREE  NTRY 

c 

MODULATE  FREE  LIST  ENTRY  POINTER. 

3A67 

TS 

z*sc 

Z,CSC 

MON  WAXE 

c_ 

WAKE  SLEEPERS  AND  EMT. 

R 3 A 59 
3A695 

FINaL  STOP 

dead  stop 

FOR 

PR 

paraprograms. 

EXTRA  HUNT  FUR  MONITOR  PECULIARITY. 

3 A 70 

TS 

Z ,R0 

Z,SC 

MON  WAXE 

c„. 

t 


yuL  SYSTtM  ASSEMBLER  ASC4  PASS  2 
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PAGE  U 


* 


'Coo 0001  *E  are  DlerlY  INDEBTED  10  HE  ONE,  THe  ONLY,  IhL  GKEAT  JOHN  $HA„  FOR  THe  FOLLOWING  STRONG  MAGIC.... 

R0002  JSOcTL 

6 

0003  5ETLCC.2  S1Z  PASS  2 B1  7 : > 

- _ : jii 

0034  MA5KGRP,**  S,1  F , I 

R0035  THE  AGC4  PART  OF  PASS  2 LONTAINS  THE  CUSS  LIST  AND  CUSSES  FOR  AGCa , TOGETHER  WITH  CODING  TO  PLANT  A 

R0037  f1  OD I F I ED  CJSS  LIST  AT  T HE  BEGINNING  OF  BANK  2*  AND  CODING  10  PROCESS  INSTRUCTIONS  A\|D  CLtRILAL  CuuES  FjR  AGC4, 

R0039  THE  LUSS  LIST  AND  CUSSES  ARE  LOADED  INTO  BANK  s ALONG  WITH  CODING  TO  CONVtKT  THE  CUSS  LIST  FROM  THe 

R0011  following  mixed-constant  format: 

R0012  CP  code:  FOR  each  of  3 CUSSES,  A POISON  BIT  AND  A 3-BIT  LUSS  LENGTH, 

R0013  A ADDRESS:  3tMAND  BIT  AMD  SJzjADDRESS  OF  CUSS  1,  

R 30 1 4 e ADDRESS:  DEMAND  BIT  and  SJBADDRESS  OF  CUSS  2, 

R 30 1 5 c ADDRESS:  DEMAND  BIT  and  SJBADDRESS  OF  CUSS  3 

R 30 1 6 TO  A CAC-WORD  FORMAT  IN  WHICH  EACH  LAC  CONTAINS  THe  D'eMA'ND  BIT,  POISON  BIT,  LENGTH  AND  SUBADDKESS  OF  A CUSS. 

ROOia  THE  CONVERSION  IS  REQUIRED  ONLY  to  make  USE  of  EXISTING  MASKS  IN  GENERAL  pass  2. 

R0020  THE  PROCESSING  CODING  IN  THE  BANK  1 PORTION  OF  AGC4  PASS  2 HAS  THE  FOLLOWING  FUNCTIONS: 

R0022  U FOR  all  WORDS,  TO  Set  in  PRINT  ThE  WORD  AND  Its  LOCATION,  AND  ANNOUNCE  end  OF  BANK  O'R  END  uf  block  if 

R 30  2 4 APPROPRIATE. 

Rq025  2)  For  INSTRUCTIONS,  to  TRANSLATE  THe  ADDRESS  FIELD  and  KeDJCe  IT  IF  ITS  VALUE  IB  IN  ONE  oF  THe  banks 

*3027  C3-34,  NOTING  BANK  error  IF  APPROPRIATE.  SUPPLY  IMPLIED  ADDRESS  IF  RtOU I RED.  CUSS  POLISH  INDEXING  I*-  IT  IS 

R 30  2 9 SPECIFIED. 

R0030  FOR  BASIC  1NSTRUCI IONS,  CH£CK  that  "CAF"  AND  "QVIND"  ReF£R  TO  FIXeD  AND  "CCS",  "IS"  TU  0-W77,  UNLESS 

R3032  FRECEDED  BY  "INDEX",  CHt,C<  THAT  EXTRACODES  ARE  i NDtXED , AND  FLAG  " ADRtS" , "CaDR",  "XLADR"  CODES  AND  PUlISH  AND 
R0034  STORE  ADDRESSES  AG  CONSTANTS.  FLAG  UNINDEXED  BASIC  INSTRUCTIONS. 

R0035  FOR  F-OLISH  OPERATOR  WORDS,  TO  TRANSLATE  THe  ADDKeSS  FIeLD  IF  IT  IS  AN  JPeRATOR  WORD  CuUNf,  OK  FORM  A 

RQ037  WORD  FRUM  Me  TWO  OPERATORS  OTHERWISE,  ADDING  1 AND  COMPLEMENTING,  CUSS  ALL  err3*S  UF  tHe  SeCoND  OPEkATOR. 

R0039  3)  For  constants,  to  flag  them  as  such  and  check  on  magnitjde. 

*00 AO  A)  FOR  SetLOC*  tUUALS,  MEMORY,  BLOCK,  SUBRO,  AND  erAS£»  TO  SET  APPROPRIATE  ADDReSSeS  IN  PRINT • 


:> 


. Li—  YljL  SYSTEM  ASSEMBLtR  A’SC'4  PASS  2 USER’S  OaiN  PAGE  NO.  Z 

= 0042  DUALITIES  FILLED  In  by  THE  AGCa  PAkTUF  PASS  2 FOR  REFERENCE  by  GENERAL  pass  2. 


F ) 

9 


s ) 


OOLA 

0045 

0046 


A A P«OC  OP  CAC 
14  Dl  PARS  FLDfcC 
FXBIN 


AGC4  INST  AGC4  IP 

16383.0.  16384.0 
- 1 6 3b3 


0047 

0048 

0049 


A4  K 1 MAX  DCT  -77777 

A4  D2  PARS  FLO&C  268  435  455.0,  268  435  456.0 

FXLilN  -268  435  455 


A4  pROC  2P  CAC  AGC4  2P  AGC4  PLEtl 

A 4 K 2 MAX  DCT  -77  7777  7777 

A4  MAX  LOC  DCT  -71777 


0053  A4  CON  MSX  DCT  -77,  /777  7/77 

0054  A4  pRET  FL  DCT  0000  0010 

0055  A4  fLG  MSK  DCT  /400  0077 


0056  A4  CONS  FL  DCT  0000  0020 

00  57  AGC4  MXR  MASKBASE 5,1 F ,J 

00572  A4  Ml  SC  FL  XI  0000  0030 


5 


) 

) 


» 


0059  fc ♦ B | T 1 M OCT  4 

0060  B.BlTTM  OCT  004 

0061  fc,B]T17M  DEC  00008 

0062  B,B]T25M  OCT  -4000  0000 


0053  fc  *&I  T28lrl  OCT  -400  0000 

0064  fc  * B I T 3 1 M OCT  -40  0000 

0065  fc  »6 1 T32M  OCT  -20  0000 

0066  B,BiT33M  OCT  -10  0000 


0067  fc,R?5T29M  OCT 

0068  fc,B25T31M  OCT 

0069  t ,B34T36M  OCT 

0070  B,B34T48M  OCT 

0071  t » B 3 9 T 48M  OCT 

0072  fc  » B42 T 4BM  OCT 

0073  b.CHARIM  OCT 

0074  fc,CHAR5M  OCT 


-7600  0000 
-7740  0000 
-7  0000 
-77777 

-1777 

-177 

77 

-7700  0000 


0075  B»ChAR8M  OCT 

0076  t » C 1 T 4 M OCT 

0077  b »C3  T4M  OCT 

0078  EPEc^AG  M EQUALS 

0079  fc,BAN<MASK  OCT 


-77 

7777  7777 
0000  7777 
B 3 4 1 48M 
-76000 


OO9OI  B *636 T 48M  OCT  -37777 


6 

Ot 

!u 

n 


11 


L VUL  SYSTEM 

03091 


PA55  2 


FURIHEr  SHIFT  MA54S  FOR  AGCA  PAkT  of  PASS 


00818  S , B I T2M 

00  82  S » B I T 3 8M 

00321  S »B I T 39M 
00$22  S»Bl T40M 


0 0 3 3 S.B2T5M 
0084  S » B6  T 1 6M 
0035  S,Bl8T21M 


OCT 

OCT 

JCT 

OCT 


2 

-2000 

-1030 

-400 


OCT  36 

OCT  0177  7 A 

OCT  0000  017 


0086  S,B22T25M  OCT  0000  0007  A 

0037  F , rl 2 2 T 3 2 ivi  OCT  -7  7/60  0000 

0088  S,B28T30M  DC  T -700  0000 

0089  S »B3 AT37M  OCT  -7  AOOO 


00?0  S,B35TA1M  OCT  -37600 

0092  £,B38TA0M  OCT  -3777 

0093  S »BaO  TA2M  OCT  -700 


00?A 

0095 

0096 

S,AC01 
S,Af 02 
F ,Af03 

OCT 

OCT 

OCT^= 

07 

0007 
OOOO  07 
nnnn  nnn7 

0098 

0099 

ACO5 
A C06 

EQUALS 

EQUALS 

B28T30M 

B34T36M 

00992 

ACO7 

EQUALS 

BA0T42M 

0130  S,ChAR3M  OCT  0000  77 

0101  F,ChARAM  OCT  0000  0077 

0102  S,CHA97f1  OCT  -7730 

0133  5,C3T6M  OCT  0000  7777  7777 


3134  S,OnESM  OCT  7777  7777  7777  7777 

01342  S,Th«EEM  OCT  -3 


•5  O/iN  PAGE  NO 


A 
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?0105  CONSTANT^  AND  EQUIVALENCES  PQR  THE  AULA  PART  OF  PA5S  2. 


01052  5ETLCC.2 


R0106  PUMeRICAL  CONSTANTS. 


0107 

SPEcOND  2 

OCT 

-0400 

0000 

0108 

0109 

01 10 

SPEc.OND  3 
SPEcOND  4 
SPEcOND  5 

OCT 

OCT 

OCT 

-0600 

-1000 

-1200 

0000 

0000 

0000 

0111 

SPECOND  6 

OCT 

-1400 

0000 

0112 

SPEcOND  7 

OCT 

-1600 

0000 

0113 

0114 

SPEcON  11 
EPEcON  12 

OCT 

OCT 

-2200 

-2400 

0000 

0000 

0115  2 PqLOP  7 OCT 

0116  2 PoLOP  17  OCT 

0117  2 POLOP  27  OCT 

0118  PL  77776  OCT 


0119  PL  72000  OCT  +72000 

0120  PL  71777  OCT  +71777 

0121  fL  57776  OCT  +57776 

0122  PLUS  1776  OCT  +1776 


0124  CCT  77776  OCT  -77776 

0125  MIN  37777  OCT  -37777 

0126  OCT  32000  OCT  -32000 


0127  OP  CODE  4 EQUALS 

0129  CCT  6000  OCT 

0130  CCT  5777  OCT 

0132  DEC  48  FLO  OEC 


0135  CHAr  2 OCT  0077 

0136  CP  COUNT  OCT  -77777 

01361  C3T&  OCT  0000  7777  7777 

01363  CCT  17777  OCT  -17777 


BIT  34 
-6000 


-5777 


-0340  0000 
-0740  0000 
-1340  0000 
♦77776 


L 


0133 
0139 
01  40 

fcND  SL  MC 
HI  E3JALS 
ALF  6000 

comma  cz 

ALF 

ALF 

EQUALS 

ALF 

E3  MC 
=00,0000 
sheconl;  3 
0,0000 

0H2 

COMMA  C8 

ALF 

00, 

— - 

0H3 

MINUS  CU 

ALF 

- 

OUA 

EUOrS 

EQUALS 

BLOT  kIORD 

8 

6 

Ot 

II 

21 


Q 


0152  SAV  'ADftfcF  RESERVE  2 

0153  ADDITIVE  RESERVE  1 

0 1 5 A MAX  ADRES  RESERVE  1 

0156  ADRe  CUSS  ASSIGN  4,0 


# 


P015  7 

*3159 

*0161 

*0H3 

^0165 

0157 
0159 

0171 

0173 

0175 

0177 

0178 

0179 
0181 

0183 

0184 
01352 
0186 

0158 
0190 

0192 

01932 

0194 

0196 

0198 

0200 

0202 
0204 
02052 
02  354 

0206 

3238 

0210 

0212 

0214 

0215 

0217 

0218 
0219 
0221 

3223 

3225 
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SUBROUTINE  IN  PASS  2 FOk  AGC4  TO  FOrM  A WOkD  FrUM  AN  OPERATION  CODE  ANJ  AN  ADDRESS  ( BAb I C INSTRUC- 
TIONS AND  AODPtSS  CONSTANTS) , Ok  FROM  TWO  POLISH  O^eRSTOR  CODES  (POLISH  OPERATOR  WORDS) . THE  OPtKATlUN  CODe(S) 
AND  SOME  ASSOCIATED  INFORMATION  BITS  ARE  TAKEN  FROM  THE  HeALTH  WORD  OF  T«E  CURRENT  POPO  lTEM.  TH£  ADDRESS  IS 
OBTAINED  MOM  ThE  CARD  VIA  A GENERAL  SUBROUTINE  IN  PASS  2 CaLLeD  PRoC  ADR.  IMPLIgD  ADDRLSStS,  BANK  ERRORS,  AND 

inappropriate  ad-dresses  are  checked- for,  and  address -value  cussing  is  dune. 

AGC4  INST  TX  AGC4  MXR  - Z»MXR  USE  MASKBASE  FOR  THIS  MACHINE* 

NA,  bit  32M  HEALTH  ZERO  POLISH  OP  BRANCH  IF  A POLISH  OPERA  T uR  WORD. 


SWE,  B34T36M  HEALTH 
SWS,  BlTlM  HEALTH 
NA,  BIT  3 1 M HEALTH 


12 

10, L 

ONES 


WORD  INSERT  BAbIC  UP  CODt  INTO  WORD. 

CUSS  LIST  +30  MAYBE  CUSS  ILLEGAL  UP  CODl  A5IERI5K. 

NO  IMP LAD  BRANCH  IF  NO  IMPLIED  ADDKtSS. 


IMPlAD 


NA  “ 
NA 
TS 
TS, 


bit  im 


ADDRESS  1 
ADDRESS  2 
IMPAD  BAS 
ONES 


SWS , B22T25M  HEALTH 


35 

ZERO 

square 

NA,  BIT  25M 

NA,  BIT  TM 
TS,  BIT  IM 

SWS,  BIT  2bM 

HEALTH 

SwIT CH 

ONE5 

HEALTH 

NOT 

SQUAR 

SWS 

, BIT17M 

SWITCH 

no 

IMPLAD 

TS, 

TN 

la  , 
L A , 

CHAR5M 

zero 

ADDRE5S  1 
health 

SPECON  13 

B25T29M 

025T29M 

A DR 

CONST 

SM 

LA, 

la, 

B25  T29M 
B25T29M 

WQPO 

health 
HeALT H 

POL 

STORE 

TS, 

TS 

SPeCMAGM 

SPECON  13 
ONE 

LA , 
LA, 

CHAR8M 

CHARBM 

ADDRESS  2 
THREE 

TS, 

NA, 

charbm 

CHAR8M 

ADDRESS  2 
ADDRESS  2 

I-OLe  I NDX 

TS, 

NA, 

BlTlM 

625T29M 

ONES 

HEALTH 

5 TORE  AD 

SMS 

WA 

, B1I38 M 

ADDITIVE 

additive 

N 0 

pOLIX 

TS. 

TN 

TS 

PLUS  1776 

SAV  ADRtF 
ONE 

BLANKS  C,  + 3 

BLANKS  C , +2 

Z ,X6  C , +2 

CUSS  LIST  +21  c,-l 
5 ,L  C»  + l 

0 ADDRESS 

ADDRESS  ADR  WD 

ONES  NOT  SQUAR 

ZERO  NOT  SQUAR  +2 

CUSS  LIST  +12  NOT  5QUAR  +2 


2 

10 

HEALTH 


SpeCoND  5 
HEALTH 

DEC  6 FLAG 
SPECOND  7 
SPECoN  U 
WORD 

ADD  I T I Vt 
ZERO 

ADDRESS  2 

ADOIT1VE 
COMMA  C8 

ADD  I T 1 VL 
SPECON  11 

37 

OCT  32000 
MAX  ADRES 


ADDITIVE 


"SWITCH 

CUSS  LIST  +2 
BASIC  SBA 

5AV  ADREF 
NON  CONST 

non  Const 

word  

NON  CONST  +1 
POL  STORE 
NON  CONST  +2 

RITE  NORM 
NO  POL  1 X 
NO  POL IX 

RITE  NORM  +1 
NO  POL  1 X 

RITE  NORM  +1 
POLISH  AD 

ADDITIVE 
ADDITIVE 
OP  CK  STOP 

ADDRESS  1 

POLE  I NDx  +1 


PROCEED  IF  ADDRESS  FIELD  IS  BLANK. 
OTHERWISE  CJS5  MILDLY  AND  PROCtLD. 

SUPPLY  IMPLIED  ADDRESS. 

BRANCH  UNLESS  OP  CODE  IS  ''SUUARE'' . 

bR  IF  EXTRACODE  "SUUARE"  IS  I NqLxEd. 

CUSS  OTHERWISE. 

SET  CURRENT  INDEX  BIT  FOR  "EXTEND". 

CUSS  INDEXING  ON  NON-EXTRaCoDL  ImPLADS. 
CLEAR  FALSE  SPECIAL  CONDITION  FLAGS, 

SAVE  ADDRESS  FIELD  IN  CASE  OF  POLADReS. 

branch  if  special  condition  5 oR  less. 

BRANCH  IF  SPECIAL  CUNDITluN  13  OR  MORE. 

puj  constant  flag  on  address  constant. 

BRANCH  IF  Code  = ADREi  OR  CaDR. 

BRANCH  IF  Code  is  nut  XCaDR. 

SET  UP  47777  IN  WORD  AND  «LLOW  -ADDRESS. 

GO  FISH  FOR  ",1"  OR  "»2". 

NO  INDEXING  IF  last  ChAR  IS  0* 

NOR  IF  IT  IS  3 OR  MORE. 

IT  WAS  1 JR  2 AND  NUW  WL  SEEK  A COMMA, 


INDICATE  INDEXING  AND  REMOVE  CoHMA. 


ADD  32000  (DIRECI)  UR  34OOO  (INDEXED). 
SET  MAX,  CHECK  OP  WORD  COUNT  IF  NEEDED. 

RESTORE  ADDRESS  FlfuD  IF  NO  INDEXING. 

GO  TO  FIND  wHLTHtR  POLISH  OR  STORE. 


j.  YUL  5YSTEM  A55t.yBl.hR  AGC4  PASS  2 

P0227  INACTIVE  AD0RE5S  CHECK  AND  l iMjT  SETUP  FOk  POUj: 


32272  POLISH  AD  NA,  CHaRIM'  CARO  +2  BIT  1 

02 2 7A  SWS,  BIT  1M  SWITCH  16.L 

022751  35  2lR3  ONE 

32 275 A NA,  SJflfM  SWITCH  ONES 

022756  LA  UP  COUNT  ZERO 

322758  5M  CU55  LIST  *23  BIT  f7 

02276  SS  ZERO  BIT  17 

0228  LA  ADDITIVE  BIT  1 

3230  TX  PL  57776 


02311  POL  SIGN  T NA , CHAR 1M  CARO  *2  bIT  1 

02313  TS  PL  72000  MlN  AURE5 


0232  FO  DIRECT  TS  PL  77776  MAX  ADRtS 

023A  MA  ADDRESS  1 BLANKS 

323A2  NA  ADDRESS  2 BLANKS 

02 3AA  5M  CUSS  LIST  +11  BIT  17 

0235  NA  ADDRESS  2 MINUS  C8 

0236  TN  SAV  ADREF  2 

0238  TS,  SPeCMAGM  ONES  WORD 

02  AO  ACTIVE  TS  SPEC  MAG  MIN  ADRES 


02a2  f'ON  CONST  NA,  B 3 A T 3 6 M wjRD  OP  CODE  A 

0 2A4  TS  PL  71777  MAX  ADRtS 

02 A6  TS  OCT  7777  MIN  ADRtS 

02 A8  F AX  AD  SET  TX  GENIMXR 

02a9  TS  Z,SC  Z,X6 

02  51  TFF  : 5AV  ADREF  2 

0253  TS  ZERO  MJN  ADRtS 

0255  SWST  BjT  1?M  HEALTH  8 

02  57  LA  ONES  ADDRESS 

0259  _N  ADR  WD  MAX  ADRES 

0251  LN  PL  72000  ADR  WD 

0252  PNG  ERROR  TS,  BIT33M  ONE5  CUSS  LIST 

0264  TS,  BIT17M  ONES  CUSS  LIST 


0266 

CONST  0 

LA 

WORD 

BIT  17 

3258 

3271 

32712 

3271A 

UA, 

lA, 

i A • 

B25  T 29M 
B25T29M 
B25T29M 

health 

health 

SPECON  12 
ADDRESS 

SreCGND  6 
SPECOND  7 
HEALTH 

OCT  1777 

FO  S TOR 

ad  L A 

327152 

UA 

ADDITIVE 

BIT  1 

32  7 1 5 A 
32716 
32  72 

UA 

LA 
W A , 

B35  T A8M 

ADDRESS 

ADDRESS 

ADDRhSS 

OCT  17777 
MIN  37777 
ADDITIVE 

32  74 
3275 

bA 

W A , 

B35TA8M 

ADDITIVE 

WORD 

BIT  1 
ADDRESS 

02762 

NA, 

CHaRIM 

CARO  +2 

BIT  1 

0276A 

3277 

3279 

CADr 

WD 

TS, 

T5, 

C1T4M 

5PrCMaGM 

WORO 

ZERO 

ADDRESS 

TWO 

LINE  +6 
WORD 
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ADDRESSES. 


C , + 3 

CUSS  LIST  +22 
MIN  AD«ES 

C.  + 4 •==== 

BRANCH  IF  NO  MINUS  IN  COL  17. 

CUSS  MINUS  IF  FIRST  ADDRtsS  OF  EQUATION. 
MINIMUM  MAGNITUDE  IS  ONt  IF  MINUS, 

BRANCH  IF  NOT  FIRST  ADDKtSS  OF  tOUATION. 

C , + 2 

CLTSS  LIST  +23 
SWITCH 
PO  DIRtCT 
MAX  ADRtS 

BRANCH  IF  LAST  OPERATOR  WORD  CQUNT  OK, 
TOSS  BAD  OPERATOR  WORD  COUNT. 

RESET  PERMISSION  BIT  FOR  MINUS  PoLADS, 
TEST  FOR  INACTIVE  AUDReSS  IF  U.mInDeXeD. 
MAXIMUM  AUGMENTS*  FUR  POLISH  INDEXED. 

MAX  AD  SET 
MAX  AD  SET  “ 

TEST  STORE  AND/OR  POLISH  iNDEXED  ADUR. 
FORCE  RANoE  tRROR  IF  MlNos  SIGN  HERE. 

RITE  NORM  C 

ACTIVE 
C , + 2 

CU55  LIST  +11 
ACTIVE 
ADDRESS  1 
GUD  BASIC 
MAX  AD  SET 

MAXIMUM  VALUE  FUR  POLISH  UNINDeXeD. 

POLAD  W/  aL  ADR  FLD  MAY  Dt  BLANK  CARD. 

RESTORE  ADDRESS  field  IF  INaCIIVE. 

MINUS  ZERO  REPRESENTS  INACTIVE  ADDRESS. 

(permitted  jntil  ops  are  examined).  - 

C , +2 

MAX  AD  SET 
C,-l 
Z ,MXR 
PROC  ADR 
ADDRESS  i 
AGCa  INST  C 

CUSS  LIST 
bad  basic 

CONST  U 

C , + 2 

+11  PRB  ADR£S  C 

+3  BAD  BASIC 

BRANCH  TO  Permit  NE°A!lVt  ADDRESS. 

MAX  FOR  All  CASES  BUT  POLISH  AND  STORE. 
ALLOW  -7777  TO  71777  EXCEPT  ON  CS,  MP. 

TRANSLATE  ADDRESS  FIELD. 

RESTORE  ORIGINAL  ADDRESS  FIeLD  For  PRINT. 
RESTORE  MIN  ADR  VALUE  AND  MXR. 

CUSS  LACK  OF  "D"  IN  DECIMAL  SUdPlELD. 
meaningless  or  atrocious  address, 
branch  IF  no  range  tKKOR. 

PRINT  BAD-SIZE  ADDRhSS  IF  POSSIBLE. 

CUSS  range  ERROR  IN  ADDRESS  value. 

instrof1 

BASIC  SgA 
CADR 

BASIC  ADR 

bRANCH  IF  NO  CONSTANT  FLAg. 
BRANCH  if  code  is  n ADRES" , 

BRANCH  IF  CODE  IS  XCADR, 

C , ♦ A 
C , + 2 
C , + 2 

RNG  ERROR 
WORD 

C * +2 

WORD 

GUD  BASIC 
WORD 

GUD  BASIC  +1 

gud  basic 

INTERPRETIVE  MAY  ADDRESS  ERASABLE  .... 

...WITH  SOME  LATITUDE  IF  INDEXED... 

....  OR  JPPER  HALF  OF  SWITCHED  BANKS. 

USE  ADDITIVE  UN  POLISH  OR  StO«E  ADDRESS. 

USE  2 X ADDRESS  IF  INDEXED. 

BRANCH  IF  NO  MINUS  SIGN  IN  COLUMN  17. 
SINCE  INTERPRETER  DOES  NUT  CCS  THESE. 
CLEAR  ADDRESS  IMAGE  AND  GU  TO  PRINT. 

USE  ADDRESS  AS  IS  FuR  CADR. 

YUL  SYSTEM  nSShf'BLtK  «SL4  PASS  2 


Q 


?02?3  SPECIFIC.  PROCESSING  FOR  BASIC  INSTRUCTIONS, 


0294  InSjROP  LN  ZERO 

0296  HA,  BIT  7M  SWITCH 

ADR  WD  C , ♦ 3 

ZERO  C , +2 

0297  SM  CUSS  LIST  *12  BIT  1 CUSS  LIST  +12 


0299  LA,  B 2 5 T Z 9 M HtA^T  H 

0301  LA,  B25IZ9M  HE A 1 H 

0302  LA,  B25T29M  HEALTH 

0303  LA,  B25T29M  HEALTH 

03032  LA,  B25I29M  HEAL1H 

zero  basic  adr 

SPECOND  2 CAF  OVIND 

SPECOND  3 CCS 

SPECOND  4 INDEX 

SPECOND  5 TS 

0304  XTRaCODL  NA,  BIJ7M  SWITCH 

0305  TS,  BIT  1M  ONES 

zero  basic  adr 

CUSS  LIST  +12  BASIC  ADR 

03062  TS  NA,  bit/m  switch 

03064  LA  ADDRESS 

03066  TS,  B I T I 7M  ONE5 

zero  basic  adr 

OCT  1777  BASIC  ADR 

CUSS  LIST  +n  BASIC  ADR 

0307  JNDtX  TS,  BIT28M  ONES 

SWITCH  BASIC  ADR 

0309  CCS  NA,  BIT  7M  SWITCH 

0311  LA  ADDRESS 

0313  T S , BIT  33M  ONES 

0314  TS,  BIT17M  ONES 

ZERO  BASIC  ADR 
OCT  1777  BASIC  ADR 
CUSS  LIST  +11  PRB  ADRES 
CUSS  LISI  +12  BASIC  ADR 

03152  CAF  OVIND  SWS,  BIT  33M  HEALTH 
0316  NA,  BIT  7M  SWITCH 

0318  LA  OCT  2000 

5 CUSS  LIST  +23 

ZERO  BASIC  ADR 

ADDRESS  BASIC  ADR 

0320  SM  CU55  LIST  +11  BIT  17  CUSS  L15T  +11 


0322  LAS  I C ADR  UN  ZERO 

0324  NA  WORD 

0325  TX  SPEC  MAG 

0327  wD  WORD 

0329  TS,  C1T4M  ZERO 

ADR  WD  BASIC  SBA 

ZERO  C , +2 

WORD 

ADDRESS  WORD 

LINE  +6  GUD  BASIC  +1 

0331  tASiC  SB A LA  ADDRESS 

OCT  577 7 CUSS  BANK  +1 

0333  TX,  BANKMASK  OCT  6000 

0335  LA  LOCATION 

ADR  WL 

OCT  5777  CUSS  BANK  +1 

0339  NA,  BANKMASK  LOCATION 

0341  TS 

ADDRESS  C , +2 

- CUSS  BANK  +1 

0343  TX  Z,R5 

03442  SWS,  8 1 T 2 M SWITCH 

Z,X6 

5 , L CUSS  LIST  +11 

03 AAA  HA  CUSS  LIST  +11  BlB2  CUSS  LIST  +11 

03 A 5 S.WS,  B3«TABM  CUS5  LIST  +11  32  Z,X6 

03  A6  SWS  , ACOA  ADDRESS  11, L 6,2 


0347  CUSS  BANK  SWS,  AC05  ADDRESS 

8 , L 6,2 

03502  WA,  5PECMAGM  WORD 

ADR  WD  WORD 
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BRANCH  IF  POSITIVE  ADDRESS  VALUE, 

CUSS  IF  NO  INDEX  BEFORE  MINUS  ADDRESS. 
BRANCH  IF  THERE  ARE  NO  SPECIAL  CqNDS, 


CUSS  UNINDEXEU  EXTRAcUDL. 

BYPASS  CHcC<  IF  INSIRUCTIuN  13  INDEXED. 

fixed  MeM  ADRES  INAPPROPRIATE  for  ts. 

SET  CURRENT  INDEX  BIT. 

NO  CHECK  JN  INDEXED  CCS, 

BRANCH  IF  Value  CORRECT  For  CCS. 

CUSS  CCS  REFERENCE  TO  FIXED. 

WARN  OF  OVlND'S  COMING  OBSOLESCENCE. 

NO  CHECK  ON  INDEXED  CAp  UR  QVlNP, 

BRANCH  IF  VALUE  CORRECT  FqR  CAF , OVIND. 
CUSS  INAPPROPRIATE  ADDRESS. 

BRANCH  IF  POSITIVE  ADDRESS. 

♦o  must  become  -o  fur  subtRaciion. 

ADD  IN  NEoATiVE  ADDRESS. 

CLEAR  ADDRESS  IMAGE  AND  uo  TO  PRINT. 

BRANCH  IF  ADDRESS  NUT  IN  A BANK. 

PUT  SUBADDRESS  IN  6000-7777  CLASS. 
BRANCH  IF  LOCATION  IS  NOT  IN  A BANK, 

BRANCH  ON  BANK  ERROR. 

GO  TO  ASSEMBLE  WORD. 

PUT  BANK  INDICATOR  5 IN  X6. 

SET  POISOV  BIT  OF  BANK  LOSS  = -INDEXEO. 
CALL  FOR  3AN<  ERROR  CUSS. 


INSERT  BAvK  NUMBER  IN  BANK  CUSS. 
PUT  ADDRESS  OR  SUBADDKESS  IN  WORD 


(.  YJL  SYSTEM  ASSEMBLER  A3C4  PASS  2 

P^3 5 1 PRINTING  PROCEDURES  FOR  BASIC  INSTRUCTIONS  AND  ADDRESS  CONSTANTS, 


0352  GuD  BASIC  SS  ZERO  ClTA  LINE  +6 


03 5 A NA,  CHAR 1M  CARO  +2  BIT  1 C,  + 2 

0356  HA  WORD  SPEC  MAG  WORD 

0359  SWS « AC02  WORD  30, L LINE  +6 

0360  SWSt  ACOS  ~ WORD  27, L LINE  + 6 

0361  SWS,  ACOA  WORD  2A,L  LINE  +6 

0363  LA  DEC  6 FLAG  WORD  ACON  PKNT 


0365  INSt  PKNT  SWS,  CHAH7M  WORD  b LINE  +5 

036602  NA,  BIT  7M  SWITCH  ZERO  C« +2 

03660A  TX,  CHaRIM  DtC  AM  FLS  - WORD 

03661  SWS,  CHAR3M  ADDRESS  20, L WORD 

03663  SWS,  CHARAM  WORD  6 WORD 

0357  SWS,  BIT7M  SWITCH  21, L SWITCH 

0369  TS,  BIT2BM  ZERO  SWITCH  BC  CH£L«. 


0371  FAD  BASIL  SS  BLOTS  ClTA  LINE  +6 

0373  tA  WORD  BIT  17  C,+2 

037A  TS,  CHAR8M  BLOTS  LINE  + 5 NAUGHTY 


0376 

0377 
0379 
03  B 1 
0333 
0335 


0387  NAUGHTY  TS  W BAD  WORD  WORD  BC  CHECK 


NA,  B2S  T 29M  HEAD  T H 
TS,  BIT  7M  ONE5 

ss  Zero 

NA,  CHARIM  CARD  +2 
HA  WORD 

SWS,  CHAR7M  word 


specond  A 
switch 

BIT  7 
BIT  1 
SPEC  MAG 


C » ♦ 2 

C , +2 
SWITCH 
C , + 2 
WORD 
LINE  +5 


0338  ACON  PRNT  SWS,  CHAR8M  WORD  12  LINE  +5 


0390  EC  CHECK  NA,  CHARIM  CARD  *2 

0391  TS,  BIT  1M  ZERO 

0393  NA,  CHARIM  Ca.RD  +2 

0395  NA,  CHARIM  CARD 

0396  TS,  BIT  IM  ZERO 

0398  NA,  CHARIM  CARD  

OAOO  NA.,  CHARHM  CARD  *2 

0A02  InStR  XI T TS  MOD  RETRN 


BIT  1 C , ♦ 2 

CUSS  LIST  +12  C , +2 
BLANKS  QUEER  C^7 

J COLUMN  I C , + 2 
CUSS  LIST  +12  C , +2 
BLANKS  QUEER  Li 

BLANKS  QUEER  C2 A 

Z,SC  RSTOR  MXR 
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CLEAR  ADDRESS  FIELD  OF  PRINT  IMAGE, 
BRANCH  IF  NO  MINUS  SIGN  IN  COLUMN  17. 
COMPLEMENT  negative  INSTRUCTION. 


PUT  BASIC  CODE  ADDRtSS  into  PRINT  image. 

branch  if  word  is  an  address  constant. 

print  op  CODE  of  INSTRUCTION. 

BRANCH  ON  INDEXED  INSTRUCTION. 

MARK  AS  SJBJECT  TO  BAD  REFERENCE  CHECK. 
SUPPLY  BANK  INDICATOR  TO  SIMULATOR. 

STORE  IT  TWICE  TO  MAKE  PARITY  OK, 

MOVE  CURRENT  INDEX  BIT  TO  PREVIOUS. 

CLEAR  CURRENT  INDEX  BIT. 

BLOT  OUT  SAD  ADDRESS  FIELD. 

BLOT  FIRSf  DIGIT  OF  BAD  CONSTANT. 


SET  PREVIOUS  INDEX  BIT  Ip  INDEX, 

CLEAR  PREVIOUS  INDEX  BI | , 

BRANCH  IF  NO  MINUS  SIGN  In  COLUMN  17. 
COMPLfrMENI  GOOD  UP  UF  BAG  N£G.  iNoTK. 
PRINT  GOOD  DP  CODE  IN  BAD  INSTRUCTION. 


PRINT  FIRST  DIGIT  OF  CONSTANT* 


CLEAR  "SHDUlD-BE-INDEXED"  CUSS  IF  MINUS. 
CUSS  IF  NclTHER  BLANK  OR  MINUS  In  CC  j7. 

CLEAR  "SHDUuD-BE-INDEXED"  CUSS  if  LFTVR. 

cuss  if  neither  blank  nur  j in  column  w 
CUSS  IF  CDLJMN  2 a nun-blank. 

RETURN  TO  GENERAL  PROCEDURE. 


YuL  SYSTEM  ASSEMBLE*  AGCA  PASS  2 


POADA 

DA  35 
DA  37 
3 A 39 
DA  1 1 
DA12 
DA  1 3 
DA  1 A 
DA  1 6 

D<*18 
D A 1 9 1 
DA20 

DA21 
DA  2 3 
DA25 


RDA26 

R0A28 

DA  29 
OA31 
DA32 
DA33 
D A 3A 
DA36 
0A37 
DA39 


9 3 A 392 

DA393 
D A395 
DA397 
DA399 


when  address  is  wrong  bjt  ndt  atrocious,  tell  the  man  what  it  is. 

PRB  ADRES  TX  Z.R5  - Z.XA 

SS  CUSS  LIST  +11  B38TA8  Z.XA 

TX  HI  EJJALS  - ADRECJSS  +1 

SS  ADDRESS  BA6TA8  ADRECUSS  +1 

SWS.  B4O  I A2 M ADDRESS  3.L  ADRECUSS  +1 

SWS,  B3AT36M  ADDRESS  6.L  ADRECUSS  +1 

SWS.  B2BT30M  ADDRESS  9.L  ADRECUSS  +1 

LA  OCT  6000  ADDRESS  ACUSS  BNK 

SWS.  C3T6M  ADRECJSS  +1  A.2*L  ADRECUSS  +1 

SS  BLANKS  CHAR  2 ADRECUSS  +1 

SS  BLANKS  C7T8  ADRECUSS  +1 

ACUsS  BNK  SM  ADRECUSS  +1  ALF  6000  ADRECUSS  +1 

SWS.  AC02  ADDRESS  23, L ADRECUSS  +1 

SWS,  ACJ3  ADDRES5  20, L ADRECUSS  +1 


minor  subroutine  in  agca  pass  2 to  right»nqRMAHZE  the 

THE  FIELD  IS  OR  BECOMES  ALL  BLANK. 

KITE  NORM  NA,  CHAR8M  ADDRESS  2 BLANKS  END  RnlORM 

SWS.  ONESM  ADDRESS  1 A,1  ADDRESS  1 

SWS,  DNESM  ADDRESS  2 A,1  ADDRESS  2 

SS  ADDRESS  I CHARI  ADDRESS  2 

SS  BLANKS  CHARI  ADDRE5S  1 

NA  ADDRESS  1 BLANKS  RITE  NORM 

NA  ADDRESS  2 BLANKS  RITE  NORM 

END  RNOKM  TX  - 


LrErATOK  word  count  checkins  for  store  addresses. 

CP  c<  stop  NA,  BIT17M  SWITCH  ONES  POL  SIGN  T 

lA  OP  CDUNT  ZERO  C.+2 

SM  CUSS  LIST  +23  BIT  17  CUSS  LIST  +23 

TS.BIT 1 7M  ZtRO  SWITCH  POL  S I On  T 


uui  nn  H n n 
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BANK  INDICATOR  5 TO  XA. 

SET  UP  ADDRESS  OP  ADR  CUSS. 

initialize  to  alf  =00,0000. 


PUT  address  OR  SUBADDKESS  into  cuss. 
BRANCH  IF  ADDRESS  IS  IN  A BANK, 

MOVE  UP  NON-BANK  ADDRtSS. 


PUT  SUBADDRESS  IN  THE  RANGE  6000-7777. 
PUT  BANK  NUMBER  INTu  CUSS. 


address  field  BY  SHIFTING  END-oFF.  EX1JS  IF 
C BRANCH  IF  FINISHED. 

C SHIFT  RISir  ONE  CHARACTER. 

C REPEAT  UNLESS  ALL  BLANK. 


exit  if  njt  beginning  of  cuuaiion 

CUSS  BAD  OPERATOR  WURD  COUNT. 


- 

PS440 


T uL  SYSTEM  ASSEMBlcR 
AGC4  PAS5  2 


FOR  POL  EH  OPERATOR  WOkDS. 


oaai  polish  up  swe,  B35T 41m  health  17  word 

04421  T5,  BIT17M  ONES  SWITCH  SEL  STAR  1 

04422  SWS,  BIT  40M  HEALTH  29  WORD 

04423  SWSr  BIT17M  HEALTH  6 CUSS  LIST  *22 

04424  SpEcOM  13  OCT  -2604  7777 

04425  5WS,  BIT  39M  H£  A l T H 28  WORD 

04426  SeL  STAR  1 SSL*  THREEM  HEALTH  24  C,-4 

0443  NA  * B 2 5 T 3 1 M HEALTH  2 POLOP  7 NOT  COUNT 


Z*MXR 
PROC  A Dx 
AGC4  I HST 
CUSS  LIST 
BAD  PqLe 


0445 

0446 

0448 

0449 
0451 


ADDRE55 

health 

ONES 


Z.X6 

op  count 
8 

ADDRESS 


0453  = A AQDRE55  OCT  177  OK  COUNT 

0455  LN  PL  72000  ADR  wD  C*+2 

0457  TS,  BIT  33M  ON E 5 CUSS  L1S|  +11  PRb  AD«ES  C 

04582  TX  ONES  - OP  COUNT 

0459  TS,  BIT  17M  ONES  CUSS  L I ST  +3  BAD  POLE 


04^1  CK  COUNT  TS,  S42T4BM  ADDRESS  WORD  SEL  STAR  2 +2 


04524  NOT  COUNT  NA  UP  COUNT  ZERU  C,+2 

04526  TS  ONES  OP  COUNT  C,+2 

04528  WD  UP  COUNT ONE OP  COUNT 

0453  NA,  0 2 5 T 3 1 M HeA.M  2 POLOP  17  C + 2 


0454  TS,  BIT  33H  ONES  CUSS  LIST  +2  BAD  POLE 


0456  NA,  0 2 5 T 3 1 |V1  HEAlTH  2 POLOP  2 7 TWO  POLES 

0457  SM  CUSS  |_IST  +21  BIT  17  CUSS  LIST  + 21 

0459  LAD  POLE  SM  WORD  BIT  1 WORD  
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SET  UP  7-BIT  LEFT  OPERATOR.  8 

REVOKE  PERMISSION  FUR  MINUS  ADDRESSES. 

MOVE  INDEX  BIT  TO  GENERAL  OPERATOR.  ‘oi 

CUSS  I NDE  * I NO  OF  MISCELLANEOUS  OPERATOR.  !u 

Cl 

MOVE  INDEX  SIT  TO  UNARY  OPERATOR. 

BRANCH  ON  TYPE  OF  FIRST  OPERATOR. 

BRANCH  UNLESS  SeCqNO  HALF  IS  OP  WORD  CT. 


translate  ADDRESS  field, 
set  op  count  ipehhaps  to  ones), 
maybe  cuss  "D"  error. 

BRANCH  IF  M£ANINOLeBS  OR  ATROCIOUS  ADR. 

BRANCH  IF  COUNT  IS  127  OR  LESS. 

BRANCH  IF  ADDRESS  IS  UNPRINTABLE. 

PRINT  OVERSIZE  ADDRESS. 

GUARANTEE  OP  COUNT  CUSS. 

CUSS  RANGE  EKHOR  IN  ADDRtSS  VALUE. 

SET  UP  COUNT  AS  OPERATOR  2. 

BRANCH  IF  OP  COUNT  MIGHT  STILL  MAKE  IT. 
GUARANTEE  BAD  COUNT  I F Tw«S  TOO  SMALL. 


CUSS  MEANINGLESS  ADDRESS  FIELD. 


CUSS  UNPOlISH  ADDRESS  FIllD  symbol. 
INDICATE  BADNESS  OF  RIGHT  OPERATOR. 


PQ4702 

34  71 

34721 

34722 
34  723 
04724 

34725 

34726 
3^727 

34728 

34729 
3473 
3475 

3477 

3478 

3430 

3432 

0434 

0435 
0437 

0439 

0490 

0492 

3494 


YUL  SYSTtM  ASSEMBLER  AGC4  PASS  2 


general;  processing  of-  right  dperatuk. 

TWO  POLES  SWS,  B42T48M  HEALTH  17 

TN  ADDRESS  1 2 

TS  Z,SC,4 

5M  WORD  TWO 

SM  CU5S  LIST  +22  BIT  33 

t 46 T 4 8 OCT  -7 

SM  WORD  FOUR 

N A » CHAR8M  ADDRESS  2 ASTRISKB 

SeL  STAR  4 SSL » THREEM  WORD  0 

TN  SAV  ADREF  2 

WD,  SPeCMAGM  OCT  77776  WORD 

LA,  SPeCMAGM  WORD  MIN  37777 

NA,  CHARIM  CARD  +2  BIT  1 

HA  WORD  SPEC  MAG 

SS  ZERO  ClT4 

SWS , CHAR8M  WORD  12 

SWS,  ACOl  WORD  33, L 

SWS,  ACU2  WORD  30, L 

LA  blf  1 WORD 

SWS » AC03  WORD  27, L 

SWS , AC04  WORD  24, L 

TS,  CHARIM  DEC  5 FLAG  WORD 

tAD  POLE  2 TS,  C3T4M  BLOTS  LINE  +6 


0496  FOLe  OFLU  SM 
3498  TS 


CUSS  LIST  *cl  BIT  33 
BIT  1 WORD 


5 * 
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WORD 

SAV  ADREF 
RITE  NORM 
WORD 

CUSS  LIST  +22 

WORD  APPLY  INDEX  BIT  TO  UNARY  OPERATOR. 

C , + 2 BRANCH  IF  OPERATOR  2 IS  NOT  INDEXED. 

C»-5  C BRANCH  ON  TYPE  OF  ScCUND  OPERATOR, 

ADDRESS  1 RESTORE  ADDRtSS  + IELD  FOR  PRINTING. 

WORD  ADD  ONE  AND  COMPLEMENT. 

POLE  OFLO  BR  IF  BOTH  3P5  = 177  (VERY  OUtER), 

C , +2 

WORD  COMPLEMENJ  WORD  IF  In  CoL  17. 

LINE  + t> 

LINE  +5 
LINE  +6 
LINE  +6 
bad  pole  2 

LINE  +8 

LINE  +9  PRINT  RES|  01-  OPERA  I OK  WOkD , 

6C  CHECK  PLANT  FLAG  oF  POLAND,  JOIN  MAIN  PKOC. 

NAUGHTY  BLOT  OUT  RIGHT  OPERATOR.  JOIN  MAIN  PkoC. 

CUSS  OVERFLOW  OF  OPERATOR  WqRD. 

SET  TO  BLOT  OUT  WORD  LIKE  CONSTANT. 


CLEAR  ADD-ceSS  field  print  image. 

PRINT  1ST  CHARACTER  OF  OPtRATOR  WORD. 

PRINT  REST  OF  LEFT  OPtRATOR. 

BRANCH  IF  2ND  OPERATOR  IS  BaD, 


SET  UP  7-31 T RIGHT  OPERATOR, 

RIGHt-NORMAlIZE  ADDRESS  field  AND  SKIP. 
APPLY  INDEX  BIT  TO  'JENERAc  OPERATOR, 
cuss  indexing  of  miscellaneous  OPERATOR. 


CUSS  LIST  +21 
BAD  BASIC 


t 


YUL  SYSTEM 


P35  30 
*3532 


SUBKQiJfiNg  IN  PAbb  2 FOR  AGC4  TO  SET  IN  PRINT  THE  LOCATION  0 
NUMBER  I F A \ Y AND  WITH  A NOTATION  FOR  END  OF  BLOCK  OR  BANK  IF  KeJJIReO. 


3534  AGC4  PLtb  NA  LOCATION  ONES  C,*2 

0536  55  BL0T5  CITa  LINE  +5 


3538  TX  AGC4  MXR  - Z,MXR 

35  39  55  ZERO  LIT'.  LINE  +5 

3510  TX  LOCATION  - COMMON 

3511  TX  COMMON  - COMMON  +1 

3514  TX  ""COMMA  Co  - CINE  +a 

3515  SWS » AC06  COMMON  1 LINE  +4 

3516  SWS  * AC07  COMMON  4 LINE  +4 

3518  5M  COMMON  OCT  6000  COMMON  +1 


3520  END  BANK  0 NA , B39T48M  COMMON  +1  ONES  C**2 

3522  TS,  CIT4M  END  3L  MC  LINE  +4  PRINT  LQC 


3526  TX  L TYP  TAB  - Z,X6  C 

3527  —LA..  SPfCMaGM  COMMON  6,0  C,  + 2 C 

3529  T 5 Z , X 6 , 1 - C.-l  C 

3530  NA,  SPeCMASM  COMMON  6,0  PRINT  LOC  C 

3532  SWS,  Cl  TAM  END  5L  MC  A,4,L  LINE  C 

0534  PRINT  LOC  SWSt  ACPI  COMMON  +1  33, L LINE  +5  C 

3535  5WS.  AC02  COMMON  *1  30,L  LINE  +5  C 

3536  5W5,  AC03  COMMON  +1  27, L LINE  +5  C 

3537  SWS,  AC04  COMMON  +1  24, L LINE  +5  C 

3538  hSTn*  MXR  TX  OENC  MXR  - Z,HXR 
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AN  INSTRUCTION  OR  CONSTANT,  «ITH  BANK 
BLOTS  OU!  LOCATION  FIELD  IF  DAD  LOC. 


branch  if  theRes  a valid  location 

BLOT  OUT  LOCATION  FIELD  AND  EXIT. 


t 
01 
u 
z 1 


BRANCH  IF  LOCATION  IS  NOT  IN  A BANK. 


SET  BANK  DUMBER  IN  PRINT. 

PUT  SUBADDRESS  IN  THE  CLASS  60oO  - 7777. 

MARK  LINE  "EB"  FOR  tND  OF  BLOCK  OR  BANK. 


BRANCH  WHEN  MEMORY  TYPE  CATEGORY  FOUND. 

BRANCH  IF  NOT  END  OF  MINOR  BLUCK . 

MARK  LINE  "MC"  FUR  MEMORY  TYPt  CHANGE. 


SET  UP  LOCATION  IN  PRINT  AND  EXIT 


4 


L VUI  SYSTtK  ASSEMBLER  AGC4  PASS  2 USLR»5  0*N  PAGE  .MO.  IS  PAGE  85 

335^0  SUBROUTINE  Is*  PA6S  2 FOR  AGC*  To  SET  UP  A 5INGLL-PRECI  SION  CONSTANT  IN  WjKO  AND  IN  PRINT.  THIS 

R 3 5 (,  2 SuBpOJT  I Nl  D0£5  NOT  CARt  WHETHER  THE  WO«d  IS  5 1 o.Mtu.  OR  MOT.  OUT  DEMANDS  THE  OUTPUT  Oh  DLC/OCT  CONaT  IN  NUMBER. 


3544  AGCa  IP  MA 
05  A6  SS 
05  a7  55 
05A9  TX 


NUMBER  W BAD  WORD  GOOD  lP  C BRANCH  IF  WORD  IS  VALID. 

BLOTS  CHAR  b LINE  -.5  C 

BL3T5  C 1 T A LINE  +6  C BLOT  OUT  WORD  IN  PRINT. 

W 6 AO  WORD  - WORD  SEND  ALONo  3AD  NEWS  AND  £xlT. 


= y 

« • 

6 

2oi 

• 


0551 

GOOD  IP 

TX 

AGC4  MXR 

- 

Z.MXR 

c 

• 

0552 
0554 
05  55 

EX 

.A 

HA 

NUMBER 
BIT  1 
WORD 

D2T12 

NUM1 

SPEC  MAG 

WORD 

c , + z 

WORD 

s- 

c 

ISOLATE  MAGNiTUDt. 

complement  negative  WORD. 

0557 

A4  BIN  ALT 

SS 

ZERO 

C1T4 

LINE  *6 

0558 

sws. 

CHAR8M 

WORD 

12 

LINE  +5 

c 

« 

0559 

0560 

0561 

0562 
0564 

sws. 

SW5. 

sws . 

ACOl 

AC02 

AC03 

AC04 

charim 

WORD 

WORD 

WORD 

33. L 
30, L 

27 .1 

LINE  +6 
LINE  ♦ 6 
LINE  +6 
LINE  + 6 
RSfOR  MXR 

sws. 

TS. 

WORD 

DtCb  FLAG 

c.  ( y u 

24. L 
' WORD 

set  WORD  iN  print. 

APPLY  INTERNAL  CONSFANT  FLAG  AND  EXIT. 

93566  SUBROUTINE  I N PASS  2 FOR  AGC4  TO  PROCESS  A DOUBLE-PRECISION  CONSTANT.  UsING  THE  OUTPUT  OF  DEC  • 

R3558  C0N5T  OR  OCT  CONST.  AND  DISTINGUISHING  BETWEEN  THfc  SIGNED  AND  UNSIGNED  POSSIBILITIES  (FOR  OCTAL  CONSTANTS  ONLY), 

R 35 70  SETS  JP  Tht  HIGH-oRDeR  PART  IN  WORD  AND  THE  LUW-ORDeR  PART  IN  2ND  HALF,  SETS  THE  HIGH-ORDeR  PART  IN  PRINT,  AND 

R05 72  SETS  up  the  LOW-ORDER  part  IN  PRINTABLE  FORM  IN  2ND  ALF  AND  2ND  ALF  +1.  « 

0573  AGCa  2P  NA  NUMBER  W BAD  WORD  GOOD  2P  C BRANCH  IF  CONSTANT  IS  VALID. 

3575  TN  BLOTS  2 2ND  ALF  C PREPARE  BLOTS  FOR  LUW-OHDeK  PART.  • 

3578  IS  W BAD  WORD  2ND  HALF  AGC4  J.P  ♦ l C GO  TO  UQlN  S I NGLL-PKeC I SIqN  SadneSS. 


0580  GOOD  2P  TX  AGCA  MXR  - Z,MXR  C 

0581  NA  E NUMBER  ZERO  C,+3  C BRANCH  IF  NjMBER  IS  SiGNLU. 

0583  SWE*  B3HTAaM  NUMBER  15  WORD  C 

0554  TS  SPEC  MAG  COMMON  C,+3  C SET  UP  UNSIGNED  CONSTANT. 


0586  SWE.  B35T48M  NUMBER  14  WORD  C 

0557  TX  MIN  37777  - COMMON  C SET  UP  SIGNED  CONSTANT. 


0589 

0591 

0593 

0594 

EX 

lA 

HA 

HA 

NUMBER 
BIT  1 
WORD 

2ND  HALF 

COMMON 

number 

SPEC  MAG 
SPEC  MAG 

2ND  HALF 
C , + 3 
WORD 

2ND  HALF 

\ 

ISOLATE  LOW-ORDER  PART. 

BRANCH  IF  M3  MINUS  ->IGN. 

COMPLEMEN!  HALVES  OF  NEGATIVE  CONSTANT. 

0596 

0597 

SWE. 

SWE. 

CHAR8M 

ACOl 

2ND  HALF 
2ND  HALF 

T 1 a 1 r* 

12 

33, L 

2ND  ALh 
2ND  ALF  +1 

t *ir>  a 1 L 

c 

12 

0598 

0599 

0600 

sws , 
sws. 
sws. 

ACU2 

ACU3 

AC04 

2ND  HALF 
2ND  HALF 
2ND  HALF 

30  ,L 
27, L 
24,  L 

2ND  ALh  +L 
2ND  ALF  +1 
2ND  ALF  +1 

l 

MAKE  PRINTABLE  VERSION  OF  LOW-ORDER  PRT 

C 11 

0602 

TS, 

CHAR  1M 

DEC6  FLAG 

2ND  HALF 

A4  BIN  ALF 

C 

GO  TO  JOIN  SINGLE-PRECISION  PROCEDURE. 

10 


-4 

4 

4 

4 


0 

0 


90634 

RO636 

0637 

0638 


0611 

0612 

0614 

0616 

0617 

0618 
0620 


ob 

TX 

LA 

m 


ASC4  PASS  2 USER'S  D/«N  PAGE  NO.  16  PAGE  86 

INE  IN  PAPS  2 FDR  AGC4  TO  5LT  IN  PRINT  A RIGHT-HAND  LOCATION  FOR  SUCH  AS  5ETL0C.  PUj-S  IN 
TOR,  IF  ANY.  BLOTS  OUT  AN  INVALID  LOCATION. 

LOCATION  ONES  C * + 2 

BLOTS  C3'T6  lINE  +6  BLOT  OUT  dAO  LOCATION  A NO  ExH. 

AGC4  MXR  - Z.MXR  C 

4LRJ  C3T6  LINE  + b ~£ 

LOCATION  - COMMON  C ISOLATE  LOCATION  VALUE. 

COMMON  OCT  5777  PRINT  VAL  C BRANCH  IF  ADDRESS  IS  NOT  IN  A BANK. 

COMMA  C2  - LINE  *6  C 

LI-NE  + S C 

32, L LINE  +6  C SET  BANK  NUMBER  IN  PRINT. 

COMMON  OCT  6000  COMMON  C PUT  SUBADJkESS  IN  THE  RANGE  6000- T777. 


0622 

0623 

0624 

PRINT  VAL  SWS»  AC03 
SWS,  AC04- 
5W5,  AC 05 

COMMON 

GSM 

COMMON 

21  *L 
18  ,L 
15. L 

LINE  + b 
unt  +o 
LINE  +6 

- C 

0625 

0626 

5WS,  ACOb 
TX 

COMMON 

"Genl  mxr 

12, L 

LINE  +6 

Z7MXR 

V. 

SET  LOCATION  IN  PRINT  AND  EXIT. 

t 


t VuL  SYSTEM  ASSEMBLER  «SC4  PASS  2 

?3628  SANK.  5 PORTION  OF  AGC4  PASS  2.  ENTE«  IN  COSEQUENCE  MO 

R0630  AU2 , AND  ADDRESS  CUSS  LIST  IN  AUl.  bANK  INDICATOR  5 IS  LEFT  IN  R5 


0631 


SETLCC  * 3 


85 


0632  LNSfRAMB  SWE»  B38T48M  N,AJ2  0 N,AU1 

0634  SWS,  B3AT37M  N,AD2  25  N,AU1 

0636  SWS , B22T32M  N,AJ2 4,L  N,AU1 

0638  SWS » 8 1 8 T2  1 M N«AJ2  13  N,AU1 

0640  SWS  , B6T16M  N,AD2  8,L  N,AU1 

0642  SWS*  32T5M  N.AJ2.1  1 N,AU1,1 

0644  MA  N * A J2  SENTINEL  UN$CRAMB 


0645 


TX 


Z,AD2 


Z,R5 


D,44£  CDNO  CUSS 
D,EDD  LEFL  CUSS 
D*DCD  bAOL  CUSS 
D,CD4  LliOEF  CUSS 
D.OFE  LEFY  CUSS 

D,EFF  NF I T CUS2 
d»eee  scnf  CUS 1 
D*EEE  SOYS  CUS2 
d*ffe  sme  CUS1 

D.EEE  SMIT  CUS2 


0657 

0658 

0659 

M,D»EGF 

M.D,C52 

M,D,545 

b I DL  CUSl 
ADRE  BANK 
SBI X CUSS 

0650 

M » D » 5D5 

mtd  cuss 

0651 

M » D » 5 4 E 

MFD  CJSB 

0662 

0653 

0664 

m,d,gee 

M»D,GEf 
M , D , F ED 

NDE1  CUSS 
SBDE  CUS2 
SSNP  CUSS 

0665 

M,D,CDF 

BFJU  CUSS 

0666 

m«d«qfe 

M , D , 4 44 
M ,D ,4FD 
M,D»>EE 

memt  CUSS 

06  57 
0658 
06581 

UC1  cuss 
IMAO  CUSS 
PIN  CUSS 

06582 

M,D,ED4 

NMC2  CUSS 

0647  CUSsALOO  M 
06  48  *1 

0649  M 

0650  M 

06  5 1 * 

0652  M 

0653  S1 

0654  M 

0655  . M 

0656  M 


D ERR  CUSS  I LOP  CUSS 

CNFL  CUSS  TYPL  CUSS 

IP'OX  CUSS  MGLA  CUSS 

ASIZ  CUSS  IRAU  CUSS 

PREU  CUSS  NFI1  CUS1 

STYP  CUSl  ST  YP  CUS2 

SCNF  CUS2  SOVS  CUSl 

SMD  CUSl  SMD  CUS2 

SME  CUS2  SMIT  CUSl 

SNDE  CUSl  ARBL  CUSS 

SBDE  CUSl  SMDE  CUSl 

INAP  CUSS  ADR  CUi>S 

CCSF  CUSS  IDBC  cuss 

rang  cuss  FRAC  cuss 

lonb  cuss  UNO  1 CUSS 

LNSY  cuss  SNOE  CUS2 

SI DL  CUS2  SMDE  CUS2 

BNLF  CUSS  NSCH  CUSS 

ILOC  CUSS  TOLA  CUSS 

NMC1  CUSS  CAFS  CUSS 

DC  1 7 CUSS  UC24  CUSS 

POLE  CUSS  POVF  CUSS 

IPX1  CUSS  I PX2  CUSS 

OPCW  CUSS  OVND  CUSS 


06683  RESERVE  6 

06587  M,D,COO  UOP  CUSS 

0668R  M*D»C5E  SNNR  CUSS  MCPS  CUS5  CEHS  CUSS 


0669 


ENtINEL  dec 


BBOO  FFFF 
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PAGE  87 


OE  WITH  AGC4  MXR  I\  Z,MXR,  AUQRbSS  CUSSALOG  IN 
. Bank  5 ALSO  CONTAINS  MASK5  FOR  AGC4  PASS  2. 


ZERO  DEMAmD  BITS,  MOVE  SUbADUK  OF  CUSS3 • 
MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  3, 
MOVE  SUBAjD-itSS  OF  CUSS  2. 

MOVE  POISON  BIT  AND  LtNGTH  OF  CUSS  2. 
MOVE  SUBADDRESS  OF  CUSS  1. 

MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  1. 


S 


SET  BANK  INDICATOR  5 IN  R5*  EXIT 


0675 

0676 

0677 

LEFL 

CNFl 

1YPL 

cuss 

CUbb 

CUSS 

ALF  .5 
ALF » A 
ALF,  A 

improper  leftover  location  field  format 

CONFLICT  IN  USE  OF  lHIb  LOCATION 
LOCATION  IS  IN  WRONG  MEMORY  TYPE 

0 6 7 H 
0679 
0690 

EADl 

1PUX 

MGLa 

CUbb 

CUbb 

CUSb 

ALF  » A 
ALF » 3 
ALF , A 

OVERblZt  OR  ILL-DEFINED  LOCATION 

Illegal  polish  indexing 

ADDRESS  FIELD  IS  MEANINGLESS 

Db  3 1 I'DtF  CUSS  ALF  » 3 " " IS  UNDEF  IN  Eli 

0692  FSIZ  CUSS  ALF  « A RANSt  ERROR  IN  VALUE  OF  APURE55 

0683  IRAD  CUbb  ALF. A IRREb'JLAR  BUT  ACCEPTABLE  ADDRESS 


i 


» 

» 

» 


0635  LEFM  CUSS  ALF»4  LEFTOVER  WON'T  FIT  IN  MEMORY 

0636  FRED  CUSS  ALF  *5  ATTEMPT  TO  PREDEFINE  LOCATION  SYMBOL  FAI 


0638  NFlT  CUS1  ALF » t>  " " WON'T  FIT  IN  SYMBOL  TABLE 


0689 

0690 

0691 

0692 
06  93 

NFlT 

STYp 

CUS2 

CUS1 

CUS2 

ALF » 6 
ALF » 5 
ALF 
ALF  » 6 
ALF 

II 

TYPE 

TYPE 

0694 

scnf 

CUSI 

ALFo 

II 

0695 

scnf 

CUS2 

ALF  * 5 

M 

0696 

SOVS 

CUSI 

ALF  9 5 

II 

« WON'T  FIT  IN  SYMBOL  TABLE 
" ASSOCIATED  WITH  WRONG  MEMORY 

" ASSOCIATED  WITH  WRONG  MEMORY 


" ASSOCIATED  WITH  CONFLICT 
" ASSOCIATED  WITH  CONFLICT 
» GIVEN  OVERSUE  DEFINITION 


* 


O 


12 
1 1 
10 
9 
8 
7 
6 
5 


1 


3 73  1 SME  CJSi  ALFo  " " ASSOCIATED  WITH  MULTIPLE  ERRu  - - ■ -■■■  ;l 

0732  ALF  RS 

0733  SmE  CUS2  ALF » 5 " » ASSOCIATED  WITH  MULTIPLE  ERRO  f 

0734  ALF  RS 

OTaS  SMlT  CUS1  ALI-NS  " - 

07  36  EM  If  CUS^  4LF,S  ~ " " IS  IN  MISCELLANEOUS  TROUBLE 

oToT  SnDe  CUSi  ALF » 3 " " WAS  NEARLY  DEFINED  BY  EQUALS 

0738  ARBL  CUSS  ALF,S  ADDRESS  DEPENDS  ON  UNKNOWN  LOCATION  f 


z 


r» 


L 


3710  SIDL  CUS  1 ALF, 5 " » IS  INDEFINABLY  LEFTOVER 

0 7 1 1 SBDfc-  CUbl  ALF, 5 " " MULTIPLY  DEFINED  INCLUDING  NE _ 

ALFy2  ' -■~t ARC^BY^EaLt&LS  — — . 

3712  SMDe  CUbl  ALF , 3 " « nULTIPLY  DEFINED  INCLUDING  BY 


s 

6 

01 

u 

ZL 


3713  ADRE  BANK  ALF , 3 ADDRESS  IS  IN  BANK  00 

0 7 1 A INAp  CUSS  ALF  * b ADDRESS  IS  i NAPPROpR I AT E FOR  OP  CODE 

3715  ADR  CUSS  ALF  » 2 ADDRESS 


3716  SB  I X CUSS  ALF  ,3  THIS  INSTRUCT  ION  SHOULD  BE  INDEXED 

0717  CCSF  CUSS  ALF, 4 CCS  CANNOT  REFER  TO  FIXED  MEMORY 

3718  IDBC  CUSS  ALF  , b INEXACT  DEC  1 MAL-TO-B I NAR Y CONVERSION 

3719  FTP  CUSS—  ALFvS^  MURE  THAN  10  DIGITS  IN  DECIMAL  CONSTANT 

3720  fang  cuss  alf,a  range  error  in  constant  field 


10 


0721  f-  RAC  CUSS  ALF , 5 FRACTIONAL  FART  LOST  BY  TRUNCATION  s 


3 7 2 3 MFD  CJ5S  ALFV5  MORE  THAN  14  DIGITS  IN  OCTAL  CONSTANT 

0 724  LONr  CUSS  AlF,4  location  full  SHOULD  ct  BLANK 

0725  L N D 1 CUSS  ALF » 5 " " WAS  JNDrFINfcU  IN  PASS  1 


0726  NDEl  CUSS  ALF » 5 " » WAS  NEARLY  DEFINED  BY  EUUALS 

0727  ALF*2  IN  PASS  1 


" 01-78  LNSy  CUSS  ALFt^:-.-----  U ^QC-feUzON- FI ELD  SHOULD  BE  SYMgQOC.  ==  = :=_ - TU: ^ 

0729  SNDf.  C US  2 ALF, 5 " " WAS  NEARLY  DEFINED  BY  EUUALS 

0730  SBDE  CU52  ALFO  " " MULTIPLY  DEFINED  INCLUDING  NE 


07301  ALF, 2 ARLY  BY  EQUALS 

0731  SIDl  CUS2  ALF, 5 " " IS  INDEFINABLY  LEFTOVER 


J 


• 3734  SSNP  CUSS  ALF  * b " 11  SHOULDN'T  HA  Vt  BEEN  PREDEFINE  '~=s  ^----  u ) 


0736  BNLF  CUSS  ALF^5  NUMERIC  LOCATION  FIELU  15  ILLEGAL  HERE 

0737  NSCh  CUSS  ALF*4  NO  SJCH  BANK  IN  THIS  MACHINE 


0738  EFUi.  CUSS  ALFiJ  THIS  BANK  IS  FULL 

0739  IlOc  CUSS  AlF»4  IlLESAL  [UCATION  FIELD  FORMAT 

0740  10U  CUSS  ALFtb  CARO  IGNORES  BECAUSE  IT'S  TOO  LATE  IN  TH 

0741  ALF  E DECK 


0742  MEmT  CUSS  ALFtb 


ALF » 2 


0 7 44  f\ M C i CUSS  ALF tb 


ALF- 


0746  CAFs  CUSS  ALF t b 


CARO  IGNORES  BECAUSE  If  MAKES  MEMORY  TAB 


NO  MATCH  FOUND  FOR  CARD  NUMBER  OR  ACCEPT 
OR  TEXT 

First  Caro' number  imot  less  than  second' 


Y-liL  5 Y STEW  ~4S:SEMB  LEFFTvgCA  P ft  5 5 2 
AGCA  CUSSES  CONTINUED. 


07A8  0C1  CUSS  ALF  » A UUEER  INFORMATION  IN  COLUMN  1 

0 7 A9  GC 1 7 CUSS  ALF, A UUEER  INFORMATION  IN  COLUMN  17 

Q7^Cr~"G-C-2-4---CU:S5—AllF^-A-  UUE.ER  1NFURNATTQN  IN  COLUMN  - 24 


0751  I MAO  CUSS  4LF.A  HLA'K  ADDRESS  FIELD  EXPECTED 

07  53  POLE  LUbb  ALF  ,5  ADDRESS  FIELD  SHOULO  CONTAIN  A POLISH  OP 


0754  ALF  ERATOR 

0755  POVF  CUSS  ALF, A OVERFLOW  IN  POLISH  OPERATOR  WORD 


-^yryfe--  F_1N_CU5S  :^££F  ,5 

L F 0 7 57  ALF 

0758  IPXi  CUS5  ALF ,5 

0759  IPX2  CUbb  ALF, 5 


FIRST  ADDRESS 
I Ti  VE 

FIRST  POLISH  OPERATOR  ILLEGALLY  I U U F X t_  L' 
SECOND  polish  OPERATOR  ILLEGALLY  INDEXED 


o 


0 7 52 
0753 
0757 

OPCw  cuss 
ovnd  cuss 
IXOp  cuss 

ALF.A 
ALF  i A 
ALFtA 

LAST  OPERATOR  WORD  COUNT  WRONG 
THIS  CODE  MAY  BECOME  OBSOLETE 
' ASTCRISK  ILLEGAL  ON  THIS  OP  CODF  ^ 

— . - , • • ' ' ; 

— " u - : — ( 

= 

0330 

0801 

0802 

SNNR  CUSS 
MCPS  CUSS 

CeHS  cuss 

Ai.F  i A 
ALFiS 
ALFiS 

SUBROUTINE  NAME  NOT  KECUGN 1 ZED 

multiple  calls  in  one  PROGRAM  OR  SUBRO 
CONFLICT  WITH  EARLIER  Ht AD  SPECIFICATION 

==================^^=' 

% 


\ 


\ 


* 


% 


\ 


% 


\ 


% 


% 


% 


* 


ROOD1 WE  ARE  DEEPLY  ■INDEBTED  TO  THE  ONE,  THE  ONLY*  IHt  GREAT  JOHN  SHAW  FOR  THE  FOLLOWING  STRONG  MAGIC.... 

R33  33  JSOcTU 


* 4 


9 

L 


3035 


MASKG.Rp  *4  5,1 


" 4 


R0336  THE  SACO  PART  OP  PASS  2 CONTAINS  THt  CUSS  LIST  AND  CUSSES  FOR  SACo,  TOCHER  WIjH  CODING  TO  PLANT  A 

r o3 38  modified  cjss  list  at  the  beginning  of  bank  2*  and  coding  to  process  instructions  and  clerical  codes  fqr  saco. 


ROQjO 

R3012 


THE  cjss  LISI  AND  CuSSLS  ARE  LOADED  INTO  BANK  3 ALONG  wlTH  CODING  TO  CONVERT  THE  CUSS  LIST  FROM  THe 


Fnl  EDGING  mixeD-CqNSTANI  FORMAT  £ 


4 

4 


R3313  OP  CODE!  FOR  EACH  OF  3 CUSSES*  A P'OISON  BIT  AND  A 3-BIT  CUSS  LENGTH*  4 

r 33 1 a a address:  demand  bit  and  sjbaddress  of  cuss  i, 

ROOT 5 : S'  A nDtRE5 ST-- DEMAND^ :B:IT—A-ND- 1 S OBADDR ferS5 ~ ~Q  F " CUSS 2,  = ~ 

R0316  t ADDRESS:  DEMAND  o I T AND  SJBADDRESS  OT  CUSS  3 - 4 


R0017  TO  A CAC-WORD  FORMAT  IN  WHICH  EACH  CAC  CONTAINS  Me  DEMAND  BIT*  POISON  BIT*  LENGTH  ANU  sUbaDDReSS  OF  A CUSS, 

R 3 3 1 9 THE  CONVERSION  15  REQUIRED  ONLY  TO  MAKE  USE  OF  EXISTING  MASKS  IN  GENERAL  PASS  2.  4 

3Tte?T_i_  THr  PKnCFftSTNG  COOING  IN  THF  BANK  ■ 1 HOKTI ON:  0 F SAC0^A3S7-~7-VHA^^-HF  FaLL0WIN5~  FUNCTTfTNIIt1-  :r  - _== 

RQ323  1)  FOR  ALL  WORDS*  JO  Set  IN  PRINT  TH£  WUKD  AND  ITS  LOCATION*  AND  ANNOUNCE  END  OF  BANK  0R  £ND  OF  BLOCK  IF 

R0025  APPROPRIATE. 

£ 

R 33 26  2)  FOR  INSTRUCTIONS,  TO  TRANSLATE  T^  ADDSeSS  FIeLD  AND  REDJCt  IT  IF  ITS  VALUE  IS  IN  ONE  OF  TH£  BANKS 

R332R  3-7 , NOTING  BANK  ERROR  IF  APPROPRIATE.  SUPPLY  AN  IMPLIED  ~ADDR£S5  I i-  kcuUIReD.  CJSS  POLISH  INDeXINg  IF  IT  IS 

L R3331  P"C  1 FOR  BASIC  INSTRUCT  IONS,  CHECK  THAT  "CAE"  REFERS  TO  FIX£D  AND  "T5»  TO  ERASAdLE  (000U-1777),  UNLESS 

R3033  preceded  by  n index",  check  ttaY  extkagodesmare  indexed,  and  flag  " adres" , "gadr",  "xcadr"  codes  and- polish  and 

R3035  STORE  ADDReSSeS  AS  CONSTANTS.  FLAG  UNINDEXED  BASIC  INSTRUCTIONS.  4 

R3036  for  polish  operator  words,  to  translate  the  addkess  field  if  it  is  an  operator  word  count,  or  form  a 

R3338  VQRt)  FROM  ME  MO  JPeRAIURS  OTHERWISE,  ADDING  1 AND  COMPLEMENTING.  CJSS  ALL  ERRORS  UP  TH£  oeCOND  OPERATOR. 


R 3 3 A 0 3)  FOR CONSTANTS,  TJ  FLAG  THtM  AS  SUCH  AND  CHECK  QN  MAGNITUDE. 


ROOAl  A)  FOR  SetlOC*  EOUALS*  MEMORY * BLOCK,  SUBRO*  AND  £kASe*  TO  SeT  APPROPRIATE  ADDRESS£P  IN  PRINT* 


t 


6 


t 5 


* 


*,  0CH8  SC  Kl  MAX  OCT  -77777 

00^9  SC  D2  PARS  FLDEC  268  A35  A55.0,  268  A35  A56.0 

no  ft  Cl  . -g-Xfim=  -268  »35  ASS 

3051  SC  PROC  2P  CAC  SACO  2P  SACO  PLtfc! 

0052  SC  K 2 MAX  OCT  “ -77  7777  7777 

* 0053  SC  MAX  LOC  OCT  -17777 

3 0 ^-77V  ^777"77-77  - 

Q 0055  Sc  pRET  FL  OCT  0000  0010  |§§| 

0056  SC  FUG  MSK  OCT  7AOO  00  ?7 


0057  SC  CONS  FL  OCT  0000  0020 

0058  SACp  JMXR  MASK_BA5E  S , 1 F,_l 

0059  SC  Ml  SC  FL  OCT  0000  0030 


:? 


0063  t » B I T7M  DCTf  004 

0064  B»BjT17M  DEC  00008 

0065  B » B I T25M  DCT  -4000  0000 


0068  B,BlT32M  OCT  -20  0000 

0069  B,BjT33M  OCT  -10  0000  « 


0071  E,B25T31N  OCT  -7740  0000  - — ■■  « 

0072  L.B34T36M  OCT  -7  0000 

0073  E ,634T48M  OCT  -77777 

• 

0074  B * B<+ 1 T 48M  OCT  -377 

0075  B*B42T48M  OCT  gl  -177  ; 

0076  T,ChARlM  OCT  7 7 ' ' -'-^==  4 

0077  B.CflARiM  OCT  -7700  0000 


0078  B*ChAR8M  OCT  -77  4 

0079  B * C 1 T4M  OCT  7777  7777 

OOftO  &veyT4M  3CT  — -■ 

0031  EPEcMAQ  M EQUAL 5 B34T48M  =_  # 

00 g2  b ,BaN<MASH  OCT  -16000 


0034  B,B35T48M  OCT  -37777 


4 


4 


4 


T 


s 


* 


YUL  SYS  I EM  ISSEKBLtR  SACO  PASS  2 

FURTHER  SHIFT  MASCS  FOR  SACO  PArT  OF  PASS  2. 


USER'S  OrtlY  PAGE  NO« 


0086  S,BiT2M  OCT 

0087  5 »B I T38M OCT 

0088  : S«BtT39W  OCT 

0089  S *Bi T 40M  OCT 


2 

-2000 
-1000 
-400  i 


0090 

S *B2  T5M 

OCT 

36 

0091 

S ♦ B6  F 1 6M 

OCT 

0177 

74 

0092 

S,Bi8T21M 

OCT 

0000 

017 

0093  S,B22T25M  OCT 

0094  S,B22T32M  OC [ 

0095  S,B28T30M  OCT 

0096  S,B34T37M  OCT 


0000  0007  4 
-7  7760  0000 
-700  0000 
-7  4000 


0097  SVf5_3  5 T_4 1 M OCT  -37600 

0098  S,B38T48M  OCT  -3777 

| 099  S«B40T42M  OCT  -700 

OCT  07 

OCT OOOJ 

OCT  0000  07  7 

OCT  ~ OOtOO"-OOTT?=^s 

EQUALS  B28T30M 

EQUALS  B34T36M 

EUUALS  B40T42M 

0107  S,ChAR3H  3CT  0000  77 

0108  S,ChAR4M  OCT  0000  0077 

0109  E,ChAR7M  OCT  -7700 

0110  S,C3T6M  OCT  0000  7777  7777 

0111  StONESM  OCT 7777  7777  7777  7777 


0113  S.ThREEM  OCT  -3 


0100  S,Ac01 

0101  S,AcD2 

0102  S»AcQ3 

0103  S,Ac04 

0104  A CO 5 

01 05  ACOfe 

0106  ACO7 


0118  SPEcOND  1 OCT 

0119  SPEcOMD  4 OCT 

-Ol  70  SpEcUNO  i>  OCT 


-0200  0000 
-1000  0000 
-T2=0 0 0000 


SPErOND 


0122  SPEcOND  7 OUT" 

0123  SPEcON  11  OCT 

0124  SPEcON  12  OCT 


-1600  0000 
-2200  0000 
-2400  0000 


0125  # P-GfeOP  7 — zOC-T 

0126  2 PoLOP  17  OCT 

2 PolOP  27  OCT 


0127 

0128 


PL  77776 


OCT 


-0340  0000 
-0740  OOOC 


-1340  0000 
+77776 


0129  lu  2000O  OCT  +20000 

0130  V L 17777  OCT  +17777 

0131  PL  17776  OCT  +17776 

0132  PLUS  1776  OCT  +1776 


Q 

0134  OCT  77776  OCT  -77776 

^ Ql^-  KIN  377 77  3£-T^  -3  777  7 

::  - 0136  CCT  320.00  OCT  -32000 

" 0139  OCT  6000  OCT  ~ -6000“ 

0140  OCT  6 77  7 OCT  -6777 

0141  DEC.  48  r'LC  DEC  4-6 

01 46  CP  COUNT  OCT  -77777 

0147  C3T6  OCT  0000  7777  7777 


* 


X 


% 


) 


0150 
0151 
01 527 
0153 


0154 

0155 


END  s3L  MC 

ALF 

E6  MC 

■8 

HI  eDDALS 

alf  6000  : 

ALF 

ALF 

= OiOOOO 
00005000 

-- 

. -= 

— 

~ : -'== 

6 

comma  ca 

ALF 

0» 

• 

• : - , 

MINUS  C8 

ALF' 

- 

?0157  ‘ DPkESS  Cp  N 51  AN  I 5 AND  • SCELL ANE3US . 


-7)1=F8-  ^ I ALADb 

01 50  IMPlADS  CAC  1 1-:  0 - 

0151  CAC  14  2 

0152  CAC  21  15 

0153  CAC  3071 


f 


0154  SAV  ADREF 

0155 

0156  MAX  ADRES 

0158  ADRe  CUbb 


uSfcR • 5 DwN  RAGE  N0« 
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"HOT  71 
*0173 
90175 
^0177 


5U0RCTUTlNE;  I N PASS  2 FOR  SACO  TO  FORM  A WORD  FROM  Aim  OPERATION  CODE  AN 0 AN  ADDrEoS  (BASIC  1NSTRUC- 


TT0N5-AND  ADDRhSSTXUFI'5TANTS)  , OR"  FROM'  TWO^PULICH  DPeRAT0FT~C0De5  (POLISH  OPERATOR  WORDS).  j^E  OPtRAy  IOn  TODe  ( S ) 
and  some  ASSOCIATED  INFORMATION  BITS  ARe  TAKeN  PROM  THE  HeA|_TH  WORD  OF  JhE  CURRENT  POPO  ITEM.  TH£  ADDRESS  IS 
OBTAINED  FROM  THE  CARD  VIA  A GENERAL  SUBROUTINE  IN  PASS  2 CaLLeD  PROC  ADR.  IMPLIED  ADDRESSES,  BANK  ERRORS,  AND 
TTNr ApP-8:0 gRT^ATiE^AT^DT^ SS ES^,VA:g?E^--C;HErC=K LPT  FOR,  AND  AQURES5  VALUE  CUSSING  IS  DONE. 


sACO  MXR 


0181 

~SjA,  BIT  32M 

health  ” 

ZERO 

POL  I S H OP 

0183 
0185 
0187  ~ 

SWE  * B3^T 36^ 

health 

health 

12 

10,C  - 
ONES 

WORD 

~ CU5S  LTSX-*30-  - 

USE  MA5KBASE  FOR  THIS  MACHINE* 
BRANCH  IF  A ROUSH  UPERATuR  WORD. 


INSERT  BAalC  OP  CODt  INTO  WORD, 

MAYBE  CUSb  ILLEGAL  OP  code  ASIERISK. 
branch  if  no  IMPLIED  AUDRtSS. 


BLANKS  C , + 3 
BLANKS  C , +2 
2 , X6  C , +2 
CUSS  LIST  +21  C,-l 


0139 

0190 

0191 


IMPlAD 


0193  1 

0195 

0196 


NA 

NA 

TS 

TS.  BIT  1M 


ADDRESS  1 
ADDRESS  2 
IMPAD  BAS 
ONES  ' 


PROCEED  IF  ADDRESS  FIELD  IS  BLANK. 
OTHERWISE  CJ55  MILDLY  AND  PROCEED. 


5W-5  , B?  2T?:-5-M  =HE-  ALTH 


5tSCC 


SWE,  B34TA8M  6 , 0 


C«*l 

ADDRESS 


01972 

0198 

0200 


02  OA 

02052 

0206 


as 

NA,  BIT  25M 


SUPPLY  IMPL 1 ED  ADDRESS. 


2ER0 

HEALTH 


SQUARE 


-NA,  BIT  7 Nf  ' 5WTTCH 


ADDRESS 

ONES 


ADR  WD 
NOT  SQUAR 


NlO-T--5QU:A-S--t-2 


BRANCH  UNLESS  OP  CODE  IS  "SQUARE" , 
k BR  If  EXT RACOUE  " SQUARE " I s indexed. 


^ TS,  BIT  1M  ONES 


k^^=gS5kkSSTG^kSE§SS3kkkSS6g^ 


CUSS  OTHERWISE. 


NOT  SQUARE 


SWS*  BIT  28M  HEALTH 
SWS,  BIT17M  SWITCH 
TS,  CHAR5M  2ER0 


SWITCH 

CuSS  LIST  +2 
BASIC  SBA 


5ET  CURRENT  INDEX  BIT  FOR  "EXTEND"-. 

CUSS  INDEXING  OF  NON-EXTKACoDt  ImPLADS. 

CLEAR  FALSE  special  condition  flags. 


0208 

0210 


NO  IMPLAD 


» 

r 


0212 

02  1 A 
0216 
i 0218 
02  20 

02-22 

022A 

0226 


-TN ADDRESS  1 

HEALTH 
LA,  B25T"29M  SPECON  13  ' 


ADR  CONST  SM 

LA,  B25I29M 

• la,  B25 r 29M 


WORD 

HEALTH-  f 
HEALTH  1 
IS,  SPgCMAGM  SPECON  13 


SpECoND  5 
Health 

Dec  6 FLAG 
SPeCqND  7 
SPECON  1 
- WORD 


SAV  adref 
NON  CONST 
NON  CONST 


WORD 

non  Const 


NON  CONST  +2 


SAVE  ADDRESS  FIELD  IN  CASE ; OF . POLADReS. 
branch  if  Special  condition  s oh  less. 
BRANCH  IF  special  CONDITION  13  OR  MORE. 

put  constant  flag  on  address  constant, 
branch  IF  Code  = ADR£S  OH  CaDK. 
branch  if  code  is  not  xcadr. 

SET  UP  A7777  IN  WqRD  AND  ALLOW  -ADDRESS, 


POL  STORE 


TS 

LA,  CHaRBM 
LA,  CHaRBM 


ONE 

ADDRESS  2 
I HR  Ft 


ADDITIVE 

zero 

AODRrSS  2 


RITE  NORM 
NO  POLIX 
NO  POL  1 X 


0228  = 


T 5 , CHAR8M  .ADDRESS 


ADD  I T I Vt 


RITE  NORM 


GO  FISH  FOR  ",l"  OR  ".2". 

NO  INDEXING  IF  LAST  CHAR  I S 

NOR  IF  IT  IS  3 OR  MORE. 

IT  WAS  1 JR  2 AND  NOW  WE  SEEK  A COMMA. 


0230 

0231 

0233 

02  3 A 
0235 
0237 

02  39 
02  A 1 


NA,-  CHAR8M  ADDRESS  2 

POLE  INDX  TS,  BItiM  ONES 

NA,  B25T29M  HEALTH 

STORE  AU  SWS,  BIT38M  ADDITIVE 


WA 

TS 


NO  POLIX  TN 


ADDITIVE 
PLUS  1776 

SAV  adref 
ONE 


COMMA  C8 

ADD ITIVE 
SPECON  11 

37 

OCT  32000 
MAX  ADRES 


NO  POLIX 

RITE  NORM  +1 
POLISH  AD 


ADDITIVE1 
ADDITIVE 
POL  SIGN  T 


2 

ADDITIVE 


ADDRESS  1 
POLE  INDX  +1 


INDICATE  INDEXING  AND  ReMoVe  CqMMA. 


ADD  32000  (DIRECT)  UR  34UOO  (INDEXED). 
SET  MAX  ADR  VALUE  FUR  STORE  ADDRESSES. 

RESTORE  ADDRESS  FIELD  IF  NO  INDEXING. 
GO  TO  FIND  WHETHER  POLISH  OR  STORE. 


a 


1 


USER'S  0«N  RAGE  NO. 
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INACTIVE  ADDRESS  CHECK  AND  I,  I MIT  -SETUP  FOR  POLISH  ADDRESSES. 


02 

32  4 6 
02  48 
=0^50= 
0252 
0254 
0256 
0258 
02  50 

0252 
02  54 


POLISH  AD 


NA,  CHAR1M 
SWS,  BIT  1M 
35 

NA,  BIT17M 
“SM" 

ss 
UA 
TX 


CARD  + 2 
SWITCH 
ZERO 
SWITCH 
OP  COUNT 
Cuss  LIST  +23  BIT  17 
ZERO  BIT  17 

ADDITIVE  BIT  1 

PL  1 7 776  ~~  - y 


C , ♦ 3 

CUSS  LIST  +22 


CUSS  LIST  +23 
SWITCH 
PO  DIRECT 

MAX  ADR £5 


BRANCH  IF  NO  MINUS  IN  COL  17. 

CUSS  MINUS  IF  FIRST  ADDRESS  OF  EQUATION, 
MINIMUM  MAGNITUDE  IS  ONE  IF  MINUS. 

BRANCH  IF  NO  I FIRST  ADDRESS  OF  EQUATION. 
BRANCH  IF  LAST  OPERATOR  WORD  COUNT  OK. 
CUSS  BAD  OPERATOR  WORD  COUNT. 

RESET  PERMISSION  BIT  FOR  MINUS  PoLADS. 
TEST  FOR  iNACTIVE  ADDRESS  IF  GNlNDEXED. 
MAXIMUM  AUGMENTED  FUR  POLISH  INDEXED. 


FqL  SIGN  T NA,  CHAR1M  CARD  + 2 


TS 


PL  20000 


bit  1 

MIN  ATDRETT 


PL  7 7J76 MAX  ADRES^ 

ADDRESS  1 " BLANKS 
ADDRESS  2 BLANKS 
CUSS  LIST  +11  BIT 


MAX  AD  SET 
~ MAX  AD  SET 


RITE  NORM 


TEST  STORE  AND/OR  POLISH  INDEXED  ADDR. 
force  RANGE  ERROR  IF  MINUS  SIGN  HERE. 


MAXIMUM  VALJE  FOR  POLISH  UNINDgXED. 


ACTIVE 


ADDRESS  2 
SAV  ADREF 
SPeCMaGM  ONES 

SPEC  MAG 


0279 

0261 

02B3 

0285 

0236 

0268 

0290 

0292 

0294 

02  96 

0298 

0299 
0301 

0303 
0305 
3.3  oJ 


NON  CONST  NA,  B34I36M  WORD 
TS 
TS 

PAX  AD  SET  TX 


PL  17777 
OCT  7777 
GENU  MXR 

z,sc 


SAV  ADREF 
ZERO 


TN 

= J5  = 

SWS,  Bit  17*1  HEALTH 

LA  ONES 

ADR  WD 

UN  PL  20000 

f> 1 1 Ci  ERRUk  TS,  BIT33M  ONES 

TS,  BIT17M  ONES 


MINUS  Cb 
2 

WORD 

MIN  AUReS 

op  code  4 

MAX  ADRES 
MIN  ADRES 


Z » X 6 
2 

min  adres 


ACTIVE 
ADDRESS  1 
GUD  BASIC 
MAX  -AD~  5fT= 


C,  + ; 


MAX  AD  SET 
C,-l 
Z ,MXR 
PROC  ADR 
ADDRESS  l 

SACO  INST 


8 

ADDRESS 


CUSS  LIST 
BAD  BASIC 

CONST  I ■ 


MAX  ACRES 
ADR  ,vD 
CUSS  LIST  +11  PRB  ADRES 


CONST  Q 


0308 


LA  WORD 

LA.,  B25T29M  HEALTH 
LA,  B25T29M  HEALTH 
.A,  B2S129M  SPECDN  12 


CUSS  LIST  +3  BAD  BASIC 


INSTROP 


BIT  17 
5PEC0ND  6 BASIC  SBA 

SPECOND  f CADR 

HEALTH  BASIC  ADR 


0310 

0312 

0313 


0315 

3317 


PO  STOR  AD  WA,  B35T48M 
LA 
WA 

NA,  CHaRIM 
WO 


ADDRESS 
ADDITIVE 
B35T48M  WORD 

CARD  +2 
WORD 


ADDITIVE 
BIT  1 


WORD 
C , +2 


0319 

33  2 1 CADR 


TS,  C1T4M  ZERO 
TS,  SPeCMAGM  ADDRESS 


ADDRESS  WORD 

BIT  1 GUD  BASIC 

TWO  WORD 

LINE  +6  GUD  BASIC  +1 


WORD 


GUD  BASIC 


9 — 


POLAD  W/  SL  ADR  FLD  MAY  Be  BLANK  CARD. 

RESTORE  ADDRESS  FieLD  IF  INACTIVE. 

MINUS  ZERO  REPRESENTS  INACTIVE  ADDRESS. 

(Permitted  until  ops  are  examined). 

BRANCH  TO  PERMIT  NEGATIVE  ADDReSS. 

MAX  FOR  ALL  cases  cjUT  POLISH  AND  STORE. 
ALLOW  -7777  TO  17777  EXCEPT  ON  CS,  MP. 


TRANSLATE  ADDRESS  FIELD. 

RESTORE  ORIGINAL  ADDRESS  FIeLD  FOR  PRNT. 

restore  min  adr  value  and  mxr. 

CUSS  LACK  OF  "D"  IN  DECIMAL  SUBFIELD. 
meaningless  or  atrocious  address. 


bRANCH  IF  no  RANGE  ERROR. 

PRINT  BAD-SIZE  ADDRtSS  IF  PqSSIBle. 
CUSS  RANG-  ERROR  IN  ADDRESS  VALUE. 

BRANCH  IF  NO  CONSTANT  FLAG. 


BRANCH  IF  CODE  IS  "ADRES”. 

BRANCH  IF  CODE  IS  XLADR. 

USE  ADDITIVE  UN  POLISH  OR  STORE  ADDRESS. 


I»  « 


USE  2 X ADDRESS  IF  INDEXED. 

BRANCH  IF  NO  MINUS  SIGN  In  COLUMN  17. 
SINCE  INTERPRETER  DUES  NUT  CCS  1HESE. 
CLEAR  ADDRESS  IMAGE  AND  GO  TO  PRINT. 

USE  ADDRESS  AS  IS  FUR  CADk. 


4 

4 

4 

4 

4 

4 

4 

4 

'4 

4 

4 

4 

4 
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P0323 
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032A 
33  26 
-3027 


INStROP 


LN 

NA,  BIT  7M 

- - SM ■ 


ZERO  ADR  WD 

SWITCH  ZERO 

CUSS  LIST  +12  bIT  1 


C,  + 3 
C,  + 2 

CUSS  LIST  +12 


BRANCH  IF  POSITIVE  ADDRESS  VALUE. 

CUSS  IF  Nj  INDEX  BEFORE  MINUS  ADDRESS. 


3329 


wA»  B25T29M  HEALTH 


0331 

0332 

0333 


LA,  B25T29M  HEALTH' 
LA,  B2 5 1 29M  HEALTH 
LA,  B25T29M  HEALTH 


zero 

“SPECOND  1 
SPECoND  4 
SPECOND  5 


BASIC  ADR 


BRANCH  IF  THERE  ARe  NO  SPECIAL  CqNDS. 


CAF 

INDEX 

TS 


33*4  XTRaCODE  NA--«  B.I-T7M ?===  ZERO  BASIC  ADR 

0335  TS,  dl|  IM  ONES  CUSS  LIST  .12  8 A 5 1 C ADR 


CU5S  UNINDEXED  EXTRACUDt. 


0337 

0339 

0340 


TS 


NA,  BIT7M 
LA 

TS,  BIT17M 


switch 

ADDRESS 

ONES 


zero  basic  adr 

OCT  1777  BASIC  ADR 

CUSS  LIST  +12  BASIC  ADR 


TS,  BIT28M  ONES 


BYPASS  CHECK  IF  INSTRUCTION  IS  INDEXED. 
TS  MAY  NOT  RtFEK  TO  FIXED  MEMORY. 

SET  CURRENT  INDEX  BIT* 


0344 
03  46 
0348 


03  52 
0353 
0355 
0357 


CAF 


NA,  BIT  7M 
LA 

AM — ^ 

MM 

7NA 

TX 

WD 

TS,  C1T4M 


SWITCH  ZERO 

OCT  2000  ADDRESS 

X-USSR^:S7"+U.E  B.TT  -1-7  " 


ZERO 
WORD 

SPEC  MAG 

WORD 

ZERO 


BASIC  ADR 
BASIC  ADR 


ADDRESS 
LINE  +6 


CUSS  LIST  +11 


C,  + 2 

WORD 

WORD 

GUD  BASIC  +1 


NO  CHECK  on  INDEXED  CAF. 

BRANCH  IF  VALUE  CORRECT  FoR  CAF. 

CUSS  INAPPROPRIATE  ADDRESS. 

branch  if  positive  address. 

+0  MUST  BECOME  -0  FUR  SUBTRACTION. 
ADD  IN  NEGATIVE  ADDRESS. 

CLEAR  ADDRESS  IMAGE  AND  GO  TO  PRINT. 


BRANCH  IF  ADDRESS  NUT  IN  A BANK. 


0361 

0363 


TX,  BANKMASK  OCT  6000 
LA  LOCATION 


OCT  5777 


ADR  WD 

CUSS  BANK  +1 


PUT  SUBADDRESS  IN  6000-7777  CLASS. 
BRANCH  IF  LOCATION  IS  NOT  IN  A BANK. 


BRANCH  ON  BANK  ERROR. 
CUSS  BANK  +1  GO  TO  ASSEMBLE  WORD. 


0369 

0371 

0373 

0375 

0376 


TX 

SWS,  si T2M 
HA  . 


Z , R 5 

SWITCH_  5^L 

LOSS  LI5T  +11  81 


SWS,  83 dT 48M  COSS  LIST  +11  32 
CUSS  BANK  SwS , AC04  ADDRESS 


0378 


WA,  5PECMAGM  WQRO 


ADR  WD 


Z,X6 

CUSS  LIST  +J1 
CUSS  LIST  +11 
Z,X6 


WORD 


PUT  BANK  INDICATOR  5 IN  X6. 

SET  POISON.  BIT  OF  BANK  ERROR  ^-USS  Tu 
INDEXED,  AND  CALL  FUR  THE  CUSS. 


INSERT  BANK  NUMBER  IN  BANK  CUSS. 
PUT  ADDRESS  OR  SUBADDRESS  IN  WqRD. 


o 


-• 

o 

o 

o 

J 


^YUL  SYSTEM  ASSEMBLER  SACO  PASS 

33330  printing  procedures  for  basic  instructions  and  address  constants. 


USER'S  OaN  PAGE  NO.  10 


PAGE  105 


0381 

0383 

0385 

0387 


GUD  BASIC 


SS  ZERO  C IT  A LINE  +6 

NA,  CHAR1M  CARO  + 2 BIT  1 C,  + 2 

^tA  - WORD  “ SPEC  MAG  WORD 


CLEAR  ADDRESS  FIELD  OF  PRINT  IMAGE. 
BRANCH  IF  NO  MINUS  SIGN  IN  COLUMN  17. 

complement  relative  instruction. 


0388 


0389 

0390 
0352 


0396 

0398 

0400 

0402 

04J4 

0406 


0408 

0410 

0411 

04 1 3 

0414 
0416 
0418 
0420 
0422 


= SWS,  ACPI m WORD  I 
SWS*  ACU2; 


30, L 


SWSi 

SWS, 

LA 


AC03 

AC04 


WORD 

WORD 

DEC  6 FLAG 


27, L 
24, L 
WORD 


LINE  +6 
LINE  +6 
ACON  PRNT 


PUT  BASIC  CODE  ADDRESS  INTO  PRINT  IMAGE. 
BRANCH  IF  WORD  IS  AN  ADDRESS  CONSTANT. 


0394  In5t  PRNT  5WS,  CHAR7M  WORD 


na,  bit  7m  switch 

TX,  CHAR1M  DEC  48  FLG 
SWS,  CHAR3M  ADDRESS 
SWS,  CHAR4M  WORD 
:-S#S-t"-=BTT7M-  -SWTTCPr-^ 
TS,  BIT28M  ZERO 


ZERO 


LINE  *5 

C«+2- 

WORD 


PRINT  OP  CODE  OF  INSTRUCTION. 


bad  Basic 


ss 

LA 

TS, 


CHAR8M 


branch  on  Indexed  instruction. 

MARK  AS  SuBJECT^rcTBAD  R t F E R E N CE^  CHECK . 
SUPPLY  BANK  INDICATOR  TO  SIMULATOR. 
STORE  IT  TWICE  TO  MAKE  PARITY  OK. 

MOVE  CURRENT  INDEX  BIT  TO  PREV IOU5. 
CLEAR  CURRENT  INDEX  BIT. 


LINE  +6 
C , ♦2 

NAUGHTY 


BLOT  OUT  BAD  ADDRESS"  FIELD. 

BLOT  FIRST  DIGIT  OF  BAD  CONSTANT, 


NA,  -B2.5_I.29M-  HEALTH 
TS,  BIT  7M  ONES 
SS 

NA,  CHAR1M 
HA 

SWS,  CHAR7M 


TS 


0424  NAUGHTY 

0425  ACOM  PRNT  SWS,  CHAR8M  WORD 


ZERO 
CARD  +2 
WORD 
WORD 

W BAD  WORD 


SPECOND  N 
SWITCH 
BIT  7 
BIT  1 
SPEC  MAG 
6 

WORD 


SWITCH 
C , + 2 

WORD 
LINE  + 5 


SET  PREVIOUS  INDEX  BIT  IF  INDEX. 

CLEAR  PR  E Y 1 JUS  INDEX  BIT. 

BRANCH  IF  NO  MINUS  SIGN  IN  COLUMN  17. 
COMPLEMENT  GOOD  OP  OF  BAD  N£G.  INoTR. 
PRINT  GOOD  JP  CODE  IN  BAD  INSTRUCTION. 


BC  CHECK 


12 


LINE  +5 


PRINT  FIRST  DIGIT  OF  CONSTANT* 


BC  CHECK  NA,  CHAR1M  CARD  +2 

TS,  BIT  1M  ZeRD 

na,  charim  card  +2 

NA,  charim  card 

TS,  BIT  1M  ZERD 

NA,  CHARlM_  card 

NA,  C H a R b M CARD  +2 


0439  INStR  XIT  TS 


MOD  ; R£TRN 


BIT  1 C , +2 

CUSS  LIS]  +12  C , ♦ 2 
BLANKS  OUEE.R  ^7 

J COLUMN  1 C , +2 
CUSS  LIST  +12  C , + 2 
BLANKS  QUEER  Ci 

BLANKS  QUEER  C24 

Z,SC  RSTOR  mxr 


CLEAR  "SHDUuD-BE-INDeXED"  CUSS  IF  MINUS. 
CUSS  IF  NEITHER  BLANK  OR  MINUS  In  CC  i7. 


CLEAR  ''SHJUlD-8£-INDEXeD"  CUSS  IF  LFTVR. 
CUSS  IF  NtlTHER  BLANK  NOR  J IN  COLUMN  1. 
CUSS  IF  CDLJMN  24  NUN-BLANK. 

return  to  general  procedure. 


J 


10 


9 


6 


J 


y 

y 

J 


1 


?OAc,l  WHEN  ADDRESS  J5  WRONG  HJT  NOT  ATROCIOUS*  TlLL  THE  MAN  what  it  is* 


0AA2  prb  adres  tx 


3AAA 

3At*6 

04A8 


0AA9 


0A5O 
0 A 5 I 
0 A 5 3 

0A-S5^ 

DA5? 


SS 

TX= 

_ss_  = 


Z,R5 

CUSS  LIST  +11  B38TA8 
HI  E DUALS 
: ADDRESS  i 


Z * XA 

z * xa 

ADRECUSS  +1 
ADRFCUSS  +1 


: SWS * 3a0  T 4:2  M ADD  RESS 


sws*  BTaT  36M  AD  DRESS  6,L 

SWS*  B28T30M  ADDRESS  9,L 

LA  OCT  6000  ADDRESS 

SWS*  C3T6M  ADRECUSS  +1  A,2+L 

SS BLANKS  C7T8- 


ADRECUSS  +1 
ADRECUSS  +1 
ACUSS  BNK 

ADRECUSS  +1 
ADRECUSS  +1 


BANK  INDICATOR  5 TO  XA. 

SET  UP  ADDRESS  OP  ADR  CUSS. 
INITIALIZE  1 0 ALP  = 0*0000. 


put  address  or  subaddress  into  cuss. 

BRANCH  IF  ADDRESS  IS  IN  A BANK. 

MOVE  UP  NDN-tJANK  ADDRESS. 


3A58  ACUsS  BNK  SM  ADRECUSS  +1  ALF  6000  ADRECUSS  +1  C PUT  SUBADJRESS  IN  THE  RANGE  6000-7777. 

0A&O  SWS*  AC03  ADDRESS  20, L ADRECUSS  +1  PUT  BANK  DUMBER  INTO  CUSS, 


RDAS2  MINOR  SUBROUTINE  IN  SACO  PASS  2 TO  rIGHT-NOrMALIZE  THE  ADDRESS  FIELD  BY  SHIFTING"  END-OFF.  EXITS  IF 

ROA&A  THE  FIELD  IS  OK  BECOMES  ALL  BLANK. 


34f>5  P I T f NORM  NJ A , CHaRcSM 
SWS*  ONtSM 
SWS*  ONESM 


BLANKS" 


3A&9 

0A7O 

0A72 

0*73 

0^75 


ADDRE5S  1 
ADDRESS  2 


A, I 
A * 1 


end  rnorm 


address  1 

ADDRESS  2 


SS 

ADDRESS  1 

CHARI 

ADDRESS  2 

SS 

BLANKS 

CHARI 

ADDRESS  1 

NA 

N-A~-r 



address  1 

i ADDRESS  2 

BLANKS 

FLANKS 

RITE  NORM 
RITF  NURM = 

BRANCH  IF  FINISHED. 


SHIPt  RICHT  one  CHARACTER. 
REPEAT  UNLESS  ALL  BLANK. 


R0A76  operator  word  count  checking  for  store  addresses. 


DA77 
3 A 7 9 


OP  c<  5 TOR  NA,  Bln/w I I SWITCH 


ONES 


3480 

0A32 


SM 

TS.BITl 7M 


CUSS  LIST  +23  BIT  17 
ZERO  SWITCH 


POL  S I G:\  ! 


EXIT  IF  NJT  BfcGINNliNG  QP  eQUAI 


CUSS  LIST  +23 
POL  SIGN  T 


CUSS  BAD  OPERATOR  WORD  COUNT. 


USER'S  OWN  PAGE  NO.  12  PAGE  107 


PASS  2 PROCESSING  rOR  POLISH  OPERATOR  WORDS. 


0484 
0436 
3W  8 8 

aw  90 

3492 

3493 
3495 
0497 


POL  1 5H  OP 


SPEcON  13 


= 5M5 
OCT 
SWS 

SEL  STAR  1 SSL 
NA, 


SWE.  B3ST41M  HEALTH  17 

TS,  BIT17M  ONES  SWITCH 

SWS.  BIT  40  M HEALTH  29  -~ 

0IT17M  HEALTH  6 

-2604  7777 

31 T 39M  HEALTH  28 

THREEM  HEALTH  24 

02 5 T 3 1 M HEALTH  2 POLOP  7 


WORD 

SEL  STAR  1 
WORD 

COSS  LIST  +22 


SET  UP  7-31 T LEFT  OPERATOR. 

REVOKE  PERMISSION  FOR  MINUS  ADDRESSES, 
MOVE  INDEX  31 T TO  GENERAL  OPERATOR. 

CUSS  INDEXINO  OF  miscellaneous  OPERATOR. 


WORD 

C *-4 

NOT  COUNT 


MOVE  INDEX  3 IT  TO  UNARY  OPERATOR. 

BRANCH  ON  TYPE  OF  FIRST  OPERATOR, 

BRANCH  UNLESS  SECOND  HALF  IS  UP  WORD  CT. 


PROC  ADR 


SWS.  BIT  17M  HEALTH 
LA  ONES 


ADDRESS 


SACO  INST 
CUSS  LIST 
BAD  POLE 


translate  address  field. 

set  op  count  (perhaps  to  uNesj. 

MAYBE  CUSS  "D"  ERROR. 

branch  if  meaningless  or  atrociuus  adr. 


0538 

3510 

0512 

0514 

0516 


la 

LN 

T5,  BIT  33M 
TX 

TS,  BIT  17M 


ADDRESS 
PL  20000 
ONES 
ONES 
ONES 


CUSS  LIST  +11  PR6  ADKES 
OP  COUNT 
CUSS  LIST  +3  BAD  POLE 


BRANCH  IF  COUNT  IS  127  OR  LESS, 
BRANCH  IF  ADDRESS  IS  UNPRINTABLE. 
PRINT  OVERSUt  ADDRESS, 

GUARANTEE  OP  COUNT  CUSS. 

CUSS  RANGE  ERROR  IN  ADDRESS  VALUE. 


0518  C'K  COUNT  TS,  B42T4&M  ADDRESS 


05192 

05194 

0520 

0521 

0522 


NOT  COUNT  NA  OP  COUNT 

TS  ONES 

WD  OP  COUNT 

NA,  B25T31M  HEALTH 
TS,  BIT  33M  ONES 


WORD 

ZERO 

OP  COUNT 
ONE 

2 POLOP  1/ 


SEL  STAR  2 +2 


SET  UP  COUNT  AS  OPERATOR  2" 


C , + 2 
C , + 2 

OP  COUNT 

C , +2 

CUSS  LIST  +2  BAD  PQL£ 


BRANCH  IF  OP  COUNT  MIGHT  STILL  MAKE  IT. 
GUARANTEE  BAD  COUNT  IF  TWAS  TOO  SMALL. 


CUSS  MEANINGLESS  address  field. 


0524 

0525 
0527 


NA, 

5M 

BAD  POLE  SM 


8 2 5 I 3 1 M HEALTH  2 POLOP  27  TWO  POLES 

CUSS  LIST  +21  BIT  17  CUSS  LIST  +21 

WORD  BIT  1 WORD 


CUSS  UNPOLISH  ADDRESS  FltLD  SYMBOL. 
INDICATE  SADNESS  qF  RIGHT  OPERATOR. 


« 


0530 

053J 

0533 

0535 

0537 


0539 
05^0 
05  32 
05  34 
0536 


0550 

0552 

0553 


7 UL  SVSftM  ASSEMBLER  SACO  PAS'S  ~2 

general  Processing  of  right  operator 

TWO  POLES  SWS,  B32T38M  HEALTH 

TN  ADDRESS  1 

= " T5~  ~ 7 "ICC — L__’  Z,SL,  3 

' -5W  WORD  | 

■ - S"M  CUSS  LIST  + 

B36TA8  OCT  -7 

SM  WORD 

NA,  CHAR8M  ADDRESS  2 
SeL  STAR  2 55L,  TWEE®  WORD 

no,  specmagh  oct  nirb 
LA,  SPeCMAGM  word 

NA,  CHAR1M  CARD  +2 
WORD 


USER'S  OWN  PAGE  NO. 


WORD 

SAV  ADKEF 

rite~korm~ 

-WORD  —sees 


CUSS  LIST  *22 


SET  UP  7-51 T RIGHT  OPERATOR, 

RIGHT-NOR'iALl^E  ADDRESS  FIELD  and  skip, 
.APPLY  INDEX  BIT  TO  GENERAL  OPERATOR. 

CUSS  INDEXING  of  MISCELLANEOUS  OPERATOR. 


FOUR 

ASTRISKS 

0, 

: 2—.^r-^-—= 


WORD 
C , + 2 
C ,-5 
ADDRESS. 


MIN  37777 

BIT  1 

SPEC  MAG 


APPLY  INDEX  BIT  TO  UNARY  OPERATOR. 
BRANCH  IF  OPERATOR  2 IS  NOT  INDEXED. 
BRANCH  ON  1 FPL  OF  StCOND  OPERATOR. 
.RESTORE  ADDRESS  F I ECO  FOR  PRINTING. 


wo:rt>; 


~POUE  OFITO 

C , + 2 

WORD 


ADD  ONE  AND  COMPLEMENT. 

BR  IF  BO T i OPS  = 1 7 f (VERY  QUEER) , 


COMPLEMENT  WORD  IF  IN  COL  17. 


0555 
0557 
0559 
05  50 
0552 


05  55 
0557 


05  73 


iHi= 

SWS,  CHAR1M 
SWS,  ACOl 
5WS , AC02 
LA" 


SWS,  AC03 
TS,  CHAR1M 


ZERO 
WORD 
WORD 
WORD 
BIT  I 


WORD 


DEC  5 FLAG 
BLOTS 


C1T4 

12 

33, L 
30, L 

WORD 

27, L 
24, L 
WORD 


LINE  +6 
LINE  +5  ' 
LINE  +6 
LINE  +6 
BAD  POLL  2 


LINE  +6 
BC  CHEOK 

NAUGHTY 

CUSS  LIST  +21 


CLEAR  ADDRESS  FIELD  PRINT  IMAGE. 
PRINT  1ST  CHARACTER'  OT  OPERATOR  WORD. 

PRINT  REST  OF  LEFT  OPERATOR. 

"BRANCH  IF  2ND  OPERATOR  lb  8aD. 


PRINT  REST  OF  OPERATOR  WORD. 
plant  flao  of  Poland,  join  main  pkoc. 

BLOT  OUT  RIGHT  OPERATOR,  JOIN  MAIN  PRoC. 


TS" 


BIT  1 


WORD 


BAD  BASIC 


CUSS  OVERFLOW  OF  OPERATOR  WqRO. 

SET  TO  BLOT  OUT  WORD  LIKE  CONSTANT. 


6 


. ..  . _ — ■ 


C 

c 

t 

t 

t 

t 

r 

c 

it 


USER'S  OWN  RAGE  NO.  14 


RAGE  109 


70575 

*0577 


number 


SUBROUTINE  in  RASS  2 for  SACO  TO  SET  IN. PRINT  THE  LGCAtI ON  OF  AN  INSTRUCTION  OR  LONSTAimT  , WITH  BANK 
NOTATION  FUR  END  OF  PLUCK  OR  BANK  I P REQUIRED.  BLOTS  CU|  LOCATION  FIELD  IF  BAD  LoC. 


BRANCH  IF  T HER 


alId  locaiion. 


BLOT  OUT  LOCATION  FIELD  AND  EXIT 


0583 
05  84 
35  85 
05  86 
05  87 

0589 

0590 
0592 


TX 

SS 

LI* 


TX 


LA 


SACO  MXR 
ZERO 

location 

COM  NON 
COMMON 


cm 

OCT  5777 


Z*MXR 
LINE  +S_ 
COMMON 
COMMON  +1 
END  BANK  U 


TX 

SWS,  AC07 
SM 


COMMA  C8 

COMMON 

COMMON 


OCT  6000 


LINE  + 4 
LINE  + 4 
COMMON  +1 


BRANCH  IF  LOCATION  IS  NOT  IN  A BATIK. 


SET  BANK  NUMBER  IN  RR  I N T . 

PUT  SUBADORESS  IN  THE  CLASS  60Q0  - 7777. 


0594  END  BANK  0 NA,  B41T48M  COMMON  *1 

0596  TS,  C1T4M  END  BL  MC 


ONES 
LINE  +4 


MARK  LINE  "EB»  FOR  LND  OF  BlOCK  OR  BANK. 


0600 

0601 

0603 

0604 
0636 

0608 

0609 

0610 
0611 
0612 


TX  L TYP  TAB 

LA,  SPeCMAGM  COMMON 
TS  Z,X6,1 


6,0 


Z,X6 

C , + 2 


BRANCH  WHEN  MEMORY  TYPE  CATEGORY  FOUND. 


NA,  SPeCMAGM  COMMON 
5WS , CIT4M  LND  3L 


C , - 1 

PRINT  LOC 
LINE  t-4 


BRANCH  IF  NOT  END  OP  MINOR  BLOCK. 

MARK  LINE  "MC"  FOR  MEMORY  TYPt  CHANGE. 


PRINT  LOC 


SWS» 

SWS, 


AC01 

ACU2 


F'5TqR  MXR  TX 


SWS,  AC 03 
5WS , ACJ4 


COMMON  +1 
COMMON  +1 
COMMON  +1 
COMMON  +1 
t>ENL-  v'XK 


33, L 
30  ♦ L 
27, L 
24  ,L 


LINE  +5 
LINE  +5 


LINE  +5 
Z ,MXR 


SET  UP  LOCATION  IN  RRINT  AND  tXlT. 


1 

i 


J 


t » 


t 5 

4 


3 

C 2 


J 


J 

J 

2 


i 


c 

c 


USER'S  OaN  RAGE  NO. 

SUBROUTINE  IN  PASS  2 FOR  SACO  TO  SET  UR  A SINGLE-RReCISIDN  CONSTANT  IN  aORg>  AND  IN  PRINT.  THIS 


0618 

0620 

0621 

0623 


SACo  1R 


NA 
ggsg 
- s -s 


WHETHER  the  WORD  IS  5 1 GNETTirmTOT*  BUT  ttemands  the  output  DR  DEC /OUT  CONST  IN  NUMBER. 

BRANCH  IF  WORD  IS  VALID. 


NUMBER 

BLOTS 

BLOTS 


W BAD  WORD 
CHAR  8 


GOOD  lR 
LINE  V5 
LINE  +6 


W BAD  WORD 


BLOT  OUT  WORD  IN  PRINT. 

SEND  ALONG  BAD  NEWS  AND  EXIT* 


0625 

0626 
0628 


GOOD  IP 


0629 


TX 

EX 

Rfe 


SACD  MXR 
number 
BIT  TUH 
WORD 


D2T12 
"NUMBER 
SPEC  MAG 


Z . MXR 
WORD 


ISOLATE  MAGNITUDE. 


- ^WQRD--- 


- COMPLEMENT  NEGATIVE  WORD. 


sc  bin  auf  ss  zero 

SWS*  CHAR8M  WORD 
SWS,  ACOl  WORD 
SWSFAUOU"  WOR-D- 
5WS.  ACG3  WORD 


CITfe 

12 

33, L 
30. L 
27, L 
2 A , L 
WORD 


LINE  +6 
LINE  *5 
LINE  +6 

LINE-  -+:  6 


0631 

0632 
06  33 
063A 


LTWE-V6 e 


06  36 
0 6 38 


SWS,  ACOA 
T5,  CHAR1M" 


WORD 

DEC6  FLAG 


EINE-  +6 

rstor  mxr 


SET  WORD  IN  PRINT. 

APPLY  INTERNAL  CONSTANT  FLAG  AND  EXIT. 


5U6RC  JT  i I N PASS  2 FOR  SACO  TO  PKCCtSS  A DOUBLE-PREC  i S I ON  CONSTANT.  USING  THE  OUTPUT  OF  DEC 


t g 

s 

r I 


R06A2  LoNST  or  OCT  CONST,  AND  DISTINGUISHING  BETWtEN  THe  5IGNE0  AND  UNSIGNED  POSSIBILITIES  (FOR  uGTAL  CONSTANTS  ONLY), 

Ro6na  sets- up  the  high-qrder  part  in  word  and  the  low-order  part  in  2nd  half,  sets  the  higfi-ordeR  part  in  print,  and 

RQ6A6  Sets  up  the  LOW-ORDER  part  in  printable  form  in  2ND  ALF  and  2ND  alf  +1. 

NU'-IB-R  :—.Wr=tt-A-D=W£rR:D^=:==^=&00 D ?R - — C BRANCH  IF  CONSTANT  TS  VALID. 

blots  2 2ND  ALF  C PREPARE  BwOfS  FOR  LUW-ORDeR  PART. 

W BAD  WORD  2ND  HALF  SACO  lR  ♦!  C Go  TO  JOl M SI NGLt-RKEC I SI  ON  SADNESS. 


^363,7— SACfl  -2P- -NA—  -] 

0&A9  TN 

9652  ==TS== 


06  5 A 
0655 


Good  2P 


TX 

NA 


SACD  MXR 
E NJMBER 


ZERO 


Z , MXR 

C , + 3 


BRANCH  IF  NJMBER  IS  signed. 


set  up  unsigned  constant. 


0660 

0651 


SWE,  B35T48M  NUMBER 
TX  MIN  37777 


tr 

C 

C 

12 

C >’ 


I A 


COMMON 

NUMBER 


.0670 

0671 

0672 
06  73 
06  7A 
0676 


2ND  HALF 


SWE,  CHA_R_8M  2ND  HALF 

SWE,  ACOl  2ND  HALF 

SWS,  AC02  2ND  HALF 

SWS,  ACU3  2ND  HALF 

SWS,  ACOA  2ND  HALF 

TS,  CHAR  1M  DEC6  FLAG 


SPEC  MAG 


12 


WORD 

COMMON 

2ND  HALF 

0 + 3 

WORD 
2ND  HALF 

2ND  ALF 


SET  UP  SIGNED  CONSTANT. 


ISOLATE  LOW-ORDER  PARI. 
BRANCH  IF  NO  MINUS  SIGN. 


COMPLEMENT  HALVES  OF  NEGATIVE  CONSTANT. 


33, L 
30, L 
27, L 
2 A , L 

2ND  HALF 


2ND  Alf  +i 
2ND  ALF  ,1 
2ND  ALF  +1 
2ND  ALF  +1 
SC  BIN  ALF 


MAKE  PR  INI  ABLE  VERSION  OF  LqW-ORDER  PRT. 

GO  TO  JOl V single-precision  procedure. 


» 


L- 


06  S A 
06B5 
0636 
0688 

0690 

0691 
0693 

0695 
Q6  96 

TX 

SS 

TX 

: r 1 ' ~ 

SACO  MXR 
ZERO 

LOLA  I ION 

C OM'ADN 

C3T6 

nr j 5777 

Z*MXR 
LINE  +6 
COMMON 
PRINT  V A l 

TX 

SW5  * ACOl 
SM 

PRINT  VAL  SWS»  AC03 
SWS*  ACOA 

COM 'I  A C2 

COMMON 

COMMON 

COMMON 

COMMON 

32  1 L 

OCT  6000 

21,L 
18  »L 

LINE  +6 
LINE  +6 
COMMON 

_ LINE  +6 
LINE  +6 

0697 

0698 

0699 

SWS • AC05 
SWS,  AC06 
TX 

COMMON 
COMMON 
U£NL  MXR 

15, L 
12,  L 

-LINE  +6 
LINE  +6 
Z ,MXR 

ISOLATE  LOCATION  VAL 
BRANCH  IF  AOUKESS  IS 


SET  BANK  MJvUSER  IN  PRINT. 

PUT  SUBAUORESS  IN  THE  RANGE  6000-7777. 


SET  LOCATION  IN  PRINT  ANU  EXIT. 


11 

10 


3 

2 


* 

* 


P07D1  BANK  5 PORT  I -IN  OF  SACO  PASS  2.  EN1EK  IN  COSEOUtNCE  MODE  WITH  SACO  MXR  IN  2*MXr,  ADDRESS  CUS5ALOG  IN 

-<0703  ~ - U2  , AND  TUTORESS  CU^S  LlS>T  iN~AUl.  BANK  INDICATOR  5 IS  LEFT  IN  K5.  BANK  5 ALSO  CONTAINS  MASKS  FuK  SACq  PASS  2. 


UNScRAMB 


5Wl,  B 3 h 1 At-. N,AJ2 
SWS«  B3AT37M  N.AJ2 
SWS»  B22T32M  N.AJ2 
-5riS:t-^NttT2iN  NiAJ2"  2 
5*3 » BAT  1AM  NtA-12 

m 


N,AUl 
N * AU 1 
NiAUl 

NrAUl 

N « AU1 


ZERO  DEM  A NO  BITS,  ~MoVE~5UBADDR  OF  CUSS3. 
MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  3. 
MOVE  SUBADDRESS  OF  CUSS  2. 

MOVE  POISON  BIT  AND  LLNGTh  OF  CUSS 
MOVE  SUBADDREBS  OF  LUSS  1. 

MOVE  POISON  BIT  AND  LENGTH  uF  CUSS 


^ • 


" • 


0718 

NA 

N t AZT2 

sentinel 

UNSCRftMB 

r ~ ' ' " " ' ... 

0719 

TX 

Z » ADZ 

- 

Z»R5 

SET  BANK  INDICATOR  5 IN  R5»  EXIT. 

0721 

0722 

0723 

0724 

0725 


MiPttDO' 

~M»DiDCD 

M,D»CDa 

M,D*DFe 


CD NO  -USS 

lefl  cuss 
BADL  CUSS 
UDEF  CUSS 

lefm  cuss 


D ERR  CUSS 


I LOP  CUSS 


CNFL  CUSS 
I POX  CUSS 
ASIZ  CUSS 

pred  cuss 


TYPL  CUSS 
"MGLA  CUSS 
IRAD  CUSS 
NFIT  CUSI 


0728 

0729 

0730 


VT.D.EEE 

M,D,FFE 

m*d»eee 


SOVS  CUS2 
SME  CUSI 
SMIT  CUS2 


SMD  CUSI 
SME  CUS2 
SNDE  CUSI 


SMD  CUS2 
SMIT  CUSI 
ARBL  CUSS 


0733 

0734 
0 735 

0736 

0737 

0738 

0739 
0 7 AO 


M » D * 5D5 
M,Di5D5 
M»D»54£ 


SB  IX  CUSS 
MTD  CUSS 
MFD  CUSS 


TSFX  CUSS 
rang  cuss 
lonb  cuss 


SMDE  CUSI 
ADR  CUSS 


I DBC  CUSS 
FRAC  CUSS 
UNO  1 CUSS 


V!»D»GEE 
M » D » C E F 


NDE1  CUSS 
SBDE  CUB2 


LNSY  CUSS 
SI DC  CUS2 


SNDE  CUS2 
SMDE  CUS2 


M*DiF£D 

M,D»CDF 

M,D.GFe 


SSNP  CUSS 
BFJL  CUSS 
MEMT  CUSS 


bnlf  cuss 
I LOC  CUSS 
NMC 1 CUSS 


NSCH  CUSS 
TOLA  CUSS 
CAFS  CUSS ‘ 


QC1  CUSS 
I MAO  CUSS. 


CC1  7 CUSS- 
POLE  CUSS 


0743 

0744 


M * D » F EE 
MiDiEDO 


QC24-  CwSS 
PCVF  CUSS 


PIN  CUSS 
NMC2  CUSS 


IPX1  CUSS 
OPCW  CUSS 


I PX2  CUSS 


07441 

07447 

07448 


N » D tCOO 
M ♦ D » D 5 E 


IXOP  CUSS 
SNNR  CUSS 


MCPS  CUSS 


CEH5  CUSS 


0745  SENTINEL  DEC 


B600  FFFF 


% 


9 


6 


* 


I 


=====?33ga= C-DNflTCUS^-^feEt-C  ' =rz=zr^^ 

0 7 49  C ErR  CU5S  ALF , 4 NO  "0"  IN  DECIMAL  SUBFItLD 

0750  1 LOP  CUSS  4LF ,5  ILLEGAL  OR  MIS-SPELLED  OPERATION  CODE 


0751  LEFL  CUbb  ALF  » 5 IMPROPER  LEFTOVER  LOCATION  FIELD  FORMAT 

0752  CnEl  CUbS  ALF  * A CONFLICT  IN  USE  OF  THI5  LOCATION 

0753  IYPl  CUbb  ALF, A LOCATION  IS  IN  WRONG  MEMORY  TYPE 


075A  tADL  CUSS  ALF, A OVERSIZE  OR  ILL-DEFINED  LOCATION 

0755  IP'OX  CUSS  ALF  *3  ILLEGAL  POLISH'  INDEXING 

0756  MGLA  CUSS  ALF, A ADDRESS  FIELD  IS  MEANINGLESS 

Q7A7  UDFp  CUbS  ALF ,3  ' " ib  UNDEFINED 

0758  A S I Z CUbb  ALF, A RANGE  ERROR  IN  VALUE  OF  ADDRESS 

0759  IRAd  CUbS  ALF, A IRREGULAR  BUT  ACCEPTABLE  ADDRESS 


I 


t 


0 


c 

I c 


f 


c 


0761  LEFm  CUSS  ALF»A  LEFTOVER  WON'T  FIT  IN  MEMORY  s , 

0762  FRED  CUSS  ALFtS  ATTEMPT  TO  PREDEFINE  LOCATION  SYMBOL  FAI  4 


0766  ST Yp  CUS1  ALF t 5 " " ASSOCIATED  WITH  WRONG  MEMORY 

0767  ALF  TYPE 


0758  Sj  Yp  COS  2 ALF  * 5 =-"  " ASSOCIATED  wIM  WRONG  MEMORY 


0770  SCNF  CUSl  ALF.S  " ‘ "ASSOCIATED  WITH  CONFLICT 

0771  SCNF  CUS2  ALF »5  " " ASSOCIATED  WITH  CONFLICT  . 

0772  SQVS  CUSl  ALF » 5 " ■'  GIVEN  OvERSI/E  DEFINITION 


V 

o 


i 


a 


* 


U ^ YL/L  SYSTEM  ASSEMBLER  SALO  PASS  2 = s / 1 : T USER'S  OaN  H^E^NS-. 7.Q BAr.r  ii<  - ^ 


i 


0774  SoVs  CUS2  AUF ♦ 5 " " GIVEN  OVERSIDE  DEFINITION 

0775  SMD  CUSI  ALF  »5  " " & I VEN  MULTIPLE  DEFINITIONS 

0776  SMD  CUS2  ALF  *5  " " GIVEN  MULTIPLE  DEFINITIONS 


0777  SME  CUS1  ALF O " " ASSOCIATED  WITH  MULTIPLE  ERRO 


0778 

0779 

0780 
073  1 

SmE  CUS2 
Smit  CUS1 

ALF 
ALF  * 5 
ALF 
ALF  .b 

RS 

1? 

RS 

II 

" ASSOCIATED  WITH  multiple  erro 
/»'  is  IN  Miscellaneous  trouble 

0 782 

0783 

0784 

EMIT  CUS2 
SNDE  cusi 
ARBL  CUSS 

ALF  i S 
ALF  *5 
ALF  * 5 

II 

ADDRESS 

11  IS  IN  MISCELLANEOUS  TROUBLE 
» WAS  NEARLY  DEFINED  BY  EUUAL5 
DEPENDS  ON  UNKNOWN  LOCATION 

10 


0786  SlD|_  CUM  ALF, 5 " " 15  INDEFINABLY  LEFTOVER 

0787  SBDe  CU51  ALF  * 5 " " MULTIPLY  DEFINED  INCLUDING  NE 

T 073  71  AlF  » 2 ARLY  ts  Y EJUALS  / eL  = IJ,  ■”  j : - 

0798  5MDf;  CU51  ALP  , 3 " " MULTIPLY  DEFINED  INCLUDING  BY 

07381  ALF  EOJALS  j_'' 


0739  ADRe  BANK  ALF»3  ADDRESS  IS  IN  BANK  7 

0790  iNAp  CUSS  ALF , 5 ADDRESS  IS  INAPPROPRIATE  FOR  OP  CODE 

n?ai  AQR=£lISS  AI_P»>  ADDRESS-^  . — = '-v 

0 792  SB I X CUSS  ALF, 3 SHIS  INSTRUCTION  SHOULD  BE  INDEXED 

0793  TSFx  CUSS  ALF » A TS  MAY  NOT  REFER  TO  FIXED  MEMORY 

07  9A  IDBc  CUS5  ALF , 3 INEXACT  DEC  I MAL-TO-B I NAK  Y CONVERSION  j) 

~ ~~5?ig5~.— CUSS  AtrfT5~  ; MORMWraArN"130^M-&T  T-SM-N"OEClMAL  -CONS=T=gN-T ---=— - - — - --  ' ~ ■ 

0796  FANg  Cuss  ALF,A  RANGE  ERROR  IN  CONSTANT  MELD 


z 

Q 

< 

s 


) 


I YUL  SYSTEM  ASSEMBLER  SACO  PASS  2 USER'S  OaIsI  RAGE  NO.  22  PAGE  117 

PD7?61  SACO  CUSSES  CONTINUED. 

0797  FRAC  CUES  ALF.S  FRACTIONAL  HART  LOST  BY  TRUNCATION 


0 7 99  fc'FD  CJSS  ALF.S 
0800  LON 5 CUSS  ALF  .A 


MORE  THAN  1A  DIGITS  'IN'  OC1  AL  CONSTANT 

location  field  should  be  blank 

" " w AS  UNDEFINED  IN  PASS  1 


0802 
0803 
08  0 A 
0805 

NDEl  CUSS 

lnsy  cuss 

SNDf  CUS2 

ALF  i 5 
ALF.2 
ALF.S 
ALF.S 

" " WAS  NEARLY  CEFINED  BY  EUUALS 

IN  PASS  1 

LOCATION  FIELD  SHOULD  fcE  SYMBOLIC 
" " WAS  NEARLY  CtFINFD  BY  EUUAL5 

-■  - = 

■ ■ ■ ■ = 

LL  ~ i 

0806 

08061 

0807 

SBDE  CU52 
SIDL  CUS2 

~ALF75 
ALF.2 
ALF » 5 

» » MULTIPLY  DEFINED  INCLUDING  NE 

ARLY  BY  EQUALS 

" " IS  INDEFINABLY  LEFTOVER 

___ fSE 

BNLf  cuss  ALF *5 

NSCh  CUbS  ALF  * A 


numeric  location_ft firr^nruciGAL  here 

no  5JCH  BLOCK.  IN  THIS  MACHINE 


3814  b FUL  CUbS  ALFiJ  1 H I S aLuCK  IS  FULL 

3815  I|Of  CUbb  AlF»4  ILLEGAL  LOCATION  FIELU  FORMAT 

3816  ■ TULA  -CUbb:  ALF  o C«RD  IGNORED  because  I Pb  TO  0 L A 7 T IN  TH 


3817  ALF 

3818  MeMt  CUbb  ALF»5 

3819  WPS2~ 

3 8*0  - NMCM  OUSb  ALF  » 5 

08^1  ALF 

0822  CAFS  CUbb  ~ ALF, 5 


E DECK 

CARD  IGNORED  BECAUSE  IT  MAKES  MEMORY  TAB 


NO  MATCH  FOUND  FOR  CARD  NUMBER  OR  ACCENT 
OR  TEXT 

first  Card  number  not  less-  than  second 


12 


5 


I 


L 


0824 

0825 

0826 

0C1  CUSS 
OC 1 7 CUSS 
0C24  CUSS 

ALF  ,4 
ALF, 4 
: ALF, 4 

UUEER  INFORMATION  IN  COLUMN  1 
QUEER  INFORMATION  IN  COLUMN  17 
"""QUEER-  I NFOWAfTW  TYFCCE UMN_;_24 ~ 

= 

a 

6 

0827 

0829 

0830 

0831 

IMAd  CUSS 
F OLE  CUSS 

POVF  CUSS 

ALF  , 4 
ALF*  5 
ALF 
ALF, 4 

bLAN<  ADDRESS  FIELD  EXPECTED 

ADDRESS  FIELD  SHOULD  CONTAIN  A POLISH  OP 

ERATOR 

OVERFLOW  IN  POLISH  OPERATOR  WORD 

===== 

Zl 

0B32  F IN  CUSS  A LFO  FIRST  ADDRESS  OF  An  EQUATION  MUST  t3£  FOS 

0833  ALF  ITIVE 

0834  IPXi  CUSS  ALF » 5 FIRST  P0LISF1  OPERATOR  ILLEGALLY  INDEXED 

0835  IPX2  CUSS  ALF, 5 SECOND  POLISH  OPERATOR  ILLEGALLY  INDEXED 

TEB=*fi NWlCg^  CUSS  ALFr5  NO  NATCH  FOUND  FOR  SECOND  CARD  NUMBER 


z 

3 


VUL  SYSTEM  ASSEMBLER  SACO  PASS  2 


USER'S  OrtN 


P0837  SACO  CUSSES  CONTINUED. 


/ 


0838  DPCw  CUSS  ALFiA  LAST  OPERATOR  WORD  COUNT  WRONG 

0897  IXOP  CUSS  ALF » A ASTERISK  ILLEGAL  ON  THIS  OP  CODE 


== — SNNF;~;--CUS-S:->-Ai,F»^ 

0901  P CPS  CuSS  ALp fS 

0902  CEHs  CUSS  ALF  *5 


SUBROUTINE  NAME  NOT  RECOGNIZED  | 

MULTIPLE  Calls  IN  ONE  PROGRAM  OR  SUBRO 
CONFLICT  WITH  EARLIER  HEAD"  SPECIFICATION  ~ 


L 


@YUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 


USER'S  OrtN  PAGE  MO 


1 


PAGF  121 


Roodi 

R0003 


R 00  36 

R0038 

ROOlO 
R 00 1 2 

R00l3 
ROOlA 
ROO 1 5 
ROO 1 6 

Rooi7 
R 00 1 9 

R0021 

R0023 

R0025 

R0027 

R0029 

R0030 

R0032 

R00332 

R003A 

ROO36 

R0038 

R0039 

Rooao 


uE  ARE  DEEPLY  INDEBTED  TO  the  one,  the  only,  the  great  JOHN  SHAw  for  THr  FOLLOWING  STRONG  mAgIC.,., 
. iSOCTL 


THE  BLK2  PART  OF  PASS  2 CONTAINS  THE  CUsS  LIST  AND  CUSSES  FO  BLK2 , TOGETHER  WjTH  CODING  TO  Pi  ANT  A 

modified  cuss  list  at  the  beginning  of  bank  2,  and  coding  to  process  instructions  and  clerical  codes  For  bl<2. 

the  cuss  list  and  cusses  are  loaded  into  bank  5 along  with  coding  to  convert  the  cuss  i ist  from  the 

fOLLOWING  MIXED-CONSTANT  FORMAT! 

OP  CODE!  FOR  EACH  OF  3 CUSSES,  A POISON  BIT  AND  a 3-BIT  CUSS  LENGTH, 

A ADDRESS:  DEMAND  BIT  AND  SJBADDRESS  OF  CUSS  1, 

F ADDRESS!  DEMAND  SIT  AND  SJBADDRESS  OF  CUSS  2, 

C ADDRESS:  DEMAND  BIT  AND  SJ3ADDRESS  OF  CUSS  3 

to  a cac-word  format  in  which  each  cac  contains  thf  demand  bit*  Poison  bit*  length  and  subaDDress  of  a cuss, 
the  CONVERSION  IS  REQUIRED  ONLY  to  make  USE  OF  EXISTING  MASKS  IN  GENERAL  PASS  2. 

THE  PROCESSING  CODING  IN  THE  BANK  1 PORTION  OF  BLK2  PASS  2 HAS  THe  FOLLOWING  FUNCTIONS: 

1)  FOR  ALL  WORDS,  to  Set  IN  PRINT  tHE  WORD  and  its  LOCATION,  and  mark  block  OR  bank  end  IF  APPROPRIATE. 

2)  FOR  INSTRUCTIONS,  TO  TRANSLATE  tHe  ADDReSS  FIELD  AND  RrDJCe  IT  IF  ITS  VAlUe  IS  IN  ONE  nF  tHr  RANKS 
no-67  OR  ONE  OF  the  E-BANKS  E3-E7,  NOTING  BANK  ERROR  IF  APPROPRIATE.  SUPPLY  IMPLIED  ADDRrSS  IF  RFQUIRED.  CUSS 
POLISH  INDEXING  IF  IT  IS  SPECIFIED. 

FOR  BASIC  INSTRUCTIONS,  check  that  LIMIteD.ACCeSS  Codes  Refer  only  TO  THeIR  SPECIFIED  MEMORIES,  EX- 
CEPT that  codes  Referring  only  to  fixed  memory  may  have  addresses  in  the  range  0-1777  if  preceded  by  "index", 
and  codes  referring  only  to  erasable  memory  may  have  addresses  in  the  range  4000-11777  if  preceded  by  »indfx», 

rHECK  that  EXTRACODES  ARE  EXTENDED  AND  THAT  BASIC  CODrS  ARE  NOT,  AND  FLAG  "ADReS",  hReMADRh,  "CADR«  OR  "FCADRh, 
"GENADR",  "ECaDRh,  hBBCONh,  » 2FC ADR " , AND  >>2CADR«  oR  "2BCaDR»  AS  CONSTANTS.  FLAG  UNINDeXrD  INSTRUCTIONS  THAT 

pefer  to  fixed  memory,  evaljate  and  assign  memory  jo  bnksum  constants. 

3)  for  Constants*  to  flag  them  as  SUCH  AND  CHECK  oN  MAGNITUDE. 

4)  FOR  SETLOC,  EQUALS,  MEMORY,  BLOCK,  BANK,  EBANk=,  SBANKs,  SUBRO,  ERASE,  PRINT  APPROPRIATE  ADdRfSSfS. 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


U 


L 

isVUL  SYSTEM 

assembler 

BL<2  PASS  2 

P0042 

OUAnT I T I Es 

filled  in  by  the 

00  432 

SETLCC , 2 

SIZ  PASS  2 1 

- 

00434 

MASKGRp.4 

5,1 

- 

0044 

62  PROC  OP 

CAC 

BL<2  INST 

00  45 

62  D1  PARS 

FLDEC 

16383.0,  16384 

i 

00  46 

FXBIN 

-16383 

00  47 

62  K 1 MAX 

OCT 

-77777 

0048 

0049 

62  D2  PARS 

FLDEC 

FXBIN 

268  A35  455.0, 
-268  435  455 

0050 

P2  PROC  2P 

CAC 

BLK2  2P 

0051 

B2  K2  MAX 

OCT 

-77  7777  7777 

0052 

62  MAX  LOC 

OCT 

-167777 

' 

0053 

R2  CON  MSX 

OCT 

-77,  7777  7777 

0054 

B2  PRET  FL 

OCT 

0000  0010 

r- 

0055 

62  FLG  MSK 

OCT 

7400  0077 

0056 

62  CONS  FL 

OCT 

0000  0020 

0057 

6LK2  MXR 

MASKBASE 

5,1 

0058 

R2  MISC  FL 

OCT 

0000  0030 

USER'S  0/VN  PAGE  NO.  2 


PAGE  122 


F,1 


BLK2  IP 


BLK2  PReL 


BLK2  PLEB 


AORES  ADR 


F,1 


J 

J 


ts  p n i 1 1?  n l 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


l isYUL  SYSTEM  ASSEMBLER  BU2  PA5S  2 

P0059  FIELD  AND  SHIFT  MASKS  FOR  BLK2  PART  OF  PASS  2. 


0060 

5ETL0C,4 

768 

0061 

P.BIT1M 

OCT 

4 

00619 

B»BIT6M 

OCT 

01 

0062 

E.BIT7M 

OCT 

004 

0063 

P.BIT17M 

DEC 

00008 

0064 

E,BIT24M 

OCT 

0000  0001 

0065 

R.BIT26M 

OCT 

-2000  0000 

0066 

E * B I T27M 

OCT 

-1000  0000 

0069 

P * B I T 3 1 M 

OCT 

-40  0000 

0070 

P.BIT32M 

OCT 

-20  0000 

0071 

B.BIT33M 

OCT 

-10  0000 

0072 

B.BIT39M 

OCT 

-1000 

0073 

B *B33T35M 

OCT 

-160000 

00731 

B.B6T7M 

OCT 

014 

0074 

P.B25T27M 

OCT 

-7000  0000 

0076 

P ,B28T30M 

OCT 

-700  0000 

0077 

R,B29T30M 

OCT 

-300  0000 

0078 

E *B34T36M 

OCT 

-7  0000 

0079 

P .B33T38M 

OCT 

-17  6000 

0030 

P,B34T48M 

OCT 

-77777 

0081 

P,B39T48M 

OCT 

-1777 

00312 

E i B41 T48M 

OCT 

-377 

00B2 

P t AC08 

OCT 

-7 

00S3 

B,CHAR1M 

OCT 

77 

0084 

B.CHAR4M 

OCT 

0000  0077 

00B5 

B.CAC3M 

OCT 

-177777 

0086 

E,CHAR8M 

OCT 

-77 

0087 

B.C1T4M 

OCT 

7777  7777 

0088 

B,EBANKMSK 

OCT 

-3400 

00881 

B.B42T48M 

OCT 

-177 

00B82 

B *C7T8M 

OCT 

-7777 

00383 

E ,B34M 

OCT 

-40000 

00384 

P ,B25T48M 

DEC 

— GGoGGG 

B5 


USER'S  OaIN  PAGE  NO 
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C 
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ROYAL  f BUSINESS  FORMS  INCORPORATED 


L (STUL  SYSTEM  ASSEMBLER  Bl<2  PASS  2 

P0099  further  shift  mas<s  for  bu<2  part  of  pass  2. 


0090 

S *B I T2M 

OCT 

2 

00901 

A.BIT28M 

OCT 

-AOO  0000 

00902 

A*ONEM 

OCT 

-1 

0091 

StTWOM 

OCT 

-2 

00911 

S » FOURM 

OCT 

-A 

0092 

S,B2T5M 

OCT 

36 

0093 

S » B6T 1 6M 

OCT 

0177  7 A 

009A 

S.B18T21M 

OCT 

0000  017 

0095 

A.B22T32M 

OCT 

-7  7760  0000 

0096 

A »B3AT37M 

OCT 

-7  AOOO 

0097 

S.B35TA8M 

OCT 

-3  7777 

0098 

S.B37T38M 

OCT 

-6000 

0099 

S » B38T  A8M 

OCT 

-3777 

OlOO 

S,AC01 

OCT 

07 

0101 

S.AC02 

OCT 

0007 

0102 

A » AC03 

OCT 

0000  07 

0103 

S.ACOA 

OCT 

0000  0007 

010A 

A » AC07 

OCT 

-700 

0105 

S.THREEM 

OCT 

-3 

0106 

a,CHAR2M 

OCT 

0077 

0107 

a,CHAR3M 

OCT 

0000  77 

0108 

S.CHAR6M 

OCT 

-77  0000 

0109 

S.CHAR7M 

OCT 

-7700 

0110 

S,C3T6M 

OCT 

0000  7777  7777 

OllOl 

A »ONESMM 

DEC 

GGG3  GGGG  GGGG 

01102 

A,B35TA1M 

OCT 

-37600 

01105 

a.baitaam 

OCT 

-360 

01 106 

A »BA5TA7M 

OCT 

-16 

01107 

6.CHAR5M 

OCT 

-7700  0000 

01108 

S,B38  AC08 

OCT 

-2007 

USER'S  OWN  PAGE  NO 


A 
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L @YUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 USER'S  0*VN  PAGE  NO.  5 PAGE  125 


P0111 

CONSTANTS. 

ETC.  FOR 

THE  BLK2  PART  OF  PASS  2. 

0112 

SETL0C.2 

• 

R01 1 3 

numerical 

CONSTANTS, 

BIT  30  THROUGH  OCT  57777  FORM  AN  ARRAY, 

0114 

kit  30 

OCT 

-100  0000 

..z 

0115 

0116 

P 2 8 T 2 9 
C 2 B28T34 

OCT 

OCT 

-600  0000 
0077  0000  0774 

* 

0117 

C2  C7T8 

OCT 

0077  0000  0000  7777 

(J 

£ 

01173 

C3T6 

OCT 

0000  7777  7777 

0118 

^ IVE 

OCT 

-5 

0 

0119 

FIX 

OCT 

-6 

0 

0120 

SEVEN 

OCT 

-7 

# 

01206 

OCT  40 

OCT 

-40 

0121 

OCT  70 

OCT 

-70 

# 

0122 

OCT  777 

OCT 

-777 

0123 

OCT  1377 

OCT 

-1377 

0124 

OCT  1400 

OCT 

-1400 

# 

0125 

OCT  4000 

OCT 

-4000 

0127 

MIN  37777 

OCT 

-37777 

• 

0128 

PL  PMAX 

OCT 

+ 777 

0129 

PL  EMAX 

OCT 

+ 3777 

# 

01292 

PL  11777 

OCT 

♦11777 

0130 

PL  FMAX 

OCT 

+167777 

A 

0131 

PL  FMAXPl 

OCT 

♦170000 

w 

0132 

r.EC  48  FLG 

DEC 

48 

0133 

BANK  E2 

OCT 

-1000 

• 

0134 

OP  CODE  3 

OCT 

-3  0000 

0136 

DAS  CODE 

OCT 

-20  000 

A 

0137 

r.XCH  CODE 

OCT 

-52  000 

01375 

ADR  CON  3 

OCT 

-3000000 

0138 

ADR  CON  4 

OCT 

-400  0000 

w 

0139 

f BANK  REG 

OCT 

-4000  3417 

01391 

OCT  17777 

OCT 

-17777 

A 

01392 

OCT  57777 

OCT 

-57777 

V 

01393 

B25T27 

OCT 

-7000  0000 

Mk 

01394 

HUNDRETH 

DEC 

GO  28G5D  28G5E 

w 

01395 

OCT  67777 

OCT 

-67777 

01396 

MM  PARAMS 

FLDEC 

99.0.  16384.0 

a 

013961 

FXBIN 

-99 

01397 

VN  PARAMS 

FLDEC 

9999.0.  16384.0 

a 

013971 

FXBIN 

-9999 

V 
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! • 

01399 

l POL  OP 

CAC 

INT  OP  COD 

INT  OP  GOS 

E 

013991 

L BN<SUM 

CAC 

BNKSUM 

ROlAO 

alphabetic 

CONSTANTS. 

0H1 

alf  ekoo 

ALF 

E 1 AOO 

01  A3 

rOMMA  C2 

ALF 

0,0000 

OKA 

COMMA  C8 

ALF 

00, 

01  AA8 

END  BL  MC 

ALF 

EB  MC 

01  AA9 

BLOT  C6 

ALF 

■ 

0K5 

P COMMA 

ALF 

E0» 

0K6 

F char  a 

ALF 

E 

0K7 

hi  EQUALS 

ALF 

=00,0000 

ROl  A8  CESERvATIONS,  EQUIVALENCES,  ANp  assignment. 


0 1A89 

USED  FMAX 

DEC 

GGG3  GGGG 

0K9 

UAX  ADRES 

RESERVE 

1 

0150 

M COMMON 

reserve 

1 

0151 

SAV  ADREF 

reserve 

2 

0152 

P19T2AM 

EQUALS 

CHARAM 

0153 

5BANK  REG 

equals 

EBAN<  REG 

01  5A 

L BSUM  LOC 

equals 

L BN<SUM 

0155 

A C05 

EQUALS 

B28T30M 

0156 

AC06 

EQUALS 

B3AT36M 

01561 

BA6TA8M 

equals 

ACO  8 

0157 

PANKMASK 

equals 

B33T38M 

0158 

BPECMAG  M 

equals 

B3ATA8M 

0152 

ADRE  CUSS 

assign 

A , 0 

1" 


BKSUM  LOC 


MUST  FOLLOW  M COMMON 
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*0163 

SUBROUTINE  IN  PASS  2 FOR 

blk2  TO  FORM  a 

WORD  FROM  AN 

operation  code  and  an  address  (basic  InstRuc_ 

*0165 

TlONS  and 

ADDRESS  CONSTANTS),  OR  FROM  TWO  POLISH  OPERATOR  CODES 

(POLISH  OPERATOR  WORDS).  tHe  OPERATION  CQDf(S) 

*0167 

and  some 

associated  information  BITS 

ARe  taken  from 

the  health  word  of 

the  current  popo  item,  the  address  is 

*0169 

obtained 

FROM  THe  CARD  ’ 

via  a general 

SUBROUTINE  in 

pass  2 Called 

PROC 

ADR.  IMPLIED  ADDRESSES,  BANK  ERRORS,  AND 

*0171 

inappropriate  ADDRESSES 

are  CHECKED 

For,  and  ACDRES5  VALUE  CUSSING  IS 

DONE. 

0173 

BlK2  INST 

TX 

BLK2  MXR 

Z , MXR 

use  maskbase  for  this  machine. 

0175 

NA.BIT32M 

HEALTH 

ONES 

C , + 3 

01752 

swe.onesmm 

L PDL  OP 

32 

Z,SC 

0176 

GO  POL  ADR  SWE»CNeSMM 

L PDL  OP 

16 

Z,SC 

0177 

SWE,  B3AT36M 

HEALTH 

12 

WORD 

insert  basic  op  code  into  word. 

0179 

SWS,  BlTlM 

health 

10, L 

CUSS  LIST  +30 

maybe  CUSS  ILLEGAL  OP  CODf  asterisk. 

0131 

NA,  BIT  3 1 M 

health 

ONES 

NO  IMPLAD 

BRANCH  IF  No  IMPLIED  ADDRfSS. 

*0183 

DETERMINE 

ADDRESSES  IMPLIED  BY  SPECIAL  OP  CODES. 

0 1 3 A 

tMPLAD 

TS 

PLF  MAX 

max  adres 

max  ad  set 

C 

KEEP  ASSEMBLER'S  eBANK  Re&.  UP  TO  DATF. 

0136 

NA 

ADDRESS  1 

BLANKS 

OC  IMPLAD  -1 

0137 

NA 

ADDRESS  2 

BLANKS 

QC  IMPLaD  -1 

01372 

SWS.  BIT17M 

SWITCH 

10 

CUSS  LIST  +2 

maybe  cuss  indexing  of  implads. 

0138 

NA,  BIT27M 

health 

zero 

QC  IMPLAD 

BRANCH  IF  IMPLAD  IS  NOT  IN  HEALTH  WORD. 

0192 

SWE.  AC08 

health 

18 

address 

SUPPLY  implied  address. 

0194 

NA 

WORD 

BIT  36 

SIgND  ADR 

branch  If  NOT  code  1 (HERE,  NOOP). 

01  ?42 

LA 

OCT  4000 

location 

NOOP(F) 

form  of  noop  depends  on  which  memory. 

01944 

LOOP (E) 

TS 

OP  CODE  3 

word 

SIGND  ADR 

IN  E MEMORY,  NOOP  = CA  A. 

01948 

ts.  bit  im 

ONES 

CUSS  LIST  *21 

IMPLAD  +3 

MILDLY  CUSS  NQNBLaNK  ADR  FLD , PRoCefD. 

0195 

GC  IMPLAD 

SWS,  B37T38M 

HEALTH 

9 

WORD 

place  QUARTER-CODE  BITS  IN  INSTR.  WORD. 

0197 

SSL,  THREE  M 

WORD 

12 

C , + 1 

THREE-WAY  BRANCH  on  bits  1 A , 1 3 OF  WORD. 

0199 

FDRUPT 

TS,  B I T39M 

ONES 

word 

OVSK 

ed  smally»s  rupt  is  peripheral  code  7. 

0201 

SSL.  THREE  M 

WORD 

10 

RESUME 

THREE-WAY  branch  on  quarters  of  CODf  5* 

02022 

SSL,  ONEM 

WORD 

10 

c , ♦ 1 

TWO-WAY  BRANCH  ON  QUARTERS  OF  CODE  2. 

02024 

TDOUBL 

TS 

ONE 

ADDRESS 

SIGND  ADR 

DAS  A = DQOJBL  (D.P,  DoUBI  E> . 

0203 

ZL  OR  ZQ 

TS 

SEVEN 

address 

SIGND  ADR 

lxch  7 = zl  (Zero  l),  qxch  7 = zo. 

0211 

FESUME 

TS 

Dl2 

ADDRESS 

SIGND  ADR 

RESUME  = INDEX  17. 

0213 

SSL,  ONE  M 

health 

18 

TCAA  DTCF 

PICK  1 OF  2 IMPLIED  ADDRESSES  FOR  DXCH, 

0215 

SSL,  ONE  M 

health 

18 

c , ♦ 1 

PICK  1 OF  2 IMPLIED  ADDRESSES  FOR  TS. 

0217 

OVSK 

TS 

zero 

ADDRfSS 

SIGND  ADR 

OVSK  = TS  A.  OTHER  ZeRO  CaSeS  COMe  HFRE 

0219 

7CAA  DtCF 

TS 

five 

ADDRESS 

SIGND  ADR 

TCAA  = TS  Z.  DTCF  = DXCH  FBANK. 

0221 

DTCB 

TS 

six 

address 

SIGND  ADR 

DTCB  = DXCH  Z. 

0223 

NOOP(F) 

WA 

location 

ONE 

ADDRESS 

in  f memory,  noop  = tcf  +1, 

0225 

SIGND  ADR 

BS 

zero 

ADDRESS 

ADR  WD 

0226 

SWE,  BIT17M 

health 

8 , L 

M COMMON 

ISOLATE  ExTRACoDE  bIT  of  IMPLAD  CODf. 

02272 

TS 

ADR  WD 

ADR  WD  +1 

set  min  ad 

c 

plant  extracode  flag  For  simulator. 

0227A 

SWS,  B29T30M 

health 

2 

health 

c 

BIT  29  PLACES  OP-ADDRESS  PRINT  SPLIT. 

0228 

NA,  B I t 17M 

M COMMON 

switch 

EXTEND  +1 

BRANCH  IF  EXTENDED  BASIC  oR  UNEX.  EXTRA 

0230 

NA,  BIT26M 

health 

zero 

C , +2 

BRANCH  IF  THIS  IS  THE  "EXTEND"  CoDe. 

0232 

TS,  B I T 1 7M 

zero 

switch 

BASIC  ADR 

clear  extension  switch. 

0234 

EXTEND 

TS,  B I T 1 7M 

ones 

SWITCH 

ADD  ADR  WD 

SET  EXTENSION  SWITCH. 

0236 

NA 

M .COMMON 

bit  17 

C , +2 

0237 

TS,  BlTlM 

ones 

CUSS  LIST  ♦ 1 2 

EXTEND  -1 

ERROR  WAS  UNEXTENDED  extracode. 

0239 

TS,  B I T 17M 

ones 

CUSS  LIST  ♦ 1 2 

EXTEND  -2 

error  was  AN  extended  basic  code. 
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P0241 

PROCESS  EXPLICIT  ADDRESSES  FOR  INSTRUCTIONS  OR  ' 

CONSTANTS. 

02^2 

NO  IMPLAD 

TN 

ADDRESS  1 

2 

SAV  ADReF 

save  address  field  in  casf  of  poi  adres. 

02 

NA,  B25T27M 

health 

ONES 

non  const 

branch  if  instruction,  not  adr  constant. 

02  46 

ADR  CONST 

SSL,  THREEM 

health 

24 

c , ♦ 1 

branch  on  level  of  address  constant. 

0247 

TS,  CHAR1M 

dec  6 flag 

WORD 

ADR  CoN  E +1 

level  os  3asic  address  constants. 

02472 

LA,B28T30M 

adr  con  3 

health 

GO  POL  ADR 

branch  for  polish  addr  or  store  codes. 

0247A 

TS 

ones 

location 

NWD  BSUMS 

rest  of  level  u ebanKs,  sbank=,  bnksum. 

02476 

TS,  BIT1M 

zero 

CUSS  LIST 

♦30 

MM  VN 

level  3!  SPECIAL  DECIMAL  CONSTANTS. 

0248 

NWD  bsums 

SWS,  BIT17M 

health 

9 

CUSS  LIST  *14 

maybe  cuss  nonblank  loc  field. 

0251 

SSL,  AC08 

health 

17 

adr  Con  e 

SELECT  EBAN<=,  SBanKs,  or  bnksum. 

0252 

ADR  CON  E 

TS 

PL  EMAX 

MAX  ADRES 

MAX  AD  Set  -1 

E-ADDRESSeS  ONLY  FOR  ECADR,  eBaNk=. 

02532 

LA,  B28T30M 

ADR  CON  4 

health 

C , + 2 

BR  IF  ECADR,  BBCON,  2FCADR,  OR  2(B) 0 ADR . 

0254 

ADR  CON  F 

TS 

PL  FMAX 

max  adres 

max  ad  set  -1 

adres,  rem adr, genadr,fcadr.sbank=, bnksum. 

0256 

LA,  B28T30M 

health 

ADR  CON  4 

ADR  CoN  E 

BRANCH  IF  Code  is  eCADR, 

0257 

LA,  B29T30M 

health 

BIT  30 

BBCONQ1  +1 

BRANCH  IF  BBCON  (SINGLE  PRECISION). 

0258 

DP  ADR  CON 

WA 

L FINI  2P 

ONE 

mod  Retrn 

make  return  go  to  d.p.  constant  proc. 

0260 

TX 

W BAD  WORD 

- 

2ND  HALF 

0251 

TN 

BLOTS 

2 

2ND  ALF 

prepare  for  the  worst. 

0263 

RBCONQl 

LA,  B29T30M 

health 

BIT  29 

ADR  CON  F 

BRANCH  IF  2FCADR  OR  BNKSUM  (NO  EB  PROB). 

0266 

TS 

Z,SC 

Z,X6 

EBK  LOC  Q +2 

KEEP  ASSEMBLER'S  eBANK  REG,  UP  TO  DATF. 

0258 

TS,  BIT17M 

zero 

cuss  list 

♦23 

SET  EBCON  -1 

may  ERASE  ebank  Or  sbank  CONFLICT  ClJss. 

0272 

NON  CONST 

SWS,  B37T38M 

health 

12 

WORD 

PLACE  QUARTeR-CODe  BITS  IN  INStR.  WORD, 

02732 

LA,  B29T30M 

ones 

health 

C , ♦2 

branch  if  peripheral  code. 

027-4 

SWS,  BIT28M 

health 

1 

SWITCH 

set  switch  if  this  is  an  index  order. 

0276 

SWE,  BIT17M 

health 

11,  L 

M COMMON 

ISOLATE  EXTRACODE  BIT  OF  fXPLAd  CODf. 

0278 

NA,  BIT17M 

M COMMON 

SWITCH 

C , ♦ 2 

BRANCH  IF  EXT.  BASIC  OR  UN£X.  EXTRACODE. 

0230 

unextend 

TS,  BIT17M 

zero 

SWITCH 

SET  MIN  AD 

CLEAR  EXTENSION  SWITCH. 

0232 

NA 

M COMMON 

BIT  17 

C , + 2 

BRANCH  IF  EXTENDED  BASIC  CODE  ERROR. 

0284 

liNEXTD  XC 

TS,  BlTlM 

ONES 

CUSS  LIST 

+ 12 

SET  MIN  AD 

CUSS  AT  UNEXTENDED  EXTRACODE. 

0236 

NA,  BIT27M 

health 

ONES 

bad  xtend 

BRANCH  IF  NDT  AN  INDeX  ORDER, 

0237 

TX,  B29T30M 

zero 

• 

health 

EXTENDED  INDEX  EXTENDS,  CAN  REFER  2 ANY, 

02374 

TS 

bit  17 

M COMMON 

set  min  ad 

0238 

RAD  xtend 

TS,  BIT17M 

ONES 

CUSS  LIST 

+ 12 

UNEXTEND 

CUSS  ANY  EXTENDED  BASIC  CODE  BUT  INDEX. 

02392 

SET  MIN  AD 

SWS,  BIT27M 

M COMMON 

10 

WORD 

02394 

SWS,  BIT28M 

M COMMON 

11 

WORD 

PLANT  EXTRACODE  FLAG  FOR  SIMULATOR. 

0290 

TX 

OCT  7777 

m 

MIN  ADReS 

in  general,  allow  values  down  to  -7777. 

0292 

SSL,  THREEM 

health 

18 

C,  + l 

4-way  branch  on  memory  type  allowance. 

0294 

TS 

PL  FMAX 

max  adres 

CHECK  OP  4 

no  restriction. 

0296 

REFER  TO  F 

TS 

PL  FMAX 

max  adres 

DP  SSL 

ditto  NOW,  fixed  only  latfr. 

0298 

TS 

PL  11777 

MAX  ADRES 

Dp  SSL 

E MEMORY  DR  INDEXED  ( QuARtER-CODf ) . 

0300 

SWS,  BIT39M 

health 

12 

WORD 

PERIPHERAL  CODE.  SUPPLY  LAST  P-CoDe  BIT. 

0302 

TX 

OCT  777 

MIN  ADRES 

HERE  ALLOW  VALUES  DOWN  TO  -777. 

0304 

TS 

PL  PMAX 

MAX  ADRES 

DP  SSL 

0305 

CHECK  OP  4 

NA,  B34T36M 

WORD 

OP  CODE  4 

DP  SSL 

branch  if  negative  address  is  permitted. 

0307 

TS 

zero 

MIN  ADRES 

DP  SSL 

negative  address  here  woui  d be  overflow. 

1" 
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P03082 

IF  OP  CODE 

IS  DOUBLE  PRECISION,  ADD 

1 to  address  value. 

0309 

NA,  B33T38M 

WORD 

DXCH  CODE 

MAX  AD  SET 

branch  if  basic  code  and  not  d.p. 

0311 

DP  CHECK 

NA,  B33T38M 

WORD 

DAS  CODE 

C,-l 

c 

0312 

TS,  8IT6M 

ONES 

SWITCH 

MAX  AD  SET 

PLANT  BIT,  RETURN  TO  SeQUfNCE  MODE. 

0314 

XCODE  DP  Q 

NA,  B3^T36M 

WORD 

OP  CODE  3 

C , *2 

r 

L 

IF  NOT  DC A , CHECK  FOR  DCS. 

0316 

TS,  BIT6M 

ONES 

SWITCH 

MAX  AD  Set 

PLANT  BIT,  RETURN  TO  SeQUfNCE  MODE. 

0318 

NA,  B34T36M 

WORD 

op  code  4 

MAX  AD  SET 

BRANCH  IF  EXTRACODE  AND  NOT  D.P. 

0320 

DP  SSL 

SSL,  TWO  M 

health 

19 

DP  CHECK 

C 

add  ooooi  to  double  precision  addresses. 

0322 

TS,  BIT6M 

ONES 

SWITCH 

MAX  AD  SET 

some  equalities  Fall  thru  into  hfRe. 

R0325 

translation 

1 OF  ADDRESS 

field,  with 

FIRSt-ORDeR  size 

checking. 

03258 

LA 

ones 

location 

C , +2 

EXCEPT  FOR  eBANk=,  SBANKs.  BNK5UM [ 

0326 

MAX  AD  SET 

TS 

z,sc 

Z , X 6 

ebk  LoC  0 

keep  assembler's  ebank  reg,  up  to  date. 

0328 

TX 

genl  mxr 

m 

Z *MXR 

0329 

TS 

z.sc 

Z,X6 

PROC  ADR 

translate  address  FIELD, 

0331 

TN 

SAV  ADREF 

2 

address  1 

Restore  0313.  ADDRESS  FlEI d for  PRINT. 

0333 

TS 

zero 

min  aDRES 

BLK2  INST 

c 

restore  min  adr  value  and  mxr. 

0335 

sws,  BIT17M 

HEALTH 

8 

CUSS  LIST 

CUSS  LACK  OF  "D"  IN  DECIMAL  SUbFteLD. 

03  36 1 

WD 

L POL  OP 

ONE 

Z.CSC 

c 

GO  SEE  IF  CURRENT  WORD  IS  POLISH 

0337 

LA 

ONES 

ADDRfSS 

RNG  ERROR  +2 

bR.  if  meaningless  or  atrocious  address. 

03382 

SWE*  ONEM 

SWITCH 

42 

M COMMON 

03384 

3S 

ADR  WD 

m common 

ADR  WD  +1 

increment  address  of  d.p.  code. 

0339 

LN 

ADR  WD 

max  aDres 

const  q 

BRANCH  IF  ADDRESS  SIZE  OK  FOR  THIS  oP. 

0341 

LN 

PL  FMAX  Pi 

ADR  WD 

c , +2 

BRANCH  IF  ADDRESS  T00  BIG  TO  PRINT. 

0343 

cng  error 

TS,  B I t33M 

ONES 

CUSS  list  +11 

PRB  ADReS 

c 

IF  NOT  ATROCIOUS*  TELL  HIM  WHAt  IT  IS. 

0345 

SM 

CUSS  LIST  ♦ 3 BIT  17 

CUSS  lIST  +3 

CUSS  RANGE  ERROR  IN  ADDRESS  VALUF. 

03462 

LA,  CHaRIM 

health 

HI  EQUALS 

bad  basic 

BRANCH  IF  INSTRUCTION  OR  ADDRESS  CONST. 

03464 

SSL,  THREEM 

health 

18 

NW  BADDR 

cuss  rang  err  in  ebank=,  sbank=,  BNKSUM. 

0347 

const  0 

NA,  B25T27M 

health 

ONES 

INStRoP 

GO  PROCESS  INSTRUCTION  IF  NO  CoNST  FLAG. 

0349 

NA ,B I T 24M 

health 

ZERO 

ADR  CON  1 

BRANCH  IF  NDT  TYPE  0 ADDRfSS  CONSTANT. 

^0332 

select  PROCEDURE  for  type  0 ADDRESS 

constants. 

03928 

ADR  CON  2 

SWS,  B34T37M 

health 

16 

WORD 

MAY  PUT  PREFIX  ON  eCaDR  FoR  DOWNl  1ST. 

0333 

SSL,  AC08 

health 

18 

c , + 1 

SELECT  PROCEDURE  FOR  1 OF  8 ADr  CONSTS. 

0395 

ADReS 

TS 

B2  PROC  2? 

Z.SC 

BASIC  ADR 

c 

ADRES  IS  JUST  LIKe  TC  (EXCEPT  FOR  FLAG). 

0337 

TS 

- 

remadr 

like  adres,  but  must  be  different  bank. 

0339 

TS 

- 

(F) CADR 

complete  address  for  fixed  memory. 

0391 

TS 

- 

genadr 

like  ADRES,  but  no  BANK-ERROR  CHfCKS. 

0393 

fCadr 

TS 

- 

• 

ADD  ADR  WD 

complete  address  for  erasable  MEMORY. 

0395 

TS 

- 

• 

BBCON 

both-bank  constant,  5 bits  and  3 bits. 

0397 

TS 

ADDRESS 

2ND  HALF 

2FCADR 

FCADR  (FOR  FB)  FOLLOWED  BY  GENaDR. 

0399 

TS 

ADDRESS 

2ND  HALF 

2 (B)CADR 

genadr  followed  by  bbcqn  <fqr  bb>. 

..l 

♦ 

..z 

* 

L 

4 

..e  -! 

r 


a 


* 
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PoAol 

SPECIFIC  PROCESSING  FOR 

6 OF  THE  8 

type  0 ADDRESS  constants. 

0402 

REMADR 

LA 

ADDRESS 

OCT  3777 

E REM  CheK 

0404 

LA 

ADDRESS 

OCT  7777 

ADD  ADR  WD 

0406 

LA 

LOCATION 

OCT  7777 

F SUBAOR 

0408 

NA,  BANKMaSK 

location 

ADDRESS 

F SUBaDR 

0410 

TS 

- 

- 

cus  f bank 

04U 

f Rem  CHEK 

LA 

ADDRESS 

OCT  1377 

ADD  ADR  WD 

0413 

LA,  EBaNKMSK 

EBANK  REG 

bank  E2 

E SUBADR 

0415 

NA,  EBaNKMSK 

address 

ebank  reg 

E SUBaDR 

0417 

TS 

- 

- 

CUS  E BANK 

0418 

(F)CADR 

LA 

ADDRESS 

OCT  7777 

RNG  ERROR 

0422 

WD 

ADR  WD 

OcT  10000 

ADR  WD 

04232 

LA,  CAC3M 

ADR  WD 

OCT  57777 

ADD  ADR  WD 

04234 

LA,  B33T35M 

SBANK  REG 

zero 

C , +2 

04236 

NA,  B33T35M 

ADR  WD 

SBANK  REG 

SBANK  CUS 

0424 

TS,  B33T35M 

SPEC  MAG 

ADR  WD 

ADD  ADR  WD 

0425 

genadr 

LA 

address 

OCT  3777 

C,  + 3 

0427 

LA 

address 

OCT  7777 

ADD  AdR  WD 

0429 

TS,  BANKMASK 

OCT  2000 

ADR  WD 

ADD  ADR  WD 

0431 

LA 

address 

OCT  1377 

ADD  ADR  WD 

0433 

TS,  EBANKMSK 

OCT  1400 

ADR  WD 

ADD  ADR  WD 

04332 

LA,  CHAR8M 

EBANK  REG 

Seven 

SET  SBCqN  - 

1 

04334 

SET  EBcON 

SWS,  AC08 

EBANK  REG 

8 

EBANK  Reg 

04336 

NA,  B25T27M 

SBANK  REG 

bit  25 

C , + 2 

04338 

SET  sbcon 

SWS,  B28T30M 

SBANK  REG 

5 ,L 

SBANK  Reg 

0434 

SSL,  ONEM 

CUSS  LIST 

+ 30  47 

BBC  STAR  0 

043405 

TS,  BIT1M 

ONES 

CUSS  LIST 

+ 21 

EDS  BNKNO 

04341 

BBC  STAR  0 

TS 

PL  FMAX 

MAX  ADRES 

MAX  AD  SET 

♦ 1 

043415 

LA,  B29T30M 

BIT  29 

health 

C,-l 

043417 

NA 

ADDRESS  1 

BLANKS 

BBC  STAR  0 

-1 

043418 

NA 

ADDRESS  2 

BLANKS 

BBC  STAR  Q 

-1 

04343 

fds  bnkno 

TS,  BIT1M 

zero 

CUSS  LIST 

♦30 

HOW  HIGH  F 

04345 

TX 

used  fmax 

- 

ADDRESS 

04347 

LA 

ones 

ADDRfSS 

RNG  ERROR 

0435 

PBCoN 

LA 

address 

OCT  3777 

BANK  NO 

0437 

la 

Address 

OCT  7777 

BBC  ADRES  - 

l 

0439 

WD 

address 

OCT  10000 

ADDRESS 

04391 

rb  super  q 

LA 

ADDRESS 

OCT  57777 

BBC  ADReS  - 

1 

04392 

NA,  B25T27M 

SBANK  REG 

ZERO 

C ♦ + 3 

04393 

SWE,  B28T30M 

ADDRESS 

5 , L 

2ND  ALF 

043935 

NA,  B28T30M 

2ND  ALF 

SBANK  REG 

1 SH  CoNFL 

04394 

SWS,  B4IT44M 

ADDRESS 

9 

WORD 

04396 

TS,  B33T35M 

SPEC  MAG 

ADDRESS 

BBC  ADRES 

04398 

SWS,  B41T44M 

SBANK  REG 

14 

WORD 

0440 

fbc  adres 

TX,  BANKMASK 

ADDRESS 

- 

WORD 

04412 

TS,  AC08 

EBANK  REG 

WORD 

GUD  BASIC 

0442 

sank  no 

LA 

OCT  70 

ADDRESS 

RNG  ERROR 

0444 

SWE,  ONESMM 

ADDRESS 

10, L 

ADDRESS 

0446 

TS 

- 

- 

BB  SUPER  0 

1" 
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BRANCH  IF  A0DRESS  IS  IN  ERASABLE. 

EXIT  IF  ADDRESS  IS  IN  FIXfD-FIXEO. 
BRANCH  HAPPILY  IF  LOC.  NOT  IN  AN  FBANK. 
OK  IF  LoC,  AND  aUR.  IN  DIFFERENT  BANKS. 

EXIT  IF  ADDRESS  IS  NOT  IN  AN  EBANK. 

OK  IF  WE  HAVE  A PSeUDO  EBANK. 

OK  IF  LoC  AND  ADR  IN  DiFFfReNT  EBANKS. 


ADDRESS  IN  ERASABLE  OR  FlXFlX  ILLEGAL. 
PUT  CADR  IN  THE  RANGE  00000-77777. 

BRANCH  IF  ADDRESS  ISN'T  IN  A SuPfR-BanK. 
BRANCH  IF  THERE  IS  NO  SUPfRBANK  SETTING. 
BRANCH  TO  CJSS  SUpeRBANK  fRROR. 


BRANCH  IF  ADDRESS  IS  In  ERASABLE  MeMoRY, 
ALL  DONE  IF  IN  FIxED-FIXEd. 

PUT  SUBADDRESS  IN  THE  RANGE  2000-3777. 
ALL  DONE  IF  ADDRESS  IN  UNsWITCHEO  ERAS. 
PUT  SUBADDRESS  IN  THE  RANGE  1400-1777. 

BYPASS  UPDATE  IF  i-SHOT  DECLARATION. 
POSITION  CURRENT  SETTING  FOR  BbcON  FMT. 
BYPASS  UPDATE  IF  l-SHOT  DfCLARaTTON. 

COPY  PERMANENT  INTO  TEMPORARY  SUPERBITS. 
SELECT  ON  * IN  OP  CODE  (BBCoN  OR  2CADR ) . 
MILDLY  CUSS  NONBLANK  ADR  FLD,  PRoCefD. 

BRANCH  IF  2CADRft,  NOT  BBCnNft, 


IGNORE  ADDRESS  FIfLD  OF  BBCONft  AND 
SUPPLY  THE  BANK  NUMBER  OF  THE  HIGHEST 
BANK  OCCUPIED  IN  THIS  ASSfMBLY. 

IF  NOT  IN  FIXED.  SHOULD  Bf  BANK  NUMBER. 
NO  REDUCTION  NEEDED  IF  IN  FIXEq-FIXFo. 

BRANCH  IF  ADDRESS  ISN'T  IN  A SUPeR-BANK. 
BRANCH  IF  ND  1-SHoT  SBANK=. 

SHIFT  ADDRESS  SuPERBITS  TO  MATCH  TEMPS, 
MAY  CUSS  ADDRESS  CONFL  W/  1-SHoT  DeCL. 
PLANT  SUPER-BANK  BITS  IN  BBCON  WORD. 
REDUCE  BANK  NUMBER  TO  3X, 

SUPPLY  DECLARED  SBANK  OR  0 IF  NONE. 
set  fb  part  of  BBCoN  From  ADDRESS. 

INSERT  1-SHDT  OR  ESTABLISHED  EBANK  NO. 

address  IN  ERASABLE  illegal  here. 

SET  FB  PART  of  BBCoN  FROM  BANK  NUMBER. 


ROYAL  •y  BUSINESS  FORMS  INCORPORATED 
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PO Aa72 

SUBROUTINE 

TO 

COMPUTE  An  address  in 

THE  HIGHEST 

OCCUPIED  FIXED 

0AA725 

HOW  HIGH  F 

NA 

used  fmax 

ONES 

N,SC , 1 

0AA73 

SWE 

, CAC3M 

pl  fmaxpi 

5 

M COMMON 

0AA735 

WA 

M COMMON 

OCT  17777 

Z.AUl 

0AA7A 

FIND  USED 

LA 

CAC  12 

N,AUl  ,1 

c , +0 

0 A A7A5 

LA 

Z , A J 1 

OCT  17777 

N , SC , 1 

OA475 

WD 

Z,AJ1 

OCT  17777 

M COMMON 

0AA755 

SWE 

, ONESMM 

M COMMON 

5,L 

M COMMON 

0H76 

TX 

L TYP  TAB 

- 

Z,X6 

0AA765 

LA, 

CAC3M 

M COMMON 

6,0 

C,  + 2 

0 A A77 

TS 

Z , X6 , 1 

C,-l 

0 A A775 

NA, 

B25T27M 

6,0 

type  f 

FIND  USED 

04*78 

TX 

M COMMON 

- 

USED  FMAX 

R0AA79 

TYPE  0 ADDRESS 

CONSTANTS  CONCLUDED! 

DOUBLE  PREC 

I S I ON  TYPES. 

0 A A8 

2FCADR 

LA 

OCT  4000 

ADDRFSS 

C , + 2 

04*9 

TS 

W BAD  WORD 

2ND  HALF 

RNG  ERROR 

OA5I 

LA 

ADDRESS 

OCT  7777 

PRINT  2PA 

0A53 

WD 

ADR  WD 

OCT  10000 

ADR  WD 

0A5A2 

LA, 

CAC3M 

ADR  WD 

OCT  57777 

2(B) CaDR  -1 

0A5A3 

LA, 

B33T35M 

SB AN<  REG 

zero 

C , + 2 

0 A 5 A32 

NA, 

B33T35M 

ADR  WD 

SbANK  REG 

SBANK  CUS 

OA5AA 

TX, 

B33T35M 

SPEC  MAG 

• 

ADR  WD 

0A55 

TS, 

8ANKMASK 

OCT  2000 

2ND  HALF 

PRINT  2PA 

0A57 

2(B) CADR 

ss 

zero 

OCT  1777 

2ND  HALF 

0A582 

sws 

, B41T44M 

SBAN<  REG 

14 

2ND  HALF 

0A59 

LA 

ADDRESS 

OCT  3777 

2BCADR  E 

0461 

LA 

ADDRESS 

OCT  7777 

2BCADR  E +1 

0 A f,  3 

WD 

2ND  HALF 

OCT  10000 

2ND  HALF 

0A&A1 

LA 

2ND  HALF 

OCT  57777 

2BCADR  E -1 

04542 

NA, 

B25T27M 

SBAN<  REG 

zero 

C»  + 3 

04&43 

SWE 

, B28T30M 

2ND  HALF 

5 ,L 

2ND  ALF 

045435 

NA, 

B28T30M 

2ND  ALF 

SBANK  REC- 

1 SH  CoNFL 

04544 

SWS 

, B41T44M 

2ND  HALF 

9 

2ND  HALF 

04646 

TX, 

B33T35M 

SPEC  MAG 

m 

2ND  HALF 

0465 

TS, 

BANKMASK 

OCT  2000 

ADR  WD 

2BCADR  E +1 

0 A 87 

2BCADR  E 

LA 

OCT  1 400 

ADDRESS 

C , + 2 

0A&9  • 

TS, 

AC08 

EBANK  REG 

2ND  HALF 

PRINT  2PA 

0A7 1 

SWS 

, B38AC08 

ADDRESS 

8 

2nd  half 

0A73 

LA, 

CHAR8M 

EIGHT 

EBANK  REG 

C , +2 

0A75 

NA, 

AC08 

2ND  HALF 

ebank  reg 

1 SH  CoNFL 

0A77 

TS, 

EBANKMSK 

OCT  1400 

ADR  WD 

PRINT  2PA 

0 A 52 

PRINT  2PA 

NA, 

CHaRIM 

card  +2 

bit  1 

C.  + 2 

OASA 

HA 

2ND  half 

SPEC  MAG 

2ND  HALF 

0A95 

TS, 

BIT1M 

zero 

B2  BINALF 

PRINT  2P 

0A55A 

TS, 

BItiM 

ones 

B2  BINALF 

ADD  ADR  WD 
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EXIT  IF  PROBLEM  HAS  BEEN  SOLVED. 

POINT  TO  AVAIL  TABLE  WD  FOR  HIgHfSt  FIX. 

BRANCH  IF  NO  FIXED  IS  OCCUPIED. 

FORM  ADDRESS  OF  2000  OF  LAST  USED  BANK. 
FIND  MEMORY  TYPE  OF  PUTATIVE  Bank. 

BRANCH  TO  TRY  AGAIN  IF  NOT  FIXED. 


ERROR  EXIT  IF  refers  TO  erasable, 
all  DONE  IF  IN  FIxeD-FIXED. 

PUT  CADR  IN  the  RANGE  00000-77777. 

BRANCH  IF  ADDRESS  ISN'T  IN  A SuPfR-BANK, 
BRANCH  IF  THERE  IS  NO  SUPfRBANk  SETTING. 
BRANCH  TO  CJSS  SUPERBANK  FRROR. 

REDUCE  BANK  4X,  5X,  OR  6X  TO  3X. 

PUT  GENADR  IN  THE  RANGE  2000-3777,  EXIT, 

isolate  bank  number  in  bbcon  word, 
supply  DECLARED  SSANK  OR  0 IF  NONE. 
BRANCH  IF  REFERS  to  ERASABLE. 

branch  if  refers  to  fixed-fixed, 

REDUCE  BANK  NUMBER  IN  BBCON  WORD. 

BRANCH  IF  ADDRESS  ISN'T  IN  A SUPfR-BANK, 
BRANCH  IF  NO  1-SHot  SBaNK=. 

SHIFT  ADDRESS  SUPeRBITS  TO  MATCH  TEMPS, 
MAY  CUSS  ADDRESS  CONFL  W/  1-SHoT  DeCL. 
PLANT  SUPER-BANK  BITS  IN  BBCON  WoRD. 
REDUCE  BANK  AX,  5X,  OR  6X  TO  3X. 

PUT  GENADR  IN  THE  RANGE  2000-3777. 

branch  if  refers  to  an  ebank. 

EXIT  FOR  ALL  CASES  BUT  EBANK  REFfReNCe. 
here  use  ebank  according  to  aDdrfss. 

BRANCH  IF  THERE  IS  NO  1-SHOT  DECi  ARATN. 

otherwise  check  For  conflict. 

PUT  GENADR  IN  THE  RANGE  IaOO-1777,  EXIT. 

BRANCH  IF  NO  MINUS  IN  COLUMN  l7« 

TWEAK  AND  USE  PART  OF  2DEC,  20CT. 

RESTORE  IT  AND  EXIT. 
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P0*96  IEVEL  3 ADDRESS  CONSTANTS:  SPECIAL  DECIMAL  CONSTANTS. 


0*9605 

MASKGRP 

s.o 

F , 0 

0*861 

MM  VN 

TS 

genl  mxr 

Z.MXR 

decimal  *i 

C 

set  general  mxr  and  delimiting  asterisk. 

0*9615 

TX 

BANK  5 

- 

Z.X* 

0*862 

TS 

z.sc 

*.5 

ou  col  ssl  *i 

cuss  queer  info  in  columns  a La  decimal. 

0*9625 

SSL. 

TWO 

health 

17 

C.*l 

0*963 

MAJR  mode 

TN 

MM  PARAMS 

3 

max  decml 

0*9635 

TS 

L FINI  IP 

Z.X* 

DEC  CONST 

MM  = DEC  with  LIMIT  OF  99. 

0*96a 

VERB  NOUN 

TN 

VN  P ARAM5 

3 

max  decml 

0*965 

TS 

Z.SC 

Z.X* 

DEC  CONST 

FIRST  DO  DEC  WITH  LIMIT  OF  9999. 

0*9655 

NA 

NUM3ER 

W BAD  WORD 

C . + 2 

0*966 

TS 

L PROC  WD 

Z.SC 

BLK2  lP  +1 

C 

IF  BAD  WORD  TREAT  VN  LIKE  DEC. 

0*9665 

3M 

number 

hundreth 

M COMMON 

ISOLATE  VER3  IN  M COMMON. 

0*967 

3T 

M COMMON 

10 

M COMMON  +1 

0*9675 

BT 

M COMMON  +1 

10 

M COMMON  +1 

0*968 

3S 

number 

M COMMON  +1 

M COMMON  +1 

isolate  noun  IN  m COMMON  +1. 

0*969 

SPE. 

ONES 

M COMMON 

7 , L 

NUMBER 

0*9695 

sws, 

BA2TA8 

M COMMON  .1 

0 

number 

store  verb  and  noun  as  7-bit  groups. 

0*97 

TS 

L PROC  WD 

Z.SC 

GOOD  lP 

C 

FINISH  UP  A LA  DEC. 

0*3705 

MASKGRP 

S.l 

F , 1 

1 


^0^68^ 


I ft 
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PQ48716  SELECT  PROCEDURE  FOR  LEVEL  1 ADDRESS  CONSTANTS.  PROCEDURES  FOR  SBANK=  AND  £BANK=. 


s ft 

OAST  1 8 

ADR  CON  1 

LA,  B28T30M 

health 

zero 

EBANK2 

BRANCH  TO  PROCESS  eBANK=  CODE* 

E 

A 

0AS73 

LA,  B28T30M 

health 

bit  30 

SBANK2 

BRANCH  TO  PROCESS  SBANKs  CODE. 

1 “ 

0AB7A 

SWE,  CAC3M 

L B NIK  SUM 

16 

Z,SC 

GO  TO  OTHER  BANK  JO  PROCESS  BNKSUM  CODE. 

ft 

O 

R0AB75 

ACTION  of 

"SBANK=»  code 

UPON  ASSEMBLER’S  S BANK 

REG 

ft 

< 

o 

0AB76 

tBAN<2 

LA 

ADDRESS 

OCT  67777 

RNG  ERROR 

ADDRESS  must  Be  in  a super-bank. 

i * 

0AB762 

WD 

ADDRESS 

OCT  10000 

ADDRESS 

2 

0 A B77 

SWS,  CHAR5M 

ADDRESS 

5 »L 

SBANK  ReG 

SET  UP  temp.  SUPERBITS,  CaLL  It  l -SHOT . 

s 

0AS78 

SWS,  CHAR6M 

SBANK  REG 

A , 1 

LINE  +6 

2 ft 

0A879 

SWS,  CHAR5M 

W LAST  ASS 

A, 2 

LINE  +6 

print  declared  superbank  no.  as  »snm . 

Z 

0^98 

fBNK2  X IT 

TS 

GeNL  mxr 

Z.MXR 

ZeQUALOC 

EXIT,  bypassing  w0rd  PROCfSSING. 

3 - 

f ft 

R0A888A 

ACTION  of 

•ebank=,  code 

UPON  ASSEMBLER’S  E BANK 

REG 

. 

o 

0AB886 

t BAN<2 

LA 

EIGHT 

ADDRfSS 

C , + 2 

BRANCH  IF  EBANK  NUMBER  IMPLIED  BY  ADR. 

ft 

0AB89 

TS,  CHAR8M 

ADDRESS 

EBANK  REG 

C , +2 

USE  EBANK  NUMBER  DIReCtLy. 

0A889A 

SWS,  CHAR8M 

ADDRESS 

8 

EBANK  ReG 

PLANT  EB A IK  NO.  IN  TENTATIVE  POSITION. 

0AS898 

SWS,  CHAR6M 

EBAN<  REG 

12, L 

LINE  +6 

ft 

0AS902 

SWS,  CHAR5M 

E CHAR  A 

A , 1 

LINE  +6 

s 

PRINT  declared  eBank  No.  AS  "EN". 

O^S9oA 

ebnk2  XI t 

TS 

GeNL  mxr 

Z,MXR 

ZeQUALOC 

EXIT,  BYPASSING  WoRD  PROCfSSING. 

ft 

R OAB908 

r ISPoSITIoNS  OF  eban<=. 

sban<=,  and 

BNKSUM  IF  ADDReSS  IS  BAD. 

ft 

0 A 99 1 

NW  BADDR 

TS 

BLOT  C6 

LINE  *6 

EBNK2  X I T -1 

0AS912 

TS 

BLOT  C6 

LINE  +6 

SBNK2  X I T -1 

0AB91A 

SM 

health 

BIT  14 

HEALTH 

BAD  LOCATION  VALUE  FLAG. 

ft 

0 A B9 1 6 

TS 

L BSJM  LOC 

Z,SC 

RSTOR  mxr 

c 

UOIN  END  3F  BNKSUM  PROCEDURE. 

ft  * 

% • 

ft  * 

3" 

• • 

» a 

2" 

# ' « ' * 

ft  * 

1" 

• • 

ft  * 


98951)46 


1 
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ft 


ft 

PO A 39 1 9 SPECIFIC  PROCESSING  FOR  BAS  I C ' I NSTRUCT I ONS . 


ft 

04992 

INSTROP 

sws 

, onem 

SWITCH 

42 

WORD 

0490 

LN 

zero 

ADR  WD 

F ONLY  CHK 

0492 

NA, 

BIT7M 

SWITCH 

ZERO 

C.  + 2 

ft 

0493 

SM 

CUSS  LIST  +23 

Bit  33 

CUSS  LIST 

0495 

NA, 

SPeCMAGM 

WORD 

ZERO 

C,  + 2 

0496 

HA 

WORD 

SPEC  MAG 

WORD 

ft 

0498 

WD 

WORD 

ADR  WD 

WORD 

04992 

SWS 

, CHAR8M 

five 

1 , L 

LINE  +5 

05  DO 

TS 

bank  E2 

ADR  WD 

GUD  BASIC 

9 

05  02 

F ONLY  CHK 

NA, 

B29T30M 

health 

BIT  30 

BASIC  ADR 

0504 

LA 

OcT  4000 

ADDRESS 

BASIC  ADR 

ft 

05052 

LA 

OCT  2000 

ADDRESS 

RNG  ERROR 

05054 

NA, 

B I T 7M 

SWITCH 

ZERO 

ADD  ADR  WD 

05056 

TS, 

BIT33M 

ONES 

CUSS  LIST 

+ 11 

PRB  ADRES 

ft 

0506 

TS, 

B I T 1 7M 

ONES 

CUSS  LIST 

+ 3 

ADD  ADR  WD 

05  08 

BASIC  ADR 

LA 

ADDRESS 

OCT  3777 

CHK  EBANK 

ft 

05l0 

NA, 

BIT7M 

SWITCH 

ZERO 

ADRES  ADR 

05112 

NA 

Max  ADRES 

PL  11777 

ADRES  ADR  ■ 

05113 

TS, 

B I T33M 

ONES 

CUSS  LIST 

♦11 

PRB  ADRES 

ft 

05114 

TS, 

B I T 17M 

ONES 

CUSS  LIST 

♦ 3 

ADRES  ADR 

0512 

TX, 

CHAR1M 

DEC  48  FLG 

„ 

WORD 

0514 

ADRES  ADR 

LA, 

CAC3M 

ADR  WD  +1 

OCT  7777 

ADD  ADR  WD 

ft 

05152 

NA, 

B6T7M 

SWITCH 

B2B6 

C , + 3 

05154 

NA, 

B39T48M 

ADR  WD 

ONES 

C,  + 3 

05156 

TS, 

BIT17M 

ONES 

CUSS  LIST 

♦ 3 

RNG  ERROR 

ft 

05158 

LA 

ADDRESS 

OCT  7777 

ADD  ADR  WD 

0516 

LA 

LOCATION 

OCT  7777 

F SUBADR 

05172 

LA 

MAX  ADRES 

PL  11777 

F SUBADR 

ft 

0518 

NA, 

BANKMASK 

LOCATION 

ADDRESS 

cus  F bank 

0519 

E 5UBADR 

TS, 

BAnKMaSK 

OCT  2000 

ADR  WD 

ADD  ADR  WD 

j 

0521 

CHK  EBANK 

LA, 

CaC3M 

ADR  WD  +i 

OCT  1377 

ADD  ADR  WD 

05222 

NA, 

B6T7M 

SWITCH 

B2B6 

C , + 3 

05224 

NA, 

B41T48M 

ADR  WD 

ONES 

C , ♦ 3 

ft 

05226 

TS, 

BIT17M 

ONES 

CUSS  LIST 

♦ 3 

RNG  ERROR 

05228 

LA 

ADDRESS 

OCT  1377 

ADD  ADR  WD 

0523 

LA, 

EBaNKMSK 

E BANK  REG 

BANK  E2 

C,  + 2 

> 

0525 

NA, 

ebankmsk 

address 

EBANK  REG 

C , + 2 

3" 

0527 

F SUBADR 

TS, 

EBANKMSK 

OCT  1400 

ADR  WD 

ADD  ADR  WD 

ft 

0529 

rUS  E BANK 

TS, 

ebankmsk 

OCT  1400 

ADR  WD 

CUSS  BANK 

0530 

SWS 

, Ac05 

address 

10, L 

6,2 

) 

05-31 

TS, 

CHAR4M 

E CHAR  4 

6,2 

ADD  ADR  WD 

2" 

0541 

CUS  F BANK 

TS, 

BAnKMaSK 

OCT  2000 

ADR  WD 

CUSS  BANK 

0542 

WD 

address 

OCT  10000 

M COMMON 

ft 

0543 

SWS 

, CHAR4M 

M COMMON 

11, L 

6,2 

0544 

SWS 

, AC05 

M COMMON 

8 , L 

6,2 

ft 

0546 

ADD  ADR  WD 

WA , 

SPeCMAGM 

WORD 

ADR  WD 

WORD 

ft 

0 
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SUPPLY  INCREMENTING  BIT  FnR  D.P.  Codes. 
BRANCH  IF  ADDRESS  VALUe  IS  POSITIVE. 

23  cuss  no  index  before  minus  address. 

+o  must  become  -o  for  subtraction. 

add  negative  address. 

set  up  prime  For  full  code  print. 

call  for  a prime  in  QUARTfR-CODE  print. 

branch  unless  memory  allowance  = f only, 
branch  if  indeed  refers  to  fixed. 

ADDRESS  IN  BANKS  E4-E7  IS  NONSeNSE  HfRE. 

c 

IF  NOT  INDEXED,  We'Ve  HAD  IT,  MATE. 

BRANCH  IF  ADDRESS  is  IN  ERASABLE. 

1 CUSS  UNINDEXED  1/a-CODe  RfFeRENCf  to  f. 

PUT  MISC.  Flag  ON  UNINDEXeD  BASIC  in- 
structions that  Refer  to  fixed  memory. 

EXIT  IF  IN  FIXED-FIXED. 

EXCEPT  WHERE  INSTRUCTION  IS  INDEXED,  ... 
CUSS  D.P.  ADDRESS  THAT  STRADDLES  FBANKS. 
C 

(FOR  D.P.  ADDRESS  = 7777). 

branch  if  location  is  not  in  an  fbank. 

NO  BANK  CJSS  ON  XQC  REF  TO  2000-3777. 

PUT  SUBADDRESS  IN  THE  RANGE  2000-3777. 

branch  if  address  is  not  in  an  ebank. 

EXCEPT  WHERE  INSTRUCTION  IS  INDEXED,  ... 
CUSS  D.P.  ADDRESS  that  STRADDLES  ebanks. 

c 

(FOR  D.P.  ADDRESS  : 1377). 

FORGIVE  AlL  IF  WE  HAVE  PSEUDO  eBaiNK. 
BRANCH  ON  E-BANK  ERROR. 

PUT  SUBADDRESS  IN  THE  RANGE  1400-1777. 


C 

PUT  EBANK  NJMBeR  IN  BANK  ERROR  CUSS. 

c 


PUT  FBANK  NJMBER  INTO  BANK  ERROR  CUSS 

PUT  explicit  address  INTO  word. 
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PD5  48 

printing 

PROCEDURES  for 

BASIC  INSTRUCTIONS  AND  ADDRESS  CONSTANTS. 

0549 

GUD  BASIC 

ss 

ZERO 

C 1T4 

LINE  .6 

0551 

NA,  CHaRIM 

card  +2 

bit  1 

C , +2 

0553 

HA 

WORD 

SPEC  MAG 

WORD 

0555 

5WS,  ACOl 

WORD 

33, L 

LINE  .6 

0556 

SWS , AC02 

WORD 

30,  L 

LINE  +6 

0557 

SWS,  AC03 

WORD 

27, L 

LINE  +6 

0558 

SWS,  AC04 

WORD 

24, L 

LINE  +6 

0550 

LA 

dec  6 flag 

word 

ACoN  prnt 

0552 

LN 

ADR  WD 

zero 

OP  DIGIT  - 

1 

0554 

la 

Address 

OCT  3777 

C,+4 

05  56 

LA 

ADDRESS 

OCT  7777 

C , +2 

0558 

TS,  B29T30M 

ONES 

WORD 

BBCON  +2 

0570 

SWS,  CaC3M 

ADDRESS 

2 

address 

0572 

SWS,  CHAR3M 

address 

22, L 

WORD 

0574 

SWS,  CHAR4M 

WORD 

6 

WORD 

0576 

SSL,  FoURM 

health 

17 

PRINT  OP 

05762 

OP  DIGIT 

SWS,  AC08 

WORD 

9 

LINE  +5 

05764 

LA,  CAC3M 

BANK  E2 

ADR  WD 

C , + 2 

05766 

TS,  CHARIM 

blanks 

LINE  +6 

PRINT  OP 

05768 

SWS,  CHARlM 

five 

5 

LINE  +6 

0577 

PRINT  OP 

SWS,CHaR7M 

word 

6 

LINE  +5 

05772 

SWS,  BIT7M 

switch 

21, L 

switch 

05774 

SWS,  BIT28M 

zerd 

damn  zero 

SWITCH 

05776 

NA,  CHAR4M 

LINE  +6 

blots 

BC  CHECK 

0578 

TS,  CHAR8M 

ZeRD 

line  +5 

OP  DIGIT 

05792 

TS,  CHAR8M 

blots 

LINE  +5 

naughty 

0530 

fAD  BASIC 

SS 

BLOTS 

C 1 T4 

LINE  .6 

0532 

LA 

DEC  5 FLAG 

WORD 

C,-2 

0535 

NA,  CHaRIM 

card  ,2 

BIT  1 

C,.2 

0537 

HA 

WORD 

SPEC  MAG 

WORD 

0539 

TS 

zerd 

ADR  WD 

OP  DIGIT  - 

■1 

05?8 

naughty 

TS 

W BAD  WORD 

WORD 

BC  CHECK 

0599 

1 con  prnt 

SWS,  CHARsM 

word 

12 

LINE  +5 

0601 

PC  CHECK 

NA,  CHARIM 

CARD  +2 

BIT  1 

C , + 3 

0602 

SS 

zerd 

B1B17B33 

CUSS  LIST 

♦ 12 

0604 

TS,  BIT33M 

zerd 

CUSS  LIST  .23 

C , +2 

0696 

NA,  CHaRIM 

card  .2 

BLANKS 

QUEER  C 1 7 

0608 

NA,  CHaRIM 

CARD 

J COLUMN  1 

C , + 3 

0609 

SS 

zerd 

B1B17B33 

CUSS  LIST 

+ 12 

0611 

TS,  BIT33M 

zerd 

CUSS  LIST  +23 

C , + 2 

06  i3 

NA,  CHaRIM 

card 

BLANKS 

QUEER  Cl 

0615 

NA,  CHAR8M 

Card  .2 

blanks 

queer  C24 

06162 

TX,  BIT6M 

zero 

_ 

SWITCH 

0617 

TS,  CHAR8M 

eight 

ebank  Reg 

SET  EBCoN 

06182 

TS,  B25T27M 

bit  25 

SBANK  REG 

SET  SBCON 

0619 

iNSTR  xit 

TS 

mod  retrn 

z,sc 

rstor  mxr 
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clear  address  field  of  print  image. 

BRANCH  IF  NO  MINUS  SIGN  In  COLUMN  17. 
COMPLEMENT  negative  INSTRUCTION. 


put  basic  code  address  into  print  image, 
branch  if  word  is  an  addrfss  Constant. 


BRANCH  if  INSTRUCTION  REFERS  2 ERASABLE. 

branch  if  refers  to  fixed-fixed, 
reduce  bank  number,  set  fbank  rff.  bit, 
align  fixed  bank  nos.  with  erasable. 
SUPPLY  bank  number  to  pass  3 For  ReF  ck, 
STORE  IT  TWtCe  TO  MAKE  PARITY  OK. 
choose  printing  of  Straight  op  or  othfr. 

print  second  octal  op  digit, 
branch  if  address  value  is  over  777. 

INSERT  PRIME  IF  ADDRESS  IS  split. 

set  main  op  digit  in  print, 

MOVE  CURRENT  INDEX  BIT  TO  PREVIOUS. 
clear  CURRENT  index  bit, 

CLEVERLY  EXIT  TO  NAUGHTY  OR  BC  CHECK. 

clear  a space  for  the  minor  op  digit. 

BLOT  FIRST  DIGIT  OF  BAD  CONSTANT- 
blot  out  bad  address  field. 

BRANCH  IF  No  MINUS  SIGN  IN  COLUMN  17. 
COMPLEMENT  GOOD  OP  OF  BAD  NeG.  INStR. 
CHOOSe  PRINTING  OF  STRAIGHT  OP  OR  OTHeR. 


-O 

Ol 

CD 


..0  -»» 
00 


print  first  digit  of  Constant* 


CLEAR  EXTENSION  CUSSeS  IF  MINUS. 
clear  "SHOULD-Be-INDeXeD»  CUSS  if  MINUS. 

cuss  if  neither  blank  oR  minus  in  cr  17.  ♦ 

CLEAR  EXTENSION  CUSSeS  IF  LeFToVfR. 

clear  "SHOUlD-BE-INDeXeD"  CUSS  if  lftvr.  [• 

cuss  if  neither  blank  nor  J in  Column  i. 

CUSS  IF  COLJMN  24  NON-bLAnk. 

TURN  OFF  D.P.  OP  CODE  SWITCH.  * 

TURN  OFF  "JJST-DlD-EBANKs"  SWITCH. 

TURN  OFF  ''JJST-DID-SBANK  = » SWItCh. 

RETURN  TO  GENERAL  PROCEDURE.  * 


1 


• 

L 
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y 

P0621 

kHEn  address  is  wrong  bjt  not  ATROCIOUS,  TFLL  THE 

MAN  what  it  is. 

♦ 

0622 

PRB  ADRES 

TX 

Z,R5 

• 

z,x* 

c 

BANK  INDICATOR  5 TO  X*. 

2 

062* 

SS 

CUSS  LIST  +11 

B38TA8 

z,x* 

C 

SET  UP  ADDRESS  OF  aDR  CUSS, 

0626 

TX 

HI  EOUALS 

- 

ADRECUSS  +1 

C 

initialize  to  alf  =00,0000. 

r 

0628 

SS 

ADDRESS 

SEVEN 

ADRECUSS  +1 

c 

j- 

0629 

SWS.  AC07 

ADDRESS 

3 , L 

ADRECUSS  +1 

C 

..2 

0630 

SWS,  AC06 

ADDRESS 

6 , L 

ADRECUSS  +1 

c 

£ 

0631 

SWS,  AC05 

ADDRESS 

9 , L 

ADRECUSS  +1 

C 

put  address  or  subaddress  into  cuss. 

0633 

LA 

ADDRESS 

OCT  3777 

PRB  EADDR 

c 

BRANCH  IF  ADDRESS  IS  IN  ERASABLE. 

00 

0635 

LA 

ADDRESS 

OCT  7777 

PRB  NOBNK 

c 

BRANCH  IF  ADDRESS  IS  In  FIXeD-FIX£D. 

CO 

0637 

SS 

ALF  2000 

B28T29 

ADRECUSS  +1 

c 

PUT  SUBADDReSS  in  the  RANGE  2000-3777. 

Jjn 

0639 

WD 

ADDRESS 

OCT  10000 

M COMMON 

r 

«.£ 

06*0 

SWS,  CHAR2M 

M COMMON 

23, L 

ADRECUSS  +1 

r 

♦ 

% 

06*1 

SWS,  AC03 

M COMMON 

20, L 

ADRECUSS  +1 

s 

put  reduced  bank  no.  into  cuss,  fxit. 

JP 

06*3 

PRB  EADDR 

LA 

ADDRESS 

OCT  1377 

PRB  NOBNK 

c 

BRANCH  IF  ADDRESS  is  in  UnSWITCHeD  F. 

♦ 

06*5 

SS 

ALF  E1A00 

C2  B28T3* 

ADRECUSS  +1 

r 

w 

PUT  SUBADDRESS  in  the  range  1*00-1777. 

1 

06*7 

SWS,  AC03 

ADDRESS 

22, L 

ADRECUSS  +1 

s 

PUT  EBANK  no.  INTO  CUSS,  FXIT. 

06*9 

frb  nobnk 

SWS,  C3T6M 

ADRECUSS  +1 

A ,2  ,L 

ADRECUSS  +1 

c 

•* 

0650 

SS 

blanks 

C2  C7T8 

ADRECUSS  +1 

s 

MOVE  UP  NON-BANK  ADDRESS,  EXIT. 

Y 

s 

’0652 

MINOR  SUBROUTINE  TO  CUSS 

either  type 

OF  BANK  ERROR 

• 

0653 

rUSS  bank 

TX 

Z,R5 

m 

Z.X6 

c 

PUT  bank  INDICATOR  5 IN  X6, 

0655 

SWS,  B I T2M 

SWITCH 

5 ,L 

CUSS  LIST  +11 

c 

SET  POISON  BIT  OF  BANK  CUSS  = -INDEXED. 

♦ 

0657 

HA 

CUSS  LIST  +11 

BlB2 

CUSS  LIST  +11 

c 

CALL  FOR  BANK  ERROR  CUSS. 

y 

0659 

SWS,  B38T*aM 

CUSS  LIST  +11 

32 

Z,X6 

s 

SET  UP  X6  FOR  BANK  NO.  INSERTION,  EXIT. 

7 Q6  5 1 

subroutine  tc 

UPDATE  ASSEMBLER'S  ebANK 

register*  called 

EXCpPT  when  B3C0N  OR  2(B)CaDR  FqLLqWS  ebANK: 

y 

70653 

directly. 

CUSSES  IF  DEC 

lared  fbANK  (OTHfR  THAN 

1- 

SHOTS)  CONFLICTS 

with 

LOCATION  ^ALUe.  ALSO  FIxfS  SBANk.  Rfg. 

- 

0655 

fBK  loc  0 

SWS, EBaNKMSK 

ebank  reg 

8 ,L 

EBANK  ReG 

TENTATIVELY  ACCEPT  EBANK  DECLARATION. 

9 

06566 

SWS,  B33T35M 

SBANK  REG 

5 

SBANK  ReG 

TENTATIVELY  ACCEPT  SBANK  DECLARATION. 

0657 

LA 

OCT  *000 

LOCATION 

SBK  LoC  Q 

if  in  fixed,  go  see  if  in  superbank. 

0658 

LA 

location 

OCT  1377 

N»X6 

EXIT  IF  LOCATION  IS  NOT  IN  AN  eBANK. 

2 

0670 

LA,  CHAR8M 

eight 

EBANK  REG 

C , + 2 

branch  ON  OLD-EBANK-DECLARATION  BIT. 

0672 

NA , EBaNKMSK 

ebank  reg 

LOCATION 

BAD  CoNFL 

check  on  new  permanent  declaration. 

067* 

TS,  EBANKMSK 

location 

EBANK  REG 

6,0 

force  agreement  and  exit. 

2 

O676 

SBK  LOC  0 

LA 

location 

OCT  67777 

N,X6 

exit  IF  LOCATION  NOT  IN  A SUPERBANK. 

06771 

LA 

ones 

location 

N,X6 

EXIT  IF  LOCATION  HAS  No  VALUE. 

06772 

WD 

LOCATION 

OCT  10000 

FIELD  COD 

9 

3” 

O678. 

NA,  B25T27M 

SBANK  REG 

zero 

C , + 2 

BRANCH  ON  OLD-SBANK-DECLAR AT  I ON  BITS. 

0650 

NA,  B33T35M 

SBANK  REG 

field  cod 

BAD  CONFL 

CHECK  UP  ON  NEW  PERMANENT  DECLARATION. 

• 

0652 

TS,  B33T35M 

field  COD 

SBANK  REG 

6,0 

FORCE  AGREEMENT  AnD  EXIT. 

% 

7065* 

rUSSING  OF 

SUPERBaNK  ERRORS!  used  BY 

FCADR,  2FCADR 

• 

and  polish. 

■y 

2" 

0656 

SBANK  CUS 

TS,  BIT7M 

zero 

switch 

CUSS  BANK 

c 

SET  UP  BANK  ERROR  CUSS  FOR  FILLING  IN. 

0658 

SWS,  AC05 

ADR  WD 

5 ,L 

6,2 

% 

Ik 

0690 

SWS,  CHAR*M 

w laSt  ASS 

A , 1 

6,2 

FORM  "ADDRESS  IS  IN  BANK  SN». 

0692 

TX 

Z,SH 

Z,SC 

069* 

1SH  C0NFL 

TS,  BIT1M 

ONES 

CUSS  LIST 

♦ 22 

c,-l 

c 

E ( S) BANK  CONFLICT  WITH  1-SHOT  DECLARE. 

■% 

0696 

fcAD  C0NFL 

TS,  B I t 1 7M 

ONES 

CUSS  LIST 

♦23 

C,-2 

c 

E<S)BANK  conflict  with  LOCATION. 

1" 


c > 

c * 


L 
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Pi ooo  subroutine  in  pass  2 for  blk2  to  set  in  print  the  location  of  an  instruction  or  constant,  with  bank 

R i o o2  t umbeR  if  any  and  with  a notation  for  end  of  block  or  bank  if  Required,  blots  out  location  field  if  bad  loc. 


1034 

6LK2  PLEB 

NA 

LOCATION 

ONES 

C,  + 2 

c 

BRANCH  IF  THERES  A VALID  I0CATI0N. 

1036 

SS 

BLOTS 

C1T4 

LINE  +5 

blot  out  location  field  AND  exit. 

1038 

TX 

BLK2  MXR 

m. 

Z ,MXR 

£ 

1039 

SS 

ZERO 

C1T4 

LINE  +5 

c 

1010 

TX 

LOCATION 

m 

COMMON 

c 

1 0 1 1 

TX 

COMMON 

- 

COMMON  +1 

c 

1012 

LA. 

common 

OCT  3777 

E PLEB 

c 

branch  if  location  is  in  fRasablf. 

10132 

LA,  B39T48M 

location 

zero 

DP  CROSS  Q 

r 

branch  if  location  begins  bank  or  ff/2. 

1014 

LA 

common 

OCT  7777 

end  bank  q 

c 

branch  if  location  is  not  in  a bank. 

1 0 1 6 

TX 

COMMA  C8 

- 

LINE  +4 

c 

1017 

WD 

COMMON 

OCT  10000 

COMMON 

w. 

reduce  to  standard  bank  notation. 

1 0 1 9 

SWS.  AC06 

COMMON 

1 

LINE  +4 

r 

w 

1020 

SWS.  AC07 

common 

4 

LINE  *4 

r 

SET  BANK  NUMBER  IN  PRINT. 

1022 

TS,  BANKMASK 

OCT  2000 

COMMON  .1 

end  bank  q 

c 

PUT  SUBADOReSS  IN  the  RANGE  2000-3777. 

10232 

TS,  8 1 T 33M 

ones 

CUSS  LIST 

+21  C.+4 

£ 

10234 

F PlEB 

NA,  CHAR1M 

HEALTH 

BIT  2 

C , + 2 

C 

BRANCH  if  NOT  AN  erase  CARD. 

10236 

NA,  EBANKMSK 

location 

health 

C ,-2 

c 

branch  if  erase  crosses  ebank  boundary. 

10238 

LA,  B41T48M 

location 

zero 

DP  CROSS  Q 

c 

branch  if  location  begins  ebank. 

1024 

LA 

Common 

OCT  1377 

end  bank  q 

+ 2 C 

branch  if  location  is  not  in  an  fbank . 

1026 

TX 

E COMMA 

- 

LINE  +4 

c 

1027 

SWS,  AC07 

COMMON 

2 

LINE  +4 

C 

SET  EBANK  NUMBER  IN  PRINT. 

1029 

TX,  EBANKMSK 

OCT  1400 

- 

COMMON  +1 

c 

PUT  SUBADORESS  IN  THE  RANGE  1400-1777. 

1031 

end  bank  q 

NA.  B39T48M 

common  + i 

ONES 

C,  + 2 

c 

BRANCH  IF  NOT  END  oF  BLOCK  oR  BANK. 

1033 

TS,  C 1 T4M 

END  BL  MC 

LINE  +4 

PRINT  LOC 

c 

"EB"  PRECEDES  SuCH  LOCATIONS. 

1035 

TX 

L TYP  TAB 

m 

Z,X6 

C 

1036 

LA,  CAC3M 

LOCATION 

6,0 

C,  + 2 

C 

BRANCH  WHEN  MEMORY  TYPE  CATEGORY  FOUND, 

1038 

TS 

Z , X6 , 1 

_ 

C.-l 

r 

1039 

NA,  CAC3M 

location 

6,0 

PRINT  LoC 

c 

branch  if  not  end  oF  minor  block. 

1041 

SWS,  C1T4M 

END  3L  MC 

A ,4  »L 

LINE  +4 

c 

"MC"  MARKS  end  OF  MEMORY  TYPE. 

1043 

PRINT  LOC 

SWS,  AC01 

COMMON  +1 

33. L 

LINE  *5 

c 

1044 

SWS,  AC02 

COMMON  *1 

30, L 

LINE  *5 

c 

1045 

SWS,  AC03 

COMMON  *1 

27, L 

LINE  ♦ 5 

c 

1046 

SWS,  AC04 

COMMON  -,1 

24 , L 

LINE  +5 

c 

1047 

c STOR  MXR 

TX 

GENL  MXR 

Z ,MXR 

SET  UP  LOCATION  IN  PRINT  AND  EXIT. 

910481 

MINOR  SUBROUTINE  IN  pass 

2 FOr  BLK2 

TO  CUSS  A DOUBLE 

precision  constant  that  Crosses  a bank  boundary. 

10484 

DP  CROSS  Q 

TX 

Z ,CSH 

Z ,X6 

c 

10486 

NA 

N , SC 

2 BAD  LOCS  ♦!  N,X6 

L 

EXIT  IF  NOT  A D.  P.  CONSTANT. 

10488 

TS,  BIT1M 

ONES 

CUSS  LIST 

♦28  6,0 

c 

1 


' 
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Pi  0 49 

SUBROUTINE  IS 

PASS  2 FOR 

BLK2  TO  SET  UP 

A SINGLE-PRECISIDN  CONSTANT  IN  WORD  And  in  print.  THIS 

# 

P 1 05  1 

subroutine 

does  not  care 

whether  the 

WORD  IS  SIGNED 

OR  NOT,  but 

demands 

THE  OUTPUT  OF  DeC/oCt  CONST  IN  NUMBfR. 

% 

1053 

BLK2  IP 

NA 

number 

W BAD  WORD 

GOOD  lP 

r 

BRANCH  IF  WORD  IS  VALID. 

1055 

SS 

blots 

CHAR  8 

LINE  +5 

c 

* 

1056 

SS 

blots 

C1T4 

LINE  +6 

c 

BLOT  OUT  WORD  IN  PRINT. 

1058 

TX 

W BAD  WORD 

» 

WORD 

SEND  ALONG  BAD  NEWS  AND  EXIT. 

9 

1050 

GOOD  IP 

TX 

Bl<2  MXR 

w 

Z »MXR 

c 

1051 

EX 

NUM3ER 

D2T12 

WORD 

c 

isolate  magnitude. 

1053 

LA 

BIT  1 

NUMBER 

C,  + 2 

c 

* 

1054 

HA 

word 

SPEC  MAG 

WORD 

c 

COMPLEMENT  negative  word. 

1056 

P2  BIN  ALF 

SS 

zerd 

C 1 T4 

LINE  *6 

r 

w 

1057 

sws*  CHAR8M 

WORD 

12 

LINE  *5 

r' 

1058 

SWS , ACO 1 

WORD 

33, L 

LINE  +6 

c 

1059 

SWS,  AC02 

WORD 

30, L 

LINE  +6 

c 

I 

1070 

SWS,  AC03 

WORD 

27, L 

LINE  +6 

c 

1071 

SWS,  AC04 

WORD 

24, L 

LINE  +6 

c 

SET  WORD  IN  PRINT. 

t 

1073 

ts,  charim 

DeC6  FLAG 

WORD 

rstor  mxr 

APPLY  INTERNAL  CONSTANT  Fl  AG  AND  EXIT. 

m 

71075 

SUBROUTINE  IN  PASS  2 FOR 

BLK2  TO  PROCESS 

A double-precision 

constant,  using  The  output  of  dec 

P 1 077 

tonst  OR 

OCT  const,  AND 

distinguishing  between  the 

SIGNED  AND  UNSIGNED 

possibilities  (For  octal  constants  onlyj 

P1079 

sets  up 

the 

high_oRDeR  part  in  word 

AND  jHe  LOW-ORDER  PART  IN  2ND  HALF, 

SETS  the  HIGH-ORDeR  part  in  print,  and 

f 

A 

P 1 0 B 1 

sets  up 

THE 

low-order  part  in  printable  form  in  2nd 

ALF  AND  2ND 

ALF  +1. 

1082 

ELK 2 2P 

NA 

NUM3ER 

W BAD  WORD 

good  2P 

Q 

branch  if  constant  is  valid. 

9 

1084 

TN 

blots 

2 

2ND  ALF 

C 

PREPARE  BlOTS  FOR  LOW-ORDfR  PART. 

1087 

TS 

w BAD  WORD 

2ND  HALF 

BLK 2 lP  +1 

c 

GO  TO  JOIN  SINGLE-PRECISION  SADNfSS. 

■» 

A 

1089 

GOOD  2P 

TX 

BLK2  MXR 

m 

Z»MXR 

c 

1090 

NA 

E number 

ZERO 

C , + 3 

c 

branch  IF  NjMBER  is  signed. 

1092 

SWE*  B34T48M 

NUMBER 

15 

WORD 

c 

9 

A 

1093 

TS 

SPEC  mag 

COMMON 

C,  + 3 

c 

SET  UP  UNSIGNED  CONSTANT. 

1095 

SWE,  B35T48M 

NUM3ER 

14 

WORD 

c 

A 

1096 

TX 

min  37777 

- 

COMMON 

c 

SET  UP  SIGNED  CONSTANT. 

1098 

EX 

number 

COMMON 

2ND  HALF 

Q 

ISOLATE  LOW-ORDER  PART. 

W 

1 1 DO 

LA 

bit  1 

number 

C*  + 3 

c 

branch  IF  NO  MINUS  SIGN. 

3" 

1132 

HA 

WORD 

spec  mag 

WORD 

r 

- 

1133 

HA 

2ND  HALF 

SPEC  MAG 

2ND  HALF 

c 

complement  halves  of  negative  constant. 

* 

1135 

PRINT  2P 

SWE,  CHAR8M 

2ND  HALF 

12 

2ND  ALF 

c 

the  INSTRUCTIONS  FROM  PRINT  2p  THROUGH 

1137 

SWE,  ACO 1 

2ND  HALF 

33,  L 

2ND  ALF  .1 

c 

B2  BIN  Ai_F  ARE  BORROWED  BY  THe  DOUBLE 

I 

1139 

SWS,  AC02 

2ND  HALF 

30, L 

2ND  ALF  .1 

c 

PRECISION  ADDRESS  CONSTANTS. 

2" 

1111 

SWS,  AC03 

2ND  HALF 

27, L 

2ND  ALF  +1 

c 

1112 

SWS,  AC04 

2ND  HALF 

24, L 

2ND  ALF  +1 

c 

MAKE  PRINTABLE  VERSION  OF  LOW-ORDER  PRT 

c 

1114 

TS,  CHAR  lM 

DEC6'  FLAG 

2ND  HALF 

B2  bin  alf 

c 

GO  TO  JOIN  SINGLE-PRECISION  PROCEDURE. 

JJO 

00 

CO 

O 

CJ-i 


« 


ROYAL  f BUSINESS  FORMS  INCORPORATED 
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'1116 

SUBROUTINE  IN  PASS  2 FOR 

blk2  to  set  in 

PRINT  A RIGHT 

-HAND 

LOCATION  FOR  SUCH  AS  SeTLOC.  PUTS  IN 

: 1 1 1 8 

the  bank 

INDICATOR,  IF 

ANY.  BLOTS 

OUT  AN  INVALID 

LOCATION. 

1119 

FLK2  PREl 

NA 

LOCATION 

ones 

C,  + 2 

r 

1120 

5S 

blots 

C3T6 

LINE  >6 

BLOT  OUT  3A0  LOCATION  AND  EXIT. 

1122 

TX 

BLK  2 MXR 

m 

Z ,MXR 

C 

1123 

SS 

ZERO 

C3T6 

LINE  +6 

C 

1124 

TX 

location 

_ 

COMMON 

c 

isolate  location  value. 

1126 

LA 

common 

OCT  3777 

E PREL 

c 

BRANCH  IF  LOCATION  IS  IN  fRASABLf. 

1128 

LA 

Common 

OCT  7777 

PRINT  VaL 

c 

branch  if  location  is  not  in  a bank. 

1130 

TX 

COMMA  C2 

m 

LINE  .6 

c 

1131 

WD 

COMMON 

OCT  10000 

COMMON 

c 

reduce  to  standard  bank  notation. 

1133 

SWS , CHAR8M 

COMMON 

13 

LINE  +5 

c 

1134 

SWS,  ACOl 

COMMON 

32, L 

LINE  +6 

c 

set  bank  number  in  print. 

1136 

TS,  BANKMA5K 

OCT  2000 

COMMON 

PRINT  VAL 

c 

PUT  SUBADDReSS  IN  the  range  2000-3777. 

1138 

fPREL 

LA 

Common 

OCT  1377 

PRINT  VAL 

c 

branch  if  location  is  not  in  an  fbank. 

1140 

TX 

COMMA  C2 

- 

LINE  *6 

c 

1141 

SWS,  CHAR8M 

E CHAR  4 

A, 4 

LINE  *5 

c 

1142 

SWS,  ACOl 

COMMON 

34, L 

LINE  +6 

r 

set  ebank  NJMBeR  in  print. 

1144 

TX,  EBANKMSK 

OCT  1400 

- 

COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  1400-1777. 

1146 

PRINT  VAL 

SWS,  AC03 

COMMON 

21, L 

LINE  +6 

c 

1147 

SWS,  Ac04 

COMMON 

18, L 

LINE  +6 

r 

1148 

SWS,  AC05 

COMMON 

15, L 

LINE  +6 

c 

1149 

SWS,  AC06 

COMMON 

12, L 

LINE  +6 

c 

1150 

TX 

GeNL  MXR 

« 

Z ,MXR 

SET  LOCATION  IN  PRINT  AND  EXIT. 

.O 

CTi 


s Cn 

rv> 


g 


■ 


4 
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1156 

SETLOC , 3 

0 

65 

1157 

UNSCRAMB 

SWe,  B38T48M 

N,AJ2 

0 

N,AUl 

1159 

SWS,  B34T37M 

N , A J2 

25 

N , AUl 

1161 

SWS,  B22T32M 

N,AJ2 

4 , L 

N,  AUl 

1163 

SWS,  B18T21M 

N,AJ2 

13 

N , AU 1 

1165 

SWS,  B6T16M 

N,AJ2 

8 , L 

N , AUl 

1167 

SWS,  B2T5M 

N , A J2 , 1 

1 

N,AUl,l 

1169 

NA 

N , A J2 

sentinel 

UNSCRAMB 

1170 

TX 

Z,AJ2 

- 

Z,R5 

1172 

cussalog 

M*D»44E 

CDNO  cuss 

D ERR  CUSS 

ILOP  CUSS 

1173 

M.DtEDD 

LEFL  cuss 

CnFL  cuss 

TYPL  CUSS 

1174 

M,D,DCD 

BADL  cuss 

IP0X  cuss 

mgla  CUSS 

1175 

M ,D ,CD4 

udef  cuss 

ASIZ  CUSS 

IRAD  CUSS 

1176 

M,D,DFe 

lefm  cuss 

pred  cuss 

NFIT  CUsi 

1177 

m,d*eff 

NFIT  CUS2 

styp  CUSl 

STYP  CUS2 

1178 

m,d,eee 

scnf  CUSl 

SCNF  CUS2 

SOVS  CUSl 

1179 

m.d.eee 

SOVS  CUS2 

SMD  CUSl 

SMD  CUS2 

1 1 BO 

m.d.ffe 

SME  CUSl 

SME  CUS2 

SMIT  CUsi 

1181 

m,d,eee 

SMIT  CUS2 

SNDE  CUSl 

ARBL  CUSS 

1132 

M,D,EGF 

SI DL  CUSl 

SBDE  CUSl 

smde  cusi 

1183 

M,D,C52 

adre  bank 

INAP  CUSS 

ADR  CUSS 

1184 

M,D,EE5 

SBEX  CUSS 

SNEX  CUSS 

IDBC  CUSS 

1135 

M,D.5D5 

mtd  CUSS 

RANG  CUSS 

FRAC  CUSS 

1186 

M,D,54E 

MFD  CUSS 

lonb  cuss 

UNDl  CUSS 

1187 

m,d,gee 

ndei  cuss 

LNSY  CUSS 

SNDE  CUS2 

1188 

m,d,gef 

SBDE  CUS2 

S I DL  CUS2 

SMDE  CUS2 

1189 

M,D,FEE 

SSNP  CUSS 

BNLF  CUSS 

NSCH  CUSS 

1190 

m,d,ddf 

bful  CUSS 

IL0C  CUSS 

tola  cuss 

1191 

M,D,GFe 

memt  cuss 

NMC1  CUSS 

CAFS  CUSS 

1192 

M , D ,444 

QC1  CUSS 

OC 1 7 CUSS 

QC24  CUSS 

1193 

M , D , 4F5 

IMaD  cuss 

pole  cuss 

eceb  cuss 

1194 

M,D,6EE 

ECF1  CUSS 

ipxi  cuss 

IPX2  CUSS 

1195 

M,D,EG5 

NMC2  CUSS 

ECFB  CUSS 

SB  I X CUSS 

11951 

M,D,EFe 

INXH  CUSS 

IMAS  CUSS 

STMF  CUSS 

11952 

m.d.fgg 

P I ws  cuss 

R0P2CUSS 

MIMO  CUSS 

11953 

m,d,eee 

ANAO  CUSS 

ONCl  CUSS 

RIAH  CUSS 

11954 

M,D,7EF 

CBBB  CUSS 

I AOS  CUSS 

NAWX  CUSS 

1 1 955 

M,D,5EF 

DPC3  CUSS 

mhbc  cuss 

PWNL  CUSS 

11956 

M,D,FFD 

CNRP  CUSS 

PUSH  CUSS 

poad  cuss 

11957 

M , D , D F 0 

ixop  cuss 

STOS  CUSS 

11958 

M , D , D 5 E 

SNNR  CUSS 

MCPS  CUSS 

CEHS  CUSS 

C ZERO  DEMAND  BITS,  MOVE  SUHADDR  OF  CIJSS3 , 
C MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  3. 

C MOVE  SUBADDRESS  OF  CUSS  2. 

C MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  2. 

C MOVE  SUBAODRESS  OF  CUSS  1. 

C MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  1, 

C 

S SET  BANK  INDICATOR  5 IN  Rs,  EXIT. 


4 


..l 


00 


1 


i" 


1196  SENTINEL  DEC 


BBOO  FFFF 


056 


L 
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PI  1 97  CUSSES  FOr  BLK2.  SHOWN  iN  THE  OrDER  OF  THEIR  CALLS  IN  THE  CUSS  LIST. 


1199 

C DNO 

CUSS 

ALF  *4 

CARO  NUMBER  OUT  OF  SEQUENCE 

1200 

D ERR 

: CUSS 

ALF  *4 

NO  "0"  IN 

DECIMAL  SUBFIELD 

1201 

I LOP 

CUSS 

ALF. 5 

illegal  or  mis-spelled  operation 

code 

1202 

lefl 

cuss 

ALF, 5 

IMPROPER 

LEFTOVER  LOCATION  FIELD 

FORMAT 

1203 

cnfl 

CUSS 

ALF, 4 

conflict 

IN  USE  OF  THIS  LOCATION 

1204 

typl 

CUSS 

ALF, 4 

LOCATION 

is  in  wrong  memory  type 

1205 

f.adl 

CUSS 

ALF, 4 

OVERSIZE 

OR  ILL-DEFINED  LOCATION 

1206 

TPOX 

cuss 

ALF, 3 

indexing 

IS  ILLEGAL  HERE 

1207 

n gla 

cuss 

ALF, 4 

ADDRESS  FIELD  IS  MEANINGLESS 

1208 

UDEF 

CUSS 

ALF, 3 

tt 

" is  undefined 

1209 

ASIZ 

cuss 

ALF  ,4 

RANGE  ERROR  IN  VALUE  OF  ADDRESS 

1210 

1 RAD 

CUSS 

ALF  ,4 

IRREGULAR 

but  acceptable  address 

L 


@VUL  system  assembler  BL<2  PASS  2 


P1211  E-LK2  CUSSES  CONTINUED. 


1212 

LeFM 

CUSS 

ALF « 4 

LEFTOVER 

WON'T  FIT  IN 

MEMORY 

1213 

pred 

cuss 

ALF, 5 

ATTEMPT 

TO 

PREDEFINE 

LOCATION  SYMBOL  FA 

1214 

ALF 

LED 

1215 

nfit 

CUSl 

ALF.5 

if 

ii 

WON'T  FIT 

IN  SYMBOL  table 

1216 

nFIT 

CUS2 

ALF, 5 

it 

•i 

won't  fit 

IN  symbol  table 

1217 

styp 

CUSl 

ALF, 5 

it 

n 

ASSOCIATED 

with  wrong  memory 

1218 

ALF 

type 

1219 

styp 

CUS2 

ALF, 5 

II 

ii 

associated 

WITH  WRONG  MEMORY 

1220 

ALF 

TYPE 

1221 

SCNF 

CUSl 

ALF, 5 

ii 

ii 

associated 

WITH  CONFLICT 

1222 

SCNF 

CUS2 

ALF, 5 

ii 

it 

associated 

WITH  CONFLICT 

1223 

sovs 

CUSl 

ALF, 5 

ii 

n 

GIVEN  OVERSIZE  DEFINITION 
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1 


r 

- L 

@YUL  SYSTEM 

assembler 

BL<2  PASS  2 

f- 

P 1 2 24 

BLK2  CUSSES 

I CONTINUED 

• 

X 

1225 

SOVS  CUS2 

ALF.5 

II 

ii 

given 

OVERSIZE  DEFINITION 

1226 

SMD  CUS1 

ALF, 5 

II 

ii 

given 

MULTIPLE  definitions 

i 

1227 

AMD  CUS2 

ALF.5 

II 

ii 

given 

multiple  definitions 

1228 

SME  CUS1 

ALF.5 

II 

it 

ASSOC 

IATED  with  multiple  ERRO 

1229 

ALF 

RS 

1 

1230 

SME  CUS2 

ALF.5 

ii 

ii 

ASSOC 

iated  with  MULTIPLE  ERRO 

1231 

ALF 

RS 

r 

1232 

AMI  T cusi 

ALF  , 5 

it 

it 

IS  IN 

MISCELLANEOUS  trouble 

* 

1233 

EMIT  CUS2 

ALF, 5 

ii 

ii 

IS  IN 

miscellaneous  trouble 

123* 

ANDE  CUSI 

ALF.5 

ii 

ii 

WAS  nearly  cefined  BY  EQUALS 

i 

1235 

arbl  CUSS 

ALF.5 

ADDRESS 

DEPENDS 

on  unknown  location 

l 


l 

t 

t 

l 

l 

t 

t 

l 

l 

l 

l 

l 

l 

l 
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L 

isvUL 

SYSTEM 

ASSEMBLER 

BL<2  PASS  2 

P 1 2 36 

BLK2 

CUSSES 

CONTINUED 

• 

1237 

SIDL 

CUS1 

ALF  *5 

II 

» IS  indefinably  leftover 

1238 

SBOE 

CUS1 

ALF.5 

II 

" MULTIPLY  DEFINED  INCLUDING 

NE 

12381 

ALF  1 2 

ARLY  BY 

EQUALS 

1239 

c,MDE 

CUSl 

ALF.5 

it 

•'  MULTIPLY  DEFINED  INCLUDING 

BY 

12391 

ALF 

EQJALS 

1240 

ADRE 

BANK 

ALF. 3 

ADDRESS 

IS  IN  BANK  00 

1241 

T NAP 

cuss 

ALF  1 5 

ADDRESS 

is  inappropriate  for  op  code 

1242 

tOR 

CUSS 

ALF. 2 

ADDRESS 

1243 

ABEX 

CUSS 

ALF.5 

this  instruction  should  be  extended 

1244 

ANEX 

CUSS 

ALF.5 

THIS  INSTRUCTION  SHOULD  not  be  EXTENDED 

1245 

IDBC 

cuss 

ALF . 5 

INEXACT 

DEC1MAL-T0-BINARY  CONVERSION 

1246 

mtd 

cuss 

ALF « 5 

MORE  THAN  10  DIGITS  IN  DECIMAL  CONSTANT 

1247 

PANG 

cuss 

ALFtA 

RANGE  ERROR  IN  CONSTANT  FIELD 

USER'S  OWN  PAGE  NO. 
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L ' @YUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 


PI  2 A8 

BLK2 

CUSSES 

1 CONTINUED. 

1 2 A9 

FRAC 

CUSS 

ALF.5 

FRACTIONAL  PART  LOST  BY  TRUNCATION 

1250 

MFD 

CUSS 

ALF.5 

MORE  THAN  ia  digits  in  octal  constant 

1251 

LONB 

CUSS 

ALF.A 

location 

FIELD  SHOULD  BE  BLANK 

1252 

UND1 

CUSS 

AUF.5 

h 

" WAS  UNDEFINED  In  PASS  1 

1253 

NDE1 

cuss 

ALF.5 

it 

11  WAs  nearly  defined  by  equals 

1 2 5 A 

ALF.2 

IN  PASS 

1 

1255 

1 NSY 

cuss 

ALF.5 

location 

FIELD  SHOULD  BE  SYMBOLIC 

1256 

snde 

CUS2 

ALF.5 

ii 

" WAS  NEARLY  DEFINED  BY  EQUALS 

1257 

fbde 

CUS2 

ALF.5 

it 

» MULTIPLY  DEFINED  INCLUDING  NE 

12571 

ALF.2 

arly  by 

EQUALS 

1258 

SIDL 

CUS2 

ALF.5 

II 

" is  indefinably  leftover 
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gYUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 


P 1 2 58 1 

FLK2 

CUSSES 

CONTINUED. 

1259 

aMDE 

CUS2 

ALF  * 5 

" » MULTIPLY  DEFINED  INCLUDING  BY 

1250 

ALF 

EOJALS 

1251 

asnp 

CUSS 

ALF, 5 

» m SHOULDN'T  HAVE  BEEN  PREDEFINE 

1252 

ALF 

D 

1253 

rNLF 

CUSS 

ALF , 5 

NUMERIC  LOCATION  FIELD  IS  ILLEGAL  HeRE 

12  54 

lsch 

CUSS 

ALF, 5 

NO  SJCH  BANK  OR  BLOCK  IN  THIS  MACHINE 

1255 

RFUL 

cuss 

ALF  ,4 

this  bank  or  block  is  full 

1256 

1L0C 

cuss 

AlF  ,4 

Illegal  location  field  format 

1257 

tola 

cuss 

ALF, 5 

Card  IGNORED  BECAUSE  IT'S  TOO  LATE  IN  TH 

1258 

ALF 

E deck 

1259 

FEMT 

cuss 

ALF, 5 

CARD  IGNORED  BECAUSE  IT  MAKES  MEMORY  TAB 

1270 

ALF  »2 

LE  TOO  LONG 

1271 

NMCl 

cuss 

ALF , 5 

NO  MATCH  FOUND  FOR  CARD  NUMBER  OR  ACCEPT 

1272 

ALF 

OR  TEXT 
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L 

isaVUL 

SYSTEM 

ASSEMBLER 

BL<2  PASS 

2 

P 1 2 72 1 

F-.LK  2 

CUSSES 

, CONTINUED 

• 

1273 

f afs 

CUSS 

ALF « 5 

first 

CARD  NUMBER  NOT  LESS  THAN  SECOND 

1275 

0C1 

CUSS 

ALF, A 

QUEER 

information  IN  CCLUMn  1 

1276 

QC17 

CUSS 

ALF, A 

QUEER 

INFORMATION  IN  CCLUMn  17 

1277 

cC  2A 

CUSS 

ALF, A 

QUEER 

INFORMATION  IN  CCLUMn  2A 

1278 

IMAD 

CUSS 

ALF , A 

BLAN< 

address  field  expected 

1230 

POLE 

cuss 

ALF, 5 

Address  field  should  contain  a polish  op 

1231 

1232 

eceb 

cuss 

ALF 
ALF, 5 

ERATDR 

erased 

region  should  nct  Cross  e-banks 

1233 

ECFl 

cuss 

ALF , 5 

eban< 

OR  SBANK  conflict  with  1-SHoT  decl 

12331 
1 2 3 A 

T PX  1 

cuss 

ALF 
ALF, 5 

aration 

first  polish  operator  illegally  indexed 

1235 

1PX2 

cuss 

ALF, 5 

second 

polish  operator  illegally  indexed 
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L evUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 


P 1 2 35 1 BLK2  CUSSES  CONTINUED 


1236 

1237 

1288 

12885 

1239 

1290 
12905 

1291 

1292 
12925 

1293 
12935 


NMC2  CUSS 
TNXH  cuss 
MlMoCUSS 

aNAO  CUSS 
IMAS  CUSS 


StMF  cuss 

PIWS  cuss 


ALF  * 5 
ALF.5 
ALF, 5 
ALF, 2 
ALF, 5 
ALF, 5 
ALF 
ALF, 5 
ALF, 5 
ALF 
ALF.5 
ALF, 2 


no  match  found  for  second  card  number 

INTERPRETIVE  INSTRUCTION  NoT  EXPECTED 
RIGHT  OPCODE’S  MODf  IN  DISAGREES  WITH  Mo 
DE  DJT  SETTING 

address  has  no  associated  polish  opcode 
polish  addresses)  missing  prior  to  this 
op  pair 

store  op  must  be  Nfxt  cp  after  stadr 
pushjp  illegal  before  store  op  without  s 
TADR 

left  opcode's  mode  in  disagrees  with  mod 

E OJT  SETTING 


F0P2CUSS 
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P 1 2 94 

ELK2 

CUSSES 

continued 

..1 

1295 

ONCI 

CUSS 

ALF.5 

INT  OPCODE  DID  NOT  CALL  FOR  INDEXING 

1296 

c I AH 

cuss 

ALF.5 

INT  OPCODE  REQUIRES  INDEXED  ADDR  HERE 

1297 

CBBB 

CUSS 

ALF.5 

ADDRESS  WORDS  CROSS  OVER  BaNK  OR  VAC  ARE 

12975 

ALF.2 

A BOJNDARY 

1298 

I AOS 

CUSS 

ALF.5 

INTERPRETIVE  ADDR  WORD  OUT  OF  SEQUENCE 

..z 

1299 

|\  AWX 

CUSS 

ALF.5 

Can  not  handle  neg  addresses  with  indexi 

12995 

ALF.l 

NG  HERE 

1300 

1 CFB 

cuss 

ALF.5 

eban<  or  sbank  conflict  illegal  EXCEPT  f 

1301 

ALF.2 

OR  B3C0N,  2BCADR 

1302 

SB  I X 

cuss 

ALF.5 

THIS  INSTRUCTION  SHOULD  Be  INDEXED 

1303 

DPCB 

cuss 

ALF.5 

D.P.  CONSTANT  SHOULD  NOT  CROSS  BAN<S 

..e 

1 3 OA 

IwHBCCUSS 

ALF.5 

ADDR  MUST  BE  BASIC  S.P.  CONSTANT  OR  INST 

4 


I 


t 

®YUL 

SYSTEM 

ASSEMBLER 

BL<2  PASS  2 

P1305 

RLK2 

CUSSES 

> continued 

1306 

PWNL 

CUSS 

ALF, 5 

polish  words  require  blanks  in  cols  i,  1 

1307 

ALF 

7 AND  24 

1308 

CNRP 

CUSS 

ALF.5 

PREVIOUS  POLISH  EQUATION  NoT  CONCLUDED  P 

1309 

ALF 

ROPERLY 

1310 

pushcuss 

ALF.5 

polish  pushup  requires  negative  word  her 

1311 

ALF 

e 

1312 

POAD 

CUSS 

ALF  ,4 

polish  address  expected  here 

1313 

1XOP 

CUSS 

ALF  .4 

ASTERISK  ILLEGAL  ON  THIS  OPCODE 

1316 

fNNR 

cuss 

ALF, 4 

SUBROUTINE  name  NOT  RECOGNIZED 

1317 

MCPS 

cuss 

ALF.5 

MULTIPLE  CALLS  in  ONE  PROGRAM  OR  SUBRO 

1318 

c ehs 

cuss 

ALF.5 

conflict  with  earlier  head  specification 

1319 

STOS 

cuss 

ALF.5 

location  symbol  improper  on  stadr«ed  sto 

1320 

ALF 

re  word 
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@YUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 


P 1 A 00  BLOCK  2 INTERPRETIVE  OPCODES  AnD  ADDRESSES 


1Ao5 

SETLGC.5 

512 

82 

R 1 5 00 

ASSIGNMENTS 

• TO  USE 

main 

PASS 

two  scratch  locations 

1515 

gebase 

equals 

POPD 

buff 

1520 

L GE  base 

CAC 

GENl 

MXR 

INT  DATAB 

1525 

(-EALTHM 

ASSIGN 

3,2 

1530 

CARDM 

ASSIGN 

3,3 

1535 

1 OC  M 

ASSIGN 

3,19 

1536 

2ND  HALFM 

ASSIGN 

3,22 

1537 

kORDM 

ASSIGN 

3,23 

1 5 A5 

I COMMON 

ASSIGN 

3 , 2 A 

1550 

ADDR  WDM 

ASSIGN 

3,37 

1555 

addressm 

ASSIGN 

3, A3 

1550 

MIN  ADR 

ASSIGN 

3,73 

1555 

1 INEM 

ASSIGN 

0,0 

Rl5gO 

assignments 

> TO  USE 

blk2 

pass 

2 bank 

1 ERASaBLES  and 

1595 

P2P2  BASE 

EQUALS 

BIT30 

1600 

l B2P2  BAS 

CAC 

SEND 

word 

sbank  cus 

1 6 OA 

r.CT  AOM 

ASSIGN 

2,8 

1605 

rCT  70M 

ASSIGN 

2,9 

1607 

K 37777 

ASSIGN 

2 , 1 A 

1610 

E BNK  REGM 

ASSIGN 

2,27 

1611 

bbnk  regm 

EQUALS 

EBN< 

regm 

1612 

M 577,77 

ASSIGN 

2,29 

R 1 6 25 

VARIABLE  STORAGE 

1635 

STADR 

RESERVE 

1 

16^0 

ADD  REV 

RESERVE 

1 

16A5 

NODE  OUT 

RESERVE 

1 

1650 

I NT  ADDR 

RESERVE 

5 

1655 

toe  hold 

RESERVE 

1 

1655 

INTERP  wd 

reserve 

1 

1657 

cTORE  COM 

RESERVE 

1 

1658 

CHECK  UP 

RESERVE 

l 

1659 

PASS2  MXR 

RESERVE 

1 

GE  BASE 


DATA 


B2P2BASE 
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3" 


P 1 6 70 

rONSTANTS 

And  miscellaneous 

1675 

1 INT  ADDR 

CAC 

max  ad  set 

1680 

L INT  OPPP 

CAC 

1685 

L BCCHECK 

CAC 

bad  basic 

naughty 

1686 

1 BAD  BASC 

EQUALS 

L BC  CHECK 

1690 

L PRBADR 

CAC 

EBN<2  XIT 

How  HIGH  F 

16901 

1 HOW  HI  F 

equals 

L PRBADR 

16902 

1 EBK2  XIT 

equals 

L PRBADR 

1691 

1 USD  FMAX 

CAC 

PRINT  2PA 

INSTRONT 

16911 

I INSTRNT 

EQUALS 

L USD  FMAX 

16912 

L PRIN  2PA 

equals 

L USD  FMAX 

1692 

M AV  TABLE 

CAC 

11032 

11140 

16921 

I TYP  TAB 

EQUALS 

M AY  TABLE 

16922 

1 BLK2  MXR 

equals 

M AY  TABLE 

1693 

I GENL  MXR 

MASKBASE 

S,0 

F.O 

1695 

ZERO  M 

OCT 

-0 

1730 

ONESM 

DEC 

GGGG  GGGG  1 

GGGG 

1735 

P48M 

OCT 

-1 

1710 

B47M 

OCT 

-2 

1715 

R46M 

OCT 

-A 

1720 

B46B48M 

OCT 

-5 

1721 

E42TA8MM 

OCT 

-177 

1722 

P34T48MM 

OCT 

-77777 

1723 

B47T48MM 

OCT 

-3 

1 72  A 

B26MM 

OCT 

-20000000 

1726 

B39TA1M 

OCT 

-1600 

1727 

643.T48M 

OCT 

-77 

1728 

if  1777  M 

OCT 

-1777 

1730 

E44B48M 

OCT 

-21 

1735 

R AO  M 

OCT 

-400 

1 7 AO 

R37M 

OCT 

-4000 

17  45 

R35B38M 

OCT 

-22000 

1 7 a7 

B38M 

OCT 

-2000 

1750 

L35T38M 

OCT 

-36000 

1755 

P37T38MM 

OCT 

-6000 

1760 

R39TA0M 

OCT 

-1400 

1770 

rXSPEC 

OCT 

-100000002 

1775 

R28M 

OCT 

-4000000 

1780 

B29M 

OCT 

-2000000 

1785 

R30M 

OCT 

-1000000 

1787 

p 29T30MM 

OCT 

-3000000 

1790 

B28T29M 

OCT 

-6000000 

1795 

B28B30M 

OCT 

-5000000 

1830 

B3AT35M 

OCT 

-60000 

1835 

S B36TA8M 

OCT 

♦17777 

1810 

1 LOW  HALF 

OCT 

-47777 

1815 

B2MAXP1 

OCT 

-170000 

1820 

RLANKSM 

ALF 

1821 

K 16  M 

OCT 

-16 

1825 

K 17  M 

OCT 

-17 

1830 

K 20  M 

OCT 

-20 

1835 

- K3A  M 

OCT 

-34 

1 8 AO 

K 35  M 

OCT 

-35 

18A2 

K 36  M 

OCT 

-36 

1" 
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INT  ADDR 
INT  OP  POP 
BC  CHECK 

RNG  ERROR 


used  fmax 


8192 


I 


@YUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 


18  45 

K 45  M 

OCT 

-45 

1850 

K 52  M 

OCT 

-52 

1850 

k 127M 

OCT 

-127 

1855 

K 136  M 

OCT 

-136 

1870 

K 137  M 

OCT 

-137 

1875 

K 140  M 

OCT 

-140 

1830 

1C  157  M 

OCT 

-157 

1832 

K 1.63  M 

OCT 

-163 

1835 

K 200  M 

OCT 

-200 

1839 

1C  360  M 

OCT 

-360 

1890 

K 361  M 

OCT 

-361 

1895 

k 1377  M 

OCT 

-1377 

1930 

K 51777  M 

OCT 

-51777 

1935 

K 17777  M 

OCT 

-17777 

1910 

K 47777  M 

OCT 

-47777 

1915 

K 10000  M 

OCT 

-10000 

1916 

K 20000  M 

OCT 

-20000 

1920 

K 2000  M 

OCT 

-2000 

1925 

r MA  1 C7T8 

OCT 

-7301 

1930 

fMA  2 C7T8 

OCT 

-7302 

1935 

ASTER  C8 

OCT 

-54 

1 9 40 

stocall 

OCT 

-30420000 

1945 

STODL 

OCT 

-12030000 

1950 

pTOVL 

OCT 

-14050000 

1955 

PONSET 

OCT 

-72 

i960 

BLOTM 

ALF 

19502 

r CHAR  4M 

ALF 

E 

19604 

Im  NEGATlV 

ALF 

negative 

19606 

w NO  NEED 

ALF 

NO  NEED 
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l 


P 1 9 609  DOUBLED  UP  INTERPRETIVE  OPCODE  DATA 


1965 

TNT  datab 

OCT 

1 30  A 

A006 

1 A05 

6002 

1975 

OCT 

1505 

6016 

2206 

6012 

1935 

OCT 

1 30  A 

6026 

2652 

7022 

1995 

OCT 

1505 

6036 

1203 

6032 

2010 

OCT 

26  A6 

76A6 

1 1 A3 

60A2 

2020 

OCT 

17A6 

0056 

1203 

6052 

2035 

OCT 

2652 

7066 

1 A05 

6062 

20A5 

OCT 

21A6 

A076 

1 7A6 

0072 

2055 

OCT 

1206 

AlOfe 

1203 

A102 

2065 

OCT 

1A06 

0122 

1206 

A 1 1 2 

2075 

OCT 

1 A06 

0132 

1 A06 

0126 

2035 

OCT 

1A06 

0 1 A2 

1 A03 

0136 

2095 

OCT 

1206 

A 1 52 

1 A06 

01A6 

2105 

OCT 

1206 

A162 

1206 

A 1 56 

2115 

OCT 

1206 

A172 

0000 

0000 

2125 

OCT 

1066 

A3 1 6 

21A6 

6176 

2135 

OCT 

2063 

5316 

1066 

A7 1 6 

2 1 A5 

OCT 

A065 

0316 

3063 

5716 

2155 

OCT 

71A6 

6003 

5065 

0716 

2165 

OCT 

5 1 A6 

6023 

71A6 

6013 

2175 

OCT 

51A6 

60A3 

51A6 

6033 

2135 

OCT 

7 1 A6 

6063 

51A6 

6053 

2195 

OCT 

51A6 

6103 

31A6 

6073 

2205 

OCT 

31A6 

6123 

51A6 

6113 

2215 

OCT 

31A6 

6133 

3152 

6127 

2225 

OCT 

3152 

6 1 A3 

31A6 

6137 

2235 

OCT 

A1A2 

6153 

51A6 

6 1 A7 

22  A5 

OCT 

0000 

0000 

31A6 

6157 

2255 

OCT 

31A6 

6177 

A 1 A6 

6173 

2265 

OCT 

6652 

6763 

66A6 

6763 

2275 

OCT 

60A6 

6163 

66A6 

6763 

2235 

OCT 

6652 

6763 

66A6 

6763 

2295 

OCT 

60A6 

6163 

66A6 

6763 

2305 

OCT 

6652 

6763 

66A6 

6763 

2315 

OCT 

60A6 

6163 

66A6 

6763 

2325 

OCT 

3150 

61A3 

66A6 

6763 

2335 

OCT 

2650 

7066 

66A6 

6763 

23  A5 

OCT 

00A6 

AO  1 1 

0050 

6001 

2355 

OCT 

00A6 

A03 1 

00A6 

A02 1 

2365 

OCT 

00A6 

A05 1 

00A6 

AOA 1 

2375 

OCT 

00A3 

A071 

00A6 

A06 1 

2335 

OCT 

00A5 

A 1 1 1 

00A6 

A 1 0 1 

2395 

OCT 

00A6 

A 1 3 1 

00A6 

0121 

2A05 

OCT 

0056 

6151 

00A3 

0 1 A 1 

2 A20 

OCT 

00A6 

6171 

0052 

6161 

2 A3O 

OCT 

00  A3 

0131 

00A6 

0101 

2 A AO 

OCT 

0 

2 A50 

OCT 

0 

2A60 

SHIFTDAT 

OCT 

00  A3 

A005 

00A5  000! 

i " 


USER'S  OWN  PAGE  NO 


TAD 

VLOAD 

VXSC 

SIGN 

TLOAD 

C GO  TO 

V/SC 

DLOAD 

SSP 

SLOAD 

MXV 

POOL 

CCALL 

pdvl 

NORM 

yxm 

DDV 

ompr 

VAD 

bddv 

BVSU 

vsu 

VXV 

DOT 

DSU 

VPROJ 

DAD 

BDSU 

DMP 

BLANK  OP 

SL 

SET  PD 

SLR 

SR 

VSL 

SRR 

AXT 

YSR 

LXA 

AXC 

SXA 

LXC 

I NCR 

XCHX 

XAD 

T I X 

BZE 

xsu 

BPL 

30  TO 

CALL 

bmn 

RTB 

STQ 

BLANK  OP 

BHIZ 

BOV 

BOVB 

SETGO 

BONSET 

SET 

80FSET 

INVGO 

30NINV 

INVERT 

BOFINV 

CLR60 

bonclr 

CLEAR 

bofclr 

CALRB 

bon 

CCLRB 

30FF 

SORT 

EXIT 

COS 

SIN 

ACOS 

ASIN 

ROUND 

DSO 

VDEF 

OCOMP 

ABS 

UNIT 

STADR 

VSQ 

PUSH 

RVQ 

ABVAL 

YCOMP 

BLANK  OP 

BLANK  OP 

BAD 

BLANK 

scaler  short  shifts 

PAGE  1 5 A 


so  vectors 


>.  3A 

000 

002 

OOA 

006 

010 

012 

0 1 A 

016 

020 

022 

02  A 

026 

030 

032 

1 03A 

036 

OAO 

0A2 

oaa 

0A6 

050 

052 

05  A 

056 

060 

062 

06A 

066 

070 

072 

07A 

076 

100 

102 

10A 

106 

no 

112 

1 1 A 

116 

120 

122 

12a 

126 

130 

132 

13A 

136 

and  ai 


P2375 

2330 
23-35 
2390 
2395 
2590 
2595 
2510 
25  40 


evut  SYSTEM  ASSEMBLER  Bl<2  PASS  2 


OTHER  EQUALITIES. 

B1M 

EQUALS 

BIT1M 

B7M 

equals 

BIT7M 

R17M 

equals 

BIT17M 

P 23M 

EQUALS 

BIT23M 

P.31M 

EQUALS 

BIT31M 

P32M 

EQUALS 

BIT32M 

P33M 

EQUALS 

BIT33M 

E37T38M 

equals 

THREEM 
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(gVUL  SYSTEM  ASSEMBLER  BL<2  PASS  2 
INDEX  REGISTER  USAGE 
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P2555 


R2557  VO  = LINE  BASE 

R25&0  vl  = CUSS  LIST  ADDRESS  (THROUGHOUT  PASS  2) 

R 2 5 65  X 2 = BASE  OF  VARIABLE/CONSTANT  FOR  BLK  2 PASS  2 BANK  1 

R2570  v 3 = BASE  OF  VARIABLE  STORAGE  FOr  GENERAL  PASS  2 
R2575  X 5 = INT  ADDR  RELATIVE  LOC 
R2590  X 6 = MISCELLANEOUS 

R2535  X 7 = MONITOR 

R 25 35 1 OTHER  REGISTERS  USED  ARE  AU1,  AU2»  Rl.  R2 


^2590 
R2595 
R2600 
R2605 
^ 26 1 5 
R26?5 
R2635 
*2645 
R2650 
R2655 
*2665 
R2670 
*2630 
*2790 
R 2795 
R 2 7 1 0 
R 27 1 5 
R2725 
R2730 
R2735 
*2745 


BIT  ASSIGNMENTS  FoR  COMMON 
BITS  42  TO  48 
BITS  39  TO  41 
BITS  37  TO  38 
BITS  34  TO  36 

BIT  33 
BIT  32 
BIT  31 
BITS  28  TO  30 

3ITS  25  TO  27 

pIT  ASSIGNMENT  FOR  INT  ADDR 
31 TS  42  TO  48 
BITS  28  TO  30 
BIT  31 
31  TS  25  TO  27 
BIT  2 A 
BIT  7 

FOR  GENERAL  shifts  bits  25 


when  op  code's  data  extracted  from  data  table 
AGC-INT  OPCODE  +1*  NOt  NECESSARILY  COMPLETE 
OP'S  2ND  ADDR  TYPE*  IF  ANY 

MODE  IN  REQUIREMENT.  0 = V.  1 = D.  2 = DT.  3 = DON* I CARE. 

mode  out  setting,  o = unknown,  require  basic  inst  next,  i = unknown,  ReQUiRf  int 

INST  NEXT.  2 = UNKNOWN.  3 = D.  4 = T . 5 = V.  6 = NO  CHANGE. 

THIS  INST  SHOULD  eE  RH  OP  OR  , IF  LH  OP,  RH  OP  MUST  3e  BLANK 
THIS  INST  IS  GENERAL  SHIFT 
0 = PUSH  UP  ALLOWED.  1 = NOT  ALLOWED 

OPCODE  MODE.  0 = UNARY.  1 = S.  2 = D.  3 = T.  A = V.  5 = VXSC  OR  V/SC.  6=  TWO  ADDR 
SINGLE  PRECISION  CP.  7 = MATRIX. 

OP'S  1ST  ADDR  TYPE,  IF  ANY.  0 = NONE.  1 5 14  BIT  ADDR.  2 = 

L 15  BIT  ADDR.  4 = FCaDR.  5 = E ADDR.  6 s SW  ADDRESS.  7 = 

JSeD  IN  INTERPRETIVE  address  determination 
AGC-INT  OPCODE  +1*  NOt  NECESSARILY  COMPLETF 
OPCODE  MODE.  SEE  ABOVf 

0 = PUSH  UP  ALLOWED.  1 = PUSH  UP  NOT  ALLOWED 
ADDRESS  TYPE 

THIS  ADDRESS  MUST  BE  INDEXED 

UPON  INSPECTION  BY  INt  AD  CHK  ROUTINE,  X2  USED  BY  THIS  ADDRESS 
TO  27  OF  INT  ADdR  HOLD  LIMITS  DESIGNATION  ANDBITS  39  TO  41  HOLD  ADDRESS  ADDITIVE 


E ADDR,  ARG-CCs.  3 = FUL 
15  BIT  C TYPE  ADDRESS 


..Z 


2755 

1 NT 

OP 

COD 

TS 

B46848M 

Z,R2 

INT  OP  SET 

C 

GO  SET  VARIOUS  ESSENTIAL  REGISTERS 

2758 

SWe,ONeSMM 

L INT  ADDR 

16 

z,csc 

C 

go  do  e-ban<  setting  check 

2755 

TS 

CAROM  +2 

ICOMMON  +1 

INT  AD  CHK 

C 

go  check  previous  addressfs 

2766 

NA 

STAOR 

K 127  M 

C,  + 2 

UUMP  IF  STORE  CODE  NOT  EXPECTED 

2767 

TX,B33M 

ONESM 

m 

1*24 

STORE  CODE  SHOULD  PReCeDE  THIS  OP  PAIR. 

2768 

swe,charim 

B46348M 

A 

WORDM 

set  up  INT  OPCODE  flau  FOR  MEMORY  MAP 

2735 

SWE,B42T48M 

HEALTHM 

24 

STADR 

EXTRACT  1ST  INT  OPCODE  STORED  BY  PASS  1 

2795 

TS 

L INT  ADDR 

Z,X5 

INT  OP  COM 

MAKE  SOME  CHECKS  ON  this  OPCODE 

2895 

EX 

ICOMMON 

B42T48MM 

ADDRESSM 

PUT  IN  AGE  WORD  BitS  7-1 

2815 

SWE,B42TA8M 

HEALTHM 

17 

ICOMMON  +5 

EXTRACT  2ND  INT  OPCODE 

2825 

NA 

ICOMMON  +5 

K 1 37M 

C , + 2 

2830 

TS  ,B 1 7M 

ONESM 

1,21 

INT  WD  BOT 

BAD  OPCODE.  BLOT  OUT  WORD 

2840 

NA 

ICOMMON  +5 

K 136  M 

INT  OP  POP 

2845 

TS 

K 136  M 

ICOMMON  +5 

INT  OP  SUP 

2ND  OPCODE  IS  BLANK 

2855 

1 NT 

OP 

POP 

NA,  B33M 

ICOMMON 

ONESM 

C , +2 

2860 

TS,  B1M 

ONESM 

1,21 

C ,-2 

ERROR  IF  RH  OP  IS  NOT  BLANK,  IF  REQUIRED 

2862 

TX 

ICOMMON  *5 

- 

STADR 

2865 

TN 

CAROM  +3 

2 

ICOMMON 

address  field  holds  2nd  opcode 

2875 

TS 

K 17M 

Z ,R2 

INT  OP  COM 

SET  SEARCH  FOR  15  CHARS 

2895 

SWS,B35TAlM 

ICOMMON 

7 ,L 

ADDRESSM 

PUT  2ND  OPCODE  INto  AGC  WORD, Bits  14-8 

* 


@YUL 

SYSTEM 

ASSEMBLER  BL<2  PASS  2 

2 8 95 

INT 

OP 

SUP 

HA 

addressm 

B34T48MM 

addressm 

2900 

TS 

- 

- 

INT  WD  RUN 

2910 

I NT 

OP 

COM 

TS 

Z.SH 

Z ,R  1 

INT  OP  PAT 

2935 

INT 

OP 

APE 

LA 

STADR 

K 137M 

INT  OP  SMO 

2945 

LA 

STAOR 

K 157  M 

C , ♦ 3 

2955 

WD 

STADR 

K 20  M 

STADR 

2960 

TS.B25T48M 

SHIFTDAT 

ICOMMON 

C , +2 

2970 

SWE.B25T48M 

shiftdat 

24 

ICOMMON 

2930 

WD 

STADR 

K 140  M 

ICOMMON  *1 

2985 

SWS.ONESMM 

ICOMMON  +1 

3 , L 

ICOMMON  +1 

2990 

WA , B42T48M 

ICOMMON  +1 

ICOMMON 

ICOMMON 

3000 

TS 

- 

INT  OP  NOT 

30012 

INT 

OP 

PAT 

SWE.ONeSMM 

L GE  BASE 

16 

Z,X6 

30014 

SWS.B19T24M 

STADR 

23, L 

C , + 1 

30016 

TX 

6,0 

- 

ICOMMON  +5 

30018 

SSL.  ONEM 

STADR 

0 

C , + 1 

3002 

SWE.ONeSMM 

ICOMMON  +5 

24 

ICOMMON  +5 

30022 

SWE.B25T48M 

ICOMMON  *5 

24 

ICOMMON  +5 

30024 

TS 

- 

INT  OP  TOM 

3005 

TS 

ICOMMON 

ICOMMON  +2 

INT  AD  PEX 

3015 

INT 

OP 

TOM 

NA.CHAR8M 

ICOMMON  +1 

blanksm 

C , +2 

3025 

NA 

Z.R2.1 

zerom 

C ,-2 

3032 

TX 

ICOMMON  +5 

ICOMMON 

3035 

NA.C7T8M 

ICOMMON  +1 

CMA  1 C7T8 

C , +2 

3045 

WA 

B46M 

ICOMMON  +5 

ICOMMON 

3055 

NA.CHAR8M 

ICOMMON  +1 

ASTER  C8 

INT  OP  APE 

3057 

* 

SSL.  THREEM 

ICOMMON  +5 

0 

C,*l 

3059 

TS 

- 

INT  ERR  8 

3061 

TS 

- 

to 

INT  ERR  8 

3052 

NA 

K 36  N 

STADR 

C , + 2 

3063 

TS 

• 

<• 

INT  ERR  8 

3065 

WA 

BXSPeC 

ICOMMON  +5 

ICOMMON 

3067 

TX.B31M 

ONESM 

ICOMMON 

3035 

r NT 

OP 

SMo 

NA  .B28T30M 

ICOMMON 

B28B3OM 

INT  OP  NOT 

3095 

LA 

MODE  OUT 

B47M 

C,  + 2 

3105 

LA 

MODE  OUT 

B46M 

C , + 2 

3115 

TS.B28T30M 

B29M 

ICOMMON 

INT  OP  SAP 

3125 

TS,B28T30M 

B28M 

ICOMMON 

INT  OP  SAP 

3135 

1 NT 

OP 

NOT 

LA 

mode  out 

B47M 

INT  OP  MUT 

3137 

SSL.B47T48M 

ICOMMON 

10 

INT  OP  DUD 

3145 

INT 

OP 

SAP 

LN.B34T36M 

ICOMMON 

B34T35M 

C , +2 

3155 

SWE.B46T48M 

ICOMMON 

12 

MODE  OUT 

3165" 

LA.B25T27M 

ICOMMON 

zerom 

INT  OP  NOB 

3167 

NA.B42T48M 

ICOMMON 

K 163  M 

C , + 4 

3170 

TX 

ICOMMON 

* 

ICOMMON  +5 

3172 

WD.B42T48M 

STADR 

BONSET 

ICOMMON  +5 

3174 

TS 

ICOMMON  +5 

N , X5 , 1 

C,  + 2 

3175 

TX 

ICOMMON 

• 

N,X5,1 

3135 

NA,B28T30M 

ICOMMON 

B28T29M 

INT  OP  NOB 

3195 

TX.B25T48M 

ICOMMON 

-to 

5,0 

3205 

SWS.B25T27M 

5,0 

14, L 

N,X5,1 

3211 

INT 

OP 

NOB 

TS 

- 

N ,R  l 

3215 

INT 

OP 

DUD 

NA 

mode  out 

B46B48M 

INT  ERR  4 

3225 

* 

NA 

mode  out 

B47T48MM 

INT  ERR  4 
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DO  ONE'S  COMPLEMENT 
GO  INCREMENT  LOC  HOLD 


JUMP  IF  NOT  SHORT  SHIFT  CODE 
JUMP  IF  SCALER  SHIFT 

BRING  FORTH  VECTOR  24  BIT  DATA 

bring  forth  scaler  24  bit  data 


form  complete  OPCODE 


get  full  word  containing  this  op«s  data 


SELECT  PROPER  half  WORD 
go  search  for  * or  »i  on  opcode 

GO  CYCLE  16  CHARS  RIGHT  ONE  CHaR 

jump  on  right  most  nonblank  char 

JUMP  IF  SEARCH  NOT  DONE 

JUMP  IF  RIGHT  MOST  NOT  ,1 
OPCODE  TO  Be  UPPED  Four 
JUMP  IF  RIGHT  MOST  not  * 

ONLY  CODES  ENDING  IN  lo  CAN  TAKE  *. 

JUMP  WHEN  OPCODE  NOT  ALLOWED  TO  TNDfX 

SETPD  CAN  NOT  Be  INDEXED 

opcode  INCR  by  T^o.  B2A  SHOWS  INDEXING 

DO  NOT  ALlOW  PUSHUP  NOW 

JUMP  IF  OPMDDE  NOt  VXSC  OR  V/SC 

JUMP  IF  LAST  MODEOUT  = UNKNOWNS 

jump  if  last  mode  out  = d or  t 

SET  OPMODE  = D 
SET  OPMODE  = V 

jump  if  last  mode  out  = unknowns 
cjeck  proper  mode  in 

JUMP  IF  NEW  MODE  OUT  = NO  CHANGE 
UPDATE  MODE  OUT 

JUMP  IF  OPCODE  EXPECTS  NO  ADDReSS 
JUMP  IF  NOT  SWITCH  TYPE  UPCODE 

DETERMINE  OPCODE  ADDITIVE 
SAVE  DATA  For  ADDR  WORD  use 
save  data  for  addr  word  use 

JUMP  IF  ONLY  ONE  ADDRESS  WORD  EXPECTFD 

GIVE  DATA  TO  SECOND  ADDRESS 

SHIFT  ADDR  TYPE  TO  CORRECT  POSITION 

ERROR  IS  LAST  MODe  NOT  V 
error  IF  last  mode  not  d 
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3235 

na 

MODE  OUT 

B46M 

C.-l 

32  45 

TX 

ICOMMON 

m 

ICOMMON 

32  46 

I NT 

OP 

MUT 

SSL,BA7TA8M 

ICOMMON 

10 

C , + 1 

32  47 

TS 

BA63A8M 

mode  out 

INT  OP  SAP 

3248 

TS 

BA7TA8MM 

MODE  OUT 

INT  OP  SAP 

32  49 

TS 

BA7T  A8MM 

MODE  OUT 

INT  OP  SAP 

3250 

TS 

BA8M 

MODE  OUT 

INT  OP  SAP 

3251 

INT 

OP 

DOG 

LA 

INT  ADDR 

ZeROM 

INT  OP  BAR 

32513 

NA,B33IM 

INT  ADDR 

zerom 

INT  OP  BAR 

3252 

TS,B1M 

ONESM 

1,25 

INT  OP  BAR 

3255 

TNT 

OP 

GOS 

TS 

ZeROM 

store  com 

INT  OP  SET 

32555 

SWe.ONeSMM 

L INT  ADDR 

16 

z,csc 

3256 

SWe,CHAR1M 

B47TA8MM 

3 

WORDM 

32&0 

LA,B28T30M 

HEALTHM 

B29T30MM 

INT  AD  GO 

3262 

NA 

stadr 

K 127  M 

INT  OP  DOG 

3270 

INT 

OP 

BAR 

TS 

• 

INT  AD  CHK 

3230 

TX 

B26MM 

m 

INT  ADDR 

3235 

SWS,B28T30M 

mode  out 

18 

INT  ADDR 

3295 

WD 

INT  ADDR 

B30M 

INT  ADDR 

3300 

TS 

Z,SC 

STORF  com 

INT  AD  TUM 

3306 

NA 

ONESM 

ADDRESSM 

C , +4 

33062 

TX 

LOC  M 

m 

LOC  HOLD 

3307 

TX 

zerom 

m 

STORE  Com 

3308 

TX 

zerom 

m 

ADDRESSM 

3310 

NA ,B2 AM 

INT  ADDR 

ONESM 

C ,+4 

3320 

WA 

ADDRESSM 

B38M 

ADDRESSM 

3330 

NA  ,B7M 

INT  ADDR 

ONESM 

C , +2 

33  AO 

WA 

ADDRESSM 

B38M 

ADDRESSM 

33  46 

TX,  B1IM 

zero  m 

m 

1*30 

3350 

SSL,BA7TA8M 

healthm 

18 

C,*l 

3360 

TS 

zerom 

INT  ADDR 

INT  OP  BAS 

3370 

TS 

B47T48MM 

MODE  OUT 

INT  OP  SDL 

3380 

TS 

BA63A8M 

MODE  OUT 

INT  OP  SVL 

3390 

WA 

ADDRESSM 

B35T38M 

ADDRESSM 

3 AOO 

TS 

B47M 

MODE  OUT 

C.  + l 

3A05 

SWS,Bl7M 

healthm 

6 

1.22 

3437 

SWS,B17M 

INT  ADDR 

7 , L 

1.2 

3410 

TS 

STOCALL 

INT  ADDR 

INT  OP  BAT 

3425 

INT 

OP 

SDL 

WA 

ADDRESSM 

B37T38MM 

ADDRESSM 

3435 

TS 

STOOL 

INT  ADDR 

C.  + l 

3445 

INT 

OP 

STL 

SWS.B24M 

healthm 

13 

INT  ADDR 

3450 

SWS,B3lM 

healthm 

20 

INT  ADDR 

3455 

NA ,B2 AM 

ONESM 

INT  ADDR 

C..2 

3455 

WA 

ADDRESSM 

B37T38MM 

ADDRESSM 

3 A 75 

INT 

OP 

BAT 

NA 

STADR 

K 127  M 

C , +3 

3A77 

HA 

ADDRESSM 

B34T48MM 

ADDRESSM 

3A772 

SWS.B17M 

healthm 

9 

1.30 

3A782 

LA 

store  com 

ZEROM 

INT  OP  SOU 

3A79 

NA ,B 1 7M 

1,3 

ZEROM 

C , + 2 

3 A 80 

TS 

zerom 

STADR 

INT  WD  POT 

3A32 

INT 

OP 

SOU 

TS 

zerom 

stadr 

INT  WD  NUT 

3AS5 

INT 

OP 

SVL 

WA 

ADDRESSM 

B35B38M 

ADDRESSM 

3A95 

TS 

STOVL 

INT  ADDR 

INT  OP  STL 

3501 

T NT'  OP 

BAS 

SWS,B 1M 

healthm 

10, L 

1.30 
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ERROR  IF  lAsT  MODE  OUT  NOT  dT 

BRANCH  BY  MODE  IN  REQUIREMENT 
MODE  NOW  VECTOR 
MODE  NOW  D/T 


NO  SWEAT  IF  ALL  ADDRESSES  IN 

same  if  pjsh  up  Not  allowfD 
error,  need  stadr  CODE  PREVIOUSLY 
store  codes/all  addr  words  enter  here 
go  do  e-ban<  Setting  check 
SET  CONSTANT  type  FLAG  FOR  MeMqRY  MAP 
JUMP  TO  INTERPRETIVE  ADDRfSS  RoUtINf 
JUMP  IF  5j ADR  DOES  NOT  PRfCeDE  StoRf 
check  if  all  Required  addr  received 

STORE  CODES  REQUIRE  ARC-CCS  E TYPE  ADDR 
LAST  MODE  OJT  IS  THIS  OP  MODE 

GO  PROCESS  LIKE  ReG  E ADDRESS 
JUMP  UNLESS  ADDRESS  IS  VERY  BAD. 

cancel  location  sequence  checks 

FLAG  FOR  BELOW 
AVOID  OVERFLOW  TROUBLE 
JUMP  IF  NO  INDEXING 
ASSUME  XI  USED 
JUMP  IF  SO 
NOW  X2  USED 

REOPEN  JUDGMENT  OF  OPCODE  ASTERISK. 
BRANCH  BY  STORE  CODE  TYPE 
STORE  CODE 

SET  MODE  OUT  TO  DOUBLE 
SET  MODE  OUT  TO  VECTOR 
CALL  ADDITIVE  = OCT36000 
MODE  OUT  = UNKNOWN. 
indexed  opcode  illegal 
indexed  address  illegal 

UNKNOWN  MODE.  A ADDRESS,  NO  PUSHUP 
DLOAD  ADDITIVE  5 OCT  0600D 
DP  MODE.  414  ADDR  WITH  PUSHUP 

set  index  reQ  flag  for  2nd  addr.if  req 

IF  INDEXING  REQ, PUSHUP  NOT  ALLOWED 
JUMP  IF  OPCODE  not  iNOEXtD 
LOAD*  ADDITIVE  = OCTbOOO 

COMPLEMENT  STORE  WORD  FOLIOWING  stadr 

location  symbol  not  allowed 
jump  on  very  bad  address 

ERASE  STADR  MARKER 
EXIT  IF  ERASE  ADDR  BAD 
VLOAD  ADDITIVE  = OCT22000 
VMODE.  A14  ADDRESS  WITH  PUSHUP 

ASTERISK  ON  OPCODE  ILLeGAI 
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3532 

TS 

- 

- 

INT  OP  BAT 

3515 

TNT  OP  SET  SWE.ONeSMM 

L B2P2BAS 

0 

Z.X2 

3522 

TX 

BA8M 

- 

INTERP  WD 

3523 

NA 

CHECK  UP 

ZEROM 

C.  + 5 

35232 

SWE.ONESMM 

L B2P2  BAS 

32 

Z.X3 

3523A 

TX 

N.CSC.l 

- 

N.X3 

35236 

TX 

L POL  OP 

- 

z.csc 

35238 

TX 

Z.MXR 

- 

CHECK  UP 

3525 

TX 

l ge  base 

- 

Z.X3 
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BLK2  PASS  2 BLOCK  i VARIABLE  $TOR  BASF 


IGNORE  A ADORESS  BANK  ERROR 

GENERAL  PASS  2 VARIABLE  STORAGE  ADDRESS 


L 
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POUTINE  TO  HANDLE  INTERPRETIVE  ADDRESS  WORDS 


P3536 


3570 

TNT 

AD 

GO 

NA 

CARDM  +3 

BLANKS  M 

C , + 3 

35  72 

NA 

CARDM  +4 

BLANKS  M 

C,+2 

3574 

TX,  B I7M 

ONESM 

- 

1.11 

3576 

LA 

INT  ADDR 

zerom 

INT  ERR  20 

3610 

TNT 

AD 

TUM 

TN 

CARDM  .3 

2 

ICOMMON 

3620 

TS 

K 20  M 

Z,X6 

C , +2 

3630 

TS 

I COMMON 

ICOMMON  +2 

INT  AD  PEK 

3640 

NA,CHAR8M 

ICOMMON  +1 

BLANKSM 

INT  AD  CAT 

3650 

NA 

2 , X 6 , 1 

B48M 

C,-2 

3656 

tNT 

AD 

NOX 

LA.B25T27M 

INT  ADDR 

B26MM 

C , +2 

3658 

NA,B32M 

INT  ADDR 

ONESM 

INT  AD  GOT 

36&0 

NA,B24M 

INT  ADDR 

ONESM 

INT  AD  GOT 

3670 

TS , B33M 

ONESM 

1,26 

INT  AD  GOT 

3680 

I NT 

AD 

cat 

NA.C7T8M 

I COMMON  +1 

CMA  2 C7T8 

C , +2 

3690 

TS,B7M 

ONESM 

INT  ADDR 

C , +2 

3700 

NA,C7T8M 

ICOMMON  +1 

CMA  1 C7T  8 

INT  AD  NOX 

3704 

LA.B25T27M 

INT  ADDR 

B26MM 

C , + 3 

3706 

NA ,B32M 

INT  ADDR 

ZEROM 

C , + 2 

3708 

TS , B 1 7M 

ONESM 

1,2 

INT  AD  FOX 

3710 

NA 

store  COM 

zerom 

C , + 3 

3720 

NA,B24M 

INT  ADDR 

zerom 

C , + 2 

3730 

TS,B17M 

ONESM 

1,26 

C,  + l 

3740 

TX.B24M 

ONESM 

m 

INT  ADDR 

3750 

I NT 

AD 

FOX 

TS,C7T8M 

BLANKSM 

ICOMMON  +1 

C , + 2 

3760 

TS 

ICOMMON 

ICOMMON  +2 

INT  AD  PEK 

3770 

NA 

Z,X6,i 

zerom 

C,-l 

3780 

TN 

ICOMMON 

2 

CARDM  +3 

3790 

tNT 

AD 

GOT 

WD 

K 47777  M 

K 10000  M 

MIN  ADR 

3792 

TX,B24M 

ONESM 

m 

STADR 

3795 

SWe.ONeSMM 

L INT  ADDR 

16 

z,sc 

3810 

INT 

AD 

PAT 

NA,B24M 

STADR 

zerom 

C , + 2 

3816 

TS 

- 

INT  WD  DOG 

3820 

TS,B24M 

ZeROM 

stadr 

INT  OP  SET 

3855 

LA 

ONESM 

addressm 

INT  WD  SUM 

3860 

SSL,B46T48M 

INT  ADDR 

18 

C,  + l 

3870 

TS 

ZEROM 

ADD  REV 

INT  AD  PON 

3830 

TS 

zerom 

ADD  REV 

INT  AD  PON 

3 8 B5 

TS 

B48M 

ADD  REV 

INT  AD  PON 

3890 

TS 

B47M 

ADD  REV 

INT  AD  PON 

3895 

TS 

B46348M 

ADD  REV 

INT  AD  PON 

3900 

TS 

zerom 

ADD  REV 

INT  AD  PON 

3905 

TS 

zerom 

ADD  REV 

INT  AD  PON 

3910- 

TS 

B44348M 

ADD  REV 

INT  AD  PON 

3915 

1 NT 

AD 

PON 

NA ,B  32M 

INT  ADDR 

zerom 

INT  AD  SIR 

3925 

SSL,B4faT48M 

INT  ADDR 

21 

C,  + l 

3932 

TS 

- 

• 

INT  ERR  20 

3935 

TS 

B46M 

ICOMMON 

INT  AD  A14 

3945 

TS 

B47M 

ICOMMON 

INT  AD  A14 

3955 

TS 

B48  M 

ICOMMON 

INT  AD  A 1 4 

3965 

TS 

- 

_ 

INT  AD  F 

3975 

TS 

zerom 

ICOMMON 

INT  AD  A 1 4 

3991 

TS 

* 

INT  AD  SW 

3932 

LN 

zero  m 

ADDR  WDM 

C , + 2 
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CUSS  POLISH  ADDRESS  WITH  RLANK  ADR  FID. 
ERROR  IF  NO  ASSOCIATED  OPCODE. 

SEARCH  ADDR  FIELD  FOR  ,1  OR  ,2 

16  CHAR  SEARCH 

CYCLE  RIGHT  16  CHARS 

JUMP  ON  RIGHT  MoSj  CHAR  NoN  BLANK 

JUMP  IF  SEARCH  NOT  DONE 

JUMP  IF  NOT  SUPPOSED  TO  Bf  ANY  INDEXING 
JUMP  IF  OPCODE  DID  NOT  REQUEST  ANY 
FLAG  RIAH  CJSS 

JUMP  IF  ADDRESS  NOT  ENDED  BY  *2 
POINTER  TO  SHOW  X2  USED 
JUMP  IF  NON  INDEXED  ADDR 
JUMP  IF  INDEXING  ALLOWED. 

SAME 

ERROR  IF  NOT  ALLOWED 
JUMP  ON  STORE  WORD 

ERROR  IF  OPCODE  DID  NOT  RfQ  INDEXING 

FLAG  ONIC  CJSS 

SET  INDEXED  ADDR  FLAG 

BLANK  OUT  INDEXING  CHARS  nF  ADDR 

CONTINUE  THE  RIGHT  CYCLE 

UNTIL  FIELD  BACK  TO  ORIGINAL  POSITION 

STORE  FIElD  WITHOUT  INDEX  MARKS 

MOST  NEGATIVE  ALLOWABLE  VALUE  (C  TYPE). 

SET  BRANCH  TO  INTERPRETIVE 

GO  TO  MAX  AO  SET 

JUMP  IF  PROCESSING  POLISH,  NOT  BASIC 
SPECIAL  TRANSFER  FROM  BANK  1 
CANCEL  FLAG.  RESTORE  NeCeSSaRY  RfGISteRS 
JUMP  ON  BAD  ADDRESS 

BRANCH  BY  OP  MODE  TO  CHOOSE  NUMBfR  OF 
WORDS  THAT  this  ADDRESS  WILL  TAKf 


JUMP  IF  ADDR  FOR  GENERAL  SHIFT  INST 
BRANCH  BY  NON-ZERO  ADDRESS  TYPE 

14  BIT  ADDRESS, ARC-CCS  FASHION 
E ADDRESS,  aRC-CCS  FASHION 

15  BIT  ADDRESS 
FIXED  15  BIT  ADDR 
E ADDRESS 

SWITCH  BIT  NUMBER. 

JUMP  IF  ADDRESS  IS  POSITIVE. 
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39525 

TS,  B7M 

ones  m 

INT  ADDR 

plain  c 

FAKE  UP  A\i  X2  FLAG  FOR  NEGATIVE  OPERAND 

3953 

LA 

K 20000  M 

ADDRESS  M 

INT  AD  F +1 

JUMP  IF  WOULD  BE  AN  ADDR  IN  FIXED  BANKS 

39533 

LA 

B37M 

ADDRFSS  m 

PLAIN  C 

39536 

TS 

zero  m 

I COMMON 

INT  AD  A14 

+ 3 

MUST  REDUCE  IF  IN  e-BANK  (SIGH), 

3954 

FLA 

IN  i 

: 

TS 

zero  m 

I COMMON 

INT  AD  OAF 

otherwise  use  number  as  IS. 

3955 

INT 

AD 

SW 

LN 

addr  wdm 

B48M 

INT  ERR  41 

ERROR  IF  ADDR  LESS  THAN  ZfRO 

3995 

LA 

K360M 

ADDRESSM 

INT  ERR  41 

ERROR  IF  ADDR  OVER  239. 

4005 

TS 

m 

- 

C , + 2 

40 1 0 

W A 

ADDRESSM 

K 361  M 

ADDRESSM 

ADD  0CT403,  SUBTRACT  0CT17 

4020 

LA,B41T48M 

K 17  M 

ADDRESSM 

C,-l 

JUMP  IF  SWITCH  ADDR  NOT  FnRMULATFD 

4040 

SWS.B41T44M 

INT  ADDR 

4 » L 

ADDRESSM 

INSERT  OPCODE  ADDITIVE 

4050 

TS 

• 

. 

INT  AD  A10 

FINISH  UP  ELSEWHERE 

4060 

TNT 

AD 

F 

LN 

ADDR  WDM 

MB36T48M 

INT  ERR  41 

F TYPE  ADDR  cannot  BE  LESS  THAN  20000 

4070 

LA 

B2MAXP1 

ADDRESSM 

INT  ERR  41 

NOR  GREATER  THAN  BLK2  ADDRESS  MAX 

4050 

TS 

zerom 

I COMMON 

INT  AD  MAR 

-1 

4055 

TNT 

AD 

pek 

TX.CHAR8M 

icommon  +1 

- 

I COMMON 

C 

FOUR  INSTRUCTIONS  tO  FINISH  CYCLING 

4057 

TX,CHAR8M 

I COMMON  +2 

- 

I COMMON  +1 

C 

RIGHT  16  CHAR  1 CHAR 

4090 

SWe.CNeSMM 

I COMMON 

6 

ICOMMON 

r 

4095 

swe.onesmm 

1 COMMON  +1 

6 

ICOMMON  ♦ 1 

*4105 

next  routine  checks  TO 

see  if  all  addresses  for  thf 

previous  opcode  pair  have  been  received. 

*4115 

IF 

BIT 

31  i 

of  int  addr(x)  = i,  an  expected  address  has  not  been 

PROCESSED 

4116 

INT 

AD 

MOD 

NA 

B48  M 

MODE  OUT 

C,  + 2 

c 

4117 

TS.B1M 

ONESM 

1.29 

C , *2 

c 

4118 

LA 

B47T48MM 

MODE  OUT 

C,-l 

c 

4120 

TX, 

B47M 

_ 

MODE  OUT 

MODE  OUT  = JNKNOWN. 

4125 

TS 

LOC  M 

LOC  HOLD 

C , +4 

c 

reset  polish  loc  counter 

4135 

INT 

AD 

CHK 

NA 

LoC  HOLD 

LoC  M 

INT  AD  MOD 

L 

jump  if  Polish  string  broken 

4145 

NA 

MODE  OUT 

zerom 

C,  + 2 

c 

JUMP  IF  POLISH  INST  EXPECTED 

4155 

TS.B1M 

ONESM 

1,24 

C , -4 

c 

FLAG  INXH  CJSS 

4165 

NA.B31M 

INT  ADDR 

Zerom 

INT  AD  SOB 

r 

JUMP  IF  ANY  OF  FOUR  ADDRESSES  aCtIVf 

4175 

NA.B31M 

INT  ADDR  +1 

zerom 

INT  AD  SOB 

AND  PUSHUP  NOT  ALLOWED 

4155 

NA.B31M 

INT  ADDR  *2 

zerom 

INT  AD  SOB 

** 

4195 

NA.B31M 

INT  ADDR  +3 

zerom 

INT  AD  SOB 

c 

4205 

TX 

ZEROM 

INT  ADDR 

c 

4210 

TN 

INT  ADDR 

4 

INT  ADDR  ♦ 1 

zero  all  address  data  holders 

4212 

TNT 

AD 

SOB 

TS.B17M 

ONESM 

1,24 

C,-2 

r 

POLISH  ADOReSS(eS)  MISSING  ERROR.  IMAS 

4215 

INT 

AD 

SIR 

NA.B24M 

INT  ADDR 

ONESM 

C , +2 

JUMP  IF  ADDRESS  NOT  INDEXfD 

4225 

TX.B25T27M 

ZEROM 

• 

int  addr 

4227 

EX 

INT  ADDR 

B39T4IM 

IC0MM0N 

extract  general  shift  opcode  additive 

4230 

SSL .B45T47M 

INT  ADDR 

20 

C,  + 3 

c 

BRANCH  BY  ADDRESS  LIMITS  TYPE 

4235 

BS 

ADDR  WDM 

I COMMON 

ADDRESSM 

insert  additive  portion 

4245 

TS 

• 

INT  AD  A 1 2 

4260 

LA 

K 200  M 

ADDRESSM 

INT  ERR  41 

LIMITS  =-177  TO  +177  OCTAI  FOR  INDEXED 

4270 

K 16MPLUS 

OCT 

♦ 16 

4250 

LA 

K52M 

ADDRfSSM 

INT  ERR  41 

LIMITS  = -51  TO  +51  OCTAL  FoR  SL  AND  SR 

4252 

K 34MPLUS 

OCT 

♦34 

4255 

LN 

ADDR  WDM 

K 35  M 

INT  ERR  40 

c 

LIMITS  = -34  TO  +15  OCTAL  FoR  SLR 

4295 

LN 

K16MPLUS 

ADDR  WDM 

INT  ERR  41 

4300 

LN 

ADDR  WDM 

K 16  M 

INT  ERR  40 

c 

LIMITS  = -15  T +3a  OCTAL  FOR  SRR 

4305 

- 

LA 

K 35  M 

ADDRESSM 

INT  ERR  41 

4310 

LN 

ADDR  WDM 

K 35  M 

INT  ERR  40 

c ■ 

LIMITS  = -34  TO  +33  FOR  VSL 

4320 

LN 

K34MPLUS 

ADDR  WDM 

INT  ERR  41 

4325 

LN 

ADDR  WDM 

K 34  M 

INT  ERR  40 

c . 

LIMITS  = -33  TO  +34  VSR 

4335 

LA 

K 35  M 

ADDRFSSM 

INT  ERR  41 

y 


a 


..z 


..e 


y 


y 


y 


□ 


) 


I 


>i.aS68^ 
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4340 

T NT 

ad 

COT 

WA 

ADDREV 

BAOM 

4345 

TS 

- 

- 

A3  50 

TNT 

AD 

STO 

TX 

STORE  COM 

„■ 

4355 

tnt 

AD 

A1A 

LN 

ADDR  WDM 

BA8M 

4365 

LA 

ADDRESSM 

K 52  M 

4375 

LA 

ADDRESSM 

BA3TA8M 

4335 

LA 

ADDRESSM 

K 1377  M 

A3  95 

LA 

B37M 

ADDRfSSM 

AA 1 0 

na.ebankmsk 

ADDRESSM 

E BNK  REGM 

AA15 

ts.ebankmsk 

B39TAOM 

ADDRFSSM 

4440 

swe.onesmm 

L B2P2BAS 

16 

AA50 

SWS.AC05 

ADDR  WDM 

10, L 

AA55 

ts.charam 

E CHAR  AM 

6,2 

AA65 

TNT 

AD 

A6 

LA 

icommon 

ZeROM 

AA70 

LA 

I COMMON 

B48M 

A A 75 

LA 

ICOMMON 

B47M 

AAS5 

LA 

LOCM 

I LOW  HALF 

AA95 

LA 

ADDRESSM 

K51777M 

A505 

LA 

B2MAXP1 

ADDRFSSM 

A5 1 0 

TS 

K 37777 

I COMMON  *2 

A5  20 

LA 

ADDRESSM 

K17777M 

A550 

LA 

KA7777M 

ADDRFSSM 

A533 

TX 

B3ATA8MM 

- 

A535 

INT 

AD 

mar 

WD 

ADDRESSM 

K 10000  M 

A5A1 

LA 

ADDRESSM 

M 57777 

A5  A 1 2 

LA.  B33T35M 

SBN<  REGM 

ZEROM 

A5  A 1 A 

NA,  B33T35M 

ADDRESSM 

sbnk  REGM 

A5  A3 

TS,  B33T35M 

I COMMON  +2 

ADDRESSM 

A5  AA 

EX 

ADDRESS  M 

I COMMON  *2 

A5A5 

TNT 

AD 

OAF 

NA ,B2 AM 

INT  ADDR 

ZEROM 

A555 

EX 

ADDRESSM 

K 1777  M 

A565 

WA 

ICOMMON  *2 

ADD  REV 

A5  70 

LA 

K 2000  M 

ADD  REV 

A530 

TNT 

AD 

A 1 5 

LA 

ICOMMON 

B48M 

A5  90 

tNT 

AD 

A 1 2 

WA 

ADDRESSM 

B48M 

4630 

INT 

AD 

DUN 

NA 

store  com 

ZEROM 

A610 

NA.B7M 

INT  ADDR 

ONESM 

A62O 

HA 

ADDRESSM 

B34T48MM 

A63O 

INT 

AD 

A10 

TN 

INT  ADDR  +1 

A 

46  40 

INT 

WD 

POT 

NA 

LOC  M 

LOC  HOLD 

A6A6 

INT 

WD 

RUN 

LA 

ONES  M 

LOC  HOLD 

•A650 

WA 

LOC  HOLD 

B48M 

A6  60 

INT 

WD 

HAT 

SWS.CHAR8M 

ADDRESSM 

12 

A665 

INT 

WD 

TOS 

TS,C1TaM 

ZERDM 

LINEM  +6 

A6  70 

•SWS.ACol 

ADDRESSM 

33, L 

A6  75 

INT 

WD 

BAD 

SWS , ACq2 

ADDRESSM 

30, L 

A63O 

SWS.AC03 

ADDRESSM 

27, L 

A6S5 

SWS. A Co A 

ADDRESSM 

24, L 

A637 

ss 

.ADDRESSM 

B34T48MM 

A690 

INT 

WD 

RET 

TX 

LBCCHECK 

- 

A6952 

tBNK 

; cusm 

TX 

ADDRESSM 

A6  95A 

- 

SWE.  C AC3M 

LB2P2  BAS 

16 

A696 

INT 

WD 

SUM 

NA 

STORE  COM 

zerom 
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add  rev 

ADD256  TO  LOOK  LIKE  BOUNDARY  ChECK 

INT  AD  OAF 

z,sc 

INT  ERR  21 

BOTTOM  LIHIT  IS  ZfRO 

INT  AD  ACE 

JUMP  IF  ADDRESS  IN  BUFFER 

INT  ERR  21 

ERROR  IF  IN  53  TO  77  OCTAL  RANGE 

INT  AD  COT 

JUMP  IF  IN  100  TO  1377  OCTAL  RANGE 

INT  AD  A6 

JUMP  IF  4000  OCTAL  OR  OVER.  MAYBE  FIXED 

C , + 2 

JUMP  IF  ADDR  NOT  IN  REO  E-BANK 

INT  AD  OAF 

CHANGE  ADDR  TO  1400-1777  RANGE 

Z.CSC  C 

GO  TO  CUSS  BANK 

0 * c 

C,-3 

put  e bank  number  in  bank  error  cuss 

INT  ERR  41 

error  IF  ADDR  E TYPE 

INT  AD  F 

JUMP  IF  15  BIT  A TYPE  ADDR 

INT  ERR  41 

ERROR  IF  ADDR  ARC-CCS  E TYPE 

C , *4 

JUMP  IF  INT  INST  LOU  IN  MfMqRY  LoW  HALF 

INT  ERR  41 

ERROR  IF  ADDRESS  OUTSIDE  52O00-U  7777. 

INT  ERR  41 

INT  AD  MAR 

CHOP  TO  14  BITS 

INT  ERR  41 

ERROR  IF  ADDRESS  OUTSIDE  20000-47776 

INT  ERR  41 

ICOMMON  +2 

ADDRESSM 

change  to  fcadr  type  format 

INT  AD  OAF  _l 

BRANCH  IF  ADDRESS  ISN'T  IN  A SUPfR-BanK. 

C , + 2 

BRANCH  IF  THERE  IS  NO  SUPfRBANK  SETTING. 

SBNK  CUSM 

branch  to  cjSs  supeRbank  frror. 

INT  AD  OAF 

REDUCE  SUPER-BANKS. 

ADDRESSM 

INT  AD  A15 

HOPE  INDEXING  WILL  RIGHT  A WRONG  IF  ANY 

ICOMMON  *2 

checking  crossing  bank  boundaries  now 

ADD  REV 

INT  ERR  25 

jump  if  boundary  crossed  by  aDdr*s  words 

INT  AD  DUN 

JUMP  IF  Not  using  aRC-CCS  FoRM 

ADDRESSM 

CHANGE  TO  ARC-CCS  TYPE  FORM 

INT  AD  STO 

return  to  store  Routine 

C,  + 2 

JUMP  IF  X2  NOT  used 

ADDRESSM 

COMPLEMENT  IF  X2  used 

INT  ADDR 

ADVANCE  ADDR  DATA  WORDS  OR  ZEROES 

INT  ERR  33 

error  if  non  polish  word  appeared 

INT  ERR  33  -1 

LOC  HOLD 

increment  polish  count 

LINEM  +5 

proceed  to  place  agc  word  on  print  line 

INT  WD  117  C 

LINEM  +6 

LINEM  +6 

LINEM  +6 

LINEM  *b 

WORDM 

15  BIT  agc  word  in  with  MfMORY  map  char 

z,sc 

RETURN  AT  BC  CHECK 

ADDR  WDM 

z,sc 

USE  GENERAL  SUPERBANK  CUSSING  ROUTINE. 

INT  AD  STO 
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47  00 

TN 

INT  ADDR  +1 

4 

INT  ADDR 

4736 

TNT 

WD 

NUT 

NA 

LOC  HOLD 

LOC  M 

INT  ERR  33 

47372 

TNT 

WD 

BOT 

LA 

ONES  M 

LOC  HOLD 

INT  ERR  33 

A7  38 

WA 

LOC  HOLD 

BA8M 

LOC  HOLD 

4710 

TX.CITaM 

blotm 

LINEM  +6 

47  20 

TS.CHAR8M 

blotm 

LINEM  +5 

INT  WD  117 

4725 

5WE.0NESMM 

L BCCHECK 

16 

z,sc 

A7  AO 

TNT 

AD 

ACE 

NA.B2AM 

INT  ADDR 

ZEROM 

INT  AD  A15 

4750 

WA 

ADDRESSM 

ADD  REV 

ADD  REV 

47  55 

LA 

ADD  REV 

K 52  M 

INT  AD  A 1 5 

47  55 

INT 

err 

25 

TS.B1M 

ONESM 

1.27 

INT  AD  A 1 5 

47  75 

TNT 

ERR 

A 

TX 

Z,R1 

ICOMMON  +4 

4777 

LA,  CAC3M 

icommon  +a 

L INT  OPPP 

C , + 2 

47  79 

TS.B33M 

ONESM 

1,25 

INT  OP  MUT 

47  g 1 

TS.B17M 

ONESM 

1,25 

INT  OP  MUT 

47?5 

TNT 

ERR 

8 

TX 

Z,R1 

ICOMMON  +4 

4796 

LA,  CAC3M 

ICOMMON  + 4 

L INT  OPPP 

C , *2 

4830 

TS.B33M 

ONESM 

1,22 

INT  OP  APE 

A810 

TS.B17M 

ONESM 

1,22 

INT  OP  APE 

48  20 

TNT 

err 

20 

TS ,B 1 M 

ONESM 

1,26 

INT  WD  SUM 

483O 

INT 

ERR 

21 

TX 

Z , SH 

m 

Z , R 1 

4835 

NA.B2AM 

INT  ADDR 

ONESM 

INT  ERR  41 

48  45 

LN 

ZeROM 

ADDR  WDM 

N,R1 

4855 

TS.B33M 

ONESM 

1,27 

C , + 2 

48  65 

t NT 

err 

41 

TS,B17M 

ONESM 

1,3 

C , + 1 

4872 

LA 

B2  MAXPl 

ADDRESS  m 

INT  WD  SUM 

4875 

SWe.ONeSMM 

L PRB  ADR 

0 

z,csc 

48go 

LN 

ZEROM 

ADDR  WDM 

INT  WD  SUM 

4882 

TS 

w NEoATlV 

4,1 

INT  WD  SUM 

4891 

TX 

Z , SH , 1 

_ 

4895 

INT 

err 

33 

TX 

LOC  M 

* 

loc  hold 

4935 

TX.B17M 

ONESM 

m 

1.27 

4915 

TX 

Z,SH 

■w 

Z,SC 

4916 

INT 

ERR 

AO 

TS 

- 

_ 

INT  ERR  41 

49  30 

INT 

WD 

117 

NA.ChARlM 

CAROM 

BLANKSM 

C , + 3 

49  40 

na.charim 

CAROM  +2 

blanksm 

C,*2 

A950 

TX 

m 

_ 

_ 

A9&0 

TX.B33M 

ONESM 

- 

1,28 
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advance  addresses 

error  if  non  polish  word  appeared 

BRANCH  IF  LoC  CtR  HAS  BAD  VALUe, 

INCREMENT  POLISH  LOCATION  COUNTER 
BLOT  5 CHARACTERS 

RETURN  AT  NAUGHTY  ..z 

HOPE  INDEXING  WILL  RIGHT  wRqNG  If  ANY 

JUMP  IF  BUFFER  BOUNDARY  NOT  E*CEFDFU 
FLAG  CBBB  FLAG 


..e 

FLAG  RIGHT  OP  MODe  OUT/IN  MISMATCH.  MlMO 
FLAG  LEFT  OP  MODE  OUT/IN  MISMATCH.  ROP2 


RIGHT  OPCODE  ILLEGALLY  INDEXED.  IXP2 
LEFT  OPCODE  ILLEGALLY  INDfXeD.  IXP2 
NO  OPCODE  For  this  address.  ANAO 

JUMP  IF  NOT  INDEXED 

JUMP  IF  ADDRESS  POSITIVE 

CANNOT  HANDLE  NEG  ADDR  WITH  INDEXING. 

BAD  RANGE  FOR  ADDR.  ASI2 

BRANCH  IF  ADDRESS  IS  UNPRINTABLE. 

GO  TELL  MAN  WHAT  ADDR  VALUE  IS 

IF  NEGATIVE  ADDR.  JUST  SAY  SO  INSTEAD 

Reset  int  location  counter 

FLAG  I AOS  CJSS 


COLUMN  1 MUST  BE  BLANK 
COLUMN  17  MJST  BE  BLANK 


E 
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P49  bo 

procedure 

TO  LET  BASIC 

CHECK  UP  ON 

POLISH  EXPECTATIONS 

49S2 

TNT 

WD 

DOG 

TX 

L ge  base 

Z,X3 

4934 

TX 

Z.MXR 

- 

PASS2  MXR 

49b6 

TX 

CHECK  UP 

• 

Z ,MXR 

4987 

LA 

ONES  M 

LOC  M 

INT  WD  MUS 

4989 

NA 

interp  WD 

zerom 

INT  WD  NOT 

49  91 

NA.B25T27M 

ONESM 

INT  ADDR 

INT  WD  NAT 

4993 

TNT 

WD 

SHO 

TN 

INT  ADDR  +1 

4 

INT  ADDR 

49  94 

NA 

LOC  HOLD 

LOC  M 

INT  WD  FOS 

4996 

I NT 

WD 

SOT 

LA 

ONES  M 

LOC  HOLD 

C , + 2 

49  97 

WA 

LOC  HOLD 

Bas  M 

LOC  HOLD 

4999 

TNT 

WD 

NOT 

SWE.0NESMM 

L B2P2  BAS 

32 

Z,X4 

5091 

TX 

PASS2  MXR 

m 

Z ,MXR 

5003 

TS 

zerom 

INTERP  WD 

4,1 

5005 

TNT 

WD 

NAT 

LA 

INT  ADDR 

Zerom 

INT  WD  ZAP 

5007 

NA.B31M 

INT  ADDR 

zerom 

INT  WD  TOM 

5009 

NA 

B48  M 

MODE  OUT 

C , + 2 

5010 

INT 

WD 

TOM 

TS,B33M 

ONESM 

1,29 

INT  WD  SHO 

50 1 2 

LA 

B47T48MM 

MODE  OUT 

C,-l 

501 A 

NA.B3AM 

WORD  M 

Zero  m 

INT  WD  SHO 

5016 

TS.B17M 

onesm 

1,29 

INT  WD  SHO 

5018 

TNT 

WD 

ZAP 

NA 

B48M 

MODE  OUT 

C , + 2 

5019 

TNT 

WD 

FOS 

TS,BiM 

onesm 

1,29 

C,  + 2 

5021 

LA 

B47T48MM 

MODE  OUT 

C,-l 

5023 

TS 

B47M 

mode  out 

INT  WD  SOT 

5025 

INT 

WD 

MUS 

LA 

ONES  M 

LOC  hold 

C , + 2 

5026 

WA 

LOC  HOLD 

B A8M 

LOC  HOLD 

5028 

TX 

PASS2  MXR 

m 

Z , MXR 

5030 

TS 

ZEROM 

INTERP  WD 

N»SC, 1 

5032 

INT 

PATCH 

RESERVE 

9 

5033 

OCT 

0 

o o o r>  o o o r>  r>  o r>  c*  r ^ o r>  n o o r>  o r'»  o o n r>  non 
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general  pass  2 variable  storage  addr 
SWITCH  MXRS 

branch  if  location  is  bad. 

JUMP  IF  LAST  WORD  WAS  POLISH 
JUMP  IF  C TYPE  ADDRESS  NOT  EJECTED 

jump  if  Polish  sequence  broken 

increment  polish  location  counter 
addr  of  #sendword# 
restore  mas<s 

zero  polish  word  flag  and  exit 

JUMP  IF  NO  POLISH  ADDR  EXPECTED 
JUMP  IF  PJSHUP  NOT  ALLOWED 

CALL  POLISH  ADDR  EXPECTED  ERROR 
JUMP  IF  POLISH  WORD  REQUIRED  HeRf 

jump  if  word  is  negative 

ERROR,  PUSHJP  REQUIRES  neg  word  here 

error,  previous  equation  UNFINISHED 
JUMP  IF  POLISH  WORD  EXPECTED  HeRe. 

set  interpreter  to  unknown  out  mode 

CAN'T  TELl  ANYTHING  IF  LOCATION  IS  BAD, 

restore  mxr.  zero  polish  word  flag. 

EXIT  USIN3  SENDwORD  BRACH 


L 
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P5034  Procedure  to  evaluate  bnksum  constants,  the  acdress  field  should  give  a bank  number  or  an  address  within  a 

R5036  fixed  bank,  normally,  this  procedure  places  two  adreS-self  words  into  the  named  or  implied  bank,  starting  at 

R5O38  THE  FIRST  UNUSED  WORD  IN  the  Bank  (THe  BANK  SHOULD  Be  EMPTY  FROM  that  Point  ONWARD).  HOWEVER,  if  the  first  hole 

R5O4O  rCCURS  LATER  than  RELATIVE  3775,  THE  WORDS  GO  INTO  3775  AND  3776  WITH  A CONFLICT  CUSS,  IF  THE  BANK  IS  EMPTY, 

R5042  IT  WILL  RECEIVE  THESe  WORDS  ONLY  IF  THERE  IS  A HIGHER  OCCUPIED  BANK, 


50  43 

bnksum 

TS 

L USD  FMAX 

Z , S3 

INT  OP  SET 

c 

INITIALIZE  VARIOUS  ReCISTfRS. 

5045 

LA 

OCT  70  M 

ADDRESS  m 

BNKSum  ad 

branch  if  address  is  not  a bank  number. 

5047 

LA 

B46M 

addrfss  m 

C , + 2 

5048 

LA 

B47M 

ADDRESS  M 

C , +2 

5049 

WA 

ADDRESS  M 

B46M 

ADDRESS  M 

ADD  4 TO  ANY  Bank  NUMBER  BUT  2 OR  3. 

5051 

SWE 

, onesmm 

ADDRESS  M 

10,  L 

ADDRESS  m 

form  address  2000  within  named  Bank. 

5053 

bNK  SUM  AD 

LA 

B37M 

ADDRfSS  m 

C , +2 

address  must  be  in  fixed. 

5055 

TX 

L PR  BADR 

- 

Z,SC 

5056 

TX, 

B39T48M 

ZERO  M 

m 

ADDRESS  M 

5057 

SWE 

, CAC3M 

L HOW  HI  F 

16 

Z,CSC 

c 

point  to  beginning  of  bank,  find  MAX  bk. 

5059 

LA 

ONES  M 

N , S3 

C , + 2 

BRANCH  IF  no  fixed  WAS  OCCUPIED  (ODD). 

5051 

LA 

ADDRESS  M 

N , S3 

DO  BNK  SUM 

BRANCH  UNLESS  BANKSUM  IS  UNNECESSARY. 

5053 

SWE 

, CAC3M 

L E3K2  XIT 

32 

Z , S3 

5054 

TS 

w no  need 

LINE  .6 

N , S3 

PLANT  GOOD  NEWS  AND  UOIN  fBANK=  PRoC. 

5066 

( 0 bnk  SUM 

SWE 

, ONESMM 

ADDRESS  M 

5 

I COMMON 

5057 

WA 

M AV  TABLE 

I COMMON 

Z,AUl 

point  to  fust  avail  word  for  high  rank. 

5059 

TS 

Z,AJl  ,31 

Z,X6 

C , + 3 

ALSO  POINT  to  last  possibi  E AVAIL  word. 

5071 

WA 

ADDRESS  M 

OCT  40  M 

ADDRESS  M 

5072 

LA 

Z,AJ1 

Z , X 6 

FOUND  HOL  *2 

branch  IF  ABOUT  TO  DO  last  POSS,  AV  WD. 

507A 

LA 

N , X6 , 1 

CAC3 

C ,-2 

FIND  an  AVAIL  word  WITH  A HOLE. 

5076 

found  hol 

WD 

Z ,X6 

ONE 

Z,X6 

5077 

TS 

bit  1 

AV  MSK 

FIND  AVWD 

GOT  ONE.  NOW  Go  FIND  THE  HOLE. 

5079 

LA 

B30M 

N,X6 

found  hol  +1 

BNKSUM  MUST  Go  NO  LATER  THAN  W0RD  3775 

50  B 1 

SM 

HEALTH  M 

BIT  16 

health  m 

of  the  bank,  so  too  bad  If  it  conflicts. 

5033 

TS, 

B2gT30M 

B30M 

6,0 

found  hol  ♦ 1 

L 

P50S4 

5085 

5086 

5087 

5089 

5090 

5092 

509^ 

5095 

5097 

5098 

5100 

5102 

5103 

5105 

5106 

5107 

5109 

5111 

5113 

5115 

5 1 1 7 

5118 

5119 

5121 

5123 

5124 

5125 

5126 

5128 

5130 

5132 

5133 

5135 

5136 
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PKSUM  toe 


hole  in  bank 

for  bnksum* 

OR  FORCE  one 

AT  3775. 

MASKGRP 

s,o 

F , 0 

TS 

I GENL  MXR 

Z *MXR 

C,  + 3 

WA 

address  m 

ONE 

address  m 

SWE ♦ ONES 

AV  MSK 

1 

AV  MSK 

NA,  AV  MSK 

6,0 

ONES 

C,-2 

TS,  AV  MSK 

zero  m 

6,0 

FIND  AV  WD 

LA 

CAC3 

AV  MSK 

C , +2 

SWE,  BIT  1 

2 ,X6 , 1 

32, L 

AV  MSK 

NA,  AV  MSK 

6,0 

ZERO  M 

C , + 2 

SM 

HEALTH  m 

BIT  16 

health  m 

ss 

zero  m 

AV  MSK 

N » X6 

SWE,  CAC3 

I TYP  tab 

16 

Z,X6 

LA,  CAC3 

ADDRESS  M 

6,0 

C,  + 2 

TS 

Z , X6  * 1 

C,-l 

swe,  ones 

B28T30 

3 , L 

AV  MSK 

NA,  AV  MSK 

6,0 

B26MM 

C , +2 

NA,  CAC3 

ADDRESS  M 

6,0 

C , +2 

SM 

health  m 

BIT  15 

health  m 

SS 

ADDRESS  M 

CAC3 

health  m 

ss 

zero  m 

BIT  8 

health  m 

swe,  ones 

B47T48MM 

3 

WORD  M 

SWE,  CAC3 

L INSTRNT 

16 

Z,X6 

TS 

Z,SC 

Z,X4 

6,2 

TX 

ADDRESS  M 

- 

ADDR  WDM 

5WE,  CaC3 

I BL<2  MXR 

32 

Z ,MXR 

MASKGRP 

S,1 

F , 1 

NA 

LOC  M 

ONES 

C , + 2 

SWE,  CAC3M 

I bad  basc 

32 

Z,SC 

LA 

ADDRESS  M 

OCT  7777 

C , + 3 

TX,  BANKMASK 

OCT  2000 

- 

ADDR  WD  M 

WD 

ADDRESS  M 

OCT  10000 

ADDRESS  M 

WA 

ADDR  WDM 

ONE 

2ND  HALF  M 

SM 

ADDR  WDM 

BIT  1 

ADDR  WDM 

SWE,  CAC3M 

L PRIN  2PA 

32 

z,sc 
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KEEP  ADDRESS  GUESS  UP  TO  DATE. 

seek  a one-word  Hole  in  bank, 

GET  SET  TO  LOOK  At  WORD  FOR  2^D  TC  SfLF. 
ADVANCE  TO  NEXT  AVAIL  WD  IF  NECESSARY. 

plant  conflict  bit  For  second  word. 

both  WORDS  ARE  NOW  SHOWN  OCCUPIED. 

BRANCH  WHEN  MEMORY  TYPE  IS  FOUND. 


BRANCH  IF  1ST  ADDRESS  IS  NOT  IN  FIXFD. 
BRANCH  IF  SECOND  WORD  IS  IN  FIXED  TOO. 
SET  WRONG. MEMORY-TYPE  FLAG. 

IMITATE  THE  ACTION  OF  PASS  i FoR  A CON, 
CLEAR  SYMBOLIC-LOCATION  FI  AG. 


NOW  DO  LOCATION  VALUE  PROCESSING. 

distribute  address. 


EXIT  NOW  IF  LOCATION  IS  BAD. 

BRANCH  IF  IN  FIXED  FIXED. 

CONVERT  BANK  NOTATION. 

FORM  SECOND  TC  SELF  WORD. 

MAKE  ADR  WD  POSITIVE  AND  GO  PRINT  WORDS. 


L 
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Roooi 

R0003 


R000A 

R0006 

R0008 

ROOlO 

ROOll 
R DO  1 2 
R0013 
ROOiA 

R00l5 
ROO 1 7 

R0019 

*0021 

R0023 

R 00  2 5 
R0027 
R0028 
R 00  30 

R0032 

R003A 

ROO36 

R0038 

R0039 

Rooao 


WE  ARE  DEEPLY  INDEBTED  TO  THE  ONE  , THE  ONLY * THE  GREAT  JOHN  SHAw  FOR  THe  FOLLOWING  STRONG  MAGIC..-. 
iSOCTL 


THE  AGC  PART  OF  PASS  2 CONTAINS  THE  CUSS  LIST  ANd  CUSSES  FOr  AGC,  TOGETHER  WiTh  CODiNG  TO  PlANT  A 
MODIFIED  CUSS  list  at  THE  BEGINNING  OF  BANK  2*  AND  CODING  JO  PRoCeSS  INSTRUCTIONS  AND  CLERICAL  COOES  FoR  AGC. 

THe  CUSS  LIST  AND  CUSSES  ARe  LOADeD  INTO  BANK  5 ALONG  WITH  CoDING  TO  CONVERT  THe  CUSS  I 1ST  FRoM  tHE 

following  mixed-constant  format: 

cp  code:  for  each  of  3 cusses*  a poison  bit  and  a 3-bit  cuss  length. 

A ADDRESS;  DEMAND  BIT  AND  SUBADDRESS  OF  CUSS  1, 

R ADDRESS:  DEMAND  SIT  AND  SUBADDRESS  OF  CUsS  2. 

C ADDRESS;  DEMAND  bit  and  SUBADDRESS  OF  CUSS  3 

to  a cac-word  format  in  which  each  cac  contains  the  demand  bit*  poison  bit*  length  and  subaddress  of  a cuss, 
the  conversion  is  required  only  to  make  usf  of  existing  masks  in  general  pass  2. 

the  processing  coding  in  the  bank  1 portion  of  agc  pass  2 has  the  following  functions: 

1)  for  all  words,  to  Set  in  print  the  word  and  its  location,  and  mark  block  or  bank  end  if  appropriate* 

2)  FOR  INSTRUCTIONS,  TO  TRANSLATE  THE  ADDRpSS  FIeLD  AND  REDUCE  It  IF  ITS  VALUe  IS  IN  ONE  OF  tHe  BANKS 
00-67  OR  ONE  OF  THE  E-BANKS  E3-E7,  NOTING  BANK  ERROR  IF  APPROPRIATE.  SUPPLY  IMPLIED  ADDRESS  IF  RfQUIReD.  CUSS 
POLISH  INDEXING  If  IT  IS  SPECIFIED. 

FOR  BASIC  INSTRUCTIONS,  CHeCK  THAT  L I MI teD-ACCeSS  CODES  ReFeR  ONLY  TO  THEIR  SPECIFIeD  MEMORIES,  fX_ 
fEPT  THAT  C0DES  REFeRRING  ONLY  TO  F 1 XED  MEMORY  MAY  HAVE  ADDRESS£S  IN  THE  RANGE  0-1777  IF  PRECEDED  BY  "INDEX", 

pnd  codes  Referring  only  to  erasable  memory  may  have  addresses  in  the  range  Aooo-11777  if  preceded  by  «index». 

( HECK  that  EXTRACoDeS  ARE  EXTENDED  AND  THAT  BASIC  CODeS  ARE  NOT*  AND  FLAG  "ADReS"  , ..ReMADRi.  , "CADR"  OR  "FCADRm  , 
mGENADR",  "ECADRi.,  "BBCDNii,  "2FCADR",  AND  H2CADR"  oR  »2BCADRh  AS  CONSTANTS.  FLAG  UNINDeXED  INSTRUCTIONS  THAT 

refer  to  fixed  memory,  evaluate  and  assign  memory  to  bnksum  constants. 

3)  for  constants,  to  flag  them  as  such  and  check  on  magnitude. 

A)  FOR  SetLOC,  EQUALS,  MeMORY,  BLOCK,  BANK,  eBANK=,  SBANK=,  SUBRO,  ERASE,  PRINT  APPROPRIATE  ADdRfSSfS. 


P0042 


0044 


0045 


0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
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OUAnTITIES  FILLED  IN  BY  THE  AGC  PART  OF  PASS  2 FOR  REFERENCE  BY  GENERAL  PASS  2. 


SETLOC . 2 

SIZ  PASS  2 

B1 

MASKGRP ,4 

S.l 

F ♦ 1 

aG 

PROC  OP 

CAC 

AGC  INST 

AGC 

IP 

AGC  PREL 

AG 

D1  PARS 

fldec 

16383.0. 

16384.0 

FXBIN 

-16383 

aG 

K 1 MAX 

OCT 

-77777 

Ag 

D2  PARS 

FLDEC 

268  435 

455.0,  268 

435 

456.0 

FXBIN 

-268  435 

455 

AG 

PROC  2P 

CAC 

AGC  2P 

AGC 

pleb 

ADRES  ADI 

AG 

K2  MAX 

OCT 

-77 

7777  7777 

AG 

MAX  LOC 

OCT 

-167777 

AG 

CON  MSX 

OCT 

-77, 

7777  7777 

AG 

PRET  FL 

OCT 

0000 

0010 

AG 

FLG  MSK 

OCT 

7400 

0077 

AG 

CONS  FL 

OCT 

0000 

0020 

AGC  MXR 

MASKBASE 

S,1 

F , 1 

AG 

MISC  FL 

OCT 

0000 

0030 

PAGE  168 


I 


@YUL  SYSTEM  ASSEMBLER  AGC  PASS  2 

field  and  shift  masks  for  agc  part  cf  pass  2 


POO&l 


0062 

SETL0C.4 

768 

0063 

B.BIT1M 

OCT 

4 

0064 

B,BIT6M 

OCT 

01 

0065 

E,BIT7M 

OCT 

00  A 

0066 

B.BIT17M 

DEC 

00008 

0067 

P.BIT24M 

OCT 

0000  0001 

0068 

B,BIT26M 

OCT 

-2000  0000 

0069 

B.BIT27M 

OCT 

-1000  0000 

0070 

r ,BIT31M 

OCT 

-40  0000 

0071 

E «BI T32M 

OCT 

-20  0000 

0072 

B »B I T33M 

OCT 

-10  0000 

0073 

P.BIT39M 

OCT 

-1000 

0074 

p »B33T35M 

OCT 

-160000 

0075 

B.B6T7M 

OCT 

014 

0076 

R,B25T27M 

OCT 

-7000  0000 

0077 

B,B28T30M 

OCT 

-700  0000 

0078 

B.B29T30M 

OCT 

-300  0000 

0079 

R,B34T36M 

OCT 

-7  0000 

0080 

R.B33T38M 

OCT 

-17  6000 

0081 

B,B34T48M 

OCT 

-77777 

0082 

Ft »B39T48M 

OCT 

-1777 

0083 

B,B41T48M 

OCT 

-377 

00  84 

P » AC08 

OCT 

-7 

0085 

e,charim 

OCT 

77 

0086 

B.CHAR4M 

OCT 

0000  0077 

0037 

B.CAC3M 

OCT 

-177777 

0088 

B.CHAR8M 

OCT 

-77 

0089 

B.C1T4M 

OCT 

7777  7777 

0090 

R tEBANKMSK 

OCT 

-3400 

0091 

E «B42T48M 

OCT 

-177 

0092 

E.C7T8M 

OCT 

-7777 

0093 

R *B34M 

OCT 

-40000 

00  94 

B,B25T48M 

DEC 

— GG33GG 
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P0095 

FURTHER 

shift  mas<s  for  agc  part 

0096 

.A  * B I T 2 M 

OCT 

2 

0097 

A *B I T28M 

OCT 

-AOO  0000 

0098 

A,ONEM 

OCT 

-1 

0099 

S,TWDM 

OCT 

-2 

0100 

a.fourm 

OCT 

~A 

0101 

A.B2T5M 

OCT 

36 

0102 

A « B6T 16M 

OCT 

0177  7 A 

0103 

S,B18T21M 

OCT 

0000  017 

OlDA 

S,B22T32M 

OCT 

-7  7760  0000 

0105 

A.B3AT37M 

OCT 

-7  AOOO 

OI06 

S,B35TA8M 

OCT 

-3  7777 

0107 

S,B37T38M 

OCT 

-6000 

0108 

5 *B38TA8M 

OCT 

-3777 

0109 

A.ACOl 

OCT 

07 

0110 

A.AC02 

OCT 

0007 

0111 

S.AC03 

OCT 

0000  07 

0112 

S * ACOA 

OCT 

0000  0007 

0113 

A ♦ AC07 

OCT 

-700 

0 1 1 A 

AtTHREEM 

OCT 

-3 

0115 

S,CHAR2M 

OCT 

0077 

0116 

S * CHAR3M 

OCT 

0000  77 

0117 

S * CH AR6M 

OCT 

-77  0000 

0118 

S,CHAR7M 

OCT 

-7700 

0119 

A *C3T 6M 

OCT 

0000  7777  7777 

0120 

S,ONESMM 

DEC 

GGGG  GGGG  GGGG 

0121 

A.B35TA1M 

OCT 

-37600 

0122 

S,BA1TAAM 

OCT 

-360 

0123 

S«BA5TA7M 

OCT 

-16 

0 1 2 A 

A «CHAR5M 

OCT 

-7700  0000 

01  2A1 

A * B3  8 AC08 

OCT 

-2007 
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gVUL  SYSTEM  ASSEMBLER  A3C  PASS  2 


P01  25 

f ONSTAnTS. 

ETC.  FOR 

THE  AGC  PArT  OF  PASS  2. 

0 1 ?6 

SETL0C.2 

ROl  27 

NUMERICAL 

constants. 

BIT  30  THROUGH  OCT  57' 

0128 

ait  30 

OCT 

-100  0000 

0129 

B28T29 

OCT 

-600  0000 

01  BO 

C2  B28T3A 

OCT 

0077  0000  077A 

0131 

C2  C7T8 

OCT 

0077  0000  0000  7777 

0132 

r 3T6 

OCT 

0000  7777  7777 

0133 

FIVE 

OCT 

-5 

0 1 3 A 

SIX 

OCT 

-6 

0135 

SEVEN 

OCT 

-7 

0136 

CCT  AO 

OCT 

-AO 

0137 

OCT  70 

OCT 

-70 

0138 

nCT  777 

OCT 

-777 

0139 

OCT  1377 

OCT 

-1377 

OHO 

OCT  1 AOO 

OCT 

-1A00 

0H1 

OCT  AOOO 

OCT 

-AOOO 

0H2 

MIN  37777 

OCT 

-37777 

0H3 

PL  PMAX 

OCT 

♦777 

om 

PL  EMAX 

OCT 

+ 3777 

0H5 

PL  11777 

OCT 

♦11777 

0K6 

PL  fmax 

OCT 

+167777 

0147 

PL  FMAXP1 

OCT 

♦170000 

0148 

DEC  A8  FLG 

DEC 

A8 

0149 

BANK  E2 

OCT 

-1000 

0150 

CP  CODE  3 

OCT 

-3  0000 

0151 

DAS  CODE 

OCT 

-20  000 

0152 

DXCH  CODE 

OCT 

-52  000 

0153 

ADR  CON  3 

OCT 

-3000000 

0 1 5A 

ADR  CON  A 

OCT 

-AOO  0000 

0155 

P BANK  REG 

OCT 

-AOOO  3A 1 7 

0156 

OCT  17777 

OCT 

-17777 

0157 

CCT  57777 

OCT 

-57777 

0158 

B25T27 

OCT 

-7000  0000 

01581 

NUNDRETH 

DEC 

GO  28G5D  28G5E 

01582 

CCT  67777 

OCT 

-67777 

01583 

PM  PARAMS 

FLDEC 

99.0.  1638A.0 

015831 

FXBIN 

-99 

0 1 58A 

IN  PARAMS 

FLDEC 

9999.0,  1638A.0 

0158A1 

FXBIN 

-9999 

i 
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PO 1 5899  ADDRESS  CONSTANTS. 


0159 

L POL  OP 

CAC 

int  op  cod 

INT  nP  Gos 

01591 

1 bnksum 

CAC 

bnksum 

9 0 1 SO 

ALPHABETIC 

CONSTANTS. 

0151 

ALF  £1400 

ALF 

E 1400 

0153 

COMMA  C2 

ALF 

0,0000 

0154 

r.OMMA  C8 

ALF 

00, 

0155 

END  BL  MC 

ALF 

E3  MC 

0156 

ELOT  C6 

ALF 

■ 

0157 

f COMMA 

ALF 

EO  * 

0158 

E CHAR  4 

ALF 

E 

0159 

HI  EQUALS 

ALF 

=00,0000 

*0170 

F eservations,  equivalences,  ANq  assignment. 

01709 

1 AST  BANX 

ALF 

0171 

lsed  fmax 

DEC 

GGGS  GGGG  GGGG 

0172 

FAX  ADRES 

RESERVE 

1 

0173 

N COMMON 

RESERVE 

1 

0174 

SAV  ADREF 

reserve 

2 

0175 

F>  19T24M 

EQUALS 

CHAR4M 

01751 

SBANK  REG 

equals 

EBAN<  REG 

01752 

L BSUM  LOC 

EQUALS 

L BNKSUM 

0176 

aC05 

EQUALS 

B2BT30M 

0177 

AC06 

EQUALS 

B34T36M 

0178 

F46T48M 

EQUALS 

ACO  8 

0179 

bANKMASK 

equals 

B33T38M 

0190 

5PECMAG  M 

EQUALS 

B34T48M 

0192 

ADRE  CUSS 

ASSIGN 

4,0 
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INT  AD  PAT  +1 
BKSUM  LOC 


MUST  FOLLOW 


COMMON. 
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Pol  S3 
R0195 
*0137 
*0139 
*0191 

0193 

0195 

0196 

0197 

0198 
0200 
0202 

R 02  DA 

0205 
02  OT 
0208 
02082 
0209 

0211 
02  l 5 
02 1 7 
0219 

0221 
0223 
0225 
0227 
0229 
0231 
0233 
0235 
0237 
0239 
02  A 1 
02«,3 
02<,5 
02  A7 
02  A9 

0251 

0252 
02  5A 

0256 
0258 
0260 
0252 
02  6A 
0256 

0257 
0269 


SUBROUTINE  IN  PASS  2 FOR  AGO  TO  FoRM  A WORD  FRoM  AN  OPERATION  CODE  AND  AN  ADDReSS  (BASIC  INSTRUC- 
TIONS AND  AODReSS  CONSTANTS),  OR  FROM  TWO  POLISH  OPERATOR  CoDeS  (POLISH  OPERATOR  WORDS),  tHe  OPERATION  CODf(S) 

and  some  associated  information  bits  are  taken  from  the  health  word  of  the  current  popo  item.  thf  address  is 
obtained  from  the  card  via  a general  subroutine  in  pass  2 called  proc  adr.  implied  addresses,  bank  errors,  and 
inappropriate  addresses  are  checked  for,  and  address  value  cussing  is  done. 


AGC  INST 

TX 

AGC  MXr 

- 

Z.MXR  S 

USE  MASKBASE 

FOR  THIS  MACHINE. 

NA,BIT32M 

HEALTH 

ONES 

C.  + 3 

swe.onesmm 

L POL  OP 

32 

Z,SC 

GO  POL  ADR 

SWE*ONeSMM 

L POL  OP 

16 

Z,SC 

SWe,  B3AT36M 

health 

12 

WORD 

insert  BASIC 

OP  CODE  INTO  WORD. 

SWS,  BlTlM 

health 

10, L 

CUSS  LIST  *30 

maybe  cuss  illegal  OP  CODF  ASTERISK. 

NA,  BIT  3 1 M 

health 

ONES 

NO  IMPLaD 

BRANCH  IF  NO 

IMPLIED  ADDRfSS. 

DETERMINE  ADDRESSES  implied  by  special  op  codes. 


implad 

TS 

PLF  MAX 

max  adres 

MAX  AD  SET 

L. 

Keep  ASSEMBLER’S  eBANK  Reg.  UP  Tn  DATE. 

NA 

ADDRESS  1 

BLANKS 

QC  IMPLAD  -1 

NA 

ADDRESS  2 

BLANKS 

QC  IMPLAD  -1 

SWS,  BIT17M 

SWITCH 

10 

CUSS  LIST  +2 

maybe  cuss  indexing  OF  IMPLADS. 

NA,  BIT27M 

health 

zero 

QC  IMPLAD 

branch  if  implad  IS  NOT  IN  HEALTH  WORD, 

SWE » AC08 

health 

18 

ADDRESS 

supply  implied  address. 

NA 

WORD 

BIT  36 

SlGND  ADR 

branch  IF  not  code  1 (HERf,  NOOP). 

LA 

OCT  AOOO 

location 

NOOP (F) 

form  of  noop  depends  on  which  memory. 

I*  OOP  (E) 

TS 

op  code  3 

word 

SlGND  ADR 

IN  E MEMORY,  NooP  = CA  A. 

TS,  BIT  1M 

ONES 

cuss  list 

+ 21 

IMPLAD  +3 

MILDLY  CUSS  NONBLaNK  ADR  FLD » PRoCefD. 

DC  IMPLAD 

SWS,  B37T38M 

health 

9 

WORD 

PLACE  QUARTeR-CODe  BITS  IN  INStR.  WORD. 

SSL,  THREE  M 

WORD 

12 

c , + 1 

THREE-WAY  BRANCH  on  BITS  1 A , 1 3 OF  WORD. 

FDRUPT 

TS,  B I T39M 

ONES 

word 

OVSK 

ed  smallY’s  rupt  is  peripheral  code  7. 

SSL*  THREE  M 

WORD 

10 

resume 

THREE-WAY  branch  on  quarters  of  CODf  5. 

SSL*  ONEM 

WORD 

10 

C,  + l 

two-way  branch  on  QUARTERS  of  CODE  2. 

r.DOUBL 

TS 

ONE 

ADDRESS 

SlGND  ADR 

DAS  A = DOOJBL  (D.P.  DoUBIE). 

ZL  OR  ZQ 

TS 

seven 

ADDRfSS 

SlGND  ADR 

lxch  7 = zl  (Zero  l),  qxch  7 = zo. 

RESUME 

TS 

D12 

address 

SlGND  ADR 

RESUME  = INDEX  17. 

SSL,  ONE  M 

HEALTH 

18 

TCAA  DTCF 

PICK  1 OF  2 IMPLIED  ADDRESSES  FOR  DXCH. 

SSL,  ONE  M 

health 

18 

C,  + l 

PICK  l OF  2 IMPLIED  ADDRESSES  FOR  TS. 

nVSK 

TS 

zero 

ADDReSS 

SlGND  ADR 

OVSK  = TS  A.  OTHER  ZeRO  CaSeS  COMe  HFRE 

TCAA  DTCF 

TS 

five 

ADDRESS 

SlGND  ADR 

TCAA  ? TS  Z.  DTCF  = DXCH  FBANK. 

ltcb 

TS 

Six 

address 

SlGND  ADR 

DTCB  = DXCH  Z. 

I OOP ( F ) 

WA 

location 

ONE 

ADDRESS 

in  f memory,  noop  = tcf  +i. 

SlGND  ADR 

as 

ZERO 

. address 

ADR  WD 

SWE*  BITI7M 

health 

8 , L 

M COMMON 

ISOLATE  EXTRACoDE  bIT  of  implad  CODf. 

TS 

ADR  WD 

ADR  WD  ♦ 1 

set  min  ad 

r 

plant  extracode  flag  For  simulator. 

SWS,  B29T30M 

health 

2 

health 

c 

BIT  29  PLACES  OP-ADDRESS  PRINT  SPLIT. 

NA,  B I t 1 7M 

M COMMON 

SWITCH 

extend  +1 

BRANCH  IF  EXTENDED  BASIC  OR  UN£X.  EXTRA 

NA,  BIT26M 

health 

zero 

C , + 2 

BRANCH  IF  TRIG  IS  tHe  "EXTEND"  CoDe. 

TS,  B I t 1 7M 

zero 

switch 

BASIC  ADR 

clear  extension  SWITCH. 

FXTEND 

TS,  B I T 17M 

ones 

switch 

ADD  ADR  wD 

set  extension  switch. 

NA 

M COMMON 

bit  1 7 

C , + 2 

TS,  BlTlM 

ONES 

cuss  list 

♦12 

EXTEND  -1 

error  was  UNEXTENDED  EXTRACoDE. 

TS,  B I t 1 7M 

ONES 

cuss  list 

♦ 12 

EXTEND  -2 

error  was  an  extended  BASIC  CODE. 

L 
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P02 7 1 PROCESS  EXPLICIT  ADDRESSES  FOR  INSTRUCTIONS  OR  CONSTANTS. 


02  72 

NO  implad 

TN 

ADDRESS  1 

z 

SA V ADReF 

0274 

NA,  B25T27M 

health 

ONES 

non  const 

0276 

ADR  CONST 

SSL,  THREEM 

health 

24 

c,+i 

02772 

TS,  CHAR1M 

dec  6 flag 

word 

ADR  CoN  E +1 

0278 

LA,B28T30M 

adr  Con  3 

health 

go  pol  adr 

02792 

TS 

ONES 

location 

NWD  BSUMS 

02794 

TS,  BIJIM 

zero 

CUSS  LIST 

♦30 

MM  VN 

0250 

TWO  BSUMS 

SWS,  BIT17M 

health 

9 

CUSS  LIST  +14 

0254 

SSL,  AC08 

Health 

17 

ADR  CoN  E 

0256 

ADR  CON  E 

TS 

PL  EMAX 

MAX  ADRES 

MAX  AD  SET  -1 

0290 

LA,  B28T30M 

ADR  CON  4 

health 

C , ♦ 2 

0292 

ADR  con  f 

TS 

PL  FMAX 

Max  adres 

max  ad  set  -i 

0294 

LA,  B28T30M 

health 

ADR  CON  4 

ADR  CoN  E 

0296 

LA,  B29T30M 

health 

BIT  30 

BBC0NQ1  +1 

0298 

rP  ADR  CON 

WA 

L FINI  2P 

ONE 

MOD  ReTRN 

0300 

TX 

W BAD  WORD 

- 

2ND  HALF 

0301 

TN 

blots 

2 

2ND  ALF 

0303 

pbconoi 

LA,  B29T30M 

health 

BIT  29 

ADR  CON  f 

0307 

TS 

z,sc 

Z,X6 

LOC  BNK  CK 

0309 

TS,  BIT17M 

zero 

CUSS  LIST 

♦23 

SET  EBCoN  -1 

0313 

non  const 

5WS , B37T38M 

health 

12 

WORD 

0315 

LA,  B29T30M 

ones 

HEALTH 

C , + 2 

0317 

SWS,  B 1 T28M 

health 

1 

SWITCH 

0319 

SWE,  BIT17M 

health 

11, L 

M COMMON 

0321 

NA,  B I t 1 7M 

M COMMON 

SWITCH 

C , + 2 

0323 

unextend 

TS,  BIT17M 

zero 

SWITCH 

set  min  ad 

0325 

NA 

M COMMON 

BIT  17 

c , +2 

0327 

unextd  xc 

TS,  BlTlM 

ONES 

CUSS  LIST 

♦ 1 2 

SET  MIN  AD 

0329 

NA,  BIT27M 

health 

ONES 

BAD  XTEND 

0331 

TX,  B29T30M 

zero 

. 

health 

0333 

TS 

bit  17 

M COMMON 

SET  MIN  AD 

0334 

bad  xtend 

TS,  B I t 1 7M 

ONES 

CUSS  LIST 

♦12 

UNEXTENp 

0336 

SET  MIN  AD 

SWS,  BIT27M 

M COMMON 

10 

WORD 

0337 

SWS,  BIT28M 

M COMMON 

11 

WORD 

0339 

TX 

OCT  7777 

MIN  ADRES 

0341 

SSL,  THREEM 

health 

18 

C,  + l 

0343 

TS 

PL  FMAX 

MAX  ADRES 

CHECK  OP  4 

0345 

refer  to  f 

TS 

PL  FMAX 

MAX  ADRES 

DP  SSL 

0347 

TS 

PL  11777 

MAX  ADRES 

DP  SSL 

0349 

SWS,  BIT39M 

health 

12 

WORD 

0351 

TX 

OCT  777 

- . 

MIN  ADRES 

0353 

TS 

PL  PMAX 

MAX  ADRES 

DP  SSL 

0354 

rHECK  OP  4 

NA,  B34T36M 

WORD 

OP  CODE  4 

DP  SSL 

0356 

TS 

zero 

MIN  ADRES 

DP  SSL 
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SAVE  ADDRESS  FIELD  IN  CASf  of  POI  ADReS. 

branch  if  instruction,  not  adr  Constant, 
branch  on  level  of  address  constant, 
level  os  Sasic  address  constants, 
branch  for  polish  aodk  or  store  codes, 
rest  of  level  is  ebank=,  sbank=,  bnksum, 
level  3 S SPECIAL  DECIMAL  CONSTANTS. 

maybe  cuss  nonblank  loc  field, 
select  eban<=,  sbank=,  or  bnksum. 
e-addresses  only  for  ecadr,  eBan<=. 

BR  IF  ECAOR,  BBCON , 2FCADR,  OR  2(B)CADR. 
ADRES, REM ADR, GeNADR,FCaDR.SBANK=. BNKSUM. 
BRANCH  IF  Code  is  eLaDR, 

BRANCH  IF  BBCON  (SINGLE  PRECISION). 

make  Return  go  to  d.p.  constant  proc. 
prepare  for  the  worst. 

BRANCH  IF  2FCADR  OR  BNKSUM  (NO  EB  PROB) . 

MAY  ERASE  E3ANK  OR  SBANK  CONFLICT  CUSS. 

PLACE  QUARTeR-CODe  BITS  IN  INStR.  WORD. 
branch  IF  PERIPHERAL  Code. 

SET  SWITCH  IF  THIS  IS  AN  INDEX  ORDER. 
ISOLATE  EXTRACODE  BIT  OF  fXPLAd  CODF. 
BRANCH  IF  EXT.  BASIC  OR  UNEX.  EXTRACODE. 

clear  extension  SWITCH. 

BRANCH  IF  EXTENDED  BASIC  CODE  ERROR. 

CUSS  AT  UNEXTENDED  EXTRACODE. 

BRANCH  IF  NOT  AN  INDEX  ORDER. 

EXTENDED  INDEX  EXTENDS,  CAN  REFER  2 ANY. 

CUSS  ANY  EXTENDED  BASIC  CODE  BUT  INDfX. 


plant  extracode  flag  for  simulator, 
in  general,  allow  values  down  to  -7777. 

4-WAY  BRANCH  ON  MEMORY  TYPE  ALLOWANCE. 

NO  restriction. 

ditto  NOW,  FIXED  ONLY  LATfR. 

E MEMORY  DR  INDEXED  ( OuARTER-CODf ) . 

peripheral  code,  supply  LAST  P-CODE  bit. 
here  ALLOW  values  DOWN  TO  -777. 

BRANCH  IF  NEGATIVE  ADDRESS  IS  PERMITTED. 
NEGATIVE  ADDRESS  HE*E  WOUI  D BE  OVERFLOW. 


L 

P0358 

@YUL  SYSTEM 

if  op  code 

assembler  agc  PASS  2 

IS  DOUBLE  PRECISION,  ADD 

1 TO  ADDRESS  VaLUE. 

0359 

NA,  833T38M 

WORD 

DXCH  CODE 

MAX  AD  SET 

0351 

DP  CHECK 

NA,  B33T38M 

WORD 

DAS  CODE 

C,-l 

0352 

TS,  8IT6M 

ONES 

SWITCH 

MAX  AD  SET 

03  5A 

vCODE  DP  Q 

NA,  B34T36M 

WORD 

OP  CODE  3 

C , + 2 

0356 

TS,  BIT6M 

ONES 

SWITCH 

MAX  AD  Set 

0358 

NA,  B3AT36M 

WORD 

OP  CODE  A 

MAX  AD  SET 

0370 

IP  SSL 

SSL,  TWO  M 

HEALTH 

19 

DP  CHECK 

0372 

TS,  BIT6M 

ONES 

SWITCH 

MAX  AD  SET 

R037A 

TRANSLATION  OF  ADDRESS 

field,  with  FirSt-ORDeR  size 

checking. 

037A8 

LA 

ones 

LOCATION 

C , + 2 

0375 

MAX  AD  SET 

TS 

z,sc 

Z,X6 

EBK  LoC  q 

0377 

TX 

GENL  MXR 

- 

Z ,MXR 

0378 

TS 

z,sc 

Z,X6 

PROC  ADR 

0380 

TN 

SAV  ADREF 

2 

address  1 

0382 

TS 

ZeRD 

min  aDRES 

AGC  INST 

03SA 

SWs,  BIT17M 

HEALTH 

8 

CUSS  LIST 

0386 

WD 

L POL  OP 

ONE 

Z.CSC 

0388 

LA 

ONES 

ADDRfSS 

RNG  error  +2 

0390 

SWE*  ONEM 

SWITCH 

A2 

M COMMON 

0391 

BS 

ADR  WD 

M COMMON 

ADR  WD  +1 

0393 

LN 

ADR  WD 

max  adres 

const  q 

0395 

LN 

PL  FMAX  Pi 

ADR  WD 

C,  + 2 

0397 

PNG  ERROR 

TS,  B I T33M 

ONES 

CUSS  LIST  +11 

PRB  ADReS 

0399 

SM 

CUSS  LIST  +3 

BIT  17 

CUSS  LIST  +3 

0<Ol 

LA,  CHAR1M 

health 

HI  EQUALS 

bad  basic 

0<O3 

SSL,  THREEM 

health 

18 

NW  BADDR 

OAo5 

CONST  Q 

NA,  B25T27M 

health 

ONES 

INSTRoF 

0A07 

NA , B I T2 AM 

health 

ZERO 

ADR  CoN  1 

R0AO9 

SELECT  PROCEDURE  FOR  TYPE  0 ADDRESS 

CONSTANTS. 

0A098 

A DR  CON  2 

SWS,  B34T37M 

health 

16 

WORD 

0 A 1 0 

SSL,  AC08 

health 

18 

c , + 1 

0A12 

ADRES 

TS 

AG  PROC  2P 

Z,SC 

BASIC  ADR 

0 A 1 A 

TS 

m 

remadr 

OA16 

TS 

- 

„ 

(F)CADR 

OA18 

TS 

- 

m 

genadr 

0A2O 

FCADR 

TS 

- 

m- 

ADD  ADR  WD 

0A22 

TS 

- 

m 

BBCON 

0A2A 

TS 

ADDRESS 

2ND  HALF 

2FCADR 

0A26 

TS 

ADDRESS 

2ND  HALF 

2(B) CaDR 
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BRANCH  IF  BASIC  CODE  AND  NOT  D.P. 

PLANT  BIT,  RETURN  TO  SeQUfNCE  MODE. 

IF  NOT  DCA,  CHECK  FOR  DCS. 

PLANT  BIT,  RETURN  TO  SeQUfNCE  MODE. 
BRANCH  IF  EXTRACODE  AND  NnT  D.P, 

ADD  00001  TO  DOUBLE  PRECISION  ADDReSSfS. 

some  equalities  fall  thru  into  here. 


EXCEPT  FOR  eBANk=.  SBANK=.  BNKSUM; 
keep  assembler's  ebank  reg.  up  to  datf. 

TRANSLATE  AODReSS  FIELD. 

RESTORE  ORIS.  address  FIELD  FOR  PRINT. 
RESTORE  min  ADR  VaLUE  AND  MXR. 

CUSS  LACK  OF  "D"  IN  DECIMAL  SUbFieLD. 

go  see  ip  current  word  is  polish 

BR.  if  MEANINGLESS  OR  ATROCIOUS  ADDRfSS, 


INCREMENT  AODReSS  oF  D.P.  CqDE. 

BRANCH  IF  AODReSS  SIZE  OK  FoR  THIS  nP. 
BRANCH  IF  ADDRESS  T00  BIG  TO  PRINT. 

IF  NOT  ATROCIOUS,  TELL  HIM  WHAj  IT  IS. 
CUSS  RANGE  ERROR  IN  ADDRESS  VALUF. 

branch  if  instruction  or  address  const. 

CUSS  Rang  ERR  IN  eBANKs,  SBaNKz , BNKSUM. 

go  process  instruction  if  no  Const  flag. 

BRANCH  IF  NOT  TYpE  0 ADDRfSS  CONSTANT. 


MAY  PUT  PREFIX  ON  eCADR  FoR  DOWNl 1ST. 
SELECT  PROCEDURE  for  1 OF  8 ADR  CONSTS. 
ADRES  IS  JUST  like  TC  (EXCEPT  FOR  FI  AG). 
like  adres,  but  must  be  different  bank, 
complete  address  for  fixed  memory, 
like  adres,  but  No  BANK-ERROR  CHfCKS. 
complete  address  for  erasable  memory, 
both-bank  constant,  5 bits  and  3 bits, 
fcadr  (For  fbi  followed  by  geNaDr. 
genadr  followed  by  bbcqn  (Fqr  bb>. 


I 


eYUL  SYSTEM  ASSEMBLER  A3C  PASS  2 


P0A28 

SPECIFIC  PROCESSING  FOR 

6 OF  THE  8 

type  0 ADDRESS  c 

0 A 29 

remadr 

LA 

address 

OCt  3777 

0431 

LA 

ADDRESS 

OCT  7777 

0433 

LA 

location 

OCT  7777 

0435 

NA,  BanKMaSK 

location 

ADDReSS 

0437 

TS 

- 

m 

0438 

i rem  chek 

LA 

ADDRESS 

OCT  1377 

0440 

LA,  EBaNKmSK 

EBANK  REG 

BANK  E2 

0442 

NA,  EBaNKMSK 

ADDRESS 

EBANK  REG 

OAAA 

TS 

» 

- 

0445 

(F) CADR 

LA 

ADDRESS 

OCT  7777 

0447 

WD 

ADR  WD 

OCT  10000 

04  49 

LA,  CAC3M 

ADR  WD 

OCT  57777 

0A51 

LA,  B33T35M 

SBANK  REG 

zero 

0A512 

NA,  B33T35M 

ADR  WD 

sbank  reg 

0A52 

TS,  B33T35M 

SPEC  MAG 

ADR  WD 

0A53 

genadr 

LA 

ADDRESS 

OCT  3777 

0A55 

LA 

address 

OCT  7777 

0A57 

TS,  BANKMASK 

oct  2000 

ADR  WD 

0A59 

LA 

ADDRESS 

OCT  1377 

04  61 

TS,  EBANKMSK 

OCT  1400 

ADR  WD 

04&22 

LA,  CHAR8M 

EBANK  REG 

seven 

0 A E>  2 3 

SET  EBCON 

SWS,  Ac08 

EBAN<  REG 

8 

04624 

SM 

CUSS  LIST 

+ 30 

BIT  33 

04625 

NA,  B25T27M 

SBANK  REG 

BIT  25 

OA  j,26 

SET  SBCON 

SWS,  B28T30M 

SBANK  REG 

5 ,L 

04627 

SSL,  ONEM 

CUSS  LIST 

+ 30 

47 

0463 

TS,  BlTlM 

ONES 

CUSS  LIST 

+ 21 

04  55 

BBC  STAR  Q 

TS 

PL  FMAX 

MAX  ADRES 

0 A 

LA,  B29T30M 

BIT  29 

health 

0A68 

NA 

ADDRESS  1 

BLAINK5 

0A69 

NA 

ADDRESS  2 

BLANKS 

0A7O 

fDS  BNKNO 

TS,  BlTlM 

zero 

CUSS  LIST 

+ 30 

OA72 

TX 

USED  FMAX 

- 

0A7A 

LA 

ONES 

ADDRESS 

OA76 

BBCON 

LA 

address 

OCT  3777 

0 A 78 

la 

Address 

OCT  7777 

0450 

WD 

ADDRESS 

OCT  10000 

OAg  1 

BB  SUPER  0 

LA 

ADDRESS 

OCT  57777 

0A93 

NA,  B25T27M 

SBANK  REG 

zero 

OA332 

SWE.  B28T30M 

ADDRESS 

5,L 

0A83A 

NA,  B28T30M 

2ND  ALF 

SBANK  REG 

OASA 

SWS,  B4IT44M 

ADDRESS 

9 

0 A 56 

TS,  B33T35M 

SPEC  mag 

ADDRESS 

0A872 

SWS,  BaITaaM 

SBANK  REG 

14 

0A88 

BBC  ADRES 

TX,  BanKMaSK 

ADDRESS 

- 

0A90 

TS,  AC08 

EBANK  REG 

WORD 

0A92 

BANK  NO 

LA 

OCT  70 

ADDRfSS 

0494 

swe,  onesmm 

ADDRESS 

10, L 

OA96 

TS 

- 

- 
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DNSTANTS. 

E REM  CheK 


ADD  ADR  WD 
F SUBaDR 
F SUBaDR 

cus  f bank 

ADD  ADR  WD 


E SUBaDR 
E SUBADR  -1 

cus  e bank 


branch  IF  ADDRESS  is  IN  ERASABLE. 

EXIT  IF  ADDRESS  IS  IN  FIXfD-FIX£U. 

branch  happily  if  loc.  not  in  an  fbank. 
ok  if  Loc.  and  adr.  in  different  banks. 

EXIT  IF  ADDRESS  IS  NOT  IN  AN  EBANK. 

OK  IF  WE  HAVE  A PSEUDO  EBaNK, 

OK  IF  LOC  AND  ADR  IN  DIFFfReNT  EBANKS. 


RNG  ERROR 
ADR  WD 
ADD  ADR  WD 

C.  + 2 

sbank  cus 

ADD  ADR  WD 


ADDRESS  IN  ERASABLE  OR  FlxFlX  ILLEGAL. 
PUT  CADR  IN  THE  RANGE  00000-77777. 

BRANCH  IF  ADDRESS  ISN'T  IN  A SUPfR-BanK, 
BRANCH  IF  THERE  Is  NO  SUPfRBANK  setting. 
BRANCH  TO  CJSS  SUpeRbANK  frror. 


C,  + 3 

ADD  ADR  WD 
ADD  ADR  WD 
ADD  ADR  WD 
ADD  ADR  WD 


BRANCH  IF  ADDReSS  IS  In  ERASABLE  MEMORY. 
ALL  DONE  IF  IN  FIXED-FIXED. 

PUT  SUBADORESS  IN  THE  RANGE  2000-3777. 
ALL  DONE  IF  ADDRESS  IN  UNSWITCHED  ERAS. 
PUT  SUBADDRESS  IN  THE  RANGE  1400-1777. 


set  sbCon  -i 
EBANK  Reg  s 

CUSS  LIST  +30 

C,+2 

SBANK  Reg  s 

BBC  star  Q 
EDS  BNKNO 
MAX  AD  SET  +1 

C,-l 

BBC  STAR  Q -1 
BBC  STAR  Q -I 
HOW  HIGH  F C 

ADDRESS 
RNG  ERROR 


BYPASS  UPDATE  IF  i-SHOT  DfCLARaTION. 
POSITION  CURRENT  SETTING  FOR  bbcon  fMT. 
CUSS  BBCON  WORD  WITHOUT  I-SHOT  EBANK  = . 
BYPASS  UPDATE  IF  l-SHOT  DFCLARATION. 

COPY  PERMANENT  INTO  TEMPORARY  SUPERBITS. 
SELECT  ON  * IN  OP  CODE  (BBCON  OR  2CADR ) . 
MILDLY  CUSS  NONBLANK  ADR  FLD.  PRnCEFD. 

BRANCH  IF  2CADR*.  NOT  BBCnN*. 


IGNORE  ADDReSS  FIeLD  OF  BBCON*  AND 
SUPPLY  THE  BANK  NUMBER  OF  THE  HIGHEST 
BANK  OCCUPIED  IN  THIS  ASSfMBLY. 


BANK  NO 
BBC  ADReS  -1 
ADDRESS 
BBC  ADReS  -I 
C.  + 3 
2ND  ALF 
1 SH  CONFL 
WORD 

BBC  ADRES 

WORD 

WORD 

GUD  BASIC 
RNG  ERROR 
ADDRESS 
BB  SUPER  0 


IF  NOT  IN  FIXED.  SHOULD  BF  BANK  NUMBER. 
NO  REDUCTION  NEEDED  if  in  FIXE0-fIXFD. 

BRANCH  IF  ADDRESS  isn't  in  A SuPfR-BANK, 
BRANCH  IF  NO  1-SHot  SBaNK=. 

SHIFT  ADDRESS  SUPeRBITS  Tn  MATCH  TEMPS. 
MAY  CUSS  ADDRESS  CONFL  W/  1-SHoT  DeCL . 
PLANT  SUPER-BANK  BITS  IN  fiBCON  WORD. 
REDUCE  BANK  NUMBER  TO  3X. 

SUPPLY  DECLARED  SBANK  OR  0 IF  NONE. 

set  fb  part  of  bbcon  from  address. 

INSERT  I-SHoT  or  ESTABLISHED  EBANK  No. 
ADDRESS  IN  ERASABLE  illegal  here. 

Set  FB  PART  OF  BBCON  FROM  BANK  NUMBER. 


L 

@YUL  SYSTEM 

ASSEMBLER  AGC  PASS  2 

P0A?7 

subroutine 

TO  COMPUTE  an  address  IN 

THE  HIGHEST 

OCCUPIED  FIXED 

OA98 

t OW  HIGH  F 

NA 

USED  fmax 

ONES 

N , SC , 1 

0500 

SWE.  CAC3M 

PL  FMAXPl 

5 

M COMMON 

0501 

WA 

M COMMON 

OCT  17777 

Z,AUl 

0503 

FIND  USED 

LA 

CAC  12 

N.AUl.l 

C.+O 

05  OA 

la 

Z.AJ1 

OCT  17777 

N , SC  . 1 

0506 

WD 

Z , A J1 

OCT  17777 

M COMMON 

0507 

SWE,  ONESMM 

M COMMON 

5.L 

m common 

0509 

TX 

L TYP  TAB 

- 

Z ,X6 

0510 

LA,  CAC3M 

M COMMON 

6,0 

C , + 2 

0512 

TS 

Z , X6 , 1 

• 

C.-l 

0513 

NA,  B25T27M 

6,0 

TYPE  F 

FIND  USED 

0515 

TX 

M COMMON 

- 

USED  FMAX 

R 05 1 6 

type  0 address  constants  concluded: 

DOUBLE  PRECISION  TYPES. 

0517 

2FCADR 

LA 

OCT  AOOO 

ADDRFSS 

C,  + 2 

0518 

TS 

W BAD  WORD 

2ND  HALF 

RNG  ERROR 

0520 

LA 

ADDRESS 

OCT  7777 

PRINT  2PA 

0522 

WD 

ADR  WD 

OCT  10000 

ADR  WD 

05  2 A 

LA,  CAC3M 

ADR  WD 

OCT  57777 

2(B) CaDR  - 

0526 

LA,  B33T 35M 

SBANK  REG 

zero 

C.  + 2 

05262 

NA,  833T35M 

ADR  */D 

sbank  reg 

sbank  cus 

0527 

TX,  B33T35M 

SPEC  mag 

ADR  WD 

0529 

TS,  BANKMA5K 

OCT  2000 

2ND  HALF 

PRINT  2PA 

0531 

? (B) CADR 

ss 

zero 

OCt  1777 

2nd  half 

05322 

SWS,  BaITaaM 

sbank  reg 

1A 

2ND  HALF 

0533 

LA 

address 

OCT  3777 

2BCADR  E 

0535 

LA 

ADDRESS 

OCT  7777 

2BCADR  E ♦ 

0537 

WD 

2ND  HALF 

OCT  10000 

2ND  HALF 

0539 

LA 

2ND  HALF 

OCT  57777 

2BCADR  E - 

05  Al 

NA.  B25T27M 

SBANK  REG 

zero 

C.  + 3 

05  Al2 

SWE.  B28T30M 

2ND  HALF 

5 ,L 

2ND  ALF 

05a1A 

NA,  B28T30M 

2ND  ALF 

SBANK  REG 

1 SH  CoNFL 

05a2 

SWS,  BaITaaM 

2ND  HALF 

9 

2ND  HALF 

05  AA 

TX,  B33T35M 

SPEC  MAG 

• 

2ND  HALF 

05  A6 

TS,  BANKMASK 

OCT  2000 

ADR  WD 

2BCADR  E + 

05  A8 

2BCADR  E 

LA 

OCT  1A00 

ADDRESS 

C , + 2 

0550 

TS,  AC08 

EBANK  REG 

2ND  HALF 

PRINT  2PA 

0552 

SWS,  B38ACO8 

ADDRESS 

8 

2nd  half 

05  5A 

LA,  CHAR8M 

EIGHT 

EBANK  reg 

C , + 2 

0556 

NA,  AC08 

2ND  HALF 

ebank  reg 

1 SH  CoNFL 

0558 

TS,  ebankmsk 

OCT  1 WOO 

ADR  WD 

PRINT  2P A 

0552 

PRINT  2PA 

NA.  CHaRIM 

card  +2 

bit  1 

C.  + 2 

05  5A 

HA 

2ND  HALF 

SPEC  MAG 

2ND  HALF 

0555 

TS,  BlTlM 

zero 

AG  BINALF 

PRINT  2P 

0557 

TS,  BlTlM 

ONES 

AG  BINALF 

ADD  ADR  WD 
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EXIT  IF  PROBLEM  Has  BEEN  SOLVED. 

POINT  TO  AVAIL  TABLE  WD  FnR  HIgHfSt  FIX. 

BRANCH  IF  NO  FIXED  IS  OCCUPIED. 

FORM  ADDRESS  OF  2000  OF  LAST  USED  BANK. 
FIND  MEMORY  TYPE  OF  PUTATIVE  Bank. 

BRANCH  TO  TRY  AGAIN  IF  NOT  FIXeD. 


ERROR  EXIT  IF  ReFERS  TO  erasable. 

ALL  DONE  IF  IN  FIXED-FlXtD. 

put  cadr  in  the  range  00000-77777. 

BRANCH  IF  ADDRESS  ISN'T  IN  A SUPfR-BANK, 
BRANCH  IF  THERE  IS  NO  SUPfRBANK  SETTING. 

branch  to  Cuss  superbank  frroR. 

REDUCE  bank  AX,  5X , OR  6X  TO  3X. 

PUT  GENADR  IN  the  RANGE  2000-3777,  FXIT. 

ISOLATE  Bank  NUMBER  IN  BBCON  WoRo. 

SUPPLY  DECLARED  sbank  OR  0 IF  NONE. 

branch  if  refers  to  erasable, 
branch  if  refers  to  fixed-fixed, 
reduce  bank  NUMBER  IN  BBCoN  word. 

BRANCH  IF  ADDRESS  isn't  in  A SUPfR-BanK. 
BRANCH  IF  No  1-SHoT  SBaNK=. 

SHIFT  ADDRESS  SuPfRBITS  to  MATCH  TEMPS. 
MAY  CUSS  ADDRESS  CoNFL  W/  1-SHoT  DeCL. 
PLANT  SUPER-BANK  BITS  IN  BBCON  WORD. 
REDUCE  BANK  AX,  5X , OR  6X  TO  3X. 

PUT  GENADR  IN  THE  RANGE  2000-3777. 
branch  if  refers  to  an  ebank. 

EXIT  FOR  ALL  CASES  BUT  eBaNK  ReFfReNCf. 

here  use  ebank  according  to  addrfss. 

BRANCH  IF  THERE  IS  NO  1-SHOT  DECLARATN. 
OTHERWISE  CHECK  For  conflict. 

PUT  GENADR  IN  THE  RANGE  IaOO-1777,  EXIT. 

BRANCH  IF  NO  MINUS  IN  COLUMN  17* 

TWEAK  AND  USE  PART  OF  2DEC,  20CT. 

RESTORE  IT  AND  EXIT. 


L @YUL  system  assembler  agc  pass  2 

Pq5  69  l EVEL  3 ADDRESS  CONSTANTS:  SPECIAL  DECIMAL  CONSTANTS. 


05692 

MASKGRP 

S » 0 

F .0 

05  694 

MM  VN 

TS 

GENL  mxr 

Z,MXR 

DECIMAL  *1 

05698 

TX 

BANK  5 

- 

Z.X4 

05?02 

TS 

z,sc 

A, 5 

QU  COL  SSL  *1 

05706 

SSL. 

TWO 

health 

17 

C.  + l 

05708 

MA JR  MODE 

TN 

MM  PARAMS 

3 

MAX  DECML 

0571 

TS 

L FINI  IP 

Z.X4 

dec  const 

05  7 1 A 

VERB  NOUN 

TN 

VN  PARAMS 

3 

MAX  DECML 

05716 

TS 

Z.SC 

Z.X4 

dec  const 

0572 

NA 

NUM3ER 

W BAD  WORD 

C.  + 2 

05722 

TS 

L PROC  WD 

Z.SC 

AGC  IP  +1 

05726 

3M 

number 

HUNDRETH 

M COMMON 

0573 

3T 

M COMMON 

10 

M COMMON  +1 

05732 

3T 

M COMMON  +1 

10 

M COMMON  +1 

05734 

3S 

number 

M COMMON  +1 

M COMMON  +1 

05738 

SPE. 

ONES 

M COMMON 

7 . L 

number 

0574 

SWS, 

B42T48 

M COMMON  +1 

0 

NUMBER 

05744 

TS 

L PROC  WD 

Z,SC 

GOOD  lP 

05748 

MASKGRP 

S.l 

F.l 
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set  general  mxr  and  delimiting  asterisk, 
cuss  queer  info  In  columns  a La  decimal, 

MM  = DEC  WITH  LIMIT  OF  99. 

FIRST  DO  DEC  WITH  LIMIT  OF  9999. 

if  bad  word  treat  vim  like  dec. 

ISOLATE  V ERB  IN  M COMMON, 


ISOLATE  NOUN  IN  M COMMON  +1. 

STORE  VeR3  AND  NOUN  AS  7-RlT  GROUPS 
FINISH  UP  A LA  DEC. 


I 


@VUL  SYSTEM  ASSEMBLER  AGC  PASS  2 


USER'S  OWN  PAGE  NO.  13 


PAGE  179 


p0576 

‘ELECT  PROCEDURE  FOR  LEVEL  1 ADDRESS 

CONSTANTS. 

Procedures  for  sbank= 

AND  eBANK=, 

0577 

ADR  CON  1 

LA.  B28T30M 

health 

zero 

EBANK2 

BRANCH  TO  PROCESS  eBANK=  CODE* 

0579 

LA,  B28T30M 

health 

bit  30 

SBANK2 

BRANCH  TO  PROCESS  SBANKs  CODE. 

05  S 1 

SWE«  CAC3M 

L BN<SUM 

16 

z,sc 

GO  TO  OTHER  BANK  TO  PROCESS  BNKSUM  CODE* 

R05B3 

action  of 

"Sbank=»  code 

UPON  ASSEMBLER'S  S BANK 

REG 

f 

05g5 

a BANK2 

LA 

ADDRESS 

OCT  67777 

RNG  ERROR 

ADDRESS  must  Be  in  a super-bank. 

05362 

W D 

address 

OCT  10000 

address 

0537 

SWS,  CHAR5M 

ADDRESS 

5 ,L 

SBANK  ReG 

SET  UP  temp.  SUPERBITS,  CaLL  It  1-shot. 

0589 

SWS,  CHAR6M 

SBAN<  REG 

A , 1 

LINE  +6 

0591 

SWS,  CHAR5M 

W LAST  ASS 

A, 2 

LINE  +6 

S 

print  declared  superbank  no.  as  ''sn». 

05922 

SWS,  CxTAM 

LINE  ♦6 

A , 2 * L 

LAST  BANX 

set  supeR-bank  flag  into  buffer. 

0593 

sbNK  2 X I T 

TS 

GENl  MxR 

Z,MXR 

ZEQUALOC 

EXIT,  BYPASSING  WORD  PROCeSSINg, 

0595 

SWS,  CHAR5M 

BIT  30 

0 

SBANK  ReG 

SET  SUPER-BANK  TO  1 (BAD). 

0597 

TS,  CHAM 

blan<s 

LAST  BANX 

SBNK2  X I T 

-2 

c 

SHOW  NEW  SBANK  DECLARATION. 

0599 

TS 

genl  mxr 

Z.MXR 

ZEQUALOC 

Rq664 

ACTION  OF 

'ebank=i  code 

UPON  ASSEMBLER'S  E BANK 

REG 

• 

0665 

1BAN<2 

LA 

EIGHT 

ADDRfSS 

C , + 3 

BRANCH  IF  EBANK  NUMBeR  IMPLIED  By  ADR. 

06662 

SM 

CUSS  LIST  .11 

BIT  17 

CUSS  LIST 

+ 11 

FROWN  ON  JSE  OF  PLAIN  EBAnK  NUMBfR. 

0667 

TS,  CHAR8M 

ADDRESS 

ebank  reg 

C , +2 

USE  EBANK  NJMBeR  directly. 

0669 

SWS,  CHAReM 

ADDRESS 

8 

ebank  Reg 

PLANT  EBANK  NO.  IN  TENTATIVE  POSITION. 

0671 

SWS,  CHAR6M 

EBAN<  REG 

12, L 

LINE  +6 

0673 

SWS,  CHAR5M 

E CHAR  A 

A , 1 

LINE  .6 

s 

PRINT  DECLARED  EBANK  NO.  AS  "EN". 

06732 

SWS,  C7T8M 

LINE  +6 

A, 2 

LAST  BANX 

SET  GOOD  OR  BAD  EBANK  FLAG  IN  BUFFER. 

0674 

r bNK  2 X I T 

TS 

GENL  MXR 

Z.MXR 

ZEQUALOC 

exit,  bypassing  word  procfssing. 

06752 

TS,  CHAR8M 

seven 

ebank  reg 

EBNK2  X I T 

-2 

c 

SHOW  NEW  NON-TRIVIAL  DECLARATION. 

06754 

TS,  C7T8M 

blanks 

LAST  BANX 

EBNK2  X I t 

BUT  SHOW  THAT  THE  DECLARATION  WAS  BAD. 

906755 

CISPOSITIONS  OF  EBANK=. 

SBAN<=»  AND  BNKSUM  IF  ADDRESS  IS  BAD. 

06756 

IW  baddr 

TS 

BLOT  C6 

LINE  +6 

EBNK2  X I T 

+ 1 

06757 

TS 

BLOT  C6 

LINE  +6 

SBNK2  X I T 

♦ 1 

06758 

SM 

health 

BIT  14 

HEALTH 

BAD  LOCATION  VALUe  FLAG. 

06759 

TS 

L BSJM  LOC 

Z,SC 

rstor  mxr 

c 

JOIN  END  OF  BNKSUM  PROCEDURE. 
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P0676 

SPECIFIC  PROCESSING  FOR 

basic  instructions. 

0677 

INSTROP 

sws 

, onem 

SWITCH 

42 

0679 

LN 

zero 

ADR  WD 

06S1 

NA, 

BIT7M 

SWITCH 

ZERO 

0632 

SM 

CUSS  LIST  +23 

BIT  33 

0634 

NA, 

SPECMAGM 

WORD 

ZERO 

0635 

HA 

word 

SPEC  MAG 

0687 

WD 

word 

ADR  WD 

0639 

SWS 

, CHAR8M 

five 

l.L 

0691 

TS 

bank  E2 

ADR  WD 

0693 

F ONLY  CHK 

NA, 

B29T30M 

health 

BIT  30 

0695 

LA 

OCT  4000 

ADDRfSS 

0697 

LA 

OCT  2000 

ADDRESS 

0699 

NA, 

BIT7M 

SWITCH 

ZERO 

0700 

TS, 

B I T33M 

ONES 

cuss  list 

0701 

TS, 

B I T 17M 

ONES 

CUSS  LIST 

07o3 

PASIC  ADR 

LA 

address 

OCT  3777 

0705 

NA, 

BIT7M 

SWITCH 

ZERO 

0706 

NA 

Max  ADRES 

PL  11777 

0708 

TS, 

BIT33M 

ONES 

CUSS  LIST 

0709 

TS, 

B I T 1 7M 

ONES 

CUSS  list 

0711 

TX, 

CHaRIM 

DEC  48  FLG 

- 

0713 

ADRES  ADR 

LA, 

CAC3M 

ADR  WD  +1 

OCT  7777 

0715 

NA, 

B6T7M 

SWITCH 

B2B6 

0717 

NA, 

B39T48M 

ADR  WD 

ONES 

07 1 9 

TS, 

BIT17M 

ONES 

CUSS  LIST 

0720 

LA 

ADDRESS 

OCT  7777 

0722 

LA 

location 

OCT  7777 

0724 

LA 

max  ADRES 

PL  11777 

0726 

NA, 

bankmask 

location 

ADDRESS 

0727 

F SUBADR 

TS, 

bankmask 

OCT  2000 

ADR  WD 

0729 

CHK  EBANK 

LA. 

CAC3M 

ADR  WD  +i 

OCT  1377 

0731 

NA, 

B6T7M 

switch 

B2B6 

0733 

NA, 

B41T48M 

ADR  WD 

ONES 

0735 

TS, 

BIT17M 

ONES 

CUSS  LIST 

0736 

LA 

ADDRESS 

OCT  1377 

0738 

LA, 

EBaNKMSK 

E BANK  ReG 

BANK  E2 

0740 

NA, 

EBaNKMSK 

ADDRESS 

EBANK  REG 

07412 

LA, 

C7T8M 

USERLOG  +15 

BLANKS 

0742 

F SUBADR 

TS, 

EBANKMSK 

OCT  1400 

ADR  WD 

0744 

rUS  E BANK 

TS, 

EBaNKMSK 

OCT  1400 

ADR  WD 

0745 

SWS 

. AC05 

ADDRESS 

10, L 

0746 

TS, 

CHAR4M 

E CHAR  4 

6,2 

0748 

LUS  F BANK 

TS, 

BANKMASK 

OCT  2000 

ADR  WD 

0749 

WD 

ADDRESS 

OCT  10000 

0750 

SWS 

. CHAR4M 

M COMMON 

11, L 

0751 

SWS 

. AC05 

M COMMON 

8 , L 

0753 

aDD  ADR  WD 

WA, 

SPeCMaGM 

WORD 

ADR  WD 
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WORD 

F ONLY  CHK 


C * + 2 

CUSS  LIST  *23 

C»  + 2 

WORD 

WORD 

LINE  + 5 

gud  basic 


SUPPLY  INCREMENTING  BIt  FnR  D.P.  CODFS. 
BRANCH  IF  AODReSS  value  is  POSITIVE. 

cuss  no  index  before  minus  address. 

♦0  MUST  BECOME  -o  FOR  SUBTRACTION. 

ADD  NEGATIVE  address. 

set  up  prime  for  full  cqdf  print. 

CALL  FOR  a prime  in  QUaRTfR-COde  print. 


BASIC  ADR 
BASIC  ADR 
RNG  ERROR 
ADD  ADR  WD 
PRB  ADRES 
ADD  ADR  WD 


BRANCH  UNLESS  MeMoRY  ALLOWANCE  = F ONLY. 
BRANCH  IF  INDEED  REFERS  TO  FIXED. 

ADDRESS  IN  BANKS  E4-E7  IS  NONSeNSE  HfRE. 


IF  NOT  INDEXED,  We'Ve  HAD  IT,  MATE. 


CHK  EBANK 
ADRES  ADR 
ADRES  ADR  -1 
PRB  ADRES 
ADRES  ADR 
WORD 

ADD  ADR  WD 

C , + 3 
C , + 3 

RNG  ERROR 
ADD  ADR  WD 
F SUBADR 
F SUBADR 

cus  f bank 

ADD  ADR  WD 


BRANCH  IF  ADDRESS  iS  IN  ERASABLE. 

CUSS  UNINDEXED  1/4-CODe  RFFERENCF  TO  F, 

PUT  MISC,  FLAG  ON  UNINDeXfD  BASIC  IN- 
STRUCTIONS that  Refer  to  fixed  mfmory. 
EXIT  IF  IN  FIXED-FIXED. 

except  where  instruction  is  indexed.  ... 
cuss  d.p,  address  that  straddles  fbanks, 

(For  d.p.  address  = 7777). 

branch  if  location  is  not  in  an  fbank. 

NO  BANK  CJSS  ON  XQC  REF  TO  2000-3777. 

PUT  SUBADDRESS  IN  tHE  RANGE  2000-3777. 


ADD  ADR  WD 

C » + 3 
C , + 3 

RNG  ERROR 
ADD  ADR  WD 

cus  e bank 
cus  e bank 
cus  e bank 

ADD  ADR  WD 


BRANCH  IF  ADDRESS  IS  NOT  IN  AN  EBANK. 
EXCEPT  WHERE  INSTRUCTION  IS  INDEXED.  ... 
CUSS  D.P.  address  that  straddles  ebanks. 

(FOR  D.P.  ADDRESS  = 1377). 

FORBID  ALL  eBANKS  IF  PSEUDO-BK  DfCLAReD. 
BRANCH  ON  E-BANK  ERROR. 

CUSS  IF  THERE'S  No  DeClARfD  eBaNK. 

PUT  SUBADDRESS  IN  THE  RANGE  1400-1777. 


CUSS  BANK 

6,2 

ADD  ADR  WD 
CUSS  BANK 
M COMMON 
6,2 
6,2 

WORD 


PUT  EBANK  NJMBeR  IN  bank  FRROR  CUSS. 
PUT  FBANK  NJMBeR  INTO  BANK  ERROR  CUSS. 

put  explicit  address  into  word. 
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P0755  PRINTING  PRoCeDUReS  FOR  BASIC  INSTRUCTIONS  AND  ADDrESS  CONSTANTS. 


0756 

GUD  BASIC 

SS 

zero 

CiT4 

LINE  +6 

clear  address  field  of  print  image. 

0758 

NA,  CHARlM 

CArO  +2 

BIT  1 

C,  + 2 

branch  if  no  minus  sign  in  column  17. 

0760 

HA 

WORD 

SPEC  MAG 

WORD 

COMPLEMENT  negative  INSTRUCTION. 

0762 

SWS.  ACOl 

WORD 

33, L 

LINE  +6 

0763 

SWS.  AC02 

WORD 

30, L 

LINE  +6 

0764 

SWS ♦ AC03 

WORD 

27, L 

LINE  +6 

0765 

SWS,  AC04 

word 

24, L 

LINE  +6 

put  basic  code  address  into  print  image. 

0767 

LA 

dec  6 flag 

WORD 

aCon  prnt 

BRANCH  IF  WoRD  IS  AN  ADDRfSS  CqnstANT. 

0769 

LN 

ADR  WD 

ZERO 

OP  DIGIT  -1 

0770 

LA 

ADDRESS 

OCT  3777 

C , ♦<+ 

BRANCH  if  INSTRUCTION  ReFfRS  2 ERASABLE. 

0772 

LA 

ADDRESS 

OCT  7777 

C , + 2 

branch  if  refers  to  fixed-fixed. 

0774 

TS,  B29T30M 

ONES 

WORD 

BBCON  +2 

c 

REDUCE  BANK  NUMBER.  SeT  F8ANK  RFF.  BIT. 

0776 

SWS,  CAC3M 

ADDRESS 

2 

ADDRESS 

ALIGN  FIXeD  BANK  NOS,  WITH  ERASABLE. 

0778 

SWS,  CHAR3M 

ADDRESS 

22, L 

word 

SUPPLY  BANK  NUMBER  TO  PASS  3 F0R  REF  CK. 

0730 

SWS,  CHAR4M 

WORD 

6 

WORD 

store  IT  twice  to  make  parity  OK. 

0732 

SSL,  FoURM 

health 

17 

PRINT  OP 

c 

choose  printing  of  straight  op  or  other. 

0784 

nP  digit 

SWS,  AC08 

word 

9 

LINE  +5 

c 

PRINT  SECOND  OCTAL  OP  DIGIT. 

0736 

LA,  CAC3M 

BANK  E2 

ADR  WD 

C , + 2 

C 

branch  if  address  value  is  over  777. 

0738 

TS,  CHARlM 

BLANKS 

LINE  +6 

PRINT  OP 

r 

0739 

SWS,  CHARlM 

five 

5 

LINE  +6 

r- 

\m 

INSERT  PRIME  IF  ADDRESS  IS  split. 

0791 

PRINT  OP 

SWS ,CHaR7M 

WORD 

6 

LINE  +5 

r- 

SET  MAIN  OP  DIGIT  IN  PRINT. 

0793 

SWS»  BIT7M 

SWITCH 

21, L 

switch 

c 

MOVE  CURRENT  INDEX  BIT  TO  PREVIOUS. 

0795 

SWS,  BIT28M 

zero 

DAMN  ZERO 

SWITCH 

c 

clear  CURRENT  INDEX  bit. 

0797 

NA,  CHAR4M 

LINE  +6 

BLOTS 

BC  CHeCK 

s 

CLEVERLY  EXIT  TO  NAUGHTY  OR  BC  CHECK. 

0799 

TS,  CHAR8M 

zero 

LINE  +5 

OP  DIGIT 

c 

clear  A space  FOR  the  minor  OP  digit. 

0831 

TS,  CHAR8M 

BLOTS 

LINE  *5 

naughty 

BLOT  FIRST  digit  OF  BAD  CONSTANT- 

0833 

PAD  BASIC 

SS 

BLOTS 

C 1 T4 

LINE  +6 

BLOT  OUT  3AD  ADDRfSS  field. 

0835 

LA 

DEC  5 FLAG 

WORD 

C,-2 

0836 

NA,  CHARlM 

card  +2 

BIT  1 

C , + 2 

BRANCH  IF  NO  MINUS  SIGN  IN  COLUMN  17. 

0838 

HA 

WORD 

SPEC  MAG 

WORD 

COMPLEMENT  30QD  OP  OF  BAD  NeG.  InStR. 

O81O 

TS 

zero 

ADR  WD 

OP  digit  -l 

c 

choose  printing  of  straight  op  or  othfr. 

0812 

naughty 

TS 

W BAD  WORD 

WORD 

BC  CHECK 

0813 

aCON  prnt 

SWS,  CHAR8M 

word 

12 

LINE  +5 

print  first  digit  of  Constant* 

0815 

RC  CHECK 

NA,  CHARlM 

CARD  +2 

BIT  1 

C , + 3 

0816 

SS 

zero 

B1B17B33 

CUSS  LIST  +12 

CLEAR  EXTENSION  CUSSeS  IF  MINUS. 

0818 

TS,  BIT33M 

zero 

CUSS  LIST 

♦23 

C , +2 

CLEAR  "SHDULD-BE-INDEXeD»  cuss  if  MINUS. 

0870 

NA,  CHaRIM 

Card  ♦ 2 

BLANKS 

queer  Ci7 

cuss  if  neither  blank  or  minus  in  cr  i7. 

08?2 

NA,  CHARlM 

CARD 

J COLUMN  1 

C ♦ + 3 

0823 

SS 

zerd 

B1B17B33 

CUSS  LIST  +12 

CLEAR  EXTENSION  CUSSeS  IF  LeFToVfR. 

0825 

TS,  BIJ33M 

zero 

CUSS  LIST 

+ 23 

C , + 2 

CLEAR  "SHOUlD-BE-INDeXeD"  CUSS  if  LFTVR. 

0827 

NA,  CHaRIM 

card 

BLANKS 

QUEER  Gi 

cuss  if  neither  blank  nor  j in  column  i. 

0829 

NA,  CHAR8M 

card  ♦ 2 

blanks 

QUEER  C24 

CUSS  IF  COLJMN  24  NON-bLANK. 

0831 

TX,  BIJ6M 

zero 

m 

SWITCH 

TURN  OFF  D.P.  OP  CODE  SWITCH. 

0833 

TS,  CHAR8M 

eight 

ebank  Reg 

set  ebcon 

c 

TURN  OFF  "JJST-DID-EBANK="  SWItCH. 

08342 

TS,  B25T27M 

BIT  25 

sbank  rec- 

SET  SBCON 

c 

turn  off  "JJST-DID-SBANKs"  SWItCH. 

0835 

1NSTR  X I T 

TS 

mod  retRn 

Z,sc 

RSTOR  MxR 

c 

return  to  general  procedure. 

L 
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SYSTEM 

ASSEMBLER 

AGC  PASS  2 

PQ8  37 

WHEN 

ADDRESS  IS 

WRONG 

BUT  nDT  ATROCIOUS,  TfLL  THE 

0838 

PRB 

ADRES 

TX 

Z , R5 

m 

08  AO 

SS 

CUSS  LIST  +11 

B38TA8 

08  A2 

TX 

HI  E3UALS 

- 

08  AA 

SS 

ADDRESS 

SEVEN 

08  A5 

SWS » 

AC07 

ADDRESS 

3 ,L 

08  A6 

SWS, 

AC06 

ADDRESS 

6 , L 

08  a7 

SWS, 

AC05 

ADDRESS 

9,L 

08  a9 

LA 

ADDRESS 

OCT  3777 

0851 

LA 

address 

OCT  7777 

0853 

SS 

ALF  2000 

B28T29 

0855 

WD 

ADDRESS 

OCT  10000 

0856 

SWS, 

CHAR2M 

M COMMON 

23, L 

0857 

SWS, 

AC03 

M COMMON 

20. L 

0859 

PRB 

EADDR 

LA 

ADDRESS 

OCT  1377 

0861 

SS 

ALF  ElAOO 

C2  B28T3A 

0863 

SWS, 

AC03 

ADDRESS 

22, L 

0865 

PRB 

NOBNK 

SWS. 

C3T6M 

ADRECUSS  +1 

A , 2 , L 

0866 

SS 

BLANKS 

C2  C7T8 

R0868  MINOR  SUBROUTINE  TO  CUSS  EITHER  TYPE  OF  BAnK  ERROR, 


0869 

CUSS  BANK  TX 

Z,R5 

0871 

SWS, 

BIT2M 

SWITCH 

5 ,L 

0873 

HA 

CUSS  LIST 

♦ 11 

BlB2 

0875 

SWS, 

B38TA8M 

CUSS  LIST 

+ 11 

32 
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IAn  what  it  is. 


Z,X4 

Z,XA 

ADRECUSS  *1 
ADRECUSS  +1 
ADRECUSS  + 1 
ADRECUSS  +1 
ADRECUSS  + 1 
PRB  EADDR 
PRB  NOBNK 
ADRECUSS  +1 
M COMMON 
ADRECUSS  +1 
ADRECUSS  +1 
PRB  NOBNK 
ADRECUSS  +1 
ADRECUSS  + 1 
ADRECUSS  +1 
ADRECUSS  +1 


C BANK  INDICATOR  5 TO  XA. 

C SET  UP  ADDRESS  OF  aDR  CUSS. 

C INITIALIZE  TO  ALF  =00.0000, 

r 

c 

c 

C PUT  ADDRESS  OR  SUBADDReSS  INTO  CUSS. 

C BRANCH  IF  ADDReSS  IS  IN  ERASABLE. 

C BRANCH  IF  ADDReSS  IS  IN  FiXeD-FIXeD. 

C PUT  SUBADDRESS  IN  THE  RANGE  2000-3777. 

c 

c 

S PUT  REDUCED  BANK  NO.  INTO  CUSS,  fXIt. 

C BRANCH  IF  ADDReSS  IS  In  UnSWITCHfD  F. 

C PUT  SUBADDRESS  IN  THE  RANGE  1A00-1777. 
S PUT  EBANK  no.  INTO  CUSS,  fXIT. 

r* 

S MOVE  UP  NUN-BANK  ADDRESS,  EXIT. 


Z.X6  C 
CUSS  LIST  +11  C 
CUSS  LIST  +11  C 
Z.X6  S 


PUT  BANK  INDICATOR  5 IN  Xf,. 

SET  POISON  BIT  OF  BANK  CUSS  ? -INDEXED. 
CALL  FOR  BANK  ERROR  CUSS. 

SET  UP  X6  FDR  BANK  NO.  INSERTION,  EXIT. 
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P0877 

SUBROUTINE  TO  UPDATE  ASSEMBLER’S  EBAnK 

register,  called 

EXCEPT  WHEN  B3C3N  OR  2<B)CADR  FOLLOWS  EBAnKs 

R0879 

DIRECTLY 

• 

CUSSES  IF  DECLARED  EBANK 

(OTHER  THAN  1 

-SHOTS)  CONFLICTS 

WITH  LOCATION  VALUE.  ALSO  FIXfS  SBaNK  RfG. 

0891 

ebk 

LOC 

Q 

sws.ebankmsk 

EBAN<  REG 

8 *L 

EBANK  reg 

TENTATIVELY  ACCEPT  EBANK  DECLARATION. 

08921 

SWS,  B33T 35M 

SBAN<  REG 

5 

SBANK  REG 

TENTATIVEuY  ACCEPT  SBANK  DECLARATION. 

08922 

LA,  CHAR8M 

eight 

EBANK  REG 

C , +2 

BRANCH  ON  OLD-eBANK-DECLAR AT I ON  BIT. 

08  92  A 

TX,C7T8M 

LAST  BANX 

» 

USeRLoG  +15 

announce  new  permanent  declaration. 

08926 

NA,  B25T27M 

SBAN<  REG 

ZERO 

C , + 2 

BRANCH  ON  0LD-S6ANK  DECLARATION  BIT. 

08928 

TX,  CuaM 

LAST  BANX 

USERLoG  +15 

ANNOUNCE  NEW  PERMANENT  DECLARATION. 

0893 

1 oC 

BNK 

CK 

LA 

OCT  AOOO 

Location 

SBK  LOC  Q 

if  in  fixed,  go  See  if  in  superbank. 

0B9A 

LA 

location 

OCT  1377 

N,X6 

EXIT  IF  LOCATION  IS  NOT  In  AN  EBaNK. 

0896 

LA,  CHaRBm 

eight 

EBANk  reg 

C , +2 

BRANCH  ON  OLD-EBANK-DECLARATION  bit. 

0898 

NA,  EBANKMSK 

eban<  reg 

location 

BAD  CONFL 

check  on  new  permanent  declaration. 

08992 

SWS,  CHAR7M 

E CHAR  A 

A, 3 

USERLOG  +15 

08  894 

SWS,  CHAR8M 

location 

8 

USERLOG  +15 

SHOW  E-BANK  States  IN  SUBHEAD. 

0890 

TS,  EBANKMSK 

location 

EBANK  reg 

6,0 

force  AGREEMENT  and  EXIT. 

0892 

SBK 

LOC 

0 

LA 

location 

OCT  67777 

N.X6 

exit  if  location  not  in  a superbank. 

089216 

LA 

ones 

location 

N,X6 

exit  if  location  has  no  value. 

O89218 

WD 

location 

OCT  10000 

FIELD  COD 

08922 

NA,  B25T27M 

SBANK  REG 

zero 

C , + 2 

BRANCH  ON  OLD-SBANK-DECLARATION  BITS. 

0892A 

NA,  B33T35M 

SBAN<  REG 

field  cod 

BAD  CONFL 

check  up  on  new  permanent  declaration. 

089252 

SWS,  CHAR3M 

W LAST  ASS 

0 

USERLOG  +15 

08925A 

SWS,  CHAR4M 

field  cod 

11, L 

USERLoG  +15 

show  S-BANK  STATUS  IN  SUBHEAD. 

08926 

TS,  B33T35M 

field  cod 

SBANK  reg 

6,0 

FORCE  AGREEMENT  and  EXIT. 

908928 

rUSSING  OF 

SUPERBANK  errors:  used  by 

FCADR,  2FCADR, 

and  polish. 

0893 

F BANK  CUS 

TS,  B I t 7M 

zero 

SWITCH 

cuss  bank 

C 

SET  UP  BANK  ERROR 

cuss 

for  filling  in. 

08932 

SWS.  AC05 

ADR  WD 

5,L 

6,2 

08933 

SWS,  CHAR4M 

W LAST  ASS 

A , 1 

6,2 

FORM  "ADDRESS  IS 

IN  BANK  SN" • 

08934 

TX 

Z , SH 

_ 

z,sc 

08936 

1 SH  CONFL 

TS,  BItiM 

ONES 

CUSS  LIST 

+ 22 

c,-l 

c 

e ( si  bank  conflict 

with 

1-SHot  DECLARF. 

08938 

BAD  CONFL 

TS,  B I T 1 7M 

ONES 

CUSS  LIST 

♦23 

C,-2 

r 

eisibank  conflict 

with 

LOCATION, 

I 
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P089A 

SUBROUTINE  IN  PASS  2 FoR 

AGC  TO  Set  IN  print  the  LOCATION  of 

an  instruction  oR  constant,  w i th  bank 

R0896 

i* umb^r  if 

ANY  AND  WItH 

A notation  FOR 

END  of  BLOCK 

or  bank  if  required. 

blots  out  location  field  if  bad  loc. 

0898 

agc  PLEB 

NA 

location 

ONES 

C , + 2 

c 

BRANCH  IF  ThERes  a VALID  iOcATION. 

0930 

ss 

BLOTS 

C 1 T A 

LINE  *5 

BLOT  OUT  LOCATION  FIELD  AND  EXIT. 

0932 

TX 

AGC  MXR 

m 

Z*MXR 

c 

0933 

SS 

ZERO 

C IT  A 

LINE  +5 

c 

09  3A 

TX 

location 

- 

COMMON 

c 

0935 

TX 

COMMON 

m 

COMMON  +1 

c 

0936 

LA 

common 

OCT  3777 

E PLEB 

c 

BRANCH  IF  LOCATION  IS  IN  fRaSABLf. 

0938 

LA,  B39TA8M 

location 

zero 

DP  CROSS  Q 

c 

branch  if  location  begins  bank  or  ff/2. 

09  lO 

LA 

common 

OCT  7777 

end  bank  q 

r- 

branch  if  location  is  not  in  a bank. 

0912 

TX 

COMMA  C8 

- 

LINE  + A 

c 

0913 

WD 

common 

OCT  10000 

COMMON 

c 

reduce  to  standard  bank  notation. 

0915 

SWS*  AC06 

common 

1 

LINE  + A 

r 

0916 

SWS,  AC07 

common 

A 

LINE  +A 

c 

set  bank  number  in  print. 

0918 

TS,  BANKMASK 

OCT  2000 

COMMON  +1 

END  BANK  Q 

r 

w 

put  subaddress  in  the  RANGE  2000-3777. 

0920 

TS,  BIT33M 

ONES 

CUSS  LIST  +21 

C 1 +A 

<w 

0921 

t-  PLEB 

NA,  CHAR1M 

HEALTH 

BIT  2 

C * +2 

L 

BRANCH  if  not  AN  erase  CARD. 

0923 

NA,  EBANKMSK 

location 

health 

C,-2 

c 

BRANCH  IF  ERASe  CROSSES  EBANK  BOUNDARY, 

0925 

LA,  B a 1 TAbM 

LOCATION 

zero 

DP  CROSS  Q 

c 

BRANCH  IF  LOCATION  BEGINS  EBANK. 

0927 

LA 

common 

OCT  1377 

end  bank  q 

+ 2 C 

branch  if  location  is  not  in  an  fbank. 

0929 

TX 

e comma 

LINE  + A 

c 

0930 

SWS,  AC07 

common 

2 

LINE  +A 

r 

V 

SET  EBANK  NJMBeR  IN  PRINT. 

0932 

TX,  EBANKMSK 

OCT  1 AOO 

- 

COMMON  +1 

c 

PUT  SUBADDRESS  IN  THE  RANGE  IA00-1777. 

093A 

fnd  bank  0 

NA,  B39TA8M 

common  +1 

ONES 

C.+2 

c 

BRANCH  IF  NOT  END  oF  BLOCK  OR  BANK. 

0936 

TS,  C1TAM 

end  bl  mc 

line  ♦ A 

PRINT  LOC 

c 

"EB"  precedes  such  locations. 

0938 

TX 

L TYP  TAB 

m 

Z,X6 

Q 

0939 

LA,  CAC3M 

location 

6,0 

C , + 2 

r 

BRANCH  WHEN  MEMORY  TYPE  CATEGORY  FOUND. 

09A1 

TS 

Z , X6  » 1 

Ct-1 

c 

09  a2 

NA,  CAC3M 

location 

6,0 

PRINT  LOC 

c 

BRANCH  IF  NOT  END  oF  MINOR  BLOCK. 

09  A4 

SWS,  CiTAM 

end  bl  mc 

A , A , 1 

LINE  ♦ A 

c 

"MC"  MARKS  END  OF  MEMORY  TYPE. 

09  A6 

PRINT  LOC 

SWS»  AC01 

common  +1 

33, L 

LINE  +5 

c 

09  a7 

SWS » AC02 

COMMON  +1 

30, L 

LINE  +5 

c 

09  AS 

SWS,  AC03 

COMMON  +1 

27, L 

LINE  +5 

c 

09  A9 

SWS  * ACOA 

COMMON  +1 

2A,L 

LINE  +5 

c 

0950 

RSTOR  MXR 

TX 

GENL  MXR 

• 

Z ,MXR 

SET  UP  LOCATION  IN  PRINT  AND  EXIT. 

R0952 

MINOR  SUBROUTINE  in  PASS 

2 

FOR  AGC  TO  CUSS  A DOUBLE 

PRECISION  CONSTANT  that  CROSSES  a bank  BOUNDARY. 

095A 

DP  CROSS  0 

TX 

Z , CSH 

Z,X6 

0955 

NA 

N , SC 

2 BAD  LOCS  +1 

N,X6 

c 

EXIT  IF  NOT  A D.  P.  CONSTANT. 

0957 

TS,  BIT1M 

ONES 

CUSS  LIST  +28 

6,0 

c 

L 
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ASSEMBLER 
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P0958 

subroutine 

IN  PASS  2 FOR 

AGC  TO  SET  UP  A 

SlNGLE-PREClSiON  CONSTANT  IN  rfORD  AND  tN  PriNT.  This 

R09&0 

subroutine 

OOeS 

NOT  CARE  WHETHER  THE 

WORD  IS  SIGNED 

OR  NOT,  BUT 

Demands 

THe  OUTPUT  DF  DeC/OCt  CONST  IN  NUMBfR. 

09«,2 

AGC  IP 

NA 

number 

w bad  word 

GOOD  lP 

c 

branch  if  word  is  valid. 

0964 

SS 

blots 

CHAR  8 

LINE  +5 

c 

0965 

SS 

blots 

C 1 T4 

LINE  +6 

c 

BLOT  OUT  WORD  IN  PRINT. 

0967 

TX 

W BAD  WORD 

- 

WORD 

SEND  ALONG  3AD  NEWS  AND  EXIT. 

09&9 

GOOD  IP  . 

TX 

AGC  MXR 

Z.MXR 

c 

0970 

EX 

NUMBER 

D2T12 

WORD 

c 

ISOLATE  MAGNITUDE. 

0972 

UA 

bit  1 

NUMBER 

C , + 2 

c 

0973 

HA 

WORD 

SPEC  MAG 

WORD 

c 

complement  NEGATIVE  WORD. 

0975 

AG  BIN  ALF 

SS 

ZERD 

C 1 T4 

LINE  +6 

c 

0976 

sws* 

CHAR8M 

WORD 

12 

LINE  +5 

r* 

0977 

sws, 

ACO 1 

WORD 

33, L 

LINE  +6 

c 

0978 

sws. 

AC02 

WORD 

30,  L 

LINE  *6 

c 

0979 

sws. 

AC03 

WORD 

27, L 

LINE  *6 

c 

0950 

sws. 

AC04 

WORD 

24, L 

LINE  +6 

r 

SET  WORD  IN  PRINT. 

0932 

TS, 

charim 

DeC&  FLAG 

WORD 

RSTOR  MXR 

r 

APPLY  INTERNAL  CONSTANT  Fl  AG  AND  EXIT. 

R0934 

subroutine  i-n  PASS  2 FOR 

agc  TO  Process 

A double-precisidn 

CONSTANT.  JSiNG  THE  OUTPUT  OF  DEC 

R 09  86 

fONST  OR 

OCT  const,  and 

distinguishing  between  the 

signed  and 

unsigned 

POSSIBILITIES  (FOR  OCTAL  CONSTANTS  ONLY), 

R0938 

sets  up 

the  high. order 

part  in  word 

AND  tHe  LOW-ORDeR  PART  IN 

2ND  half 

, sets  the  high_order  part  in  print,  and 

R 09  90 

sets  up 

THE  LOW 

-order  part  in  printable  form  in  2nd 

ALF  AND  2ND  ALF  ♦! 

• 

0991 

aGC  2P 

NA 

NUM3ER 

W BAD  WORD 

good  2R 

c 

branch  if  constant  is  valid. 

0993 

TN 

blots 

2 

2ND  ALF 

r 

prepare  blots  for  low-order  part. 

0995 

TS 

w bad  word 

2ND  HALF 

AGC  IP 

c 

go  to  Join  single. precision  sadnfss. 

0997 

GOOD  2P 

TX 

AGC  MXR 

w 

Z.MXR 

r 

0998 

NA 

e number 

ZERO 

C , + 3 

c 

branch  if  NjMBER  is  signed. 

1000 

SWE. 

B34T48M 

NUMBER 

15 

WORD 

c 

1001 

TS 

SPEC  mag 

COMMON 

C , ♦ 3 

c 

SET  UP  UNSIGNED  CONSTANT. 

1003 

SWE, 

B35T48M 

number 

14 

WORD 

c 

1004 

TX 

min  37777 

- 

COMMON 

c 

SET  UP  SIGNED  CONSTANT. 

1006 

EX 

NUM3ER 

C0MM0N 

2ND  half 

c 

isolate  LOW-ORDeR  part. 

1008 

LA 

BIT  1 

NUMBFR 

C , + 3 

c 

BRANCH  if  no  minus  sign. 

1010 

HA 

WORD 

SPEC  MAG 

WORD 

c 

1 0 1 1 

HA 

2ND  HALF 

spec  mag 

2ND  HALF 

r 

complement  halves  of  negative  constant. 

1013 

PRINT  2P 

SWE, 

CHAR8M 

2ND  HALF 

12 

2ND  ALF 

c 

THe  INSTRUCTIONS  FROM  print  2p  through 

1015 

SWE, 

ACOl 

2ND  HALF 

33,  L 

2ND  ALF  +1 

c 

ag  bin  alf  are  borrowed  by  the  double 

1 0 1 7 

SWS, 

AC02 

2ND  HALF 

30, L 

2ND  ALF 

f- 

precision  address  constants. 

1019 

SWS. 

AC03 

2ND  HALF 

27, L 

2ND  ALF  +1 

c 

1020 

SWS, 

AC04 

2ND  HALF 

24, L 

2ND  ALF  +1 

c 

make  printable  version  of  low-order  prt. 

1022 

TS, 

CHAR  lM 

DeC6  flag 

2ND  HALF 

AG  BIN  ALF 

c 

GO  TO  UOIN  SINGLE-PReCISIoN  PRqCeDURe. 
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1027 

AGC  PREL 

na 

LOCATION 

ONES 

C , +2 

1028 

ss 

blots 

C3T6 

LINE  +6 

1030 

TX 

AGC  MXR 

m 

Z,MXR 

£ 

1031 

SS 

ZERO 

C3T6 

LINE  *6 

r' 

1032 

TX 

location 

- 

COMMON 

r 

C 

103A 

LA 

common 

OCT  3777 

E PREL 

r * 

1036 

LA 

common 

OCT  7777 

PRINT  VAL 

r 

1038 

TX 

COMMA  C2 

- 

LINE  +6 

r- 

1039 

WD 

common 

OCT  10000 

COMMON 

r* 

V. 

1 0 A 1 

SWS,  CHAR8M 

common 

13 

LINE  +5 

c 

10A2 

SWS,  ACOl 

common 

32, L 

LINE  +6 

c 

ioaa 

TS,  BANKMA5K 

OCT  2000 

COMMON 

PRINT  VAL 

f ' 

1 0 A6 

FPREL 

LA 

common 

OCT  1377 

PRINT  VAL 

c 

1 0 A8 

TX 

COMMA  C2 

m 

LINE  +6 

r 

10A9 

SWS,  CHAR8M 

E CHAR  A 

A, A 

LINE  +5 

c 

1050 

SWS,  ACOl 

COMMON 

3A,L 

LINE  +6 

c 

1052 

TX,  EBANKMSK 

OCT  1 AOO 

» 

COMMON 

c 

1 0 5 A 

PRINT  VAL 

SWS,  AC03 

COMMON 

21, L 

LINE  +6 

r 

1055 

SWS,  ACOA 

COMMON 

18, L 

LINE  +6 

c 

1056 

SWS,  AC05 

COMMON 

15, L 

LINE  +6 

c 

1057 

SWS,  AC06 

COMMON 

12, L 

LINE  +6 

c 

1058 

TX 

genl  mxr 

Z ,MXR 

BLOT  OUT  BAD  LOCATION  AND  EXIT. 


ISOLATE  LOCATION  VALUE. 

branch  if  location  is  in  fRasablf. 
branch  if  location  is  not  in  a bank. 

reduce  to  standard  bank  notation. 

SET  BANK  MUMBER  In  PRINT. 

PUT  SUBADOReSS  IN  the  RANGE  2000-3777. 

branch  if  location  is  not  in  an  fbank. 


SET  EBANK  NJMBeR  IN  PRINT. 

PUT  SUBADORESS  IN  THE  RANGE  IAoO-1777. 


SET  LOCATION  IN  PRINT  AND  EXIT 


L 
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PlOSO 

3ANK  5 PORTION  OF  AGC  PASS  2.  fNTER  I 

R 1 0 62 

AU2,  AND 

address  CUSS  LIST  IN  AU l , 

BANK  INDICATOR 

1064 

SETLOC , 3 

0 

B5 

1065 

UNSCRAMb 

SWE,  B38T48M 

N,AJ2 

0 

1067 

SWS,  B34T37M 

N , A J2 

25 

1069 

SWS,  B22T32M 

N , A J2 

4 , L 

1071 

SWS,  B18T21M 

N,AJ2 

13 

1073 

SWS,  B6T16M 

N,AJ2 

8 , L 

1075 

SWS,  B2T5M 

N » A J2  » 1 

1 

1077 

NA 

N,AJ2 

sentinel 

1078 

TX 

Z,AJ2 

• 

1080 

rUSSALOG 

M » D » 44E 

CDNO  CUSS 

D err  cuss 

1 0 B 1 

m*d,edd 

lefl  cyss 

cnfl  cuss 

1092 

M.D.DCd 

badl  cuss 

ipox  cuss 

1093 

M,D,CD4 

UdeF  cuss 

ASlZ  cuss 

1094 

M,D,DFe 

lefm  cuss 

pred  cuss 

1095 

m,d,eff 

NFIT  CUS2 

STYP  CUSl 

1096 

vi,d,eee 

SCNF  CUSl 

SCNF  CUS2 

1097 

M ,D ,EEE 

SOVS  CUS2 

SMD  CUSl 

1088 

m,d,ffe 

SME  CUSl 

SME  CUS2 

1099 

m,d,eee 

SMIT  CUS2 

SNDE  CUSl 

1090 

m,d,egf 

SIDL  CUSl 

SBDE  CUSl 

1091 

M , D , C 5 2 

adre  bank 

INAP  CUSS 

1092 

M,D,EE5 

SBEX  CUSS 

SNEX  CUSS 

1093 

M,D,5D5 

MTD  cuss 

RANG  CUSS 

1094 

M,D,54E 

mfd  CUSS 

lonb  cuss 

1095 

n,d,gee 

ndei  cuss 

lnsy  cuss 

1096 

m,d,gef 

SBDE  CUS2 

SIDL  CUS2 

1097 

M,D,Fee 

SSNP  CUSS 

bnlf  cuss 

1098 

M,D,DDF 

bful  cuss 

ILOC  CUSS 

1099 

M,D,GFe 

MeMT  CUSS 

NMC 1 CUSS 

1 1 DO 

N, 0,444 

QC1  CUSS 

QC17  CUSS 

1 1 D 1 

M ,D , 4F5 

IMAD  CUSS 

POLE  CUSS 

1132 

M *D , 6EE 

ECF1  CUSS 

IPX1  CUSS 

1 1 33 

M,D,EG5 

NMC2  CUSS 

ECFB  CUSS 

1134 

m,d,efe 

I NX  H CUSS 

IMAS  CUSS 

1135 

M , D * FGg 

P I WS  CUSS 

ROP2CUSS 

1136 

M * D , E E E 

ANAO  CUSS 

ONCI  CUSS 

1137 

M,D,7EF 

CBB3  CUSS 

I AOS  CUSS 

1138 

M,D»5EF 

DPC3  CUSS 

mhbc  cuss 

1139 

M,D,FFd 

CNRP  CUSS 

PUSH  CUSS 

1 1 1 0 

M,D,DFF 

IXOP  CUSS 

STOS  CUSS 

mi 

M,D,D5E 

SNNR  CUSS 

MCPS  CUSS 

i” 
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cosequence  mode  with  agc  mxr  in  z,mxr,  address  cussalog  in 

BANK  5 ALSO  CONTAINS  MASKS  FOR  AGC  PASS  2. 


C ZERO  DEMAND  BITS,  MOVE  SUrADDR  OF  CUSS3, 
C MOVE  PO I SDN  BIT  AnD  LENGTH  OF  CUSS  3. 

C MOVE  SUBADDRESS  OF  CUSS  2. 

C MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  2. 

C MOVE  SUBADDRESS  OF  CUSS  1. 

C MOVE  POISON  BIT  AND  LENGTH  OF  CUSS  l. 

r 

S SET  BANK  INDICATOR  5 IN  R5,  EXIT. 


IS  LEFT  IN  R5 

N , AU  1 

N , AUl 

N , AU  1 

N , AU  1 

N , AU  1 

N , AUl 

,1 

UNSCRAMB 

Z,R5 

ILOP 

CUSS 

TYPL 

Cuss 

MGLA 

CUSS 

IRAQ 

CUSS 

NFIT 

CUSl 

STYP 

CUS2 

SOVS 

CUSl 

SMD  CUS2 

smit 

CUSl 

arbl 

cuss 

smde 

CUsi 

ADR  CUSS 

I DBC 

cuss 

frac 

cuss 

UND 1 

cuss 

SNDE 

CUS2 

smde 

CUS2 

NSCH 

cuss 

TOLA 

cuss 

CAFS 

cuss 

OC24 

cuss 

ECEB 

cuss 

I PX2 

cuss 

SB  IX 

CUSS 

STMF 

cuss 

MlMO 

cuss 

RIAH 

cuss 

NAWX 

cuss 

PWNL 

CUSS 

POAD 

CUSS 

brep 

cuss 

CEHS 

cuss 

L 
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P 1 1 1 3 CUSSES  FOr  AGC,  SHOWN  IN  THE  ORDER  CF  THEIR  CALLS  IN  THE  CUSS  LIST. 


1115 

r DNO 

CUSS 

alf,a 

card  number  out  of  sequence 

1116 

D ERR 

; cuss 

alf,a 

NO  "D"  IN 

DECIMAL  SUBFIELD 

1117 

I LOP 

cuss 

ALF  * 5 

ILLEGAL  OR  MIS-SPELLED  OPERATION 

code 

1118 

lefl 

cuss 

ALF.5 

improper 

LEFTOVER  LOCATION  field 

format 

1119 

cnfl 

cuss 

ALF, A 

conflict 

IN  USE  OF  THIS  LOCATION 

1120 

typl 

cuss 

ALF , A 

location 

is  in  wrong  memory  type 

1121 

RADL 

cuss 

ALF, A 

oversize 

OR  ILL, DEFINED  LOCATION 

1122 

TPOX 

cuss 

ALF, 3 

indexing 

IS  illegal  here 

1123 

mgla 

cuss 

ALF  , A 

ADDRESS  FIELD  IS  MEANINGLESS 

1 1 2 A 

liDEF 

cuss 

ALF, 3 

II 

" IS  UNDEFINED 

1125 

ASIZ 

cuss 

ALF, A 

RANoE  ERROR  in  value  of  ADDRESS 

1126 

IRAD 

cuss 

ALF , A 

IRREGULAR 

BUT  ACCEPTABLE  AdDRESS 

2" 
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SYSTEM 

ASSEMBLER 

A3C  PASS  2 

27 

AGC 

CUSSES 

continued. 

28 

LeFM 

cuss 

ALF  * A 

leftover 

WON'T  FIT  IN 

MEMORY 

29 

PRED 

cuss 

ALF  *5 

attempt 

TO 

PREDEFINE 

location  symbol  fai 

30 

ALF 

LED 

31 

NFIT 

CUSl 

ALF, 5 

it 

ii 

WON'T  FIT 

IN  symbol  table 

32 

NFIT 

CUS2 

ALF, 5 

II 

ii 

WON'T  FIT 

in  symbol  table 

33 

*T'YP 

CUSl 

ALF, 5 

If 

ii 

ASSOCIATED 

WITH  WRONG  MEMORY 

3 A 

ALF 

type 

35 

atyp 

CUS2 

ALF, 5 

II 

ii 

ASSOCIATED 

with  wrong  memory 

36 

ALF 

TYPE 

37 

SCNF 

CUSl 

ALF, 5 

ii 

ii 

ASSOCIATED 

with  conflict 

38 

SCNF 

CUS2 

ALF , 5 

it 

ii 

ASSOCIATED 

with  conflict 

39 

sOVS 

CUSl 

ALF, 5 

ii 

ii 

GIVEN  OVERSIZE  DEFINITION 
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j?YUL  SYSTEM 

assembler 

A3C  PASS 

2 

1411 -2G 

PI  1 40 

AGC  CUSSES 

CONTINUED. 

1X41 

SOVS  CUS2 

ALF.5 

ii 

ii 

given  oversize  definition 

5 

1142 

SMD  CUS1 

ALF.5 

n 

ii 

given  multiple  definitions 

E 

1143 

cMD  CUS2 

ALF.5 

ii 

ii 

given  multiple  definitions 

c 

1144 

FME  CUS1 

ALF.5 

ii 

ii 

associated  with  MULTIPLE  erro 

1 

1145 

ALF 

RS 

1146 

SME  CUS2 

ALF.5 

ii 

ii 

associated  with  multiple  ERRO 

2 

1147 

ALF 

RS 

o 

1148 

SMIT  CUSl 

ALF, 5 

ii 

it 

IS  IN  MISCELLANEOUS  trouble 

o 

2 

1149 

SMIT  CUS2 

ALF.5 

ii 

ii 

is  in  miscellaneous  trouble 

1 

1150 

SNDE  CUSl 

ALF.5 

ii 

ii 

was  nearly  defined  BY  EQUALS 

o 

1151 

arbl  CUSS 

ALF . 5 

ADDRESS 

depends  on  unknown  location 

f 
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o 


Pi 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

1 
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52 

AGC 

CUSSES 

continued. 

53 

MDL 

CUS1 

ALF.5 

ii 

" IS  INDEFINABLY  LEFTOVER 

5A 

SBDE 

CUSl 

ALF.5 

it 

" multiply  defined  including 

NE 

55 

ALF.2 

arly  by 

EQUALS 

56 

SMDE 

CUS1 

ALF.5 

1! 

» multiply  defined  including 

BY 

57 

ALF 

EQUALS 

58 

ADRE 

BANK 

ALF.3 

ADDRESS 

IS  IN  BANK  00 

59 

INAP 

CuSS 

ALF.5 

ADDRESS 

IS  INAPPROPRIATE  For  op  Code 

60 

ADR 

CUSS 

ALF.2 

ADDRESS 

61 

6BEX 

CUSS 

ALF, 5 

THIS  INSTRUCTION  SHOULD  BE  EXTENDED 

62 

KNEX 

CUSS 

ALF.5 

this  instruction  should  not  be  extended 

63 

TDBC 

CUSS 

ALF.5 

INEXACT 

DeCIMAL-TO-BINARY  CONVERSION 

&A 

N:TD 

cuss 

ALF , 5 

more  than  10  digits  in  decimal  constant 

65 

E ang 

cuss 

ALF* A 

RANGE  ERROR  IN  CONSTANT  FIELD 

i" 
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P 1 1 66  AGC  CUSSES  CONTINUED. 


1167 

F-RAC 

CUSS 

ALF, 5 

fractional  part 

LOST  BY  TRUNCATION 

1168 

n,FD  i 

CUSS 

ALF « 5 

more  than  ia  digits  in  octal  constant 

1169 

i ONB 

CUSS 

ALF . A 

location 

FIELD 

should  be  Blank 

1170 

1 NDl 

CUSS 

ALF, 5 

It 

" WAS 

undefined  in  pass  i 

1171 

DEI 

CUSS 

ALF  *5 

II 

" WAS 

nearly  defined  by  equals 

1172 

ALF, 2 

IN  PASS 

1 

1173 

LNSY 

CUSS 

ALF, 5 

location 

FIELD 

should  be  symbolic 

1 1 7A 

snde 

CUS2 

ALF, 5 

•i 

" WAS 

nearly  DEFINED  BY  EQUALS 

1175 

SBDE 

CUS2 

ALF, 5 

it 

» multiply  defined  including  ne 

1176 

ALF, 2 

arly  by 

EQUALS 

1177 

SIDL 

CUS2 

ALF, 5 

II 

" IS  I 

NDEFINABLY  LEFTOVER 
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i 

t 

• 

9 

9 

9 

9 

9 

9 

9 

9 
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L 

<sYUL 

SYSTEM 

ASSEMBLER 

AGC  PASS  2 

P 1 1 78 

AGC 

CUSSES 

CONTINUED. 

1179 

1180 

SMDE 

CUS2 

ALF.5 

ALF 

" " MULTIPLY  defined  including  by 

EQJALS 

1131 

1182 

SSNP 

CUSS 

ALF.5 

ALF 

» •'  SHOULDN'T  HAVE  BEEN  PREDEFINE 

D 

1183 

f-  NLF 

CUSS 

ALF, 5 

numeric  location  field  is  illegal  here 

118A 

NSCH 

cuss 

ALF, 5 

No  SJCH  bank  or  BLOCK  IN  THIS  MACHINE 

1185 

BFUL 

cuss 

ALF 

THIS  BANK  OR  BLOCK  IS  FULL 

1186 

ILOC 

cuss 

ALF, A 

illegal  location  field  format 

r-  oo 

CO  CO 

rH  f- 1 
1 

tola 

cuss 

ALF, 5 
ALF 

card  ignored  because  it»s  too  late  in  th 
E DECK 

1189 

1190 

meMt 

cuss 

ALF , 5 
ALF  *2 

card  ignored  because  it  makes  memory  tab 

LE  TOO  LONG 

1191 

1192 

N MC 1 

cuss 

ALF, 5 
ALF 

no  match  found  for  card  number  or  accept 
OR  text 

2" 
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SYSTEM 

ASSEMBLER 

AoC  PASS  2 

P1193 

iGC 

CUSSES 

CONTINUED. 

119A 

cafs 

CUSS 

ALF.5 

first  card  number  not  less  than  second 

1195 

DC  1 

CUSS 

alf  * a 

QUEER  INFORMATION  TN  column  X 

1196 

nC17 

CUSS 

ALF, A 

QUEER  INFORMATION  TN  COLUMN  17 

1197 

QC2A 

CUSS 

ALF, A 

QUEER  INFORMATION  TN  COLUMN  2 a 

1198 

IMAD 

CUSS 

ALF, A 

blan<  address  Field  EXPECTED 

1199 

pole 

CUSS 

ALp  , 5 

address  field  shoui  d contain  a polish  op 

1200 

ALF 

ERATOR 

1201 

f CEB 

cuss 

ALF, 5 

erased  region  should  not  Cross  e-banks 

1202 

FCFl 

cuss 

ALF.5 

eban<  or  sbank  CONFLICT  with  1-SHoT  decl 

12021 

ALF 

ARATION 

1203 

T PX  1 

cuss 

ALF, 5 

first  polish  operator  illegally  indexed 

1 2 DA 

1PX2 

cuss 

ALF  ,5 

second  polish  operator  illfgally  indexed 
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@\UL  SYSTEM 

ASSEMBLER 

AGC  PASS  2 

P12045 

A6C  cusses 

CONTINUED. 

12  05 

NMC2  CUSS 

AUF.5 

no  match  found  for  second  card  number 

1207 

INXH  CUSS 

ALF.5 

INTERPRETIVE  INSTRUCTION  NOT  EXPECTED 

1208 

MIMOCUSS 

ALF.5 

RIGHT  OPCODE'S  MODE  IN  DISAGREES  WITH  Mo 

1209 

ALF.2 

de  ojt  SETTING 

1210 

£ NAO  CUSS 

ALF.5 

ADDRESS  HAS  No  ASSOCIATED  POLISH  OPCODE 

1211 

iMAS  CUSS 

ALF.5 

polish  addressies)  missing  prior  to  this 

1212 

ALF 

op  pair 

1213 

STMF  CUSS 

ALF.5 

store  op  must  be  nfxt  cp  after  stadr 

1214 

F I WS  CUSS 

ALF.5 

push jp  illegal  before  storf  op  without  s 

1215 

ALF 

tadr 

1216 

FOP2CUSS 

ALF.5 

left  opcode's  mode  in  disagrees  with  mod 

1217 

ALF.2 

E OJT  SETTING 
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L 
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SYSTEM 

ASSEMBLER 

AGC  PASS  2 

P L 2 1 8 

aGC 

CUSSES 

continued. 

1219 

onci 

CUSS 

ALF  * 5 

INT  OPCODE  DID  NOT  CALL  FOR  INDEXING 

1220 

F I AH 

CUSS 

ALF  * 5 

int  opcode  requires  indexed  addr  here 

1221 

f BBB 

CUSS 

ALF, 5 

ADDRESS  WORDS  CROSS  OVER  BaNK  OR  VAC  ARE 

1222 

ALF  *2 

A BOUNDARY 

1223 

I AOS 

CUSS 

ALF, 5 

interpretive  addr  word  out  of  sequence 

1 2 2A 

NAWX 

CUSS 

ALF, 5 

can  not  handle  neg  addresses  with  indexi 

1225 

ALF  1 1 

NG  HERE 

1226 

fcCFB 

cuss 

ALF, 5 

eban<  or  sbank  conflict  illegal  EXCEPT  f 

1227 

ALF, 2 

or  33CON,  2BCADR 

1228 

SB  I X 

cuss 

ALF, 5 

THIS  INSTRUCTION  SHOULD  BE  INDEXED 

1229 

DPCB 

cuss 

ALF, 5 

d.p.  Constant  should  not  Cross  banks 

1230 

MHBCCUSS 

ALF, 5 

ADDR  MUST  be  BASIC  S.P.  CONSTANT  OR  INST 
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AGC  PASS  2 


P 1 2 3 1 

AGC  i 

cusses 

concluded. 

1232 

PWNL 

CUSS 

ALF, 5 

polish  words  require  blanks  in  cols  i,  i 

1233 

ALF 

7 AND  24 

12  34 

r NRP 

CUSS 

ALF  * 5 

previous  polish  equation  not  concluded  p 

1235 

ALF 

ROPERLY 

1236 

PUSHCUSS 

ALF, 5 

polish  pushup  requires  negative  word  her 

1237 

ALF 

E 

1238 

POAD 

cuss 

ALF  ,4 

polish  address  expected  here 

1239 

IXOP 

cuss 

ALF, 4 

asterisk  illegal  on  this  opcode 

12391 

STOS 

CUSS 

ALf,5 

location  symbol  improper  on  stadr.ed  sto 

12392 

ALF 

re  word 

12393 

PREP 

cuss 

ALF, 5 

bban<  type  constants  require  preceding  e 

12  394 

ALF 

BAN<  = 

1240 

tNNR 

cuss 

ALF  ,4 

subroutine  name  not  recognized 

1241 

McPS 

cuss 

ALF. 5 

MULTIPLE  calls  in  one  program  or  subro 

1242 

cehs 

cuss 

ALF , 5 

CONFLICT  WITH  EARLIER  HEAD  SPECIFICATION 
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P 1 2 45  AGC  INTERPRETIVE  OPCODES  AnD  ADDRESS  — BAnK  2. 


1246 

SETLOC , 5 

512 

B2 

R 1 2 47 

assignments  to  use  main 

PASS  TWO  SCRATCH  LOCATIONS 

1249 

l GE  base 

CAC 

genl  mxr 

INT  DATAB 

1250 

healthm 

ASSIGN 

3.2 

1251 

r ARDM 

ASSIGN 

3,3 

12512 

MOD  RTRN  M 

ASSIGN 

3,14 

1252 

1 OC  M 

ASSIGN 

3,19 

12529 

2ND  HALFM 

AS5IGN 

3,22 

1253 

iaORDM 

ASSIGN 

3,23 

1254 

I COMMON 

ASSIGN 

3,24 

1255 

A DDR  WDM 

ASSIGN 

3,37 

1256 

iDDRESSM 

ASSIGN 

3,43 

1257 

MIN  ADR 

ASSIGN 

3,73 

1258 

L INEM 

ASSIGN 

0,0 

R 1 2 59 

assignments 

> TO  USE  AGC 

PASS  2 BANK 

1 ERASABLES  AND 

1260 

AGP2  BASE 

EQUALS 

BIT30 

1261 

LAGP2  BAS 

CAC 

SEND  WORD 

SBANK  CUS 

12614 

OCT  40M 

ASSIGN 

2,8 

12615 

rCT  70M 

ASSIGN 

2,9 

12617 

K 37777 

ASSIGN 

2,14 

1262 

t bnk  regm 

ASSIGN 

2,27 

12621 

aBNK  regm 

EQUALS 

EBN<  REGM 

1263 

M 57777 

ASSIGN 

2,29 

R 1 2 64 

VARIABLE  STORAGE 

1265 

STADR 

RESERVE 

1 

1266 

ADD  REV 

RESERVE 

1 

1267 

mode  OUT 

RESERVE 

1 

1268 

INT  ADDR 

RESERVE 

5 

1269 

IOC  hold 

RESERVE 

1 

1270 

iNTERP  WD 

reserve 

1 

1271 

cTORE  COM 

reserve 

1 

1272 

CHECK  UP 

reservf 

1 

1273 

PASS2  MXR 

reserve 

1 

ge  base 


AGP2BASE 


USER'S  OWN  PAGE  NO.  32 


PAGE  198 


L @YUL  SYSTEM  ASSEMBLER  A3C  PASS  2 


P1274 

fONSTANTS  - 

AND  MISCELLANEOUS 

1275 

1 INT  ADDR 

CAC 

proc  word 

max  ad  set 

12751 

I PROC  WD 

EQUALS 

L INT  ADDR 

1276 

l INT  OPPP 

CAC 

P2  D2A  LZS 

ADD  ADR  WD 

12761 

1 AD  ADRWD 

EQUALS 

L INT  OPPP 

12762 

L P2  D2AZS 

EQUALS 

L INT  OPPP 

1277 

L BCCHE'CK 

CAC 

bad  basic 

NAUGHTY 

12771 

T BAD  BASC 

equals 

L BC  CHECK 

12772 

I SUSTAB 

CAC 

1278 

1 PRBADR 

CAC 

EBN<2  XIT 

HOW  HIGH  F 

12781 

1 HOW  HI  F 

EQUALS 

L PRBADR 

12782 

L EBK2  XIT 

EQUALS 

L PRBADR 

12783 

L USD  FMAX 

CAC 

PRINT  2PA 

INSTRONT 

1 2 78  A 

1 INSTRNT 

EQUALS 

L USD  FMAX 

12785 

L PRIN  2PA 

EQUALS 

L USD  FMAX 

12786 

P A V TABLE 

CAC 

11032 

11140 

12787 

I TYP  TAB 

EQUALS 

M AY  TABLE 

12788 

I AGC  MXR 

equals 

M AY  TABLE 

12789 

T GENL  MXR 

maskbase 

S . 0 

F *0 

1279 

7ER0  m 

OCT 

-0 

1250 

ONESM 

DEC 

GGGG  GGGG  GGGG 

1291 

P.48M 

OCT 

-i 

1252 

6A7M 

OCT 

-2 

1253 

PA6M 

OCT 

-A 

1 2 5 A 

F.A6BA8M 

OCT 

-5 

1255 

P 42T4SMM 

OCT 

-177 

1236 

P34T48MM 

OCT 

-77777 

1257 

P A7TA8MM 

OCT 

-3 

1288 

P.26MM 

OCT 

-20000000 

1259 

F39TA1M 

OCT 

-1600 

1290 

EA3TA8M 

OCT 

-77 

1291 

K 1777  M 

OCT 

-1777 

1292 

BAABA8M 

OCT 

-21 

1293 

B AO  M 

OCT 

-400 

1 2 9A 

P 37M 

OCT 

-4000 

1295 

636T37M 

OCT 

-14000 

1296 

P38M 

OCT 

-2000 

12  97 

P35T37M 

OCT 

-34000 

1298 

f 37T38MM 

OCT 

-6000 

1299 

P39TA0M 

OCT 

-1400 

1300 

6XSPEC 

OCT 

-100000002 

1301 

B28M 

OCT 

-4000000 

1302 

F29M 

OCT 

-2000000 

1303 

P30M 

OCT 

-1000000 

13032 

E 32MM 

OCT 

-20  0000 

1 3 OA 

P29T30MM 

OCT 

-3000000 

1305 

P28T29M 

OCT 

-6000000 

1306 

1 28B30M 

OCT 

-5000000 

1307 

E3AT35M 

OCT 

-60000 

1308 

MB36TA8M 

OCT 

+17777 

1309 

1 LOW  HALF 

OCT 

-47777 

1310 

AGMAXPl 

OCT 

-170000 

1311 

f-LANKSM 

ALF 

1312 

K 17  M 

OCT 

-17 
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1313 

K 16  H 

OCT 

-16 

1314 

x 20  M 

OCT 

-20 

1315 

K 34  M 

OCT 

-34 

1316 

K 35  M 

OCT 

-35 

1317 

K 36  M 

OCT 

-36 

1318 

K 45  M 

OCT 

-45 

1319 

X 52  M 

OCT 

-52 

13195 

MI DC AC  64 

DEC 

-64  0000 

1320 

K 1 27M 

OCT 

-127 

1321 

X 136  M 

OCT 

-136 

1322 

x 137  M 

OCT 

-137 

1323 

K 140  M. 

OCT 

-140 

1324 

K 157  M 

OCT 

-157 

1325 

X 163  M 

OCT 

-163 

1327 

SETPD  COD 

OCT 

-176 

1328 

K 200  M 

OCT 

-200 

13289 

X 360  M 

OCT 

-360 

1329 

X 361  M 

OCT 

-361 

1330 

X 1377  M 

OCT 

-1377 

1331 

X 53777  M 

OCT 

-53777 

1332 

K 17777  M 

OCT 

-17777 

1333 

K 47777  M 

OCT 

-47777 

1334 

K 10000  M 

OCT 

-10000 

1335 

x 20000  M 

OCT 

-20000 

1336 

X 2000  M 

OCT 

-2000 

1337 

rMA  1 C7T8 

OCT 

-7301 

1338 

rMA  2 C7T8 

OCT 

-7302 

1339 

ASTER  C8 

OCT 

-54 

1340 

stocall 

OCT 

-30420000 

1341 

STODL 

OCT 

-12030000 

1342 

sTOVL 

OCT 

-14050000 

1343 

eONSET 

OCT 

-72 

1344 

PLOTM 

ALF 

1345 

E CHAR  4M 

ALF 

E 

1346 

n NEGATIV 

ALF 

negative 

13461 

W NO  NEED 

ALF 

NO  NEED 

13462 

K WDS  LEFT 

ALF.2 

NO  WORDS 

9 

3" 


9 


9 

9 

9 

9 

9 
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L gYUL  5YSTEM  ASSEMBLER  A3C  PASS  2 

P 1 3 A7  rOUBLED  UP  INTERPRETIVE  OPCODE  DATA 


1 3 A8 

TNT  DATAB 

OCT 

130A 

A006 

1 A05 

6002 

1350 

OCT 

1505 

6016 

2206 

6012 

1352 

OCT 

1 30  A 

6026 

2652 

7022 

135A 

OCT 

1505 

6036 

1203 

6032 

1356 

OCT 

26A6 

76A6 

1 1A3 

60A2 

1358 

OCT 

1 7A6 

0056 

1203 

6052 

1360 

OCT 

2651 

7066 

1 A05 

6062 

1362 

OCT 

21A6 

A076 

1 7A6 

0072 

1 3 6A 

OCT 

1206 

A106 

1203 

A 1 02 

1356 

OCT 

1 A06 

0122 

1206 

Al  12 

1368 

OCT 

1 A06 

0132 

1A06 

0126 

1370 

OCT 

1 A06 

0 1 A2 

1 A03 

0136 

1372 

OCT 

1206 

A152 

1A06 

01A6 

137A 

OCT 

1206 

A162 

1206 

A 1 56 

1376 

OCT 

1206 

A172 

0000 

0000 

1378 

OCT 

1066 

A3  1 6 

2 1 A6 

6176 

1390 

OCT 

2063 

5316 

1066 

A716 

1 3 g2 

OCT 

A065 

0316 

3063 

5716 

13gA 

OCT 

71A6 

6003 

5065 

0716 

1396 

OCT 

5 1 A6 

6023 

71A6 

6013 

1398 

OCT 

51A6 

60A3 

5 1 A6 

6033 

13g0 

OCT 

71A6 

6063 

51A6 

6053 

13g2 

OCT 

5 1 A6 

6103 

31A6 

6073 

1 3 ?A 

OCT 

31A6 

6123 

51A6 

6113 

1 3 96 

OCT 

31A6 

6133 

3152 

6127 

1398 

OCT 

A1A2 

61A3 

31A6 

6137 

1 ADO 

OCT 

3151 

6153 

31A6 

6 1 A7 

1 Ad2 

OCT 

0000 

0000 

5 1 A6 

6157 

i ada 

OCT 

31A6 

6177 

A 1 A6 

6173 

1 AD6 

OCT 

6652 

6763 

66A6 

6763 

1 Ad8 

OCT 

60A6 

6163 

66A6 

6763 

1 A 1 0 

OCT 

6652 

6763 

66A6 

6763 

1 A 1 2 

OCT 

60A6 

6163 

66A6 

6763 

1 A l A 

OCT 

6652 

6763 

66A6 

6763 

1 Al6 

OCT 

60A6 

6163 

66A6 

6763 

1 A18 

OCT 

3150 

6153 

66A6 

6763 

1A20 

OCT 

2650 

7066 

66A6 

6763 

1A22 

OCT 

00A6 

AO  1 1 

0050 

6001 

1 A2A 

OCT 

00A6 

A03 1 

00A6 

A02 1 

1A26 

OCT 

00  A6 

A05 1 

00A6 

AOA 1 

1A28 

OCT 

00  A3 

A07 1 

00A6 

A06 1 

1A30 

OCT 

00  A5 

A 1 1 1 

00A6 

A101 

1A32 

OCT 

00  A6 

A 1 3 1 

00A6 

0121 

1A3A 

OCT 

0056 

6151 

00A3 

0 1 A 1 

1A36 

OCT 

00A6 

6171 

0052 

6161 

1A38 

OCT 

00  A3 

0131 

00A6 

0101 

iaao 

OCT 

0 

1 Aa2 

OCT 

0 

1AAA 

hHIFTDAT 

OCT 

00  A3 

A005 

00A5  0005 

t" 
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TAD 

vload 

VX  SC 

SIGN 

TLOAD 

C GO  TO 

v/sc 

DLQAD 

SSP 

SLOAD 

MXV 

PDDL 

CCALL 

PDVL 

NORM 

VXM 

DDV 

dmpr 

VAD 

bddv 

BVSU 

VSU 

VXV 

DOT 

DSU 

VPROJ 

DAD 

3DSU 

DMP 

BLANK  OP 

SL 

SET  PD 

SLR 

SR 

VSL 

SRR 

AXT 

VSR 

LXA 

AXC 

SXA 

LXC 

I NCR 

XCHX 

XAD 

T I X 

B2E 

xsu 

BPL 

GO  TO 

RTB 

BMN 

CALL 

8H I Z 

BLANK  OP 

STQ 

BOV 

30VB 

SETGO 

30NSET 

SET 

aOFSET 

INVGO 

BON  I NV 

INVERT 

30FINV 

CLRGO 

BONCLR 

CLEAR 

30FCLR 

CALRB 

BON 

CCLRB 

aOFF 

SORT 

EXIT 

COS 

SIN 

ACOS 

ASIN 

ROUND 

DSQ 

VDEF 

OCOMP 

ABS 

jnit 

STADR 

VSO 

PUSH 

RVQ 

ABVAL 

VCOMP 

BLANK  OP 

blank  op 

BAD 

BLANK 

SCALER  SHORT  SHIFtS 
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000 

002 

00A 

006 

010 

012 

01A 

016 

020 

022 

02  A 

026 

030 

032 

' 03A 

036 

0A0 

0A2 

OAA 

0A6 

050 

052 

05A 

056 

060 

062 

06A 

066 

070 

072 

07A 

076 

100 

102 

10A 

106 

110 

112 

1 1 A 

116 

120 

122 

12A 

126 

130 

132 

13a 

136 

AND  Al 


« 

« 

t 

• 

9 

9 

9 
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oYUL  SYSTEM  ASSEMBLER  ASC  PASS  2 


P 1 4 A6 

OTHER  EQUALITIES. 

14^7 

P1M 

EQUALS 

bitim 

1448 

B7M 

EQUALS 

B 1 T7M 

1449 

B17M 

EQUALS 

BIT17M 

1450 

624M 

EQUALS 

BIT24M 

1451 

R31M 

EQUALS 

BIT31M 

1452 

R32M 

EQUALS 

BIT32M 

1453 

B33M 

EQUALS 

BIT33M 

1454 

E47T48M 

equals 

THREEM 

t 


» 

t 
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P 1 A 55 


R1956  XO  = LINE  BASE 

RIA57  XI  = CUSS  LIST  ADDRESS  ( THROUGHOUT  PASS  2) 

RIA5S  X2  = BASE  OF  VARIABLE/CONSTANT  FOR  AGC  PASS  2 BANK  1 

R1959  X 3 = BASE  OF  VARIABLE  STORAGE  FOr  GENERAL  PASS  2 

R1A&0  X 5 = INT  ADDR  RELATIVE  LOC 

R19J1  X 6 = MISCELLANEOUS 

RIA52  x7  = MONITOR 

R19&3  OTHER  REGISTERS  USED  ARE  AUl,  AU2,  Rl.  R2 

R 1 ASA  BIT  ASSIGNMENTS  FqR  COMMON  /VHeN  OP  CODE'S  DATA  EXTRACTED  FROM  DATA  TABLe 


R 1 A 55 

bits 

92 

TO 

98 

AGC-INT  OPCODE  +1.  NOT  NECESSARILY  CoMPLETF 

RIA56 

BITS 

39 

TO 

91 

OP'S  2ND  ADDR  TYPE.  IF  ANY 

R1A57 

bits 

37 

TO 

38 

mode  in  requirement,  o = v.  i = d.  2 = dt.  3 = don*t  care. 

RIA59 

bits 

3 A 

TO 

36 

mode  out  setting.  0 = unknown,  require  basic  inst  next.  1 = unknown,  require  int 

R1A71 

INST  NEXT.  2 = UNKNOWN.  3 = D.  A = T.  5 = V.  6 = NO  CHANGE. 

R 1 A73 

3IT 

33 

THIS  INST  SHOULD  BE  RH  OP  OR  , IF  LH  DP,  RH  OP  MUST  Be  BLANK 

R1A75 

bit 

32 

THIS  INST  IS  GENERAL  SHIFT 

RIA76 

BIT 

31 

0 = PUSH  UP  ALLOWED,  i = NOT  ALLOWED 

RIA77 

BITS 

28 

TO 

30 

OPCODE  MODE.  0 = UNARY.  1 = S.  2 = D.  3 = T.  9 = V.  5 = VXS C OR  V/SC,  6=  TWO  ADDR 

RIA79 

SINGLE  PRECISION  CP.  7 = MATRIX. 

RIA30 

BITS 

25 

TO 

27 

OP'S  1ST  ADDR  TYPE,  IF  ANY.  0 = NONE.  1 = 1A  BIT  ADDR.  2 = E ADDR,  ARG-CCs,  3 = FUL 

Rl  A32 

L 15  BIT  ADDR.  A = FCaDR.  5 = E ADDR.  6 = SW  ADDRESS.  7 = 15  BIT  C TYPE  ADDRESS 

RIA3A 

pIT 

assignment 

FOR 

INT 

ADDR 

jsed  in  interpretive  address  determination 

R1A35 

BITS 

92 

TO 

98 

AGC-INT  OPCODE  *1,  NOr  NECESSARILY  COMPLETE 

RIA36 

BITS 

28 

TO 

30 

OPCODE  MODE.  SEE  ABOVf 

R1A97 

BIT 

31 

0 = PUSH  UP  ALLOWED,  i = PUSH  UP  NOT  ALLOWED 

RIA99 

3 1 TS 

25 

TO 

27 

ADDRESS  TYPE 

R1A90 

BIT 

29 

THIS  ADDRESS  MUST  BE  INDEXED 

PIA9I 

bit 

7 

UPON  INSPECTION  BY  INt  AD  CHK  ROUTINE,  X2  USED  BY  THIS  ADDRESS 

RIA93 

f OR 

GENERAL  shifts 

BITS  25 

TO  27  OF  INT  ADDR  HcLD  LIMITS  DESIGNATION  ANDBITS  39  TO  Al  HOLD  ADDRESS  ADDITIVE 

1995 

InT 

OP 

COD 

TS 

BA6398M 

Z ,R2 

INT  OP  SET 

C 

GO  SET  VARIOUS  ESSENTIAL  REGISTERS 

1997 

SWe.QNeSMM 

L INT  ADDR 

16 

Z.csc 

C 

go  do  e-ban<  setting  check 

1999 

TS 

carom  +2 

ICOMMON  +1 

INT  AD  CHK 

c 

GO  CHECK  PREVIOUS  ADDRESSES 

1501 

NA 

ST  ADR 

K 127  M 

C,.2 

UUMP  IF  STORE  CODf  NOT  EXPECTED 

1503 

TX , B33M 

onesm 

- 

1 ,29 

store  code  should  precede  this  op  pair. 

1505 

SWe.CHARIM 

BA63A8M 

9 

WORDM 

set  up  int  opcode  flag  for  memory  map 

1507 

SWE.BA2TA8M 

healthm 

29 

STADR 

extract  1ST  int  OPCODE  STORED  by  PASS  1 

1509 

TS 

L INT  ADDR 

Z,X5 

INT  OP  COM 

MAKE  some  CHECKS  ON  this  OPCODE 

1511 

EX 

icommon 

BA2TA8MM 

ADDRESSM 

PUT  IN  AGC  WORD  BITS  7-1 

1513 

SWE.BA2T98M 

healthm 

17 

ICOMMON  +5 

EXTRACT  2ND  int  OPCODE 

1515 

NA 

ICOMMON  *5 

K137M 

C , +2 

1516 

TS , B 1 7M 

ONESM 

1,21 

INT  WD  BOT 

BAD  OPCODE.  BLOT  OUT  WORD 

1518 

NA 

ICOMMON  +5 

K 136  M 

INT  OP  POP 

1519 

TS 

K 136  M 

ICOMMON  +5 

INT  OP  SUP 

2ND  OPCODE  IS  BLANK 

1521 

TNT 

OP 

POP 

NA,  B33M 

ICOMMON 

ONESM 

C,*2 

ERROR  if  RH  OP  IS  NOT  BLANK,  IF  REQUIRED 

1522 

TS,  B 1M 

ONESM 

1,21 

C,-2 

1529 

TX 

ICOMMON  +5 

- 

STADR 

address  field  holds  2nd  opcode 

1525 

TN 

carom  +3 

2 

ICOMMON 

1527 

TS 

K 1 7 M 

Z ,R2 

INT  OP  COM 

SET  SEARCH  FOR  15  CHARS 

1529 

SWS.B35T91M 

ICOMMON 

7 , L 

ADDRESSM 

PUT  2ND  OPCODE  INTO  AGC  WORD, BITS  ia-8 

L 

@YUL 

SYSTEM 

ASSEMBLER 

AoC  PASS'  2 

• 

1531 

int 

OP 

SUP 

HA 

addressm 

B34T48MM 

1533 

TS 

- 

ip 

, • 

: | 

1535 

TNT 

OP 

COM 

TS 

Z,SH 

Z ,R  1 

% 

1536 

TNT 

OP 

APE 

LA 

STADR 

K 137M 

• 

1538 

LA 

STADR 

K 157  M 

1540 

WD 

STADR 

K 20  M 

■§ 

1 5 A 1 

TS,B25TA8M 

shiftdat 

ICOMMON 

• 

1 5 A3 

SWE.B25TA8M 

shiftdat 

24 

s 

1 5 A5 

/YD 

STADR 

K 140  M 

< 

o 

1 5 A6 

SWS.ONeSMM 

I COMMON  +1 

3 ,L 

; • 

15  47 

WA,B42TA8M 

ICOMMON  +1 

ICOMMON 

z 

1 5 A9 

TS 

• 

« 

1 

1550 

1 NT 

OP 

PAT 

SWE.ONeSMM 

L GE  BASE 

16 

S# 

1551 

SWS.B19T2AM 

STADR 

23, L 

s 

1552 

TX 

6,0 

• 

3 

1 5 5 A 

SSL.  ONEM 

STADR 

0 

1555 

SWE.ONeSMM 

ICOMMON  +5 

24 

s 

1556 

SWE.B25TA8M 

ICOMMON  +5 

24 

° 

1558 

TS 

- 

- 

• 

I5j,0 

TS 

ICOMMON 

ICOMMON  +2 

1562 

INT 

OP 

TOM 

NA.CHAR8M 

ICOMMON  +1 

BLANKSM 

1 5 6A 

NA 

Z.R2.1 

ZEROM 

• 

1566 

TX 

ICOMMON  ♦ 5 

« 

1567 

NA,C7T8M 

ICOMMON  +1 

CMA  1 C7T  8 

1569 

WA 

0A6  M 

ICOMMON  *5 

• 

1571 

NA.CHAR8M 

ICOMMON  +1 

ASTER  C8 

15722 

* 

SSL,  threem 

I COMMON  *5 

0 

1 5 72  A 

TS 

m 

• 

1573 

TS 

m 

m 

1575 

NA 

K 36  M 

STADR 

1576 

TS 

m 

t 

1578 

WA 

BXSPEC 

ICOMMON  *5 

1550 

TX.B31M 

ONESM 

_ 

1552 

TNT 

OP 

SMO 

NA.B28T30M 

ICOMMON 

B28B3OM 

• 

1 5 5 A 

LA 

MODE  OUT 

B47M 

1556 

LA 

MODE  OUT 

B46M 

1558 

TS.B28T30M 

B29M 

ICOMMON 

• 

1590 

TS.B28T30M 

028  M 

ICOMMON 

1592 

INT 

OP 

NOT 

LA 

mode  out 

B47M 

1 5 9A 

SSL.BA7TA8M 

ICOMMON 

10 

• 

1596 

TNT 

OP 

SAP 

LN , B 3 AT36M 

ICOMMON 

B34T35M 

3" 

1598 

SWE.BA6TA8M 

ICOMMON 

12 

1600 

LA.B25T27M 

ICOMMON 

ZEROM 

• 

1602 

NA,BA2TA8M 

ICOMMON 

K 163  M 

16oA 

TX 

ICOMMON 

• 

1605 

WD.BA2TA8M 

STADR 

BONSeT 

• 

1607 

TS 

ICOMMON  +5 

N,X5,1 

2" 

1609 

TX 

ICOMMON 

£ 

1611 

NA,B28T30M 

ICOMMON 

B28T29M 

• 

1613 

TX.B25TA8M 

ICOMMON 

„ 

1615 

SWS.B25T27M 

5,0 

14, L 

1617 

TNT 

OP 

NOB 

TS 

m 

m 

t 

1618 

INT 

OP 

DUD 

NA 

mode  out 

B46B48M 

1" 

1 6 JO 

NA 

mode  out 

B47T48MM 

USER'S  OWN  PAGE  NO.  38 


PAGF  20 A 


addressm 

DO  ONE'S  COMPLEMENT 

INT  WD  RUN 

GO  increment  Loc  hold 

INT  OP  PAT 
INT  OP  SMO 

JUMP  IF  NOT  SHORT  SHIFj  CoDe 

C , ♦ 3 

JUMP  IF  SCALER  SHIFT 

STADR 
C , + 2 

BRING  FORTH  VECTOR  24  BIT  DATA 

ICOMMON 

BRING  FORTH  SCALER  24  BIT  DATA 

ICOMMON  +1 
ICOMMON  +1 
ICOMMON 

form  complete  opcode 

INT  OP  NOT 

Z,X6 

C,*l 

ICOMMON  +5 

get  FULL  WORD  CONTAINING  THIS  oP»S  DATA 

C , + 1 

ICOMMON  ♦ 5 
ICOMMON  +5 

select  proper  half  word 

INT  OP  TOM 

GO  SEARCH  FOR  * OR  ,1  ON  OPCODE 

INT  AD  PEK 

r 

GO  CYCLE  16  CHARS  RIGHT  ONE  CHaR 

C , + 2 

JUMP  ON  RIGHT  MoSt  NoNBLANK  CHaR 

C,-2 

JUMP  IF  SEARCH  NOT  DONE 

ICOMMON 

C , + 2 

JUMP  IF  RIGHT  MOST  NOT  ,1 

ICOMMON 

OPCODE  TO  be  upped  Four 

INT  OP  APE 

JUMP  IF  RIGHT  MOST  NOT  * 

C,.l 

ONLY  CODES  ENDING  IN  10  CAN  TAKE  *. 

INT  ERR  8 
INT  ERR  8 

JUMP  when  opcode  NOT  ALLOWED  TO  TNDfX 

C , + 2 

INT  ERR  8 

SETPD  CAN  NOT  BE  INDEXED 

ICOMMON 

OPCODE  INCR  BY  TWo.  B24  SHOWS  INDEXING 

ICOMMON 

DO  NOT  ALLOW  PUSHUP  NOW 

INT  OP  NOT 

JUMP  IF  OPMODE  NOT  VXSC  OR  V/SC 

C , +2 

JUMP  IF  LAST  MODEOUT  = UNKNOWNS 

C , +2 

jump  if  last  mode  out  = o or  t 

INT  OP  SAP 

SET  OPMODE  = D 

INT  OP  SAP 

SET  OPMODE  = V 

INT  OP  MUT 

jump  if  last  mode  out  = unknowns 

INT  OP  DUD 

C 

CJECK  PROPER  Mode  in 

C , +2 

JUMP  IF  NEW  MODE  OUT  = NO  CHANGE 

MODE  OUT 

UPDATE  MODE  OUT 

INT  OP  NOB 

JUMP  IF  OPCODE  EXPECTS  NO  ADDRESS 

C , +4 

JUMP  IF  NOT  SWITCH  TYPE  OPCODE 

ICOMMON  *5 
ICOMMON  +5 

DETERMINE  OPCODE  ADDITIVE 

C , + 2 

SAVE  data  For  addr  word  use 

N,X5,1 

save  data  for  addr  word  use 

INT  OP  NOB 

JUMP  IF  ONLY  ONE  ADDRESS  WORD  EXPECTED 

5,0 

give  data  to  second  address 

N,X5,1 

SHIFT  ADDR  TYPE  TO  CORRECT  POSITION 

N ,R  1 

INT  ERR  4 

ERROR  IS  last  mode  NOT  V 

INT  ERR  4 

error  IF  LAST  mode  not  d 
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1622 

NA 

mode  out 

B46M 

C,-l 

C 

ERROR  IF  uAsT  MODE  OUT  NOT  dT 

1624 

TX 

I COMMON 

- 

ICOMMON 

* 

1625 

TNT 

OP 

MUT 

SSL.B47T48M 

I COMMON 

10 

C , ♦ 1 

BRANCH  BY  MODE  IN  REQUIREMENT 

1627 

TS 

B46348M 

MODE  OUT 

INT  OP  SAP 

MODE  NOW  VECTOR 

1629 

TS 

B47T48MM 

MODE  OUT 

INT  OP  SAP 

MODE  NOW  0/T 

A 

1631 

TS 

B47T48MM 

MODE  OUT 

INT  OP  SAP 

1632 

TS 

B48M 

MODE  OUT 

INT  OP  SAP 

1633 

INT 

OP 

DOG 

LA 

INT  ADDR 

ZeROM 

INT  OP  BAR 

NO  sweat  if  ALL  ADDRESSES  IN 

1635 

NA,B33M 

INT  ADDR 

ZeROM 

INT  OP  BAR 

same  if  push  up  not  allowed 

1637 

TS,BlM 

onesm 

1,25 

INT  OP  BAR 

error,  need  stadr  code  previously 

1639 

TNT 

OP 

GOS 

TS 

ZeRDM 

StORf  com 

INT  OP  SET 

c 

STORE  CODeS/ALL  ADDR  WORDS  eNTeR  HeRf 

* 

1641 

SWe,CNeSMM 

L INT  ADDR 

16 

z,csc 

c 

go  do  e-ban<  setting  check 

1643 

SWe,CHaR1M 

B47T48MM 

3 

WORDM 

set  constant  type  flag  for  memory  map 

1645 

LA,B28T30M 

healthm 

B29T  3OMM 

INT  AD  GO 

JUMP  to  INTERPRETIVE  ADDRESS  RoUtINf 

• 

1647 

NA 

stadr 

K 127  M 

INT  OP  DOG 

jump  if  stadr  does  not  precede  Storf 

1649 

TNT 

OP 

BAR 

TS 

. 

• 

INT  AD  CHK 

c 

check  if  all  required  addr  received 

1651 

TX 

B26MM 

INT  ADDR 

STORE  CODES  REQUIRE  ARC-CCS  E TYPE  ADDR 

• 

1653 

SWS,B28T30M 

mode  out 

18,  L 

INT  ADDR 

LAST  MODE  OJT  IS  THIS  OP  MODE 

1655 

aID 

INT  ADDR 

B30M 

INT  ADDR 

1656 

TS 

Z,SC 

STORf  com 

INT  AD  TUM 

GO  PROCESS  LIKE  RfG  E ADDRESS 

♦ 

1658 

NA 

ONESM 

ADDRESSM 

C , +4 

JUMP  UNLESS  ADDRESS  IS  VERY  BAD, 

1650 

TX 

LOC  m 

LOC  HOLD 

cancel  location  sequence  checks 

1652 

TX 

zerom 

store  com 

FLAG  FOR  3EL0W 

p 

1654 

TX 

ZeROM 

• 

ADDRESSM 

AVOID  OVERFLOW  TROUBLE 

1656 

NA,  B29T30M 

health  m 

zero  m 

FANCY  STO 

branch  if  store  and  (Load  or  Cali  i. 

1658 

PLAIN 

STO 

NA,B24M 

INT  ADDR 

onesm 

C , + 4 

JUMP  IF  NO  INDEXING 

1670 

W A 

ADDRESSM 

B37M 

ADDRESSM 

assume  xi  used 

1672 

NA,B7M 

INT  ADDR 

ONESM 

C , + 2 

JUMP  IF  SO 

1674 

WA 

ADDRESSM 

B37M 

ADDRESSM 

NOW  X2  USED 

1676 

TS 

zero  m 

INT  ADDR 

INT  OP  BAT 

1677 

FANCY 

STO 

TX,  BiM 

zero  m 

_ 

1,30 

REOPEN  JUDGMENT  OF  OPCODE  ASTERISK. 

1679 

SWS , B 1 7M 

INT  ADDR 

7 , L 

1,2 

INDEXED  ADDRESS  ILLEGAL 

1631 

SSL , B47  T48M 

healthm 

18 

C,  + 0 

BRANCH  BY  STORE  CODE  TYPE 

1633 

TS 

B47T48MM 

mode  out 

INT  OP  SDL 

SET  MODE  OUT  TO  DOUBLE 

1635 

TS 

B46348M 

mode  out 

INT  OP  SVL 

SET  MODE  OUT  TO  VECTOR 

1637 

WA 

ADDRESSM 

B35T37M 

ADDRESSM 

CALL  ADDITIVE  = 0CT34000 

1639 

TX 

B47M 

_ 

MODE  OUT 

MODE  OUT  = UNKNOWN. 

1691 

TS 

stocall 

INT  ADDR 

INT  OP  BAT 

UNKNOWN  MODE.  A ADDRESS,  NO  PUSHUP 

1693 

tNT 

OP 

SVL 

WA 

ADDRESSM 

K 10000  M 

ADDRESSM 

VLOAD  ADDITIVE  s QCT24000 

3*' 

1695 

TS 

stovl 

INT  ADDR 

INT  OP  STL  -1 

VMODE.  A 1 4 address  with  PUSHUP 

1697 

TNT 

OP 

SDL 

TX 

STOOL 

INT  ADDR 

dp  Mode.  ai4  addr  with  pushup 

1699 

W A 

ADDRESSM 

B36T37M 

AddRESSm 

dload  additive  = oct  14000 

1701 

TNT 

OP 

STL 

SWS  ,B  24M 

healthm 

13 

INT  ADDR 

SET  INDEX  ReQ  FLAG  FOR  2ND  ADDR.TF  ReQ 

1703 

SWS ,B  3 iM 

healthm 

20 

INT  ADDR 

IF  INDEXING  REQ, PUSHUP  NOT  ALLqWfD 

2" 

1705 

NA,B24M 

ONESM 

INT  ADDR 

C , + 2 

JUMP  IF  OPCODE  NOT  INDEXED 

17o7 

WA 

ADDRESSM 

B37M 

ADDRESSM 

LOAD*  ADDITIVE  = OCT4000 

1 7 o9 

TNT 

OP 

BAT 

NA 

STADR 

K 127  M 

C , + 3 

1710 

HA 

ADDRESSM 

B34T48MM 

ADDRESSM 

complement  store  word  foliowing  STADR 

1712 

SWS ,B 1 7M 

healthm 

9 

1,30 

LOCATION  SYMBOL  Not  ALLOWED 

1714 

LA 

store  com 

Zerom 

INT  OP  SOU 

jump  on  very  bad  address 

1" 

1716 

NA ,B 1 7M 

1,3 

zerom 

C , +2 

r 
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1717 

TS 

ZEROM 

STADr 

INT  wd  pot 

erase  STAOR  MARKER 

1719 

T NT  OP  SOU  TS 

zerom 

stadr 

INT  WD  NUT 

EXIT  IF  ERASE  ADDr  BAD 

31721 

minor  subroutine  in  agc  pass  z to  set 

UP  VARIOUS 

Registers. 

1722 

INT  OP  SET  SWe.ONeSMM 

L A3P2BAS 

0 

Z.*2 

c 

AGC  PASS  2 BANK  1 VARIABLE  STORE  BASF. 

1724 

tx 

B48  M 

INTERP  wd 

c 

1725 

ma 

CHEC<  UP 

ZEROM 

C . *5 

r 

1726 

SWE .QNESMM 

L AGP2  BAS 

32 

Z,X3 

r 

L 

1727 

TX 

N.CSC. 1 

N.X3 

c 

1728 

TX 

L POL  OP 

- 

z.csc 

c 

IGNORE  A ADDRESS  BANK  ERROR 

1730 

TX 

Z » MXR 

- 

CHECK  up 

c 

1731 

TX 

l ge  base 

» 

Z,x3 

general  pass  2 variable  storage  address 

• 

t 

t 

• 


L 

@YUL 

SYSTEM 

assembler 

AGC  PASS  2 

P 1 733 

ROUTINE  TO 

HANDLE  INTERPRETIVE  address  words 

1 7 3 A 

INT 

AD 

GO 

NA 

CAROM  +3 

BLANKS  M 

1735 

NA 

CARDM  +4 

BLANKS  M 

1736 

TX,  Bl7M 

ONESM 

- 

1738 

LA 

INT  ADDR 

zerom 

1740 

I NT 

AD 

TUM 

TN 

carom  +3 

2 

1742 

TS 

K 20  M 

Z,X6 

1744 

TS 

icommon 

ICOMMON  .2 

1746 

NA.CHAR8M 

ICoMVION  +1 

BLANKSM 

1748 

NA 

Z,X6,1 

B48M 

1750 

INT 

AD 

NOX 

LA  ,B25T27M 

INT  ADDR 

B26MM 

1751 

NA.B32M 

INT  ADDR 

ONESM 

1753 

NA.B24M 

INT  ADDR 

ONESM 

1755 

TS.B33M 

ONESM 

1,26 

1757 

INT 

AD 

CAT 

NA,C7T8M 

ICOMMON  +1 

CMA  2 C7T8 

1759 

TS,B7M 

ONESM 

INT  ADDR 

1751 

NA,C7T8M 

ICOMMON  *1 

CMA  1 C7T8 

1753 

LA , B25T27M 

INT  ADDR 

B26MM 

1755 

NA  ,B32M 

INT  ADDR 

ZEROM 

1757 

TS , B 1 7M 

ONESM 

1.2 

1759 

NA 

STORE  COM 

zerom 

1771 

NA,B24M 

INT  ADDR 

zerom 

1773 

TS.B17M 

ONESM 

1,26 

1775 

TX,B24M 

ONESM 

1777 

INT 

AD 

FOX 

TS.C7T8M 

BLANKSM 

ICOMMON  .1 

1779 

TS 

ICOMMON 

ICOMMON  +2 

1 7 b 1 

NA 

Z ,X6 , 1 

zerom 

1733 

TN 

icommon 

2 

1735 

INT 

AD 

GOT 

WD 

K 47777  M 

K 10000  M 

1737 

TX.B24M 

ONESM 

1739 

SWe.ONeSMM 

L INT  ADDR 

16 

1791 

INT 

AD 

PAT 

NA,B24M 

stadr 

zerom 

1793 

TS 

• 

1795 

TS.B24M 

ZEROM 

STADR 

1797 

LA 

ONESM 

ADDRfSSM 

1799 

SSL  *B46T48M 

INT  ADDR 

18 

1801 

TS 

zerom 

ADD  REV 

1 8 o3 

TS 

zerom 

ADD  REV 

1804 

TS 

B48M 

ADD  REV 

1805 

TS 

B47  M 

ADD  REV 

1806 

TS 

B46348M 

ADD  REV 

1807 

TS 

zerom 

ADD  REV 

1808 

TS 

zerom 

ADD  REV 

1809 

TS 

B44B48M 

ADD  REV 

1810 

INT 

AD 

PON 

NA.B32M 

INT  ADDR 

zerom 

1812 

SSL,B4(,T48M 

INT  ADDR 

21 

1814 

TS 

- 

_ 

1815 

TS 

B46M 

ICOMMON 

1817 

TS 

B47M 

ICOMMON 

18)9 

TS 

B48M 

ICOMMON 

18?1 

TS 

- 

1823 

TS 

zerom 

ICOMMON 

1825 

TS 

- 

1827 

LN 

zero  m 

ADDR  WDM 
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C , + 3 

C.  + 2 

1.11 

INT  ERR 

: 20 

ICOMMON 

C.+2 

INT  AD 

PEK 

INT  AD 

CAT 

C.-2 

C , + 2 

INT  AD 

GOT 

INT  AD 

GOT 

INT  AD 

GOT 

C , + 2 

C.  + 2 

INT  AD 

NOX 

C , +3 

C , +2 

INT  AD 

FOX 

C , + 3 

C , +2 

C.  + l 

INT  ADDR 

C , +2 

INT  AD 

PeK 

C.-l 

CARDM  +3 

MIN  ADR 

STADR 

z,sc 

C , + 2 

INT  WD 

DOG 

INT  OP 

set 

INT  WD 

SUM 

C..1 

INT  AD 

PON 

INT  AD 

PON 

INT  AD 

PON 

INT  AD 

PON 

INT  AD 

PON 

INT  AD 

PON 

INT  AD 

PON 

INT  AD 

PON 

INT  AD 

SIR 

C..1 

INT  ERR 

20 

INT  AD 

A 1 4 

INT  AD 

A14 

INT  AD 

A14 

INT  AD 

F 

INT  AD 

A14 

INT  AD 

SW 

C , +2 

CUSS  POLISH  ADDRESS  WITH  BLANK  ADR  FID. 
ERROR  IF  NO  associated  OPCODE. 

SEARCH  ADDR  FIELD  FOR  ,1  OR  ,2 
16  CHAR  SEARCH 
C CYCLE  RIGHT  16  CHARS 

JUMP  ON  RIGHT  MoSt  CHAR  NON  BLANK 
JUMP  IF  SEARCH  NOT  DONE 

JUMP  IF  NOT  SUPPOSED  TO  Bf  ANY  INDEXING 
JUMP  IF  OPCODE  DID  NOT  REQUEST  ANY 
FLAG  RIAH  CJSS 

JUMP  IF  ADDRESS  NOT  ENDED  BY  .2 
POINTER  TO  SHOW  X2  USED 
JUMP  IF  NON  INDeXfD  ADDR 
JUMP  IF  INDEXING  ALLOWED. 

SAME 

ERROR  IF  NOT  ALLOWED 

jump  on  store  word 

error  IF  OPCODE  did  not  RfQ  indexing 

FLAG  ONIC  CJSS 
SET  INDEXED  ADDR  FLAG 
BLANK  OUT  INDEXING  CHARS  nF  ADdR 
C CONTINUE  THE  RIGHT  CYCLE 

until  field  back  to  original  Position 
STORE  FIELD  WITHOUT  INDEX  MARKS 
MOST  NEGATIVE  ALLOWABLE  VALUE  <C  TYPE). 
SET  BRANCH  TO  INTeRPRETIVf 
GO  TO  MAX  AO  SET 

JUMP  IF  PROCESSING  POLISH,  NOT  BaSIC 
C SPECIAL  TRANSFER  FROM  BANK  1 

c cancel  flag,  restore  necessary  registers 

jump  on  bad  address 

BRANCH  BY  OP  MODE  TO  CHOOSE  NUMBfR  OF 
WORDS  that  this  ADDRESS  WILL  TaKf 


JUMP  IF  ADDR  FoR  GeNeRaL  SHIFT  InSt 
BRANCH  BY  NON-ZERO  ADDRESS  TYPE 

14  BIT  ADDRESS, ARC-CCS  FASHION 

e address,  arc-ccs  fashion 

15  BIT  ADDRESS 
FIXED  15  SIT  ADDR 
E ADDRESS 

SWITCH  BIT  NUMBER. 

JUMP  IF  ADDRESS  IS  POSITIVE. 
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• 

1829 

TS»  B7M 

ones  m 

INT  aDDR 

1831 

LA 

k 20000  M 

ADDRfSS  m 

• 

1833 

PLAIN  C 

TS 

ZeRD  m 

I COMMON 

I835 

INT  AD  SW 

LN 

ADDR  WDM 

B48M 

• 

1837 

LA 

K360M 

ADDRESSM 

1839 

TS 

• 

- 

I84O 

WA 

ADDRESSM 

K 361  M 

t 

1842 

LA.B41T48M 

K 17  M 

ADDRESSM 

1844 

SWS.B41T44M 

INT  ADDR 

4.L 

1846 

TS 

• 

m 

• 

1848 

TNT  AD  F 

LN 

ADDR  WDM 

MB36T48M 

1850 

LA 

AGMAXPi 

ADDRESSM 

1852 

TS 

zerdm 

ICOMMON 

• 

1853 

TNT  AD  PEK 

T*  .CHAR8M 

ICOMMON  +1 

m 

1855 

TX.CHAR8M 

ICOMMON  *2 

m 

1857 

5WE.CNESMM 

ICOMMON 

6 

• 

1858 

swe.onesmm 

ICOMMON  +1 

6 

R1859 

ME*T  ROUTINE  CHECKS  to 

See  if  all  addresses  for 

R18&1 

IF  BIT  31  1 

OF  INT  ADDR(X)  = 1,  AN  expected  aODReS 

• 

1862 

INT  AD  MOD 

NA 

B48M 

MODE  OUT 

1863 

ts.bim 

ONESM 

1.29 

18  64 

LA 

B47T48MM 

MODE  OUT 

• 

1865 

tx 

B47M 

m 

1867 

TS 

LOC  M 

LOC  hold 

1869 

TNT  AD  chk 

NA 

LoC  HOLD 

LoC  M 

• 

1871 

NA 

MODE  OUT 

zerom 

1873 

TS.BIM 

ONESM 

1.24 

1875 

NA.B31M 

INT  ADDR 

Zerom 

• 

1877 

NA.B31M 

INT  ADDR  +1 

zerom 

1879 

NA.B31M 

INT  ADDR  *2 

zerom 

I83O 

NA.B31M 

INT  ADDR  .3 

ZEROM 

• 

1851 

TX 

ZERDM 

„ 

1892 

TN 

INT  ADDR 

4 

1894 

TNT  AD  SOB 

TS.B17M 

ONESM 

1.24 

• 

1896 

INT  AD  SIR 

NA.B24M 

INT  ADDR 

ONESM 

1898 

TX.B25T27M 

ZERDM 

.. 

1899 

EX 

INT  ADDR 

B39T4IM 

• 

18?1 

SSL  .B45T47M 

INT  ADDR 

20 

1893 

as 

ADDR  WDM 

ICOMMON 

1895 

TS,  B33T35M 

B35T37M 

ADDRESS  M 

• 

I897 

LA 

K 200  M 

ADDRESSM 

3" 

1899 

X 16MPLUS 

DCT 

♦16 

1900 

LA 

K52M 

ADDRESSM 

• 

1902 

X 34MPLUS 

DCT 

+ 34 

1903 

LN 

ADDR  WDM 

K 35  M 

1905 

LN 

K16MPLUS 

ADDR  WDM 

• 

1906 

LN 

ADDR  WDM 

K 16  M 

2" 

1908 

LA 

K 35  M 

ADDRFSSM 

1909 

LN 

ADDR  WDM 

K 35  M 

• 

1911 

LN 

K34MPLUS 

ADDR  WDM 

1912 

LN 

ADDR  WDM 

K 34  M 

1914 

LA 

K 35  M 

ADDRFSSM 

• 

1915 

INT  ad  sto 

TX 

STORE  COM 

1" 

1916 

INT  AD  A14 

LN 

ADDR  WDM 

B48M 

• 

• 

USER'S  0*N  PAGE  NO.  42 
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PLAIN  C 
I NT  AD  F *1 
INT  AD  OAF 

INT  ERR  41 
INT  ERR  41 
C * *2 

ADDRESSM 

C.-l 

ADDRESSM 
INT  AD  A10 
INT  ERR  41 
INT  ERR  41 
INT  AD  MAR  - 
I COMMON 
I COMMON  +1 
ICOMMON 
ICOMMON  +1 

PREVIOUS  OPCODE  PAIR  HAVE  BeEV  RECeIVeD. 
s not  Been  processed 


C.  + 2 

c 

C.  + 2 

c 

C.-l 

c 

MODE  OUT 

c 

MODE  OUT  = JNKNOWN. 

C , +4 

c 

RESET  POLISH  LOC  COUNTER 

INT  AD  MOD 

c 

jump  if  polish  string  broken 

C , +2 

c 

jump  if  polish  inst  expected 

C , -4 

c 

FLAG  INXH  CJSS 

INT  AD  SOB 

c 

JUMP  IF  AMY  OF  FOUR  ADDRESSES  ACtIVf 

INT  AD  SOB 

c 

AND  PUSHUP  NOT  ALLOWEO 

INT  AD  SOB 

c 

INT  AD  SOB 

c 

INT  ADDR 

INT  ADDR  +1 

ZERO  ALL  ADDRESS  DATA  HOLDERS 

C.-2 

c 

POLISH  ADOReSS(eS)  MISSING  ERROR.  IMAS 

C.  + 2 

JUMP  IF  ADDRESS  NOT  INDEXfD 

int  addr 

ICOMMON 

extract  general  shift  opcode  additive 

C , + 3 

c 

BRANCH  BY  ADDRESS  LIMITS  TYPE 

ADDRESSM 

insert  additive  portion 

INT  AD  A12 

GEN.  SHIFTS  ADDITIVE  = 20000  (NON-VAC). 

INT  ERR  41 

LIMITS  =-177  TO  *177  OCTAI  FOR  INDEXED 

INT  ERR  41 

LIMITS  = -51  TO  +51  OCTAL  FOR  SL  AND  SR 

INT  ERR  40 

c 

LIMITS  = -34  TO  +15  OCTAL  FOR  SLR 

INT  ERR  41 
INT  ERR  40 

c 

LIMITS  = -15  T +34  OCTAL  FOR  SRR 

INT  ERR  41 
INT  ERR  40 

c 

LIMITS  = -34  TO  +33  FOR  VSL 

INT  ERR  41 
INT  ERR  40 

c 

LIMITS  = -33  TO  +34  VSR 

INT  ERR  41 

z.sc 

INT  ERR  21 

BOTTOM  LIMIT  IS  ZERO 

FaKE  UP  AN  X2  FLAG  FOR  NEGATIVE  operand. 
JUMP  IF  WOULD  Be  AN  ADDR  TN  FIXED  BANKS. 
OTHERWISE  USE  NUMBER  AS  IS. 

error  if  addr  less  than  zfro 

ERROR  IF  ADDR  OVER  239. 

ADD  OCT400.  SUBTRACT  0CT17 

JUMP  IF  SWITCH  ADDR  NOT  FoRMULATFD 

insert  OPCODE  ADDITIVE 

FINISH  UP  ELSEWHERE 

F type  ADDR  CANNOT  Be  LESS  than  20000 

nor  greater  than  agc  addrfss  max. 

C FOUR  INSTRUCTIONS  TO  FINISH  CYCLING 
C RIGHT  16  CHAR  1 CHAR 


ROYAL  "f*  BUSINESS  FORMS  INCORPORATED 


^VUL 

SYSTEM 

assembler  AGC  PASS  2 

1918 

LA 

ADDRESSM 

K 52  M 

1920 

NA,  BA2TA8M 

INT  ADDR 

SETPD  COD 

1921 

TS.B17M 

ONES  M 

1.3 

1923 

LA 

ADDRESSM 

BA3TA8M 

1925 

LA 

B37M 

ADDRfSSM 

19262 

TX 

ZERO  M 

- 

1927 

WD,  B39TA8M 

K 1777  M 

ADDRESS  M 

1929 

TS,  EBANKMSK 

ICOMMON  +2 

ADD  REV 

1931- 

TNT 

AD 

A6 

LA 

ICOMMON 

zerom 

1933 

LA 

ICOMMON 

BA8M 

1935 

LA 

ICOMMON 

BA7M 

1937 

LA 

LOCM 

I LOW  HALF 

1939 

LA 

ADDRESSM 

K53777M 

1 9 A 1 

LA 

AGMAXPl 

ADDRFSSM 

1 9 A2 

TS 

K 37777 

I COMMON  *2 

19  AA 

LA 

ADDRESSM 

K 17777M 

1 9 a6 

LA 

KA7777M 

ADDRFSSM 

19A68 

TX 

B3ATA8MM 

- 

19a7 

T NT 

AD 

mar 

WD 

ADDRESSM 

K 10000  M 

19a9 

LA 

ADDRESSM 

M 57777 

1951 

LA,  B33T35M 

SBN<  REGM 

zerom 

19512 

NA,  833T35M 

ADDRESSM 

SBNK  REGM 

1 9 5 A 

TS,  B33T35M 

I COMMON  *2 

ADDRfSSM 

1956 

EX 

ADDRESS  M 

I COMMON  *2 

1958 

1 NT 

AD 

OAF 

NA ,62 AM 

INT  ADDR 

zerom 

I960 

EX 

ADDRESSM 

K 1777  M 

1952 

WA 

ICOMMON  +2 

ADD  REV 

1953 

LA 

K 2000  M 

ADD  REV 

1955 

TNT 

AD 

A 1 5 

LA 

ICOMMON 

B48M 

1957 

INT 

AD 

A12 

WA 

ADDRESSM 

BA8M 

1959 

INT 

AD 

DUN 

NA 

store  com 

zerom 

1971 

NA,B7M 

INT  ADDR 

ONESM 

1973 

HA 

ADDRESSM 

B3ATA8MM 

1975 

TNT 

AD 

A10 

TN 

INT  ADDR  +1 

A 

1977 

INT 

WD 

pot 

NA 

LoC  M 

LOC  HOLD 

1979 

INT 

WD 

RUN 

LA 

ONES  M 

LOC  HOLD 

19B0 

WA 

LOC  HOLD 

B48M 

1952 

INT 

WD 

HAT 

SWS,CHAR8M 

ADDRESSM 

12 

1 9 5 A 

INT 

WD 

TOS 

TS,C1TaM 

zerom 

LINEM  +6 

1955 

SWS.ACol 

ADDRESSM 

33, L 

1956 

INT 

WD 

BAD 

SWS , ACo2 

ADDRESSM 

30.L 

1957 

SWS.AC03 

ADDRESSM 

27, L 

1958 

SWS.ACoA 

ADDRESSM 

2 A , L 

1959 

ss 

ADDRESSM 

B3ATA8MM 

1991 

INT 

WD 

RET 

TX 

LBCCHECK 

- 

19922 

SBNK 

. CUSM 

TX 

ADDRESSM 

— 

1992A 

SWE.  CAC3M 

LAGP2  BAS 

16 

1993 

INT 

WD 

SUM 

NA 

store  com 

zerom 

1 9 9 A 

TN 

INT  ADDR  +1 

A 

1996 

TNT 

WD 

NUt 

NA 

LoC  HOLD 

LoC  M 

1998 

INT 

WD 

bot 

LA 

ONES  m 

Loc  hold 

2000 

WA 

LOC  HOLD 

B48M 
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int  ad  ace 

C » + 2 

INT  ERR  Al  +1 
INT  ERR  21 
INT  AD  A6 
IC0MM0N  *2 
ICOMMON  *2 
INT  AD  OAF 

INT  ERR  A 1 
INT  AD  F 
INT  ERR  Al 
C * ♦ A 

INT  ERR  A1 
INT  ERR  A 1 
INT  AD  MAR 
INT  ERR  A 1 
INT  ERR  A1 
ICOMMON  *2 
ADDRESSM 
INT  AD  OAF  -1 
C.  + 2 

SBNK  CUSM 
INT  AD  OAF 
ADDRESSM 
INT  AD  A 1 5 
ICOMMON  +2 
ADD  REV 
INT  ERR  25 
INT  AD  DUN 
ADDRESSM 
INT  AD  STO 
C.  + 2 

ADDRESSM 
INT  ADDR 
INT  ERR  33 
INT  ERR  33  -1 

loc  hold 

LINeM  +5 
INT  WD  117 
LINEM  *6 
LINEM  +6 
LINEM  + 6 
LINEM  +6 
WORDM 
Z,SC 

ADDR  WDM 

z.sc 

INT  AD  STO 
INT  ADDR 
INT  ERR  33 
INT  ERR  33  -1 
LOC  HOLD 


USER’S  OWN  PAGE  NO.  A3 

JUMP  IF  ADDRESS  In  buffer 

SETPD  ADDRESS  MUST  6e  IN  VAC  area, 
error  IF  IN  53  TO  77  OCTAl  RANGE 
JUMP  IF  AOOO  OCTAL  OR  OVER.  MAyBf  FIXED 

FAKE  UP  AM  ADDITIVE  TO  TEST  FOR  ARRAY 
REFERENCE  ACROSS  e-BANKS. 

error  IF  ADDR  E TYPE 

JUMP  IF  15  BIT  A TYPE  ADDR 

ERROR  IF  ADDR  ARC-COS  E TYPE 

JUMP  IF  INT  INST  LOC  IN  MfMoRY  LoW  HALF 

ERROR  IF  ADDRESS  OUTSIDE  5A000- 1 h 7777 . 

CHOP  TO  1A  8ITS 

ERROR  IF  ADDRESS  OUTSIDE  2OOOO-A7776 


change  to  fcadr  type  format 

BRANCH  IF  aDDReSS  ISN'T  IN  A SUPfR-RaNK. 
BRANCH  IF  THERE  IS  NO  SUPfRBANK  SETTING. 
BRANCH  TO  cjss  SUPERBANK  FRROR. 

reduce  SU?ER-BANKs. 

HOPE  INDEXING  will  RIGHT  A WRONG  IF  ANY 
checking  crossing  bank  Boundaries  now 

jump  if  boundary  crossed  by  aDdr»s  words 
JUMP  IF  Not  USING  aRC-CCS  FoRM 
change  TO  ARC-CCS  TYPE  FORM 
return  to  store  Routine 

JUMP  IF  X2  NOT  USeD 

COMPLEMENT  if  X2  used 

ADVANCE  ADDR  DATA  WORDS  OR  ZEROES 

error  if  non  polish  word  appeared 

increment  polish  count 

proceed  to  place  agc  word  on  print  line 


15  BIT  agc  word  IN  with  MfMoRY  Map  char 
RETURN  AT  BC  CHECK 


USE  GENERAL  SUPERBANK  CuSSING  ROijTINf. 


advance  ADDRESSES 

error  if  non  polish  word  appeared 

BRANCH  IF  LoC  CtR  HAS  BAD  VaLUE, 

increment  polish  location  counter 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


• 

L 

(SYUL 

SYSTEM 

ASSEMBLER 

AoC  PASS  2 

2002 

tx.citam 

blotm 

20DA 

TS.CHAR8M 

blotm 

LINEM  +5 

• 

2005 

SWE.GNESMM 

L BCCHeCK 

16 

2007 

INT 

AD 

ACE 

NA.B2AM 

INT  ADDR 

ZeROM 

2009 

WA 

ADDRESSM 

ADD  REV 

t 

2010 

LA 

ADD  REV 

K 52  M 

2012 

INT 

ERR 

25 

TS.B1M 

ONESM 

1,27 

20iA 

t NT 

ERR 

A 

TX 

Z.Rl 

m 

• 

2015 

LA,  CAC3M 

ICOMMON  + A 

L INT  OPPP 

2016 

TS,B33M 

ONESM 

1,25 

2018 

TS.017M 

ONESM 

1,25 

• 

20?0 

INT 

ERR 

8 

TX 

Z.Rl 

2021 

LA,  CAC3M 

ICOMMON  + A 

L INT  OPPP 

2022 

TS,B33M 

ONESM 

1,22 

• 

202A 

TS , B 1 7M 

ONESM 

1,22 

2026 

INT 

err 

20 

TS,BlM 

ONESM 

1.26 

2028 

INT 

ERR 

21 

TX 

Z.SH 

• 

2029 

NA.B2AM 

INT  ADDR 

ONESM 

2031 

LN 

zerdm 

ADDR  WDM 

2033 

TS,B33M 

ONESM 

1,27 

• 

2035 

INT 

ERR 

A 1 

TS.B17M 

ONESM 

1,3 

2037 

LA 

AG  M AXP 1 

ADDRfSS  m 

2039 

SWe.ONeSMM 

L PRB  ADR 

0 

• 

20U 

LN 

ZEROM 

ADDR  WDM 

20  a2 

TS 

w negativ 

A , 1 

20AA 

TX 

Z.SH.l 

• 

20a5 

INT 

err 

33 

TX 

LOC  M 

_ 

20C.7 

TX.B17M 

ONESM 

- 

2 0 a9 

TX 

Z.SH 

. 

• 

2050 

INT 

ERR 

AO 

TS 

- 

a 

2051 

INT 

WD 

117 

NA.CHARlM 

CARDM 

blank sm 

2053 

na.charim 

CARDM  +2 

blanksm 

• 

205A 

TX 

m 

_ 

2056 

TX.B33M 

ONESM 

- 

9 
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user's  0/kn  page  no.  aa 


L.INEM  ♦6 
INT  WD  117 

z.sc 

INT  AD  A15 
ADD  REV 
INT  AD  A 1 5 
INT  AD  A 1 5 
ICOMMON  + A 
Ct  + 2 

INT  OP  MUT 
INT  OP  MUT 
ICOMMON  +A 

C » *2 

INT  OP  APE 
INT  OP  APE 
INT  WD  SUM 
Z.R1 

INT  ERR  A1 
N *R  1 
C » ♦ 2 
C » ♦ 1 

INT  WD  SUM 

z,csc 

INT  WD  SUM 
INT  WD  SUM 


BLOT  5 CHARACTERS 
C 

RETURN  AT  NAUGHTY 

HOPE  INDEXING  will  right  WRoNG  IF  ANY 

JUMP  IF  BUFFER  BOUNDARY  NnT  E*CEFDFD 
FLAG  CBBB  FLAG 


FLAG  RIGHT  OP  MoDe  OUT/IN  MISMATCH.  MTMJ 
FLAG  LEFT  OP  MODE  OUT/IN  MISMATCH.  ROP2 


RIGHT  OPCODE  ILLEGALLY  INDEXED.  IXP2 
LEFT  OPCODE  ILLEGALLY  INDfXeD.  IXP2 
NO  OPCODE  FOR  THIS  ADDRESS,  ANao 

JUMP  IF  NOT  INDEXED 
JUMP  IF  ADDRESS  POSITIVE 
CANNOT  HANDLE  NEG  ADDR  WITH  INDEXING. 
BAD  RANGE  FOR  ADDR.  AS it 

branch  if  address  is  unprintable. 

C GO  TELL  man  WHAT  ADDR  VALUE  IS 

if  negative  addr,  just  say  so  instead 


loc  hold 

1.27 
Z.SC 

INT  ERR  Al 
C.  ♦3 
C . +2 

1.28 


Reset  int  location  counter 

FLAG  I AOS  CJSS 


c column  i must  be  blank 
c 

COLUMN  17  MJST  BE  BLANK 


PAGE  211 


# 

L @VUL  SYSTEM  ASSEMBLER  AGC  PASS  2 USER'S  OWN  PAGE  NO.  AS 

9 


2 

P2057 

PROCEDURE  ' 

TO  LET  BASIC 

CHEC<  UP  ON 

POLISH  EXPECTATIONS 

2058 

TNT 

WD 

DOG 

TX 

l ge  base 

„ 

Z,X3 

c 

general  pass  2 variable  storage  addr 

1 

2050 

TX 

Z.MXR 

m 

PASS2  MXR 

c 

switch  mxrs 

1 

2052 

TX 

CHEC<  UP 

- 

Z .MXR 

c 

s • 

2053 

LA 

ONES  M 

LOC  M 

INT  WD  MUS 

c 

branch  if  location  is  bad. 

c 

2055 

NA 

interp  WD 

ZEROM 

INT  WD  NOT 

c 

JUMP  IF  LAST  WORD  WAS  POLISH 

2057 

NA.B25T27M 

ONESM 

INT  ADDR 

INT  WD  NAT 

c 

JUMP  IF  C type  address  NOT  EXPECTED 

i 

'2059 

TNT 

WD 

SHO 

TN 

INT  ADDR  +1 

A 

INT  ADDR 

r 

s 

2070 

NA 

LOC  HOLD 

LOC  M 

INT  WD  FOS 

c 

jump  if  polish  sequence  broken 

o _ 

2072 

INT 

WD 

SOT 

LA 

ONES  M 

LOC  HOLD 

C . + 2 

c 

o m 

2073 

WA 

LOC  HOLD 

Ba8  M 

loc  hold 

r 

increment  polish  location  counter 

2 

2075 

INT 

WD 

NOT 

SWe.ONeSMM 

L A3P2  BAS 

32 

z.XA 

c 

ADDR  OF  #5ENDW0RD# 

5 

2077 

TX 

PASS2  MXR 

■ 

Z.MXR 

c 

RESTORE  MASKS 

2 * 

2079 

TS 

zerom 

INTERP  WD 

4,1 

c 

zero  polish  word  flag  and  exit 

s 

2091 

TNT 

WD 

NAT 

LA 

INT  ADDR 

ZeROM 

INT  WD  ZAP 

c 

JUMP  IF  NO  POLISH  ADDR  EXPECTED 

i 

2053 

NA.031M 

INT  ADDR 

zerom 

INT  WD  TOM 

c 

JUMP  IF  PJSHUP  NOt  ALLOWED 

20g5 

NA 

B48  M 

MODE  OUT 

C.+2 

r 

w 

< 

2096 

TNT 

WD 

TOM 

T5.B33M 

ONESM 

1.29 

INT  WD  SHO 

c 

CALL  POLISH  ADDR  EXPECTED  ERROR 

o 

2098 

LA 

B47T48MM 

MODE  OUT 

C.-l 

c 

JUMP  IF  POLISH  WORD  REQUIRED  HERf 

Q 

2090 

NA.B34M 

word  m 

zero  m 

INT  WD  SHO 

c 

jump  if  word  is  negative 

2092 

TS,Bl7M 

onesm 

1.29 

INT  WD  SHO 

c 

error,  push JP  REQUIRES  neg  word  HERf 

2094 

TNT 

WD 

ZAP 

NA 

B48M 

mode  out 

C , + 2 

c 

2095 

INT 

WD 

FOS 

TS,BlM 

ONESM 

1.29 

C , + 2 

c 

error,  previous  equation  UNFINISHED 

2097 

LA 

B47T48MM 

mode  out 

C.-l 

c 

jump  if  polish  word  expected  herf. 

2099 

TS 

B47M 

mode  out 

INT  WD  SOT 

c 

set  interpreter  to  unknown  out  mode 

2 1 D 1 

INT 

WD 

MUS 

LA 

ONES  M 

LOC  hold 

C , + 2 

c 

2132 

WA 

LOC  HOLD 

Basm 

loc  hold 

c 

CAN'T  tell  ANYTHING  IF  LOCATION  IS  Bad. 

2 1 34 

TX 

PASS2  MXR 

- 

Z.MXR 

r 

RESTORE  MXR.  Zero  polish  word  flag. 

• 

2136 

TS 

ZEROM 

INTERP  WD 

N.SC.l 

c 

EXIT  USING  SENDwORD  BRACH 

2138 

INT 

PATCH 

RESERVE 

9 

2139 

DCT 

0 

i" 


I 
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t 


P22DO  Procedure  td  evaluate  bnksum  constants,  the  address  field  should  give  a. bank  number  Or  an  address  within  a 

*2232  FIXED  BANK.  NORMALLY,  THIS  PROCEDURE  PLACpS  TWO  ADReS-SeLF  WORDS  INTO  THE  NAMeD  JR  IMPLIfD  BANK,  StARjING  AT 

R223A  THE  FIRST  JnUSeD  WORD  IN  T«E  BaNK  (THe  BANK  SHOULD  BE  empTY  FROM  THAT  PoINT  ONWARD) . HoWeVeR,  IF  THE  FIRSt  HoLe 

R2236  OCCURS  LATER  THAN  RELATIVE  3775.  THE  NUMBER  OF  ADRES_SeLF  WORDS  IS  ReDUCeD  TO  ONE  OR  ZeRO.  IF  THp  BANK  IS  FULL, 

R22D7  AN  ADReS-SELF  WORD  GOE5  INTO  3777  WITH  A CONFLICT  CUSS,  IF  THE  BANK  IS  EMPTY,  IT  WILL  RECEIVE  ADR£S-SeLF  WORDS 

R2208  ONLY  IF  SqMe  HIGHER  BANK  IS  OCCUPIED. 


2209 

fnksum 

TS 

L USD  FMaX 

Z » S3 

INT  OP  SET  C 

INITIALIZE  VARIOUS  ReGiSTfRS. 

• 

2211 

LA 

OCT  70  M 

ADDRfSS  m 

bnksum  ad 

branch  if  address  is  not  a bank  number. 

2213 

LA 

BA6M 

ADDRFSS  M 

C , +2 

22 1 4 

LA 

B47M 

ADDRESS  M 

C , +2 

• 

2215 

WA 

ADDRESS  M 

Ba6M 

ADDRESS  m 

add  4 TO  ANY  BaNK  NUMBER  BUT  2 OR  3. 

2217 

SWE 

, ONESMM 

ADDRESS  M 

10, L 

address  m 

FORM  ADDRESS  2000  WITHIN  NAMED  BANK. 

• 

2219 

fnk  sum  ad 

LA 

B37M 

ADDRESS  m 

C , + 2 

address  mjst  be  in  fixed. 

2221 

TX 

L PR  BADR 

- 

Z.SC 

2222 

TX, 

B39T48M 

ZERO  M 

m 

ADDRESS  m 

• 

2223 

SWE 

, CAC3M 

L HOW  HI  F 

16 

Z,CSC  C 

point  to  beginning  of  bank,  find  max  bk. 

2225 

LA 

ONES  M 

N , S3 

C , + 2 

BRANCH  IF  ND  FIXED  WAS  OCCUPIED  (ODD). 

2227 

LA 

ADDRESS  m 

N , S3 

DO  BNK  SUM 

BRANCH  UNlESS  BANKSUM  IS  UNNECESSARY. 

• 

2229 

SWE 

» CAC3M 

L E3K2  XIT 

32 

Z , S3 

2230 

TS 

W NO  NEED 

LINE  +6 

N , S3 

PLANT  GOOD  NEWS  AND  JOIN  fBANKs  PROC. 

• 

2232 

ro  BNK  SUM 

SWE 

» ONESMM 

ADDRESS  M 

5 

I COMMON 

22322 

TN 

W WDS  LEFT 

2 

LINE  *2 

2233 

WA 

M AV  TABLE 

I COMMON 

Z.AUl 

point  TO  FIRST  avail  WORD  For  high  bank. 

• 

2235 

TS 

Z.AJl .31 

Z,X6 

C,  + 3 

ALSO  POINT  to  last  POSSIBl  E AVAll  word. 

2237 

WA 

ADDRESS  M 

OCT  40  M 

ADDRESS  M 

2238 

LA 

Z.AJ1 

Z,X6 

FOUND  HOL  +2 

BRANCH  IF  A30UT  TO  Do  LAST  POSS.  AV  WD. 

• 

22  AO 

LA 

N.X6.1 

CAC3 

C,-2 

FIND  AN  AVAIL  WORD  WITH  A HOLE. 

22  42 

FOUND  HOL 

WD 

Z.X6 

ONE 

Z,X6 

• 

22  A3 

TS 

bit  1 

AV  MsK 

FIND  AVWD 

GOT  ONE.  NOW  Go  FIND  THE  HOLE. 

22  A5 

LA 

B30M 

N,X6 

FOUND  HOL  +1 

IF  HOLE  IS  BEFORE  3776  OF  BANK,  2 TC'S. 

22  A5A 

TX 

ONES 

. 

2ND  HALFM 

• 

22  a56 

SWE 

. CaC3M 

I PROC  WD 

32 

MOD  RTRN  M 

show  that  banksum  will  be  at  Most  ip. 

22  A58 

NA, 

B3lM 

6,0 

zero  m 

FOUND  HOL  +1 

BRANCH  IF  IT  IS  INDEED  ONf  WORD, 

• 

2 2 A6 

NA, 

B32M 

6,0 

ONES 

C , + 2 

22  A62 

TS, 

B32M 

ZERO  M 

6,0 

DO  BNK  SUM  -2 

NO  NEED  FOR  TC  SElF$  IF  ONE-WORd  HOi  F. 

• 

22  A7 

SM 

HEALTH  M 

BIT  16 

HEALTH  M 

3" 

2249 

TS, 

B32M 

ONES 

6,0 

FOUND  HOL  +1 

CUSS  CONFLICT  AND  FORCE  hole  At  fnd. 
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P2250  FIND  FIRST  HOLE  IN  BaN<  FOR  BNKSUM,  OR  THE  FORCED  ONE  AT  3777. 


2251 

MASKGRP 

S,0 

F , 0 

2252 

FIND  a V WD 

TS 

I GENL  MXR 

Z.MXR 

C , + 3 

2253 

WA 

ADDRESS  M 

ONE 

address  m 

KEEP  ADDRESS  GUESS  UP  TO  HATE. 

2255 

SWE.  ONES 

AV  MSK 

1 

AV  MSK 

2256 

NA,  A V MSK 

6,0 

ONES 

C,-2 

SEEK  A ONE-WORD  HOLE  IN  BANK. 

2258 

TS.  A V MSK 

zero  m 

6,0 

FIND  AV  WD  +2 

C 

get  set  TO  LOOK  At  WORD  For  2ND  TC  SfLF. 

2 2 SO 

LA 

CAC3 

AV  MSK 

C , +2 

22  S 1 

SWE,  BIT  1 

Z , X 6 , 1 

32, L 

AV  MSK 

ADVANCE  TO  NEXT  AVAIL  WD  IF  NECESSARY. 

22622 

NA 

2ND  HALFM 

ONES 

C , + 2 

BRANCH  IF  THERE  Are  2 TC  SELFS. 

22624 

LA 

bit  1 

AV  MSK 

SUM  CONFQ  *3 

BRANCH  IF  JJST  CUSSED  FULI  BANK. 

22  S3 

NA,  AV  MSK 

6,0 

ZERO  M 

C , + 2 

22s4 

TX,  BIT16 

ONES 

- 

HEALTH  m 

CUSS  CONFLICT  OF  2ND  TC  SfLF  OR  CHKSUM. 

22  642 

TS,  AV  MSK 

zero  m 

6,0 

FIND  A V WD  *2 

c 

GET  Set  TO  LOOK  At  THE  CHfCKSUM  WORD. 

22  643 

LA 

ONES 

2ND  HALF  M 

SUM  CONFQ  *3 

BRANCH  IF  THERE  IS  ONE  TC  SeLF  WORD. 

22  646 

LA 

CAC3 

AV  MSK 

SUM  CoNF  Q 

2265 

SWE,  BIT  1 

Z , X6  * 1 

32, L 

AV  MSK 

2ND  TC  SELF  WAS  At  END  OF  AVAIL  WORD... 

22653 

SWS,  B26T30 

Z «X6 

15, L 

C , ♦ 1 

...WAS  IT  ALSO  AT  END  Op  pARAGRApH? 

22656 

SWE,  ONES 

BIT  1 

0 

I COMMON 

2266 

SWE,  D 1 2 

Z,X6 

8 

Z , AU1 

22663 

WA 

I SJSTAB 

Z.AUl 

Z.AUl 

22666 

SM 

n,aji 

I COMMON 

N.AUl 

MAY  CREATE  A PARAGRAPH  JUST  FOR  CHKSUM. 

2267 

SUM  CONFQ 

NA,  AV  MSK 

6,0 

ZERO  M 

C , +2 

22673 

TS,  BIT16 

ONES 

health  m 

C,  + 2 

cuss  conflict  in  checksum  WORD  ITSEi  f. 

22676 

TX,  AV  MSK 

zero  m 

v 

6,0 

RESERVE  CHECKSUM  WORD. 

2268 

SWE,  CAC3 

I TYP  TAB 

16 

Z ,X6 

2269 

LA,  C AC3 

ADDRESS  M 

6,0 

C , + 2 

BRANCH  WHEN  MEMORY  TYPE  IS  FOUND. 

2271 

TS 

Z.X6.1 

- 

C,-l 

2272 

SWE,  ONES 

B28T30 

3,L 

AV  MSK 

2273 

NA,  AV  MSK 

6,0 

B26MM 

BKSUM  LoC  -2 

BRANCH  IF  1ST  ADDreSS  IS  NOT  IN  FIXfD. 

22742 

LA 

ONES 

2ND  HALF  M 

BKSUM  LOC  -1 

BRANCH  IF  THERE  Is  ONE  TC  SELF. 

2275 

NA,  CAC3 

ADDRESS  M 

6,0 

C,  + 2 

branch  if  second  word  is  in  fixed  too. 

2277 

SM 

health  m 

BIT  15 

health  m 

set  WRONG. MeMORY-TYPE  flag. 

2279 

ss 

address  m 

CAC3 

health  m 

imitate  the  action  of  pass  i For  a con. 

22  31 

PKSUM  loc 

ss 

zero  m 

bit  8 

health  m 

clear  SYMBOLIC-LOCATION  FI  AG. 

2293 

SWE,  ONES 

B47T48MM 

3 

WORD  M 

2234 

SWE.  CAC3 

L INSTRNT 

16 

Z ,X6 

2295 

TS 

Z,SC 

Z,X4 

6,2 

now  do  location  value  processing. 

2297 

TX 

ADDRESS  M 

- 

ADDR  WDM 

DISTRIBUTE  address. 

2239 

T AGCMXR  C 

SWE,  CAC3 

I AoC  MXR 

32 

Z.MXR 

s 
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P22B95  finish  up  bnksum  locatidnis),  display  count  of  remaining  words  in  bank. 


2290 

maskgrp 

s.l 

F , 1 

2291 

NA 

LOC  M 

ONES 

C.+2 

2292 

SWE, 

CAC3M 

I BAD  BASC 

32 

z.sc 

EXIT  NOW  IF  LOCATION  IS  BAD. 

2294 

LA 

ADDRESS  M 

OCT  7777 

FF  BNKSUM 

BRANCH  IF  IN  FIXED  FIXeD. 

2296 

TX, 

BANKMASK 

OCT  2000 

m- 

ADDR  WD  M 

convert  bank  notation. 

22972 

TS 

OCT  3777 

I COMMON 

FF  BNKSUM  +1 

22974 

WA 

OCT  3777 

B 38  M 

I COMMON 

s 

22976 

WA 

OCT  3777 

B 37  M 

I COMMON 

s 

modify  subtraction  For  fixed-Fixfd. 

22978 

FF  BNKSUM  SSL. 

onem 

ADDR  WD  M 

10 

C.-2 

c 

2301 

WD 

I COMMON 

ADDR  WD  M 

i common 

number  of  words  Left  in  bank,  in  binary. 

2303 

SWS. 

CHAR5M 

I COMMON 

A ,2  ,L 

c.  + i 

230A 

DT 

MID  CAC  64 

I COMMON  +1 

2305 

SWS. 

CHAR5M 

I COMMON 

A , 3 » L 

C.-.1 

2306 

DT 

B32MM 

I COMMON 

2307 

SWE. 

CAC3M 

L P2  D2AZS 

32 

Z.X4 

2308 

DA 

I COMMON 

I COMMON  ♦ 1 

4,5 

number  of  wds  leFj  in  BANK,  IN  DfCIMAL. 

2310 

TS 

I genl  mxr 

Z,MXR 

N,X4 

c 

convert  TD  ALPHABETIC,  SUPPRESS  ZEROS. 

2312 

TS 

- 

- 

I AGCMXR  C 

c 

DONE  THUS  TD  SAVE  MASKGRP  CAROS— LAZY. 

2313 

SWS. 

C1T4M 

4,5 

A ,4  »L 

LINE  *2 

SET  REMAINING-WORD  COUNT  IN  PRINT. 

23142 

NA 

2ND  HALF  M 

ONES 

C » + 2 

23144 

SWE, 

CaC3M 

L AD  adrwd 

16 

Z.SC 

EXIT  HERE  WHEN  THeRE  IS  ONE  TC  SfLF. 

23146 

WA 

ADDR  WDM 

ONE 

2ND  HALF  M 

FORM  SECOND  TC  SELF  WORD. 

2315 

SM 

ADDR  WDM 

BIT  1 

ADDR  WDM 

2316 

SWE, 

CAC3M 

L PRIN  2PA 

32 

z,sc 

make  adr  wd  positive  and  go  print  words. 

L 
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Roooi  we  ar-  deeply  indebted  to  the  one*  the  only*  he  sreai  John  haw  for  the  following  strong  magic.... 

R0003  JSOCTL 


OOOA 

SET  LOC  * 2 

siz  pass 

2 

B1 

0005 

MASAGrR.a 

S,1 

F , 1 

R0006 

THE  1300 

Part  df  paS5 

2 contains 

only 

THE 

00072 

OCT 

0 

0008 

reserve 

15 

0009. 

1800  *1XR 

mashase 

S,1 

F » 1 

0010 

OCT 

0 

0011 

SETLOc*A 

768 

B5 

0012 

B*B2T5M 

OCT 

36 

0013 

B,36T16M 

OCT 

0177  7 A 

00 1 A 

B ♦ B 1 8 T 2 VM 

OCT 

0000  017 

0015 

B*322T32M 

OCT 

-7  7760  0000 

0016 

B»33AT37M 

OCT 

-7  AOOO 

0017 

B * 3 3 8 ) A 8 M 

OCT 

-3777 

and  CODING  to  SET  UP  The  CUs5  list. 


USER'S  OWN  PAGE  NO 


2 


PAGE  216 
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P001 8 &AN<  5 PORT  10N  OK  1800  PaSS  2.  EnTER  IN  COSEOUEvjcE  MODE  WITH  1800  MXR  In  Z,MXR*  ADDRESS  CUSSaLOG  in 

R0020  AU2,  AND  ADDRESS  CUSS  LIST  IN  AUi.  BANk  INDICATOR  5 IS  LEFT  tN  R5.  BANk  5 ALSO  CONTAINS  MASKS  FOR  1B00  PASS  2. 


0022 

SETL0c»3 

0 

B5 

0023 

unscramb 

SWL , 

B38TA3M 

N,AU2 

0 

N , A J 1 

r 

zero 

DEMAND  bits,  move  subaddr  df 

CUSS3. 

0025 

sws, 

B34T37M 

N,AU2 

25 

N,AJ1 

c 

Move 

poison  bit  and  length  of  cjss 

3. 

0027 

sws, 

B22T32M 

N.AU2 

4 , L 

N,AJ1 

C 

move 

subaddress  of  CUSS  2. 

0029 

sws, 

B18T21M 

N.AU2 

13 

N , A J 1 

c 

MOVE 

poison  bit  and  length  of  cjss 

2. 

0031 

sws, 

B6T  1 5 Mi 

N,AU2 

8 , L 

N,  AUI 

r 

MOVE 

subaddress  of  cuss  1. 

0033 

sws, 

B2T5  ti 

N,AU2,l 

1 

N , A J 1 , 1 

c 

move 

poison  bit  and  length  of  cjss 

1. 

0035 

NA 

N , AU2 

SENTINEL 

JNSCR AM3 

c 

0036 

TX 

Z , AU2 

_ 

Z,R5 

s 

SET 

BANK  INDICATOR  5 IN  R5 » EXIT. 

0038 

CUSSA  _0G 

m,d*aoo 

CDNO  loss 

0039 

RESERVE 

18 

0040 

M,D,OFE 

NMCl  CUS5 

CaFS  CJS4 

0041 

reserve 

3 

0042 

m,d,eoo 

NMC2  CJSS 

0043 

reserve 

8 

0044 

SENTINEL 

pec 

BBOO  ffff 

0045 

CDNO 

CUSS 

alf  * a 

card  number  out  of 

SEQJENCE 

0046 

NMCl 

cuss 

ALF  ,5 

no  match  found  for 

card  njMber 

OR  ACCEPT 

0047 

ALF 

OR  TEXT 

0048 

CAFS 

CUSS 

alf  , 5 

first  Card  number 

NOT  LESS  THAN 

SECOND 

0049 

NMC2 

CUSS 

ALF, 5 

no  match  found  for 

second  card 

NUMBER 

END 

OF  REVl 

SION 

27  OF  PROGRAM 

YULPASS2  BY  Hb-S 

[ 
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THERE  ARE  NO  SYMBOLS  IN  THIS  ASSEMBLY. 


# 

* 

the  assembly  ^as  gqqd : manu- acturable  binary  records  stored  bn  experoOs. 

# 

♦ ■ 

♦ 

♦ 

* 

• 

9 

9 

* 

3" 

# 

9 

2" 

9 

9 

i" 
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Roooi  wt  are  deeply  indebte^io  the  one.  the  only,  The  great  John  shaw  for  the  following  strong  magic. 7V7~ 

R0003  JSOCTL 


OOOA SET  LOC . 1C  o ai 


0005 


MAS^GRP.l  S.O  F * 0 


R0006  YUL  SYSTEMi  PASS  3 HAS  A VARIETY  OF  FUNC'UONS.  PRINTED  OUTPUT  CONSISTS  OF  THE  FOLLOWING: 


R0008  1)  A SYMBOL  I ABLE  ANALYSIS,  GIVING  EACH  SYMBOL,  1]S  EQUIVALENT  IN  OCTAL  AND  WHATEVER  ADDITIONAL  NOT  AT  ION 

R0010  MAY  BE  CONVENIENT  FOR  THE  OBJECT  MACHINE,  THE  P AGf  OF  DEFINITION,  THE  NUMBER  OF  REFERENCES  TO  IT,  THE 

Room  _ page 5 of  first  and  last  ReFeRe_nce  to  ii.  and  a coped  flag  indicating  ns  state  of  health; 


R0012 

Rooia 

2) 

A SJMMArY  Op  THE  ABOVE.  GiViN5  THE  NUM3tR  OF  SYMBOLS  in  EACH  HEALTH  CATEGORY.  THE  IOTAl  NUM3ER  OF 
SYMBOLS,  AND,  if  the  SYMBOL  TABLE  OVERFLOWED,  how  many  symbols  too  many; 

ROO 1 52 
ROO 1 5 A 

3) 

AN  ERASABLE  AND  EQUIVALENCE  CR JSS-REFe RENCe  table  (A  SUBSET  OF  the  SYMBOL  table  ANALYSIS)  CONSISTING 
of  symbols  defined  by  erase  and  by  eqjals,  ordered  on  value  of  definition,  shoeing  the  definition, 

R00156 

PAGE  OF  DEFINITION,  AND  THE  SYMBOL! 

R00157 

A) 

A SJMMARY  OP  WORD  COUnTS  FOr  ROUTINES  \iaMED  IN  CDUnT  CARDS.  WITH  AN  ANALYZER  FOR  THE  LAST  REACH  OF 

R00159 

THE  ROUTINE* 

ROO  1 6 

5) 

AN  AVAILABILITY  TABLe  DISPLAY,  SHOEING  WHICH  LOCAlIONS  W£RE  WHICH  MEMORY  TYPE  DURING  THIS  ASSEMBLY, 

ROO  1 8 

AND  (FOR  E OR  F LOCATIONS)  WHICH  WERE  RESERVED  * 

ROO 181 

6) 

An  INDEX  TO'  OCCUPIED  LOCATIONS,  SHOW  I \|G  ON  WHAT  PAGE  EACH  WORD  )S  DEF'InED; 

ROO  1 9 

7) 

A LIST  OF  THt  PARAGRAPHS  GENERATED  BY  ASSEMBLY,  WITH  MANUFACTURING  LOCATION  CODE  IF  APPLICAB.e; 

R0020 

R0022 

R0023 

8) 

a listing  of;  each  paragraph  Generated,  designating  the  contents  of  each  location  as  any  of  the 

FOLLOWING...  (A)  AVAILABLE. 

(B)  A BASIC  INSTRUCTION. 

R002A 

R0025 

R0026 

(C)  AN  INTERPRETIVE-LANGUAGE  woro. 

(D)  A CONSTANT , 

(E)  A BAD  WORD  ( E.G.  AN  INSTRUCTION  WITH  AN  UNDEFINED  ADDRESS  SYMBOL), 

R0028 

R00282 

(F)  UNDETERMINED  becajse  UP  conflict,  OR 

(G)  HAVING  OTHER  QUALITIES  APPROPRIATE  TO  A PARTICULAR  MACHINE!  AND 

R0028A 

9) 

a listing  of  subroutines  called,  showing  0\T~wHat  page  each  is  called,  and  on  what  page  each  Gesins. 

R0029 

PASS  3 

ALSO  UPDATES  T Ht  ByPt  AND  YUL  FILE  ON  THE  YUL  SYSTEM  PROGRAM  FILe  TAPE  (YULPROGS  El  AL) , AND  PJTS  31  NARY 

R00302 

RECORDS 

FROM  NON-REJSCjhD  PROGRAM  ASSEMBLIES  ON  THE  DISC  FILf. 

L @YUl_  SYSTEM  ASSEMBLER  — PASS  3 USER'S  OWN  PAGE  NO.  2 PAGE  2 

PQ031  HEMS  FOR  INTERPASS  SIORAGE. 63  WORDS. ___ 


0032  PROG  NAME  RESERVE  1 

0033  NEXT  NAME  RESERVE  1 

003A SWITCdi RESERVE L 

0035  L OLD  LINE  RESERVE  1 

0036  QLP  LINE RESERVE 1_6 

0037  PAGE  HEAD  RESERVE  16 

0038  PAGE  HP RESERVE 1. 

00 AO  STM  p „ACE  RESERVE  1 

00 A 1 SYM  TAB  XS  RESERVE  1 

00A2 L COP  BUFS  RESERVE 1 

00  AA  MID  P Dll  NT  RESERVE  1 

00A5 LiiL  COUNT RESERVE 1 

00A6  N WD  REUS  RESERVE  1 

00A7  E SYIT  BAN  RESERVE  1 


00A8  L PROG'  FIL  RESERVE  1 

00A9  N LINES  RESERVE  1 

0010 L COM  J NAM  RESERVE  1 

0051  N COPIES  RESERVE  1 

105 1 1 PAPER_ PLY  RESERVE  1 

00512  ERR  PASSES  RESERVE  1 

00513  N ERR  LINS  RESERVE  1 

00 5 1 A L AUTHi  NAM  RESERVE 1 


00515  SURS  NAME  RESERVE  1 

00516  CUMPJTJER  RESERVE  1 

00518  *SEG  OWNER  RESERVE  1 

00519  SUBSTRAB  RESERVE  8 


R0053 

the  Following  instruction 

IS  PLACED 

AT  ME  BASE  AODRESS63F 

PASS  3 (10077)  FoR  CONVENIENCE. 

0055 

YUL  PASS  3 

TS 

L DIKECTY 

2 * X 5 

1NISH  P 3 

FIRST  INSTRUCTION  EXECUTED  IN  PASS 

R00561 

SIMULATED 

EXTENDED  TS 

routine.  placed 

HERE  TO 

TA<E  ADVANTAGE  of  the  7. 

00562 

00563 
0056A 

El  S 

EQUALS 
SWS.  C7T8 
EX 

YUL  HASS  3 
ETS 
N * AU1 

12 

CAC  3 

C.  + 2 C 

ETS  C 

ADDRESS  OF  REGiSTER  TO  BE  LOADED. 
INPUT  IS  16  BITS. 

00565 

00566 

00567 

EBA 

NA 

TX 

ETS 

Z.CSH 

2.AU2 

BIT  25 
Z.SC 

z.o  c 

N.AU2  C 

Z.SC  s 

OUTPUT  IS  2 A BITS. 

EXIT  IN  SAME  MODE  AS  ENTRY. 

EXIT  IN  SAME  MODE  AS  ENTRY 
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P0057  FIELD  AND  SHIM  MaSK5  PUR  PASS  3. 


0058 

B * B I T 3 

OCT 

002 

0059 

B * PROS'  SUB 

OCI 

001 

0060 

b»spe:sign 

OCT 

-10  0000 

0061 

B*BIT3A 

OCT 

-aoooo 

0062 

B * S3  3 1 AO 

OCI  _ 

- 1 7 7 A 0 0 

0063 

B»BA1TA8 

OCT 

-377 

006A 

OLT  377 

EQUALS 

BAlTAB 

0065 

B »8AA  TA5 

OCI 

-30 

0066 

BtLSTYPE 

OCT 

-7000  0000 

0067 

B»DA 

DEC 

OOOG 

0068 

B » CH  A Ri7 

OCI 

-7700 

0069 

B*CHAR8 

OCT 

-77 

0070 

B * CAC l 

DEC 

GGGG 

0071 

B * C AC  3 

DEC 

-GGGG 

0072 

B * A V A I L^SK. 

OCT 

0 

VARIABLE  MASK. 

007A 

B*D1 

DEC 

G 

0076 

B * CHA  Til 

ocr 

77 

0077 

B*BAN3iITS 

OCT 

-760  0000 

0078 

B * B I T 1 1 

OCT 

0002 

0079 

B » CAC2 

DEC 

0000  UoGG 

00  80 

B » A V M ASK2 

OCI 

0077  7777  7777  7777 

SECOND  VARIABLE  MASK,  FOR  RDA. 

0081 

B * THREE 

OCT 

-3 

0082 

B * C5  T 3 

OCT 

7777  7777 

0083 

B.C7T3 

OCT 

-7777 

008A 

B»B36TA8 

OCI 

-1  7777 

0085 

b.decalfmi 

OCI 

1 

-vj 

O 

c 

o 

o 

-4 

-4 

-4 

0086 

B.DECHLFM2 

OCT 

-7 A 007A  007A  007A 

0087 

B.C1TA 

OCT 

7777  7777 

0088 

B*GR0JP1ND 

OCT 

-7A000 

0089 

B * B 1 T 1 3 

OCT 

OOOOA 

0090 

B*C6T3 

OCT 

-77  7777 

0091 

6* DIO  Oil 

DEC 

-GGO 

0092 

B * B I T 1 6 

OCT 

00000 A 

L 
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P0093  FURTH-R  SHIFT  MASKS* 


009A 

0095 

S*B26T30 

S.B39TA2 

OCT 

_£KI 

-3700  0000 
^T,  700 

0096 

S*B39TA8 

OCT 

-1777 

0097 

S*B31T39 

OCT 

-777  000 

0098 

S * ONE 

OCT 

-1 

0099 

S » TWO 

OCT 

-2 

0100 

S iMEJi 

DEC  ... 

GGGG  GGGG  GGGG 

0101 

S * 0 1 2 

DEC 

-G 

0102 

S * AC. 01  _ 

_ OCT.  _ 

07  

0103 

SiACD2 

OCT 

0007 

010A 

S » ACO  3 

OCT 

0000  07 

0105 

S»ACOA 

OCI 

0000  0007 

0106 

S » ACD5 

OCj 

-0700  0000 

0107 

S*AC  OJ, 

OCT 

-07  0000 

0108 

S * ACD  7 

OCT 

-0700 

0109 

S * AC03 

OCT 

-07 

0110 

s«spe:mag 

OCT 

-77777 

0111 

S * CAC 1 2 

DEC 

GGGG  GGGG 

0112 

S * C2  T A 

OCL 

0077  7777 

0113 

S * CHA  96 

OCT 

-77  0000 

qua 

S * CT  12 

OCT 

7777 

0115 

S»DECALEM3 

OCT 

1717  1717  1717  1717 

0116 

S.C1T5 

OCT 

7777  7777  7777 

0117 

S*C3T5 

OCT 

0000  7777  7777 

0118 

S*C3T  3 

OCT 

-7777  7777  7777 

0119 

S*BAAfA8 

OCT 

-37 

0120 

S*C1T7 

OCt 

7777  7777  7777  77 

0121 

S*TH9£AD10 

OCT 

-3776 

0122 

S * TH9  £AD 1 1 

OCT 

-3777 

0123 

S » A AORES 

OCT 

0000  7777 

0125 

S.C5T7 

OCT 

-7777  7700 

0126 

S*B15T16 

DEC 

0003 

u 

PQL2JL 

@yul  system  assembler 

RESERVATIONS.  _ _ 

— PASS  3 

USER'S  OWN  PAGE 

NO. 

5 

PAGE 

5 

012B 

LINE  5T0R 

reserve 

6 

01281 

ALT  .5 

0 L2JB2 

ALT *5  . 

0129 

euivleni 

RESERVE 

1 

0130 

ADDRESS 

RESERVE 

1 

0 11 1 

COMP  3, ITS 

. RESERVE  _ 

1 

0132 

END  LINE 

RESERVE 

1 

0133 

IMAGE 

RESERVE 

2 

0136 

INDEX 

RESERVE 

15 

0137 

N SJ3-!IL  1 

RESERVE 

1 

0138 

DISC  ADRS 

RESERVE 

1 

OHO 

TOTAL  ^DS 

reserve 

2 

USES  ONE  WORD  OT 

THE 

COMPARE 

array. 

01401 

COMPARES 

RESERVE 

3 

u 

HQ  1 409 

eyuu  system  assembler  — pass  3 

NUMERIC  CONSTANTS. ._  _ ...  ... .. 

USER'S  OWN  PAGE  NO.  6 PAGE  6 

0141 

54  LINES 

OCT 

0066 

01415 

BLAN<  C8 

OCT 

-15 

01417 

P8T12 

DEC  . 

-GGGGG 

0142 

FIFTEEN 

FXBIN 

-15 

J1L43 

Mil  _ 

OCT 

4 

01-44 

BIT  12 

OCT 

0001 

01441 

BIT  25' 

OCT 

-4000  0000 

0145 

ZERO 

QCI 

0 

0146 

B7T8 

OCT 

0060 

0147 

EUJR 

DLL 

-4 

0148 

EIGHT 

DEC 

-8 

01481 

TWELVE 

FXBIN 

-12 

0149 

304 

DEC 

0003 

0150 

604 

DEC 

0006 

0151 

C200  _.  ...  . 

FXBIN  .. 

_ . -200  ...  _ ....  

0152 

BIT  32 

DEC 

-1  0000 

0153 

SPACE  2 

OCT 

0002 

. _ 0154 

SPACE  4 

QCi 

0004 

0155 

C32 

0C1 

-40 

0156 

5 LINES 

OCT 

0005 

0157 

TYPE  N. 

OCI 

-1000  0000 

0158 

TYPE  pi 

OCT 

-2000  0000 

01581 

ban  eofki 

OCT 

-420  0000 

01582 

LAST  SS  NO 

OCT 

0 

01583 

PH  FLAG  A 

OCT 

0 

01584 

PH  FLAG  c 

OCT 

0 

01585 

L NEW  LINE 

OCT 

0 

01586 

BIT  23 

OCT 

0000  0020 

01587 

OCT  230 

OCT 

-200 

01588 

YUL  FILE 

OCT 

-7001 

01589 

BIT  33 

OCT 

-100  0000 

015891 

SIX 

OCT 

-6 

015892 

35  C2 

OCT 

0035 

0159 

OWED  5YM 

OCT 

0 

01591 

SYM  LINER 

OCT 

-526 

01592 

ONE  T -III RD 

OCT 

-253 

01593 

FULL  3AoE 

OCT 

-5357b 

01594 

ONE  FIFTH 

DEC 

♦33  333  333  333 

01595 

B1B11 

OCT 

4002 

01596 

C 80 

FXBIN 

-80 

01597 

D4T8 

DEC 

OOOG  GGGG 

L eYUL  SYSTEM  ASSEMBLER  — PASS  3 

P0160  FIRST  PAGE  OF  ALPHABET! £ ..CONSTANTS., 


USER'S  OWN  PALE  NO.  7 PAGE  7 


01601  ST  COU  HDG  ALE, 5 SYMBOL  H DEFINITION  REFERENCES  F 

016015 SETL0C.6C  512 05 

01602  SYM  FOOT  1 ALF , 5 KEY!  SYMBOLS  DEFINED  BY  E3UALS  ARE  Fl  AGG 

01603  ALF, 5 ED  =.  OTHERS  ARE  NORMALLY  DEFINED  EXCEP 

016035  ALF, 2 T THOSE  FLAGGED: 


01604  SYM  FOOT  2 ALF. 5 U UNDEFINED E FAILED  LEFtOVE 

01605  ALF, 5 R ERASE  M MULTIPLY  DEFINED  T 

01606  ALF, 5 WRONG  MEMORY  TYPE  MM  MULTIPLE  ERRORS 


01607  SYM  FOOT  3 ALF, 5 N NEARLY  DEFINED  SY  = J FAILED  LeFjOVe 
01606  ALF, 5 R WORD  0 OVERSIZE-  OR  IL-L-DEFINED  C 
01609 ALF, 5 CONFLICT  IN  MEMORY  X M.ISC.  TROJBi  E 


016095 


SETLOC,! 


L 

HQ  1 6099 

gYUL  system  assembler  — 

StCQNOi  PAGE  OF  ALPHABET 

PASS  3 

1C  CONSTANTS.  ..  . .. ... 

UStR'S  OWN  PAGE  NO.  8 PAGE  b 

0161 
QJJ>2 

PAGE  HED2 

OCT 
ALE  ,5 

0002 

SYMBOL  r ABLF  LISTING.  INCLUDING  PAGF  NUM 

0163 

0164 

ALE  .5 
ALE  ,5 

BER  UE  DEFINITION.  AND  NJHBtR  OF  REFeREN 
CtS  WITH  FIRST  ANJ  LAST  PAOt  NUMBERS 

01641 

016-42 

01643 

SUP  R£VOK 

ALE  ,5 
ALE  * 5 
ALE  .5 

MAP  REVOKED  BECAJSE  OF  CJSSES  (»XXX;  EA 

0165 

W MO  SYMBS 

ALE  *5 

THERt  ARE  NO  SYMBOLS  IN  THUS  ASSEMBLY. 

01651 

AV  SJBHED 

ALE  .5 

MEMORY  TYPE  6 AVAILABILITY  DISPLAY 

01652 

w spe:-  non 

ALF  »4 

SPECIAL  OH  NONEXISTENT  MEMORY 

01653 

SUBL  HEAL) 

ALF.4 

SUBROUTINE  REV#  CALLED  BEGINS 

L 

@YU|_  SYSTEM 

ASSEMBLER 

— PASS  3 

USER'S  OWN  PAGE  NO.  9 PAGE  9 

P0166 

THIRD  PAGe 

OF  ALPHABe 

TIL  CONSTANTS.  W SJMMARY  THROUGH  CHAR  AFT  ARF 

AN  INVIOLABLE  ARRAY. 

016605 

SE1L0C.6 

01661 

W SUMMARY 

ALF  * A 

SUMMARY  oF  SYMBOL  TABLE  LlSjI\|G 

_ _ 01665 

_UtALUi_0  . 

ALF  1 2 

_ _ undefined  _ . . ..  . . 

01667 

■0167 

0168 

HtALTHl  1 
Ht  ALT  Mi  2 

ALF  »3 
ALF  ,5 
ALF  _ 

NtARLY  DEFINED  BY  EQUALS 

MULTIPLY  DEFINED  INCLUDING  NEARLY  BY  EQU 

ALS 

0171 

Ht ALT H-  3 

ALP  »3 

DEFINED  BY  EQUALS 

0174 

Ht  ALT  Hi  4 

ALF  *5 

MULTIPLY  DEFINED  INCLUDING'  dY  FQUALS 

0176 

0177 

0178 

HtALTRi  50 
Ht  ALT  Hi  51 

ALF  .5 
ALF 
ALF  ,5 

leftover  WHICH  failed  to  fit  in  erasable 
MEMORY 

leftover  which  failed  to  fit  in  fixed  me 

0179 

0180 

Ht  ALT  Hi  6 

ALF 
ALF  .2 

MORY 

normally  defined 

0181 

0182 

0183 

Ht  ALT  Hi  7 
HtALTHl  8 
HtALTHi  9 

ALF  ,4 
ALF  .3 
ALF  ,5 

GIVEN  MULTIPLE  DEFINITIONS 

oversue-  or  ill-defined 

ASSOCIATED  WITH  WRONG  MEMORY  TYPE 

L 

@YU|_  SYSTEM 

ASSEMBLER 

— PASS  3 

USER'S  OWN  PAGE  NO.  10  PAGE  10 

HO  1 835 

FUJRHI  PAGE 

. OF  ALPHAS 

cUC  CONSTANTS.  SLE  ALSO  THIRD  PAGE.  _____ 

•J-  in 
ao  co 

— » »— « 

o o 

HE  ALT  Hi  B 

ALF  *5 
ALF  .2 

ASSOCIATED  WITH  CONFLICT  IN  FIXED  OR  ERA 
SABLt  MEMORY 

0186 

0187 

0189 

Ht  ALT  Hi  C 
Ht  ALT  HI  D 

ALF  *5 
ALF 
ALf  « 5 

MULTIPLY  DEFINED?  OVERSIZE-  OR  ILL-DfFIN 
ED 

multiply  defined;  ASSOCIATED  *ith  WRONG 

0190 

0191 

0192 

Ht  ALT  Hi  t 

ALF  * 2 
ALF*  5 
ALF  .4 

MEMORY  TYPE 

MULTIPLY  DEFINED;  ASSOCIATED  WITH  COnFLI 
CT  IN  FIXED  OR  ER4SABL£_M-Mury 

0193 

0194 

Ht  ALT  Hi  F 
_ HtALT Hi  & 

ALF  *2 
ALF  *3 

MULTIPLt  ERRORS 
IN  MISCELLANEOUS  IROUBlE 

0195 

HtALTHl  NF 

ALF  *4 

FAILED  TO  FIT  IN  SYMBOL  TAULE 

0196 

CHAR  5Et 

ALF  * 5 

H-1800  CHARACTER  SEQUENCE  ' 360  LAC<5  •/& 

0197 

0198 

ALF  *5 
ALF  «5 

SBC)!  0123456789'=:  >5  +ABCDEFGHI : . ) % 

«7  -JXLMNOPUR#$»"'^«  </S|UvWXYZg.  (c,nC 

L 

@YUL  SYSTEM 

ASSEMBLER  — 

PASS  3 

USER' 

S OWN  PAGE  NO. 

11  PAGE  11 

R02Q0 

FIFTH  PftGE 

OF  ALPHABETIC  CONSIAuTS.  _ . 

0205 

0206  _ 

W RES  FI  XT 
W AVA  F 1 XT 

ALF  t A 

ALT  * A _ 

RESERVED  FIXED  MEMORY 
AVAILABLE  IXEJO  MEMORY 

0207 

0208 

W RES  ERAS 
W AVA  ERAS 

ALF  * A 
ALF  .A 

RESERVED  ERASABLE  MEMORY 
AVAILABLE  ERASABLE  MEMORY 

02085 

SE1L0C.1 

0209 

5UBSTRED 

ALF  * 5 

paragraphs  gfneraied  for  this  assembly; 

0210 

0211 

0216 

BLAN<5 

ALF  *5 
ALF  .A 
ALF 

ADDRtSS  LIMITS  A NO  THE  MAHUFACT JR1 No  LOC 
AT  I ON  C0dE  ARE  srOwN  FOR  EACH. 

(MUST 

BE  15TH  WORD  OF 

5UB5TREP) . 

02161 

021611 

REJECT 
REJ  REV 

ALF  * A 
ALF. A 

ALL  INPUT  CARDS  WERE  REJECIED. 
PRECEDING  REVISiON  R EM  A I Nc,  pN 

021612 

02163 

REJ  VERS 
REJAS  MSG 

ALF  .A 
ALF  ,3 

THE  NEW  VERSION  IS  NOT  F 1 =ED  ON 
ALL  INPUT  CARDS  REJECTED 

L 

@YUL  SYSTEM  ASSEMBLER 

— PASS  3 

USER'S  OWN  PAGE  NO.  12 

PAGE  12 

__  P02166 

sixth  page  of  alphab. 

EliC  CONSTANTS.  

02169 

0217 

W END  OF  ALE 

JUYFJl,  _ ALE 

END  OF 
GOOD 

0218 

0219 

02191 

HUHUM  ALE 

HURRIOi  ALE 

WORSE  ALE. 3 

FAIR 

BAD 

LOUSY  ROIIEJN  BILIOUS 

JOYFUL  THRJ  WORSE+2  FORM  AN 

array. 

0220 

ASSEMBLY  ALE. 3 

assembly;  filed  dn  disc 

0222 

L^ST  LINE  ALP.  3 

-ooooooothe  assembly  was 

0223 

0224 

0225 

GOOD  3AD  ALE, 5 

ALE".  5 
ALE .3  _ 

NAWSTY  IMANUFACTJHABUE  BINARY  RECORDS  ST 
ORED  ON  YULPROGS 

0226 
. 0227 

GUOD  ALE 

MtDIOCRE  ALE 

good: 

fair; 

0228 

02285 

BAD  ALE 

DISC  TOO  ALE, 2 

BAD?  UN 

CORDS  ON  DISC  6 

0229 

0230 
0231 

NU  WORDS  OCT 

ALE  .5 
ALE 

0020 

NO  WORDS  WERE  GENERATE?  FOR  THIS  ASSEMBL 

Y. 

0234 

0215 

err  SJMM  L ALE, 5 
yul  PASS  0 ALE 

linee  cussed  between  p a ges  .and 

YULPASSCL 

this  gets  straightened  out 

during  run. 

023509 

02351 

02352 

W A JT  MEMO  ALE 
W SYM3LS  1 ALE 
YUCCHHH  ALE. 2 

authmemo 

SYMBOLS  1 
YUCCCHHEIH 

u 

P023525 

@YUL  SYSTEM  ASSEMBLER  — PASS  3 
StYENTH  PAGE  OF  ALPHA.3t.liC  CONSTANTS, 

USER'S  OWN  PAGE  NO.  13 

PAGE  13 

02353 

US  YM  CUSS 

ALF  *4 

undefined; 

02354 

ALF  *4 

6 MORE 

02355 

OUS  F RUST 

ALF  ,5 

NO  DISC:  CANiT  MARK  OBSQLilt  PKQGS  ON  IT 

02356 

eecr  subh 

ALF  » 5 

ERASABLE  6 EQUIVALENCE  CR35S-REFERENCE  T 

023561 

ALF  *5 

able*  showing  definition,  page  of  dffini 

023562 

ALF  *2 

TION,  AND  SYMBOL 

0235? 

BLOT  _C8 

ALF  

■ 

023572 

999  R£FS 

ALF 

999 

023574 

OVER  1000 

ALF 

>1K 

023576 

DITTO 

ALF 

M 

023576 

999  COUNT 

ALF 

999 

02356 

DASH  C3 

ALF 

- 

023562 

DASH  C6 

ALF 

- 

023564 

DASH  C3  C 7 

ALF 

• ~ 

02359 

PERIOD  Cl 

ALF 

• 

023592 

UNDRLINE 

ALF 

— 

023594 

W TOTAL 

ALF 

total: 

023596 

w through 

ALF 

through 

023596 

E BLOTS 

ALF 

E«>a--a 

0236 

W REF 

ALF 

REF 

023602 

W LAST 

ALF 

LAST 

023604 

W TO  078 

ALF 

TO 

02361 

W JNCOUNT 

ALT  *5 

(UNCOUNTED)  (NO  BLAN<  COUNT  CARDS) 

&YUL  SYSTEM  ASSEMBLER 


L 


— HASS  3 


H02362  ElSHTHi  PAGE  OF  ALPHA3EIIC  CONSTANTS. 

02363  CUJNT  HDG  ALE  .A  ROUTINE.  COUNT  UAIA  TOR  ROUTINE' 

023631 ALP  .A S LAST  REACH ; TOT AL i CUM JL 


USER'S  OWN  PAGE  NO.  14  PAGE  1A 


L 

@YUL  SYSTEM 

ASSEMBLER 

— PASS  3 

USER'S  OWN  PAGE  NO,  15  PAGE  15 

P02369 

AI^QKFSb  CONSTANTS# 

0237 

P 3 MASKS 

MASKBASE 

S,0  F * 0 

0238 

L DIRECTY 

SPEC  *B7 

DAMN  2ERo 

0239 

L LIN'  STOP 

SPEC 

..  UNE  STOP 

02391 

L COM^ARS 

SPEC 

COMPARES 

02  AO 

L SYM  TAB 

SPEC ,B8 

DAMN  ZERO 

02  A 1 

L SYM  TOOT 

SPEC 

SYM  FOOT  1 

02  A2 

YP3  SY  SPX 

SPEC 

END  PR  SvM 

02  A3 

SPEC 

PRINT  SYM  -1 

02A5 

L AY  0 I SPL 

SPEC 

AY  DISPLY 

02A51 

L PROS'  IAB 

SPEC,  B3 

DAMN  ZERO 

02A52 

L END  PTAB 

SPEC,  B3 

DAMN  ZERO 

02A6 

L SYM  THR 

SPEC  ,B5 

836 

02  A7 

L TYP  TAB 

SPEC ,B5 

900 

02A8 

L SYMHl  VEC 

SPEC 

SYMH  VECT 

02A9 

L AY  TABLE 

SPEC, BA 

DAMN  ZERO 

02A91 

L 3 AM <i  5 

SPEC,  B5 

DAMN  ZERo 

02A92 

bp  lo;  bo 

SPEC  *B5 

80 

02A921 

B5  LOS'  129 

SPEC.B5 

129 

02  A93 

M TYP£  LAX 

CAL 

W AVA  F 1 XT  W RES  TIXT 

w spec  non 

02A9A 

USY  P.ACE 

CAC 

W RES  ERAS  W AYA  ERAS 

1ST  JNSYm 

0250 

L S03STRB 

SPEC 

SJBSTRA3 

0251 

L W SJMARY 

SPEC 

W SUMMARY 

0252 

E BUFFERS 

CAC 

30720  A500 

5500 

0253 

DT  PLACE 

SPEC 

DISC  BUFf 

02531 

L DISC'  BUT 

SPEC 

DISC  BUFF 

02532 

END  DF  BUF 

SPEC 

DlSCBUFF  + 1 02 A 

R025395 

ROUTINE  FOR 

1 ALL  UNMANAGEABLE  TROUBLES. 

025396  DISASTER  MPCt  H 2,1  301  Vl^N  PCR  IMITATE  THE  ACTION  OF  A BACKGROUND. 

025398  ALT  DISASTER 


L @YUL  SYSTEM  ASSEMBLER  — PASS  3 USER'S  OWN  PALE  NO.  16  PftSE  16 

P025A EQUIVALENCES. 


0255 
02552 

0256  _ 

N SYM  RECS 
DEC»R£VN 
WDF  RSTRN 

EQUALS 

EQUALS 

equals 

MIDPOINT 
SORS  NAME 
MIDPOINT 

02561 

B38TA3 

EQUALS 

THREAD11 

0257  _ 

DAMN  ZERO 

EQUALS 

0 

025708 

zx  . 

EQUALS 

8 

02571 

SPRA 

EQUALS 

128 

02  572 

SP  R AMR. 

EQUALS 

38  A 

02573  SPRAM  EQUALS  896 


02575  YP3 EQUALS IMAGE 

02576  SYM  LINES  EQUALS  IMAGE  +1 

02577  DtPAGI N8  EQUALS  E BUFFERS 

02579  SUBR3  NO  EQUALS ADDRESS 

0258  SPACE  1 EQUALS  BIT  12 

02581  N FECRS  EQUAL S COMP  BI  LS 

02582  EECR  3AGE  EQUALS  COMPARES 

02583  EXCESS  EQUALS  COMPARES  +1 

025BA  CULUMN,  EQUALS  COMPARES  *2 

02585  N OCT  ERRS  EQUALS  COMP  BITS 

02586  OCT  3?77  EQUALS THREAD  11 

02587  OCT  7777  EQUALS  C7T8 

02588  CULON  C6  EQUALS  GOOD 

0259  BLOTS EQUALS  SUP  REVUK 

0260  N RECORDS  EQUALS  NEXT  NAME 

0261  B1THRJ32  EQUALS  CAC12 


02611  CUJNT  PTR  EQUALS.  COMP  BITS 

02612  ROUTINES  EQUALS  COMPARES  +1 

026 1 A CUJNT  PAG  EQUALS  COMPARES  +2 

02615  THREAOi  1 EQUALS  IMAGE 

02616  THREAD  2 EQUALS  IMAGE  +1 


u 


@YU|_  SYSTEM  ASSEMBLER 


PASS  3 


USER'S  OWN  PAGE  NO.  17 


PAGE  17 


P0262 ASSIGNMENTS. 


0264 

ALL  DONE 

ASSIGN 

N,R3 

0265 

FOUND  SYM 

ASSIGN 

N,R4 

0266 

OLD  SsALE 

ASSIGN 

N.X5 

0267 

LINE 

ASSIGN 

0.0 

02675 

E BUFFER  1 

assign 

1.0 

0268 

E BUFFER  2 

ASSIGN 

3.0 

02685 

PHI  TAPE  _ 

ASSIGN  ___ 

7.1 

02687 

EUR 

ASSiGN 

7,4 

0269 

PHI  load 

ASSIGN 

7.7 

02695 

PHI  R.EAS 

ASSIGN 

7,19 

0270 

PHI  PRINT 

ASSiGN 

7,23 

0271 

MUN  EOERI 

ASSIGN 

7,31 

02715 

BASE  ADDR 

ASSIGN 

7,47 

0272 

MUN  WAKE 

ASSiGN 

7.99 

02725 

L DFNDX  AD 

ASSIGN 

7,107 

0273 

DI  SCA3l 

ASSIGN 

7 » 1 1 A 

02735 

mun  sleep 

ASSIGN 

7,166 

02738 

DISC  STAT 

ASSiGN 

7,210 

0274 

MUN  TYPER 

ASSIGN 

7,215 

02742 

MUN  p:r 

ASSiGN 

7,220 

02743 

DISC  CHEK 

ASSIGN 

7,221 

02744 

GET  U3G  NO 

ASSiGN 

7,225 

02745 

DISC  READ 

ASSIGN 

7.239 

02  746 

DISC  WRIT 

ASSIGN 

7,24/ 

L 

P 02:7  5 

(2YUL  SYSTEM 

ASSEMBLER  - 
SYMBOL  heal 

- PASS  3 USER'S  OWN  PAGE  NO.  18  PAGE  18 

LH  VECTOR,  PACKED  A 5 HOLLOWS! BITS  I-18.  SYMBOL  TABLE  LISTING  FLaG  AND  BLOT!  BIT  25,  MO- 

R0277 

VALID-LOCATION  INDICATUR;  BI|S  27- 

30, 

LENGTH 

IV  WORDS  OF  THE  CORRESPONDING  HEALTH  DESCRIPTION;  AND  BUS  33-A8. 

R0279 

CUUNTERS  FOR  SYMBOLS  IN  EACH  STATE 

OF 

health. 

0280 

SYMH  VECT 

M.A.U 

A," 

A.KD 

0281 

M.A.N 

A." 

A.LD 

0282 

m.a.nm 

A , ■ 

A, 00 

0283 

DEF  3 Y EqU 

M . A ♦ = 

A » ■ 

A, 30 

02 8 A _ 

M,A,=M  _ _ _ 

AjA  _ 

A.  50 

0285 

M * A . E 

A." 

A , 0 J 

0286 

M.A.U 

A," 

A » DO 

0287 

NORM,  D£P 

M . A . _ _ . 

A , ■ 

A. 20  . 

0288 

M.A.M 

A » • 

A,  AO 

0289 

M.A.O  _ _ _ 

A. ■ _ 

A.LO  _ 

0290 

M ♦ A . T 

A . ■ 

A, 50 

0291 

m.a.c 

A » ■ 

A, 70 

02  92 

M.A.OM 

A , * 

A ♦ 00 

0293 

M.A.TM 

A." 

A, 70 

.029a 

M.A.CM 

A , * 

A » 90  _ 

0295 

m.a.mm 

A » ■ 

A , < 0 

0296 

M.A.X 

A . ■ 

A.LO 

0297 

SYMBDU  xs 

M . D * GGG 

D.GGG 

A,  AO 

0298 

N SYM30LS 

DEC 

0 

R0385 

INITIALIZE 

SYMBOL  TABLE 

OPERATIONS 

OF  MAIN  PASS  3. 

0387 

P 3 MASKER 

TX 

P3  MASKS 

. 

Z.MXR 

03872 

TX 

L AV  TABLE 

Z.XA 

0388 

LA,  CAC3 

L SYM  TAB 

A , 1 

READ  SYMS  BRANCH  IF  THERE  ARE  ANY  SYMBUL5. 

0390 

TN 

W NO  SYMBS 

5 

LINE  *1  ANNOUNCE  LACK  OF  SYMBOLS. 

0392 

TS 

L AV  DISPL 

Z , X A 

print  ltm  and  go  directly  to  availability  display. 

R039A 

ROUTINE.  TO' 

PICK  SYMBOLS 

OUT  OF  THE 

SYM30L  TABLE  In  ALPHABETICAL  ORDER,  USeD  UOINfLY  AND  MoRe  OR  LfSS 

R0396  SIMULTANEOUSLY  BY  MAIN  PASS  3.  WHICH  OPERATES  IN  GROUP  A AND  PRINTS  EACH  SYMBOL  WITH  lib  DEFINITION  AND  STATE  OF 

R0398  HEALTH,  AND  BY  WS3,  WHICH  OPtRAIES  IN  GROUP  C AND  wriTLS  THE  SYMBOL  TABLE  ON  TAPE  JUST  BEFORE  THE  BYPT  RECORD 

R.OAOO  FUR  THE  PROGRAM. FOUND  SYM  AND  ALL  DONE  ARE  ASSIGNED  TO  INDIRECT  MEMORY  ADDRESSES. 


OA02  Rt AD  5YMS  TX  L AV  TABLE  - Z,X3 

0A03 TS Z ,X3 . 1 - THREAD  *2 POINT  TO  FIRST  SPEC  PAIR, 


0A05 

0A06 

THREAD, 

LA,  CAC3 
WA 

3,0 
N ,X3 

L AV  TABLE 
ONE 

C , + 2 

Z ,X3 

0A08 

EX 

N,X3 

CAC3 

N , R 1 

0A09 

EBA 

N ,R  1 

BIT  25 

Z,X3 

OA 1 0 

LA 

ONES 

N , X 3 

ALL  DONE 

0 A 1 2 

TS 

N ,X3 , 1 

N,  R1 » 1 

FOUND  SYm 

BRANCH  IF  SYMBOL.  NOT  SPEC  PAIR. 

point  to  the  second  spec  of  the  pair. 

USING  RE-ENTRANT  TEMP  STORAGE. 

ADVANCE  TO  THE  NEXT  SYMBOL. 


SUPPLY  SYMBOL  TO  CALLING  GROUP 


L 

P0_41A 

yYUL  SYSTEM  ASSEMBLER  — PASS  3 
ROJTImE  USED  DURTnG  STMbOL  TABLE  PRINTING  TO 

Place  symbols  defined 

BY 

USER'S  OWN  PAGE  NO.  19  PAGE  19 

erase  And  equals  into  a list  orderfd  om 

R0415 

R0416 

NUMERICAL 
VACATED  BY 

VALUE  OF  DEFINITION.  FORWARD  AND  1 

the  symbol:  reference  information. 

3 ac< w ard  THREADS  are  placed  IN  the  SYMBOL  table  entry  in  THp  PLACE 
OJpUrS  ARE  N pECRS  AND  A POINTER  TO  THe  FIRST  ONE  (IN  Rq7. 

04168 

_EtcR  J1ST 

TS 

Z,SH 

z.sc 

C,  + l 

r 

into  coseuuence  for  easy  exits. 

0417 

04175 

04185 

TX 

LA.  CAC3 
IS 

L TYP  TAB 

EUIVLENT 

Z.X4.1 

4,0 

Z,X4 
C,  + 2 
C.-l 

c 

c 

c 

BRANCH  WHEN  MEMORY  TYPE  IS  KNOWN. 

0419 

LA,  LS  T Y 3E 

BIT  25 

4,0 

C.  + 2 

c 

BRANCH  IF  DEFINITION  IS  IN  ERASABLE. 

0420 

LA.  D4 

6 04 

2,1 

END  THIRD  +1 

c 

exit  if  definition  was  not  by  equals. 

0421 

WA 

N EECRS 

ONE 

N EECRS 

c 

EECR  = ERASABLE  6 EQUIVALENCE  CROSS- 

0422 

NA 

N EECrs 

ONE 

TRY  high. 

c 

REFERENCE  TABLE  SYMBOLS. 

0423 

EBA 

4 , X2 

ZERO 

Z,SO 

c 

04232 

eba 

Z,X2 

zero 

Z,RO 

s 

FIRST  EECR  IS  NEW  HIGH  AND  NEW  lOW. 

0423H 

TRY  Hi  GH 

EBS 

Z.X2 

BIT  25 

ADDRESS 

c 

0424 

EBA 

Z,SO 

ZERO 

Z »X6 

c 

04245 

LA,  CAC2 

6*1 

2,1 

NEW  HIGH 

c 

BRANCH  IF  NEW  EECR  N01  LESS  THAN  MAX, 

04265 

TRY  -LOW 

EBA 

Z ,R0 

ZERO 

Z ,X4 

r 

0427 

LA,  CAC2 

4,1 

2,1 

BETWEEN 

c 

BRANCH  IF  NEW  EECR  NOT  LESS  IhAN  mIN. 

0428 

NtW  LOW 

SWS,  CAC2 

ADDRESS 

16, L 

4,2 

c 

old  min  points  backward  to  new  min. 

0429 

EBS 

Z,X4 

BIT  25 

ARG  1 

c 

new  min  points  forward  to  old  min. 

0430 

TS,  CAC3 

ARG  1 

2,2 

TRY  HIGH  -1 

c 

RO  ALWAYS  POINTS  TO  MINIMUM. 

04308 

NtW  H I OH 

EBS 

Z,X6 

BIT  25 

ARG  I 

c 

0431 

SWS,  CAC2 

ARG  1 

16, L 

2,2 

c 

NEW  MAX  POINTS  BACKWARD  TO  OLD  MAX. 

0432 

ss 

ADDRESS 

CAC3 

6,2 

c 

OLD  MAX  POINTS  FORWARD  TO  NEW  MaX. 

0433 

eba 

Z,X2 

ZERO 

Z,SO 

S 

SO  ALWAYS  POINTS  10  MAXIMUM. 

0434 

BtTWEEN 

WD,  CAC2 

2,1 

4 » 1 

ARG  I 

c 

NEW  EECR  - MINIMUM. 

0435 

WO,  C Ac2 

6*1 

2,1 

ARG  2 

c 

MAXIMUM  - NEW  EECR. 

0436 

LA,  CAC2 

ARG  1 

ARG  2 

LO  HALF 

c 

04365 

HI  HALF 

SWE,  CAC3 

6,2 

16 

ARG  1 

c 

FOLLOW  BACKWARD  THREADS. 

043702 

EBA 

ARG  1 

BIT  25 

Z ,X4 

c 

04371 

LA,  CAC2 

4,1 

2,1 

POT  EECR 

c 

BRANCH  IF  NEW  EECR'S  PLACE  IS  FOUND, 

0 4 3 7 l a 

EBA 

Z,X4 

zero 

ZtX6 

c 

04372 

TS 

- 

HI  HALF 

r 

043721 

EBA 

Z.X6 

ZERO 

Z ,X4 

c 

04373 

LU  HA  l.F 

S,  ETS 

4,2 

ZX  *6 

C,+  l 

FOLLOW  FORWARD  THREADS. 

04374 

LA.  CAC2 

6,1 

2,1 

LO  HALF  _1 

c 

BRANCH  UNLESS  NEW  EECR'S  PLACE  IS  FOUND. 

04375 

PUT  EECR 

SS 

ADDRESS 

CAC3 

4,2 

c 

NEXT  LOWER  EECR  POINTS  FORWARD  fO  NEW. 

043758 

EBS 

Z,X4 

BIT  25 

ARG  1 

c 

04376 

SWS,  CAC2 

ARG  1 

1 b ♦ L 

2,2 

c 

NEW  EECR  POINTS  BACKWARD  TO  NEXT  LOWER. 

043768 

EBS 

Z ,X6 

BIT  25 

ARG  1 

c 

04377 

SS 

ARG  I 

CAC3 

2,2 

c 

NEW  EECR  POINTS  FORWARD  TO  NEXT  HIGHER. 

04378 

SWS,  CAC2 

ADDRESS 

16, L 

6,2 

s 

NEXT  HIGHER  EECR  POINTS  BACKWARj  TO  NEW. 

L 

SYUL  SYSTEM 

ASSEMBLER  - 
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PQ438 

ROUT  InL.  TO' 

ACCEPT  A SYMBOL  FOUND  BY  REA! 

L_Uj  LXS_D£F_LNIT  iQN-t^THL-  PAGE  On  WHICH  THE 

R04382 

SY  MB 3 _ WAS 

DEFINED,  Ht  NUMBER  OF"  REPERENLeS  TO  It 

WITH  THE  FIRST 

and  last  pages  with  references,  and  a coded 

R04384 

FLAG  INDICATING  ITS  STAlt  OF  HEALTH. 

A <cY  TO  THE 

FLAGS  IS  PRINTED  AT  THE  BOTTOM  OF  EACH  PAGE,  IF  THE  SYMBOL 

R04386 

TABLE  LISTING  Is  SUP 3ReS5£D . SYMBOLS 

THAT  ARF  NORMALLY  DfFINfD  OR 

defined  by  fuuals  are  not  printed,  inis  roj- 

R04388 

TINE  COUNTS  UP  THE  NJMBeR  of  symbols 

IN  EACH  STATE 

OF  HEALTH.  SYMBOL  INFORMATION  is  printed  IN  THREE  COLJMNS. 

043898 

_ LA 

CAC12 

3,1  _ 

OWE  SYM  o +1 

bypass  multiple  definition  introduction. 

0439 

print  sym 

SSL,  TWO 

SWITCH 

32 

C,  + l 

"BrAnCH"  iF  SYMBOL  TABLE  is  SUPPRESSED. 

04394 

LA 

ACO  7 

SYM  LINER 

PL  THREAD  -1 

BRANCH  IF  A PAGE  IS  UNDER  CONSTRUCTION. 

04398 

TS  _____ 

LINE 

LINE  n 

PL  THREAD  -2 

START  NEW  PAGE  BY  COPYING  RECEIVED  SYM. 

04402 

SUPP  SYMS 

NA,  D4 

3,0 

6 D4 

NOT  6 TRY  3 

BRANCH  IF  NOT  NORMALLY  DEFINED. 

04406 

DA,  CAC3 

NORM  DEF 

ONE 

NORM  DFF 

COUNT  GOOD  SYMBOLS  DURING  SUPPR-SSION. 

0441 

TS 

z,xo 

Z , R 1 

THREAD 

RESTORE  ADDRESS,  FETCH  ANOTHER  SYMBOL. 

G44l4 

NUT6  JRY3 

NA,  04 

3,0 

3 D4 

PRINT  SYm  +1 

IF  NOT  BY  = EITHER,  PRINT  IT  ANYWAY. 

omfl 

DA,  CAC3 

def  by  eou 

ONE 

DEF  3Y  EOU 

COUNT  good  symbols  during  suppression. 

04422 

TS 

z,xo 

Z,R1 

THREAD 

RESTORE  ADDRESS,  FETCH  ANOTHER  SYMBOL. 

04426 

TX 

LINE 

- 

OWED  SYM 

04428 

TS 

ONE 

N , X 1 , 1 

PL  ThrEAq  +1 

OWE  SYMBOL  WhILE  PRINTING  A DIVIDER. 

04432 

TS 

L BANK.  _5 

2, XI 

PL  THREAD 

POINT  TO  BEGINNING  OF  PAGE  CQNSrR.  ARFA. 

04436 

NA,  CHARI 

LINE 

LINE  +1 

C ,-3 

BRANCH  IF  FIRST  LETTER  CHANGED. 

0444 

PL  THREAD 

eba 

Z,X3 

zero 

N t X 1 f 1 

PLANT  POINTER  TO  SYMBOL  TABLE  ENTRY. 

04444 

WA 

SYM  LINER 

ONE  THIRD 

SYM  LINER 

COUNT  UP  THIRDS  OF  LINES. 

04448 

la 

SYM  LiNER 

FULL  PAGE 

OWE  SYM  Q 

BRANCH  IF  CONSTRUCTED  page  IS  not  full. 

04462 

STM  PAGE 

SWE,  CHARS 

SYM  LINER 

9 

SYM  LINES 

FORM  NUMBER  OF  LINES  OF  SYMBuL  INFO. 

04456 

SWE,  THREE 

SYM  LINER 

7 

SYM  LINER 

FORM  KEY  TO  NO.  OF  SYMBOLS  IN  LAST  LINE. 

0446 

TN 

SY  CUL  HOC 

5 

LINE  +1 

column  headings  for  left  third. 

04464 

NA 

SYM  LINES 

ONE 

C , + 2 

04466 

LA 

SYM  LINER 

zero 

PRINT  SPi 

BRANCH  IF  JUST  ONE  SYMBOL  ON  PA3E. 

0447 

SS 

BLOTS 

CHAR  8 

LINE  +5 

PLANT  VERTICAL  DIVIDER. 

04474 

TN 

SY  COL  HDG 

5 

N,AJ2 

COLUMN  HEADINGS  FOR  MIDDLE  THIRD. 

04478 

NA 

SYM  LINES 

ONE 

C , + 2 

0448 

LA 

SYM  LINER 

ONE 

PRINT  SP, 

BRANCH  IF  JUST  TWO  SYMBOLS  ON  PAGE. 

04484 

SS 

BLOTS 

CHAR  8 

LINE  +10 

plant  vert ical  divider. 

04488 

TN 

SY  CUL  HDG  ' 

5 

N,AJ2 

COLUMN  HEADINGS  FOR  RIGHT  THIRD. 

04492 

PRINT  SPI 

TS 

SPACE  1 

LINE 

GO  PRINT 

C 

04494 

SS 

5,5 

CHAR  8 

LINE  +5 

04496 

TS,  CHAR8 

5,10 

LINc  +10 

PRINT  SP, 

C LINE  WITH  JUST  DIVIDERS  AFTER  CDL  HDGS. 

0450 

TX 

L BANK  5 

Z , R 5 

04502 

WA 

Z,R5 

SYM  LINES 

Z,R6 

POINT  TO  BEGINNING  OF  SECOND  COLUMN, 

04506 

WA 

Z,R6 

SYM  LINES 

Z,R7 

POINT  TO  BEGINNING  OF  THIRD  COLjMN. 

04509 

NA 

SYM  LINER 

zero 

C , ♦ 2 

BRANCH  IF  LAST  LINE  HAS  OVER  1 COLUMN. 

045092 

WD 

2 ,R7 

ONE 

Z , R 7 

0451 

TN 

LINE  +1 

3 

compares 

INITIALIZE  COMPARISON  REGS  TO  SlANKS.  __  _ _ 

04514 

SYM  LINE 

TX 

L COMPARS 

Z , S3 

POINT  TO  LEFT  COMPARISON  REGISTER. 

04518 

TX 

Z.XO 

• 

L NEW  L I m E 

0452 

SM 

SPEC  SIGN 

YP3 

Z * S2 

GROUP  INDICATOR  FOR  GROUP  A, 

04524 

TS 

Z , S2  * 2 

Z,X1 

SYM  THIRD 

(FOR  INDEXED  INDIRECT  ADDRESSING). 

L 
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POA528  EACH  THIRD  OF  A LINE  CONTAINS  ALL  THE  InFDRMAT I Q m AdOJT  DnE  SYMBOL. 


0A529 

QA53  SYM  THilRD 

SM 

_EBS 

Z.X0.5 
1 ,N,R5»1 

Z , S3 , 1 
ONE 

LiXZ 

ADVANCE  TO  NEXT  COLUMN  AND  COMPARE  REG. 
POINT  TO  A SYMBOL  IN  1 Hi-  TABLF. 

OA53A 

0A538 

CASA 

NA 

WA 

MT  __ 

Z,X2 

z.xo 

BLOTS  

ZERO 

ONE 

-_5 

Real  sym 

Z , AJ2 

N.AJ2.1  _ _ 

BRANCH  IF  SYMBOL,  NOT  HORIZONIA.  DIVIDR. 

OA5A2 

TS,  C5T8 

BLOT  Cs 

LINt  + 5 

END  THIRn  +1 

PLANT  HORIZONTAL  DIVIDER  OF  bLOrS. 

0AS6A  RtAI SYM  _ 

SWE , D12  . 

2jl1 

32 

_Z_iX_6 _ 

0A566 

LA 

Z,X6 

FOUR 

C , + A 

branch  if  any  OF  healths  o-a. 

OA57 

LA 

SIX 

Z , X6 

C , + 2 

BRANCH  IF  ANY  OF  HEALTHS  6-G. 

OA5TA 

SSL*  ONE 

2,1 

_ 31  . 

C , ♦ 1 _ 

BRANCH  IF  FAILED  LEFTOVER  ERASE.  N01  WD. 

OA578 

WA 

Z,X6 

ONE 

Z,X6 

increment  healths  5/«  (Failed  j-cardi  jp. 

0A582 

WA 

Z.X6 

L SYMH  VEC 

Z ,X6 

OA58A 

pA,  CAC3 

6*0 

ONE 

6,0 

increment  count  OF  SYMS  IN  This  aTATE. 

0A588 

SWS.  C6T8 

N,X6 

A , 5 

LINE  +3 

PLAN!  HEALTH  FLAG  AND  VERTICAL  DIVIDER. 

0A592 

LA.  LSTYPS 

6,0 

type  f 

C , + 3 

BRANCH  IF  SYMbuL  HAS  A VALID  DEFINITION. 

0A596 

TX 

USY  PLACE 

- 

Z,CSC 

C 

OTHERWISE  TRY  TO  PUT  IT  iN  TYPING  LIST. 

0A60 

TS 

ONES 

EUI VLENT 

C , + 2 

0A602 

SWE.  CAC3 

2,1 

16 

edivlent 

0 A 60  A 

IX 

M EDll  DeF 

z.csc 

C 

set  definition  or  blots  in  print. 

0A6061 

NA 

N,X2 

N ♦ S3 

C » + 2 

BRANCH  IF  DIFFERENT  FROM  LAST  SYM30L  IN 

0A6063 

TS 

ditto 

LINE  +1 

C , + A 

THIS  column;  OTHERWISE  PRINT  a ditto. 

046063 

TX  _ 

N.X2 

- 

N , S3 

PLANT  NEW  SYMBOL  FOR  NEXT  COMPARISON. 

0A606 r 

SWS.  C3T8 

N,X2 

A, 2 

LINE  +1 

0A6068 

SWS,  C1T2 

N,X2 

A. 2 

LINE  ♦ 2 

SET  HEADED  SYMBOL  IN  PRINT. 

0A608 

LA 

DA 

2,2 

C , + 2 

BRANCH  UNLESS  SYMBOL  WAS  SIMPLY  UNDEF, 

0A612 

TS.  C5T8 

DASH  C6 

LINE  + 3 

C , + 3 

SHOW  THAT  THERE'S  NO  PAGE  OF  DEFINITION. 

04616 

TS 

2,2 

ARG  1 

P3  D2A  L7S  -3 

c 

CONVERT  PAGE  OF  DEF  TO  ZERO-SUP^  ALPHA. 

0A62 

ss 

ARG  2 

C5T8 

LINE  *3 

04622 

SWE,  A ADRcS 

2,2 

D , 6 , L 

ARG  1 

04624 

NA 

ARG  1 

ZERO 

C , +3 

BRANCH  IF  SYMBOL  WAS  referred  TO. 

OA  628 

TX 

DASH  C3  C7 

• 

LINE  ♦ A 

0A63 

TS,  Cl TA 

DASH  C3 

LINE  +5 

END  THIRn 

ShOW  LACK  OF  REFERENCES. 

04634 

TS 

- 

- 

P 3 D2 A LzS 

r 

CONVERT  number  OF  REFERENCES  TO  Z/S  alf. 

0A638 

SWS,  C 1 T A 

ARG  2 

A , 2 , L 

LINE  + A 

0A6A 

NA 

LINE  + A 

999  REFS 

C , + 2 

BRANCH  IF  998  REFERENCES  OR  FEWER. 

0A6AA 

TX 

OVER  1000 

LINE  + A 

SUBSTITUTE  ">1K"  FOR  NO.  OF  REFs. 

04648 

TS,  DECALFMii 

2,2 

ARG  1 

P3  D2 A L7S  -2 

c 

CONVERT  PAGE  OF  1ST  REF  TO  Z/S  4L»HA. 

04634 

SWE,  A ADRcS 

2,2 

D , 3 , L 

ARG  1 

0A656 

TS,  C5T8 

ARG  2 

LINE  + 4 

P3  D2 A LzS  -2 

c 

CONVERT  PAGE  OF  LAST  REF  TO  Z/S  ALPHA. 

046592 

NA,  C5T8 

ARG  2 

LINE  + 4 

C , + 2 

when  both  page  numbers  are  the  same. 

046594 

TX 

BLANKS 

- 

ARG  2 

PRINT  ONLY  THE  FIRST  ONE. 

0A66 

SWS.  C 1 T A 

ARG  2 

A.A.L 

LINE  + 5 

0A661  END  THilRD 

NA 

eqivlent 

ONES 

EECR  IESt 

BRANCH  IF  ANY  DEFINITION  EXISIS, 

04662 

NA 

SYM  LINES 

ONE 

SYMB  COL  0 

BRANCH  IF  NOT  DOING  LAST  LINE  3^  PAGE. 

0A666 

NA 

SYM  LINER 

zero 

C,  + 2 

BRANCH  UNLESS  DOING  LAST  COLUMN. 

0A67 

TS,  CHAK8 

BLANKS 

LINE  +5 

END  SYM  pG 

remove  vertical  divider  from  last  col. 

0A67A 

SWE,  ONE 

SYM  LINER 

1 

SYM  LINER 

SHOW  THAT  LAST  COLUMN  IS  APPROACHING. 

0A682  sYviB  COL  0 NA  Z,Xl,l  Z,S2  ” sYM  ThIRd  -1  “ BRANCH  TO  L)0  ANOTHER  COLUMN  IN  5 A ME  LIN. 
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P04686 

THERE  ARE  _ 

AT  MOST  45 

cines  oh  symbol  information 

ON  A PAGE  ( 1 35 

SYMBOLS) 

• 

0469 

END 

sym 

LN 

WD 

SYM  LINES 

ONE 

SYM  LINES 

04692 

TS,  CHAR8 

BLANKS 

LI  Nfc  ♦ 5 

C * *2  _ 

C 

REMOVE  LAST  VERT.  DIVIDFR  AND  PsINT. 

04696 

TS 

L COMPARS 

Z , S3 

SYM  LINE  +1 

GO  TO  START  ON  THE  NEXT  LINE. 

_ 0470 

END 

SYM 

PG 

TS  __  _ 

L NEW  LINE 

Z«XJ _ 

PR1NI  5P  i 

c 

04701 

TX 

L SYM  FOOT 

- 

Z.X1 

04702 

TN 

N »X1 * 1 2 

12 

LINE  +1 

04704 

TS 

SPACE  2 

QLJD  SPACE 

CO_.PRXtU 

C 

04706 

TN 

N * X 1 * 1 5 

15 

LINE  +1 

04708 

SP2 

PRINT 

TS 

SPACE  2 

OLD  SPACE 

30  PRINT 

c 

-0471 

. TN 

N*X1 

15 

LINE  ♦ 1 

04712 

TS 

SPACE  1 

OLD  SPACE 

GO  PRINT 

c 

print  key  ro  health  flags  at  end  page. 

04716 

WA 

ONE  THIRD 

ONE  THIRD 

sym  liner 

SHOW  THAT  NO  Page  IS  UNDER  CONSj-RJCTION. 

_ 0472 

TS 

L BANKAS 

Z.X1 

Av  DIS  PAG 

_ c 

POINT  TO  CONST  RUC 1 1 ON  ARF  A . SK 1 3 ]0  HOF. 

04724 

OWE 

SYM 

Q 

NA 

OWED  SYM 

ZERO 

C,+2 

BR.  IF  A SYMBOL  IS  UWED  (NEW  lSf  LTR ) . 

04728 

TS 

Z,X0 

ZjRI 

THREAD 

RESTORE  ADDRESS,  FETCH  ANOTHER  SYMBOL. 

04732 

TX 

OWED  SYM 

LINE  +1 

SET  IT  UP  FOR  FIRST-LETTER  COMPARISON. 

04736 

TS 

zero 

OWED  sym 

PL  THREAD 

CLEAR  FLAG,  GO  TO  PROCESS  OWED  SYMBOL. 

R0474 

CUsEOJENCE 

SUBROUTINES 

TO  FILL  A TYPEWRITER  CUSS  MESSAGE  NAMING  UP  TO 

FOUR  UN- 

OR  ILL-DEFINED  SYMBOLS.  ADVANCES 

R04741 

047415 

1 IS 
1ST 

OWN  ENTRY  POINT  J'N 
JNSYM  SWS,  C5T8 

1 IL  THE  MtSSAGE  IS  FULL. 
N,X2  A, 4 

JSYM  CJSs  +1 

c 

04742 

047425 

SWS,  C1T4 
SS 

N *X2 

z,csc 

A , 4 , L 
CAC3 

JSYM  CJSS  ♦ 2 
JSY  PLACE 

C 

s 

04743 

2ND 

JNSYM 

TS 

N ,X2 

USYM  CUSS  *3 

LENGTHEN  +1 

C 

047435 

3RD 

JNSYM 

SWS,  C5T8 

N,X2 

A, 4 

JSYM  CJSs  + 4 

c 

04744 

SWS  * C1T4 

N ,X2 

A , 4 , L 

USYM  CJss  +5 

c 

047445 

TS 

** 

LENGTHEN 

c 

04745 

4 1 H 

JNSYM 

TS 

N,X2 

USYM  CUSS  +S 

LENGTHEN  +1 

c 

047455 

5 1 H 

JNSyM 

TS 

N , SC 

N , CSC 

LENGTHEN  +1 

c 

UNVEIL 

" (,  MORE"  AND  MAKE  SUbRO  UACJOJS. 

047465 

LENGTHEN 

WA 

USYM  TYPE 

SPEC  SIGN 

JSYM  T YPp 

c- 

04747 

WA 

US YM  TYPE 

SPEC  SIGN 

JSYM  TYPE 

r 

047475 

SS 

Z ,CSH 

CAC3 

JSY  PLACf 

s 

SET  UP 

NEXT  ENTRY  POINT,  EXIT. 

e 


L 
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P0475 

ROUTINE  TO1  frith  t a summary 

OF  1 HE  SYM3DI 

♦giving  the  number  UF  SYMBOLS  IN  EACH  HEALTH 

R0477 

SIATE  (OF 

WHICH  FAIL JRt 

TO  FIT  IN  THe 

SYMBOL  TABLE 

IS  ONE)  AnD  THE 

ol 

RAND  TOTAL.  EMPTY  HEALTH  STATES  ARr  OMITTED 

R0479 

FROM  [HE  LISTING. 

04B5 

END  PRi  SYM 

_LA 

SYM  LINER 

_ACO_  7 

C , + 2 __  _ 

BRANCH  IF  SYM  TAB  LISTINC  FTILEi  1 AS[  P. 

0486 

TS 

C,-l 

OWE  SYM  3 +1 

SYM  PAGE 

PRINT  LAST  PAGE  OF  SYMBOL  TABLE  LISTING. 

04869 

IX 

L W SUMARY 

Z+X2 

0487 

TN 

N,X2,4 

4 

PAGE  HED2  +1 

PACE  HEADING  FOR  SYMBOL  TABLE  SJMMARY. 

04882 

MT 

BLANKS 

11 

N,AU2,1 

CLEAN  OUT  REST  OF  PACE  SUBHEAD,  TOO. 

048832 

TS 

Z.XO 

Z.AJ2 

C,-l 

c 

CLEAN  PRINT  LINE  IN  CASE  OF  SUPPRESS. 

0489 

SS 

SYM  |AB  XS 

CAC3 

SYMBOL  Xs 

SYMBOL  TABLE  OVERFLOW  INTO  HeALtH  VeCTR. 

0491 

NA,  C5T8 

USYM  CUSS  +1 

BLANKS 

C,  + 2 

BRANCH  IF  THERE  ARE  SYMBOLS  TO  CUSS, 

04912 

TS 

L 5YMH  VEC 

z , X 1 

SJMM  LOOP 

04914 

S,  MON  T Y scR 

USYM  CUSS 

SPRAM  +16 

- 

04916 

USYM  [YPE 

S,  MON  TY3EK 

USYM  CUSS  +2 

SPRA  +8 

C,-2 

NAME  UP  TO  4 UNDEFINED  SYMBOLS  ON  TYPeR. 

0492 

SUMM  lOOP 

DA,  CAC3 

N SYMBOLS 

1,0 

N SYMBOLS 

contribute  to  grand  total  of  symbols. 

0494 

SS 

N * X i 

B26T30 

MOV  helth 

length  in  words  of  health  staie  descrip. 

0496 

LA,  CAC3 

1.0 

ZERO:  

MOV  HELTH  +2 

BRANCH  IF  NO  SYMBOLS  IN  [HIS  S [ ATF • 

0498 

SWE , CAC 1 

N ,X  1 

32, L 

ARC  1 

0499 

TS 

SPACE  2 

LINE 

P3  02 A LzS 

r 

CONVERT  count  FOR  this  state  10  Z/S  ALF. 

0501 

SWS , C3T6 

ARC  2 

A, 2 

LINE  +2 

0502 

WA 

Z.XO 

THREE 

Z.AJ2 

0503 

MOV  HELTH 

MT 

N,XZ,l 

N , A J2 , 1 

SET  HEALTH  STATE  DESCRIPTION  IN  PRINT. 

0505 

TS 

Z.SC.l 

_ 

GO  PRINL 

c 

0506 

TS 

Z,X2 

Z.AJ2 

MOV  HELTw 

c 

ADVANCE  X2  WHEN  HEALTH  STATE  IS  EMPTY. 

0508 

LA 

N , X 1 

CAC  3 

SHO  CHARS 

EXiT  IF  JUST  PRINTED  GRAND  TOT Au, 

0510 

LA 

N.Xl.i 

C 1 T 4 

SJMM  LOOP 

BRANCH  unless  just  did  excess  symbols. 

0512 

TS 

UNDRLINE 

LINE  +2 

SET  SP2 

c 

place  a line  between  addends  amd  total. 

0514 

TS 

SPACE  1 

OLD  SPAct 

GO  PRINT 

c 

0515 

TS 

W TOTAL 

LINE  +1 

SJMM  LOOP  +1 

PRINT  grand  total  TO  FINISH  SUMMARY. 

051518 

5H0  CHARS 

WD 

Z,X2 

ONE 

Z,X2 

05152 

TN 

N,X2 

15 

LINE  +1 

05154 

TS 

AC02 

OLD  SPACE 

GO  PRINT 

c 

UPSPACE  7 AND  PRINT  CHARACTER  SET. 

05156 

TS 

BIT  1 

OLD  SPACE 

EECR  [ A3|  +1 

L 


@YUL  SYSTEM  ASSEMBLER 


PASS  3 


USER'S  OWN  PAGE  NO.  24 


PAGE  24 


PQ5161 ROUTINE  TO'  PRINT  AN  ERASABLE  S--EQU.I  VA.L1NCE  CROSS-REFERENCE  TaBLE. THERE  ARP  5 COLUMNS  ACROSS  THF 

R05163  PAGE*  ANO  UP  TO  10  GROUPS  OF  4 LINES  EACH.  MAKING  A MAXIMUM  0F  200  EECK  SYMBOLS  PER  PAGE.  INPUTS  ARE  N EECRS, 

R05165  A POINTER  TO  IHE  FIRST  ONE  IN  Rq,  AND  THE  THREADING  OF  THE  EfCR  LIST  IN  CAC3  OF  THE  THIRD  WORD  IN  EACH  rECR 

RQ5167  SYMBOL!  TABLf  ENTRY.  THE  INPUTS  ARE  GENERATED  DURING  THE  PRINTING  OF  THf  SYMBOL  TABLf  ANALYSIS. 


05169 

EECR  TABL 

s.  ets 

2.2 

ZX  ♦ 8 

C,-i 

POINT  TO  FIRST  EECR  OF  NEXT  PAGE. 

05171 

LA 

N EECRS 

ZERD 

WC  SUMARY 

BRANCH  WHEN  EECR  TAbLE  IS  DONE. 

05173 

TN 

EECR  SUBH 

12 

PAGE  HED2  +1 

05174 

MT 

BLANKS 

3 

N.AU2.1 

05175 

. LA  _ 

N EECR_S 

. C203 _ 

C , +2 

05176 

TS 

C200 

EECR  PAGE 

C,  + 2 

THERE  ARE  AT  MOST  200  EECRS  PER  PAGE. 

05178 

TX 

N EECRS 

- 

EECR  PAGf 

SET  NUMBER  OF  EECRS  FOR  LAST  PAGE. 

05  18 

WD 

N EECRS 

FECR  RAGE 

N EECRS 

05181 

WA 

Z.XO 

TWELVE 

END  LINE 

SET  LOCATION  OF  FIFTH  COLUMN  ON  PAGE. 

05183 

LA 

SIX 

EECR  PAGE 

SAVE  BEo| 

BRANCH  UNLESS  THERE  WILL  Be  ONLY  1 LINE. 

05185 

WD 

EECR  PAGE 

ONE 

EXCESS 

05186 

BT 

EXCESS 

3 

EXCESS 

0518? 

WA 

z.xo 

FXCESS 

END  11. NF 

ALLOW  FOR  I NCOMPLf  TF  LINF. 

05191 

SAVE  3EGL 

TX 

z.xo 

- 

L NEW  LInE 

05193 

BM 

EECR  PAGE 

ONE  FIFTH 

COLUMN 

FORM  LENGTH  OF  MAX  COLUMN  - 1. 

05195 

_BT 

COLUMN 

3 

EXCESS 

05196 

WD 

EECR  PAGE 

EXCESS 

EXCESS 

NUMBER  OF  EECRS  IN  LAST  LINE. 

05198 

EBA 

Z.RO 

ZERO' 

Z,X2 

POINT  TO  FIRST  EECR  ON  PAGE. 

- _ 0520 

TS 

FOUR 

Z , R 7 

EECOL  HQt; 

PRINT  GROUPS  OF  FOUR  LINES. 

K05202 

procedure 

FOR  HEADS  Df: 

COLUMNS,  REPLACING  BACKWARDS 

THREADS  BY  COLUMN 

-TO-COLUMN  THREADS. 

05204 

ADV  CDLUM 

EBA 

Z.X2 

ZERO 

Z,X1 

052042 

LA 

Z.X4.1 

ZERO 

C , + 2 

052044 

S,  ETS 

2,2 

ZX  +2 

c , - 1 

ADVANCE  TO  HEAD  OF  NEXT  COLUMN. 

05206 

LA 

EXCESS 

ZERD 

EECOL  HOS  -1 

BRANCH  IF  NOW  ON  SHORTER  COLUMNS. 

05208 

S.  ETS 

2,2 

ZX  +2 

c , + 1 

ADVANCE  ONE  MORE  STEP  ON  LONGER  ONES. 

0521 

WD 

EXCESS 

ONE 

EXCESS 

05211 

SWS.  CAC2 

ETS 

16, L 

1,2 

HEAD  OF  LAST  COL  POINTS  TO  HEAD  OF  THIS. 

05213 

EECOL  HDS 

TS 

Z,SC 

Z,X4 

PRIN  EECR 

GO  SET ■HEAD-OP-COLUMN  EECR  IN  PRINT. 

0521A2 

EBA 

Z , RO 

ZERO 

Z,xi 

POINT  TO  FIRST  EECR  OF  SECOND  RDw. 

05215 

NA 

N , SH 

GO  JR  EECR 

NO  EECR  PQ 

BRANCH  AFTER  LiNE  IS  PRINTED. 

0521  ? 

TS 

COLUMN 

Z,X4 

ADV  COLUM 

GO  PROCESS  HEAD  OF  NEXT  COLUMN  IN  PAGE. 

L eruL  SYSTEM 

ASSEMBLER 

— PASS  3 

USER'S  OWN  PAGE  NO.  25  PAGE 

25 

P 052  21 SUBROUTINE 

USED 

BY  EE 

CK  tabl  to  set 

IN  PRINT 

THE  THREE-WQRg  INFORMATION  ITEM  ABOUT  AN ERASE  OR  EQUALS  SYMBOL. 

K05223  PRINTS  A LINE  WH£N  II 

IS  FILLED,  AND 

governs 

D0U3.E  SPACING  RETWEEN 

GROUPS  OF  A LINES.  ENTER  WITH  RETURN  IN 

X^t  • 

05225  PKIN  EECR 

SWE  ♦ 

CAC3 

2.1 

16 

EOIVLENT 

05226 

TX 

M EDIT  DEF 

- 

Z.CSC 

C SET  DEFINITION  OF  SYMBOL  IN  pKlVT. 

05228 

SWE* 

ONES 

LINE  *2 

. A * 3 *L 

_ ....  line  ♦ 1 

05229 

sws  * 

C6T8 

LINE  +3 

A,3,L 

LINE  +1 

SHIFT  DEFINITION  TO  LEFT  EDGE  OF  COLUMN. 

05231 

TS 

2.2 

ARG  1 

P3  D2 A LZS  -3 

C 

05.232 

SWE* 

ONES 

ARC  2 

A *3.*  L 

LINE  *2 

SET  PAGE  OF  DEFINITION  IN  PRINT. 

052332 

SWS* 

CHAR  3 

N *X2 

A . 1 * L 

LINE  +2 

052334 

SWS* 

C1T7 

N.X2 

A * 1 » L 

LINE  +3 

SET  SYMBOL  IN  PRINT. 

05  234 

WD 

EECR  PAGE 

ONE 

EECR  PAGp 

05235 

NA 

2 , XO  * 3 

end  LINE  N,X4 

EXIT  IF  LINE  NOT  FILLED  YET. 

05237  GU  PR  EECR 

JX 

L NEW  LINE 

z.xo 

RESET  BEGINNING  AND  END  OF  LINE. 

052382 

wA 

L OLD  LINE 

TWELVE 

END  LINE 

05239 

TX 

L OLD  LINE 

- 

L NEW  LInE 

0524 

LA 

Z.R7.1 

ONE 

Cjl+  2 

BRANCH  IF  NOW  END  OF  A 4-LINE  GROJP. 

052412 

TS 

SPACE  1 

LINE 

PRINT  LIn 

05242 

TX 

FOUR 

- 

Z,R7 

05243 

_JS 

SPACE  2 

LINE 

PRINT  LIn 

Rq5245  LUOP  JO  COLLECT  EVER f EECR  ON  A PAGE  AFTER  THE  FIRST  ROW • 


05246 

05248 

052485 

EECR  .OOP 

SWS.  CAC2 
S » ETS 
TS 

1*2 

1.2 

Z.SC 

16, L 
ZX  +2 
Z * X4 

2,2 

C,  + l 

PRIN  EECr 

nth  eecr  of  a col  points  to  nth  of  next, 
go  TO  SET  EECR  IN  PRINT, 

0525 

SWE.  CAC3 

1.2 

16 

ARG  1 

052502 

EBA 

ARG  1 

BIT  25 

Z,X1 

POINT  TO  (N-UTH  OF  NEXT  COLUMN , 

05252 

ND  EECR  PU 

NA 

EECR  PAGE 

ZERO 

EECR  LOOP 

05253 

NA 

N.SH 

GO  PR  EECR 

EECR  1 ABl 

BRANCH  IF  LAST  LINE  WAS  COMPLET-  AND  PR. 

05255 

TS 

L NEW  LINE 

Z.XU 

GO  PRINT 

C 

OTHERWISE  PRINT  LAST  LINE  OF  EE'R  TASlE. 

L i»YUL  SYSTEM 

ASSEMBLER  — 

PASS  3 

USER'S  OWN  PACE  NO.  26  PAGE  26 

PQ5257 

ROUTINE  TO'  PRINT  A SUMMARY 

OF  1 HE  WORD 

COUNT  DaTa  FOR 

-EACH 

- ROUTINE  WHOSE  NAME  APPEARS  IN  ONF  09  MOREL 

R052572 

CUJNT  CARDS. 

THE  FORMA! 

, PRINTED 

IN 

two  columns, 

is;  routine  name; 

serial  number,  first  and  last  pages,  and 

*052574 

WURD  COUNT 

for 

LAST  REACH  OF  EACH 

ROUTINE.  TOTAL 

WURD  COUNT  FOR 

routine,  and  a cumulative  total  added  from  roj- 

*0525  7 6 

TINE  TO  ROUTINE.  THE  NUMBER  OF  "UNCOUNTED"  WORDS 

is  GIVEN  IF  APPROPRIATE.  THIS  SUMMARY  IS  OMITTFD  IF  Tjf  ASSfM. 

R052578 

BLY  HAD  NO 

COUNT  CAR 05. 

052-5  8 

WC  SJMARY 

_EBA 

SPEC  SIGN 

_BJT  25 

Z.X1 

052584 

eba 

Z,xi 

ZERO 

Z , X A 

POINT  TO  ORIGIN  OF  ROUTINE  LIST. 

052592 

EX 

N,X4 

CAC3 

COUNT  PTR 

052596 

TS 

zero 

R0JTINE5  _ 

C . ♦ 3 

0526 

INCRTNES 

WA 

ROUTINES 

ONE 

ROUTINES 

s 

052604 

EBA 

Z,X2 

ZERO 

Z,X1 

KEEP  XI  ONE  CYCLE  BEHiND. 

052612 

5 ♦ 

ETS 

1.0  . 

ZX  ♦ 2 

052616 

NA 

N , X2  ♦ 1 

ONES 

C » -3 

COUNT  UP  NUMBER  OF  ROUTINES. 

_ 052632 

TX 

zero 

TOTAL.  WQ<; 

052636 

NA  * 

C7T  8 

4,1 

ZERO 

I NCL  UNCO 

branch  if  there  were  blank  count  cards. 

052644 

LA 

ROUTINES 

ZERO 

AV  DISPLv 

s 

exit  NOW  IF  NO  COUNT  CARDS  A|  Ai_L. 

052652 

_LA 

4,1  _ _ 

ZERO  _ _ _ 

WC  PAGE  ♦ 1 - 

BRANCH  IF  COUNT  CARDS.  NONF  UNClUNTFD. 

05266 

I NCL  JNCO 

TS, 

CAC3 

1,0 

4,0 

INCRTNES 

C 

INCLUDE  SUMMARY  OF  UNCOUNTED  WORDS  AS 

052668 

TS, 

CAC3 

SPEC  SIGN 

1,0 

WC  PAGE  +1 

FINAL  ITEM  OF  SUMMARY. 

052676 

WC  P A3E 

EBS 

Z,X1 

BIT  25 

COUNT  PTr 

2ND  AND  SUBSEOUENT  PAGES  BEGIN  RERE. 

052682 

TS 

TOTAL  WDS 

TOTAL  WDS  +1  Av  D1S  PAG 

c 

SKIP  BEFORE  each  page. 

052684 

TN 

COUNT  HDG 

JJ 

PAGE  HEOZ  +1 

052688 

TS 

ROUTINES 

COUNT  PAS 

I NCL  UNCO  -2 

c 

052692 

NA 

routines 

ONE 

OVER  1 WC 

BRANCH  IF  MORE  THAN  1 RTNE  ON  THIS  PAGE, 

0527 

MT 

BLANKS 

7 

N,AJ2,1 

BLANK  OUT  RIGHT-HAND  COLUMN  HEADING. 

052708 

TS 

zero 

ROUI 1NES 

WC  GROUP  -1 

GO  TO  PRINT  ONE-ITEM  PAGE. 

052716 

OVER  1 WC 

-TN 

COUNT  HDG 

7 

N.AU2 

PUT  UP  RIGHT-HAND  COLUMN  HEADING. 

052724 

LA 

ROUTINES 

C 80 

C.  + 2 

052728 

TX 

C 80 

- 

COUNT  PAr, 

NO  MORE  THAN  80  ITEMS  ON  A PAGE, 

052736 

WD 

ROUTINES 

cojnt  pas  • 

ROUTINES 

052738 

TS 

D4T8 

AVAIL  MS< 

WC  GRO J°  -1 

r 

FAKE  UP  A D4T8  MASK. 

05274 

WA 

COUNT  PAG 

ONE 

Z.R7 

052744 

SWE 

, ONES 

Z »R7 

L 

Z ,R  7 

052748 

EBA 

COUNT  PTR 

BIT  25 

Z.X2 

POINT  TO  FIRST  ITEM  ON  PAGE. 

052752 

FIND  WCC2 

DA, 

AVA1LM.SK. 

TOTAL  WDS 

2.1 

TOTAL  wOs 

052754 

DA, 

AVAIL  M.5K 

TOTAL  WDS 

2.2 

TOTAL  WOs 

052756 

s • 

ETS 

2,1 

ZX  *2 

C.  + l 

052758 

NA 

Z.R7.1 

ONE 

FIND  wCC2 

POINT  TO  FIRST  ITEM  OF  SECOND  CoLJMN. 

052764 

EBS 

Z ,X2 

BIT  25 

THREAD  2 

05277 

TS 

THREAD  2 

ARG  1 

BGIN  LACf 

052772 

WC  LACING 

NA 

Z,X2 

SPEC  SIGN 

C,  + 2 

052774 

TS  ♦ 

CAC3 

THREAD  1 

2.0 

WC  GROJP  -1 

sneak  out  if  got  io  uncounTed-wds  item. 

052776 

eba 

THREAD  l 

BIT  25 

z.xl 

REARRANGE  THREADING  order  WITHIN  ROUTINE 

052784 

ex 

2,1 

CAC3 

THREAD  2 

LIST  SO  THAT  THE  80  OR  LESS  ITEMS  FOR 

052792 

ss 

thread  i 

CAC3 

2,1 

THIS  PAGE  ARE  THREADED  FROM  TOP  OF  LEFT 

0528 

EBA 

THREAD2 

BIT  25 

Z,X2 

COLUMN  TO  TOP  OF  RIGHT  COLUMN  TO  SECOND 

052808 

BGIN  WACE 

EX 

1,1 

CAC3 

THREAD  l 

OF  LEFT  COLUMN  TO  SECOND  OF  RIo.iT  coljmn 

052816 

SS 

THREAD  2 

CAC3 

1,1 

TO  THIRD  OF  LEFT  COLUMN  ETC. 

052824 

NA, 

CAC3 

THREAD  1 

ARG  1 

WC  LACING 

EXIT  IF  AGAIN  POINTING  TO  TOP  OF  RIGHT. 

L G)YUl_  SYSTEM  ASSEMBLER  — HASS  3 

P05283  PRINT  THE  PAGEFUL  OF  WURD  COUNT  SUMMARIES  PREPARED  OM  THE  PRfCEDimG  PG. 

BIT  25 


USER'S  OWN  PALE  NO.  27 


PAGE  27 


052832 

05284  WL  GROUP 


052848  WL  LI  ME 


eba 

TX 

T5 


COUNT  PTR 
FOUR 


Z«XX 

Z.R7 


SPACE  1 


LINE 


SAVE  BEoL 


AGAIN  POINT  TO  FIRST  ITEM  OF  PAGE. 
ARRANGE  PRINTING  INTO  4-LINF  GRnUPS. 

SAVE  TRUE  BEGINNING  OF  LINE. 


05286 

052868 

052876 

WC 

HAr,  LIN 

LA 

TS 

TN  __  _ _ 

Z,X1 
N »X 1 , 1 
W UNCOUNT 

SPEC  SIGN 
LINE  +1 
5 

C , + 2 
C , + 3 

_ line  ♦ l 

BRANCH  IF  DOING  UNC0UNTED-W0RD5  ITEM, 
SET  ROUTINE  NAME  IN  PRINT. 

ASSUME  NO  BLANK  COUNT  CARDS  INITIALLY. 

' 052884 
052892 
052896 

LA,  C7T8 
SWE , DECALFlMii 
TS,  C5T8 

1,1 

1,1 

W REF 

ZERO' 

D , 6 , L 
LINt  +2. 

WC  ND  Ref 
ARG  1 

_ P3  P2A  L75  -2 

C 

BRANCH  IF  ASSUMPTION  IS  RIGHT. 

0529 

SWE,  ONES 

ARG  2 

A , 5 , L 

LINE  + 3 

SERIAL  NUMBER  OF  LAST  COUNT  CAR;. 

052908 

NA 

LINE  +3 

999  COUNT 

C , + 2 

052912 

SWE,  ONES 

OVER  1000 

A , 1 , L 

LINE  ±3 

FOR  999,  SAY  OVER  1000. 

05292 

SWE , DECALFMil 

N,X1 

D , 3 

ARG  1 

052924 

TS,  C5T8 

W LAST 

LINt  +3 

P3  D2 A L7S  -2 

C 

052928 

SWE,  ONES 

ARG  2 

Aj  3 * L 

LINE  +4 

SET  IN  PRINT  PAGE  OF  LAST  CQUNi  CARD. 

052936 

SWE , DECAL?  Mil 

1,1 

D , 3 

ARG  1 

05294 

TS,  C7T8 

W TO  C76 

LINE  +4 

P3  D2 A LZS  -2 

c 

052944 

SWE,  ONES 

ARG  2 

A j 3 , L 

LINE  +5 

SET  IN  PRINT  PAGE  OF  LAST  WORD  oF  RTNF. 

052952 

wC 

NO  REF 

TX 

DAT  8 

avail  msk 

FAKE  UP  A D4T8  MASK. 

05296 

JIX 

1,1 

D4I8 

ARG  1 

WORD  counl  for  last  reach. 

052968 

DA,  AVAIL  M5K 

1,0 

ARG  1 

1,0 

FORM  TOTAL  WORD  COUNT  OF  ROUT  IN?. 

052976 

TS,  C6T8 

COLON  C6 

LINt  +5 

P3  D2A  L7S 

c 

05298 

SWS , CHARS 

ARG  2 

A, 4 

LINE  +5 

052984 

SWE,  ONES 

ARG  2 

A , 4 , L 

LINE  +6 

SET  IN  PRINT  WORD  COUNT  OF  LAST  REACH. 

052992 

EX 

N , X 1 

D4T8 

ARG  1 

052993 

TX 

TOTAL  WDS 

- 

TOTAL  WDc  +2 

052994 

TN 

TOTAL  WDS  +1 

2 

total  WDS 

SWAP  cumulative  column  totals  A \|D 

052996 

DA 

TOTAL  WDS 

ARG  1 

TOTAL  WDS 

update  total  word  count  of  assembly. 

053004 

TS 

DASH  Cfa 

LINt  +7 

P3  D2 A LZS 

c 

initially,  ASSUME  DOING  UNCOUNTED  item. 

053012 

SWS,  C6T8 

ARG  2 

A, 2 

LINE  +6 

053016 

SWS,  C l T2 

ARG  2 

A , 6 , L 

LINE  +7 

set  in  print  word  count  for  routine. 

053024 

TS 

TOTAL  WDS 

ARG  1 

P3  D2 A L 7 S 

c 

053028 

LA 

Z,X1 

SPEC  SIGN 

C , + 2 

BRANCH  IF  DOING  UNCOUNTED  WORDS. 

053036 

5S 

ARG  2 

C3T8 

LINE  +7 

SET  IN  PRINT  CUMULATIVE  WORD  TOTAL. 

053044 

WD 

COUNT  PAG 

ONE 

COUNT  PAr, 

053048 

S,  ETS 

1,0 

ZX  +1 

C,  + l 

FOLLOW  THREAD  [0  NEXT  ITEM  fo  ■’HINT. 

053056 

LA 

COUNT  PAG 

ZERO 

C , + 2 

BRANCH  IF  NO  MORE  FOR  THIS  PAGE. 

053064 

LA 

2 »X0 , 8 

L NEW  LINE 

WC  HAF  UN 

BRANCH  TO  DO  2ND  HALF-LINE. 

053072 

TS 

L NEW  LINE 

z*xo 

PRINT  AVL 

c 

PRINT  LINE  WITH  ONE  OR  TWO  ITEMS. 

05308 

LA 

COUNI  PAG 

ZERO 

WC  page 

053084 

NA 

Z.R7,1 

ONE 

WC  LINE 

BRANCH  IF  NEXT  LINE  IS  IN  SAME  GROUP. 

053092 

TS 

SPACE  2 

OLD  SPACE 

WC  GROUP 

L 

SYUL  SYSTEM 

assembler 

— PASS  3 

USER'S  OWN  PAGE  NO.  28  PAGE  28 

P0531 

ROUJ INF  TD 

PRINT  A DISPLAY 

OF  I Hee  MEMORY 

TYPF  PATtfRN 

USED. IN  the  CURRpNT  ASSpMBLY . AND  THE  STATF  OF 

R05312 

RESERVATION  OK  AVAILABILITY  OK  FIXED 

AND  ERASA3LE  MEMORY , THERE 

are  five  types  OF  entries  in  this  disp.ay: 

R053 14 

SPECIAL  OR 

NONEXISTENT  MEMORY, 

R05315 

RESERVED  FIXED  MEMORY... 

R05316 

available 

FIXED  MEMORY. 

R05317 

reserved  e 

RASABLE  MEMORY, 

AND 

__  KQ52.L8 

AVAILABLE 

ERASABLE  MEMORY. 

R05319 

JH£  display  consists 

OK  AN  ENTRY  FOR 

EACH  CONTIGUOUS  oRQUP  DF  ADDRESSES 

HAVING  ONE  ENTRY  TYPE,  GIVING  THE  LOWeR 

R05321 

AND  J3PER 

ADDRESS  LI  Mil  IS  AND  THe  ENTRY  TYPE.  PRINT 

tD  IN  TWO  COLUMNS  AT 

up  to  bo  entries  per  page. 

0532b 

AV  DISPLY 

TX 

zero 

Z . S2 

initialize  address  to  Zero. 

05335 

TN 

AV  SUtJHED 

5 

PACE  HED2  +1 

05336 

MT  ...  . 

BLANKS 

_10 

N.AU2.1 

0534 

AV  015  PAG 

TX 

BIT  1 

OLD  SPACf 

SKIP  TO  H-O-F  BEFORE  EACH  PAGE. 

0535 

__TX 

L BANK5 

- 

Z.Xl 

TWO  COLUMNS  AhE  BUILT  UP  IN  BANK  5. 

0536 

WHAT  TYPE 

TX 

Z.S2 

- 

ADDRESS 

05365 

TX 

L TYP  TAB 

- 

Z , X 3 

_Q537 

LA.  CAC3 

ADDRESS 

3,0  . 

C.  + 2 

BRANCH  WHEN  MEMORY  TYPE  FOUND. 

0538 

TS 

Z.X3.1 

C.-l 

05385 

NA,  LSTYPE 

3,0 

type  n 

E OR  F 

BRANCH  IF  NOT  SPECIAL  OR  NONEXISTENT. 

05395 

SWE.  CACI 

mtype  Cax 

32.L 

N.Xl 

SAVF  ADDRFSS  OF  DESCRIPTION. 

05405 

USE  ENCAT 

TS.  CAC3 

3,0 

1,0 

sro  av  Cac  +i 

SAVE  END  CATEGORY  = UPPER  LIM  OF  ENTRY. 

_ _ 05415 

E_  OR  r. 

NA.  LSTYPi 

3,0 

IYPt  F 

ERASABLE 

0542 

TS 

address 

EQIVLENT 

avail  o 

C 

TEST  AVAILABILITY  OF  FlRsT  LOCAjION. 

0543 

LA 

BIT  32 

EUIVLENT 

F AVAIL 

ONE  OF  BITS  1-32  IS  ONE  IF  AVA1 i ABLE. 

0544 

SWE.  CACI 

M TYPE  CAX 

16 , L 

N.Xl 

SAVE  ADDRESS  OF  DESCRIPTION. 

0545 

TS 

zero 

COMP  BITS 

FIND  END 

GO  TO  FIND  END  OF  RESERVED  E DR  F. 

0546 

F AVAIL 

TS 

M TYPE  CAX 

N.Xl 

E AVAIL  *1 

SAVE  ADDRtSS  OF  DESCRIPTION. 

0547 

EKASA3LE 

TS 

ADDRESS 

EUI VLENT 

AVAIL  0 

C 

TEST  AVAILABILITY  OF  FIRST  LOCAlION. 

0548 

LA 

BIT  32 

euivlent 

E AVAIL 

05485 

TS 

M TYPE  CAX  +1 

N.Xl 

F AVAIL  _1 

SAVE  ADDRESS  OF  DESCRIPTION. 

05495 

E AVAIL 

SWE.  CACI 

M TYPE  CAX  +1 

16,  L 

N.Xl 

SAVE  ADDRESS  OF  description. 

05505 

TX 

B 1 THRU  32 

• 

COMP  BITS 

SET  UP  TO  FIND  END  OF  AVAILABLE  E OR  F. 

05515 

EX 

EQIVLENT 

CAC3 

euivlent 

REMOVE  AVAILABILITY  BIT. 

05525 

FIND  END 

LA.  CAC3 

3,0 

EUIVLENT 

USE  ENCAt 

ITEM  DONE  IF  LOCATION  IS  END  CATEGORY. 

05535 

SWE.  ONES 

AVAIL  msk 

1 

AVAIL  MS* 

SET  MASK  TO  TRY  NEXT  LOCATION. 

05545 

LA 

BIT  32 

AVAIL  MS< 

TRY  BIT  N 

BRANCH  IF  STILL  IN  SAME  AVAIL.  WORD. 

05555 

TS 

Z.X4.1 

COMP  wRDS 

GO  10  TEST  32  LOCATIONS  AT  ONCE. 

05565 

TRY  SIT  1 

TX 

BIT  1 

- 

AVAIL  MSk 

EXAMINE  AT  MOS]  32  MORE  LOCATIONS. 

05575 

TRY  SIT  N 

NA.  AVAlLMoK.  4.0 

COM3  BITS 

STO  AV  CAC 

BRANCH  ON  CHANGE  IN  AVAIlABIlHY  STATUS. 

05585 

WA 

E0IVLENJ 

ONE 

EUI VLENT 

0559 

TS 

- 

FIND  END 

CHtCK  CATEGORY  END  BEFORE  NEX 1 LOCATION. 

0560 

COMP  WRDS 

NA 

N.X4 

COMP  BITS 

TRY  BIT  i 

BRANCH  ON  ANY  AVAIL  CHANGE  IN  AVA1LW0RD. 

0561 

W A 

euivlent 

C32 

EUIVLENT 

05615 

LA,  CAC3 

3,0 

EQIVLENT 

USE  ENCAt 

BRANCH  IF  END  CATEGORY  WITHIN  LAST  AVWD, 

05625 

TS 

Z.X4.1 

- 

COMP  wRDS 

TRY  THE  NEXT 32  LOCATIONS. 

L 
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L DESC-UP  F«A  | 

.WA  . 
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05636 

05645 

SIO  A V CAC 

ss 
sws  * 

CAC2 

eoivlent 

address 

CAC3 
16,  L _ 

N , X 1 
N.X1 

STORE  UPPER  LIMIT  NOT  END  OF  CATEGORY. 
STORE  LOWER  LIMIT  OF  ENTRY. 

05655 

05665 

05675 

WA 

LA 

LA 

N , X 1 , 1 
B5  LOC  80 
Z , 52 

ONE 
Z,X1 
MAX  LOC 

Z,S2 
C , + 2 

WHAT  T Y Per 

LOWER  LIMIT  FOR  NEXT  ENTRY. 

BRANCH  IF  A PAGEFUL  IS  READY. 

BRANCH  IF  MORF  LOCATIONS  FOR  THIS  PAoF. 

R05685 

HA V I N S'  STORED  JF 

1 TO  3D 

ENTRIES  in 

CONDENSED  CAC-FORMAT,  we  NOW 

PRINT 

them  on  one  page  in  two  columns. 

05695 

0570 

0511 

SWE, 

WD 

JX 

CHAR3 

Z,X1 
Z,xi 
L BANK5 

1 

EOIVLENT 

EOIVLENT 

Z,X3 

Z.X2 

let  X3  POINT  TO  BEGINNING  OF  2ND  COLJMN. 

05715 

TX 

Z,X3 

- 

Z,S1 

Si  SERVES  AS  LIMIT  +1  FOR  1ST  COLUMN. 

05725 

AV  SR3UP 

TX 

FOUR 

Z ,R7 

DOUBLE-SPACE  BETWEEN  GROUPS  OF  4 LINES. 

05735 

AV  LINE 

TX 

SPACE  1 

- 

LINE 

0574 

TX 

Z,XO 

- 

Z , S3 

SAVE  TRUE  BEGINNING  OF  LINE. 

0575 

SWE, 

CAC3 

N,X2 

32 

Z , AJ1 

05755 

AV  DSCR1P 

TN 

N.AUl 

4 

LINE  +4 

STORE  DESCRIPTION  OF  MEMORY  TY3£. 

05765 

SWE, 

CAC3 

N,X2 

16 

ADDRESS 

RETRIEVE  LOWER  LIMIT. 

05775 

EX 

N ,X2 , 1 

CAC3 

EOIVLENT 

RETRIEVE  UPPER  LIMIT. 

05785 

WA 

M EDIT  UEF 

TWO 

z,csc 

C 

PRINT  UPPER  LIMIT  OF  CATEGORY. 

05795 

LA 

eoivlent 

ADDRESS 

C , + 3 

STOP  THERE  IF  LENGTH  IS  1. 

05805 

SWE, 

CAC3 

M EDIT  AVI 

16 

Z,CSC 

C 

PRINT  LOWER  LIMIT  OF  CATEGORY. 

05815 

SS 

MW  TO 

MW  10  MASK 

LINE  +2 

insert  "to"  between  low  and  high  limits. 

05825 

LA 

Z,si 

Z,X2 

LAST  LEFT 

BRANCH  IF  1ST  (LEFT-HAND)  COLUMN  DONE. 

05835 

SET  J3:  RST 

SWE, 

CAC3 

N ,X3 

32 

Z , A J 1 

0584 

TS 

Z , XO , 8 

- 

AV  D5CRIP 

C 

move  to  right  side,  print  description. 

0585 

SWE, 

CAC3 

N,X3 

16 

ADDRESS 

RETRIEVE  LOWER  LIMIT. 

0586 

EX 

N,X3, 1 

CAC3 

eoivlent 

RETRIEVE  upper  LIMIT. 

0587 

WA 

M EDIT  DEF 

TWO 

z.csc 

c 

PRINT  UPPER  LIMIT  OF  CATEGORY. 

0588 

LA 

EOIVLENT 

address 

C,  + 3 

STOP  there  if  length  IS  I. 

0589 

SWE, 

CAC  3 

M EDIT  AVI 

16 

Z.CSC 

c 

PRINT  LOWER  LIMIT  OF  CATEGORY. 

0590 

SS 

MW  TO 

MW  TO  MASK 

LINE  +2 

INSERT  "TO"  BETWEEN  LOW  AND  HIGH  LIMITS. 

0591 

RSTORE  Xo 

TS 

Z , S3 

Z,XD 

PRINT  AVI 

c 

BISEQUENCE  bit  is  A SLY  SWITCH. 

0592 

NA 

Z ,R7  * 1 

ONE 

AV  LINE 

BRANCH  IF  STILL  IN  SAME  4-lINE  sROUP. 

0593 

TS 

SPACE  2 

OLD  SPACE 

AV  GROU® 

OTHERWISE  DOUBLE-SPACE  6 START  ANOTHER. 

0594 

LAST  LEFT 

HA 

RSTORE  XO 

BIT  1 

RSTORE  Xn 

SET  SWITCH  TO  RETURN  HERE. 

0595 

NA 

Z.xi 

Z,X3 

SET  JP  RGT 

INCLUDE  2ND  COLUMN  IF  IT  HAS  AN  ENTRY, 

0596 

PRINT  AVL 

TS 

z,sc 

Z , X 4 

PRINT  LIN 

PRINT  LINE  WITH  1 OR  2 COLUMNS. 

0597 

HA 

RSTORE  XO 

BIT  1 

RSTORE  Xo 

RESTORE  SWITCH  BIT . 

0598 

LA 

Z.S2 

MAX  LOC 

AV  D1S  PAG 

BRANCH  IF  MORE  TO  Do  ON  ANOTHER  PAGE. 

0600 

TX 

Z,XO 

- 

L NEW  LINE 

R06122  ROUTINE  TO'  WAIT  FOR  WS3  TO  PRINT  THE  I NDEX  TO  OCCUPIED  LOCATIONS. 


06124  LA  N RECORDS  ONE  ~ E LOX  GATE  +1  BRANCH  IF  INDEX  WILL  BE  OMITTED, 

06132  TS  - MON  WA<E  C 

06134  E LOX  SATE  TS  ZERO  PLO*  SATE  PARAP  NAP  LET  WS3  BeSIN  LOCATION  INDEX. 
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P061 A ROUTINE  TO:  PR  IN  T A SUMMARY  OF  I HE  PARAGRAPHS  5E\|FRATFD  BY  THE  CURRENT  ASSEMBLY.  EACH  I_ImF  C~in|SISTS 

R0615  01-  THE  LOWER  AND  UPPER  ADDRESS  LIMITS  FOR  THE  PARAGRAPH,  tHe  PARAGRAPH  NUMBER,  AND  THe  CORRESPONDING  MANUFACtUR- 

R0616  INS  iSCATlON  CODE,  WHICH  WILL  NORMALLY  BE  THE  UNI T OF  WORK  FnR  A MANUFACTURING  TASK.  IT  SHOULD  Bt  NOTE 3 HERE 

KQfe  1 7 THAT  THE  W ORDJ'PARAGR  iAPH"  H A S R e P LAC£D  _ He  WQRO  » 5UBS 1 RAND"  aS  THh  MOST  GfNeRAL  TfRM  FOR  256  WORDS  OF  Y JL  ASSfM- 

R0618  BLY  0 JT PUT.  HIS  CHAMue  CAMe  AFTER  THe  WRITING  OF  GENERAL  PASS  3,  SO  THAT  THE  TAGS  AND  ANNOTATION  ARE  -JOT  Al- 

R061V  WAYS  CONSISTENT  WITH  THe  pRINT-OuTS.  CAVeAT  LECTOR. 


06192 

_L  OLD  LINE 

Z tXS 

0620 

0622 

062A 

TS 
TX 
_ TN 

L NEW  LINE 
SPEC  SIGN 
SUBSTRED 

z,xo 

15 

Av  DIS  PAG 
Z , RO 

_ PAGE  HED.2  -’LL 

C 

skip  to  head  op  form  after  availability. 
EXAMINE  SUBSTRAND  zero  FIRST. 

PAGE  SUBHf-AD  FOR  SUBS  1 RAND  SUMMARY. 

0626 

NA 

N RECORDS 

one 

P3  FIND  SS 

BRANCH  IF  THERE  ARE  ANY  WDS  FROM  ASSY. 

0628 

TN 

NO  WORDS 

7 

LINE 

0629 

TS 

CAC3 

z , xz  _ 

PRINT  AVI 

c 

IN  CASE  OT  BARREN  ASSf-MBLY  (NO  WORDS)  . 

06291 

TS,  BIT  3 A 

ones 

SWITCH 

WS3  DONE  0 

ANNOUNCE  LACK  OF  WORDS,  GO  TO  F f N ALI ZE, 

Q61 1 

P 3 

FIND  SS 

SW£,  DJ2 

z.ro 

5 ^ - 

Z , X A 

0632 

WA 

Z,XA 

L SUBSTRS 

Z , X A 

0633 

SWS,  B26T33 

Z »R0 

18,  L 

c ♦ ♦ 1 

063A 

SWE,  OTNES 

BIJ  L _ 

0 _ _ _ 

- AVAIL  MSy 

0635 

LA,  AVAILMSK 

A , 0 

zero 

P3  next  SS 

BRANCH  if  current  SUBSTRAND  WASN'T  used. 

0637 

StT 

S52 

TX 

SPACE  2 

Line 

0638 

NA 

Z,RO 

LASI  SS  NO 

C,  + 3 

BRANCH  IF  THIS  PH  NOT  SUCCESSOR  OF  LAST. 

0639 

LA,  THREE 

LAST  SS  NO 

ZERO 

C , + 2 

BRANCH  IF  THIS  PH  BEGINS  A-PH  oROJP. 

06  AO 

TX 

SPACE  1 

- 

OLD  SPACe_ 

SELECTIVELY  CLOSE  UP  PH  SUMMARY  FORMAT. 

06A2 

SWE,  CAC3 

Z,RO 

8»L 

ADDRESS 

06  A3 

SM 

ADDRESS 

OCT  377 

ERlYLENT 

FORM  1ST  6 LAST  ADDRESSES  OF  PARAGRAPH. 

06A5 

SWe  ♦ CAC3 

M PRINT  PN 

32 

Z,CSC 

C 

print  most  paragraph  information. 

06A7 

SwE,  CAC3 

M EDI  1 AVI 

16 

Z,CSC 

c 

CALL  FOR  LOWER  LIMIT  PRINT. 

06A9 

SS 

MW  TO 

MW  10  MASK 

LINE  +2 

INSERT  "TU"  BETWEEN  LIMIT  ADDRESSES. 

0651 

GU 

PRINT 

TS 

z,sc 

Z , X A 

PRINT  LIm 

PRINT  SUBSTRAND  SUMMARY  LIN£_, 

06522 

WA 

Z ,R0 

ONE 

LAST  SS  NO 

NAME  OF  LAST  PARAGRAPH  USED. 

0653 

P3 

NE<T  SS 

NA 

Z ,R0 , 1 

MAX  SSNO 

P3  FIND  SS 

BRANCH  IF  there  are  more  paragraphs. 

065A2 

TN 

SUP  REVOK 

15 

PAGE  HED2  +1 

IN  CASE  OCTAL  SUPPRESSION  IS  REVOKED. 

065  AA 

SWE,  ONES 

PAGE  NO 

D*A*L 

ARG  1 

065A5 

DA 

ARG  1 

BIJ  12 

ARG  1 

065A6 

TS 

zero 

N OCT  ERRS 

P 3 D2 A L7S 

c 

065A8 

SS 

ARG  2 

C5T8 

PAGE  HEAD  +15 

PREPARE  FOR  CUSSES  IN  THE  OCTAL  STORMAP. 

L 
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P0655 

ROUTINE  to 

EDIT  THE  SUBSTRANDS  GENERA 

T-D  BY  THE  ClJRR 

iembly  at  the  rate  of  one  per  page,  the 

R0657 

SUBSTRAND 

NUMBER  and  a 

NOTATION  key 

ARe  PRINTED, 

AND  EACH  LINE 

begins 

with  the  ADDRESS  of  the  FIRST  of  tHe  8 

R0659 

WURDS 

on  the  line,  words  are  replaced  by  » 

3 AD  WORD",  OR  » 

ConFLICTii  if  appropriate* 

0665 

EDIT 

^OOP 

LA 

PH  FLAG  A 

ZERO 

parap  NAP 

sleep  UNTIL  WS3  PREPARES  A PARAGRAPH. 

0667 

TS 

PH  FLAG  A 

Z,X2 

- 

0669 

TS 

zero 

PH  FLAG  A 

mon  wa<e 

c 

ALLOW  WS3  TO  PRESENT  ANOTHER  PARAGRAPH. 

0671 

LA 

CAC3 

Z,X2 

SJBR  LIST 

BRANCH  IF  NOT  A SUBSTRAND  BUT  END  FILE. 

0673 

15 

Z,X2*2 

Z , X 3 

AV  D1S  PAG 

c 

SAVE  BUFFER  NAME.  GO  TO  H-O-F  FaCH  PAR. 

0675 

SSL  » ONE 

Switch 

32 

C * + 1 

skip  if  octal  map  is  suppressed. 

0680 

SWE,  CAC3 

M EXPLAIN 

16 

z,csc 

c 

print  page  head  and  subhead  for  paragr. 

0682 

SWE,  CAC3 

N,X2 

8 , L 

ADDRESS 

form  ist  address  of  paragraph. 

068A 

LINE 

LOOP 

SWE  * CAC3 

M EDIT  AVI 

16 

Z,CSC 

c 

SET  1ST  ADDRESS  OF  LINE  IN  PRINT* 

0686 

IX 

Z,XO 

- 

Z , R 1 

06  8 7 

WA 

Z*R1»2 

FIFTEEN 

END  LINE 

START  WITH  N,Rl  = LINE  +2. 

Q689 

half 

liine 

TS 

M EDIT  wD 

Z,  S3 

EDIT  CALi 

c 

MAKE  UP  i_4-CHARAC1£K  PRJNHIMAot  OF  wD_. 

0691 

SWS * C1T6 

IMAGE 

A , 6 

N ,R  1 

0692 

SWS * C7T8 

IMAGE  +1 

A, 6 

N,R1 ,1 

0693 

SWS,  C 1 T6 

IMAGE  +1 

A * 6 

N,R1 

SET  IN  PRINT  1ST  OR  5IH  WORD  OF  LINF. 

0695 

EDIT 

CALL 

TS 

Z.X2.1 

- 

N ♦ S3 

c 

make  up  image  of  next  WORD. 

0697 

SWS,  C7T8 

IMAGE 

A,  A 

N ,R 1 , 1 

0698 

SWS,  C1TA 

IMAGE 

A,  A 

N , R 1 

0699 

SWS,  C5T8 

IMAGE  +1 

A , A 

N , R 1 , 1 

0700 

SWS,  cm 

IMAGE  +1 

A,  A 

N , R 1 

SET  IN  PRINT  2ND  OR  6TH  WORD  OF  LINE. 

0702 

TS 

Z,X2,1 

- 

N , S3 

c 

MAKE  UP  IMAGE  OF  NEXT  WORD. 

070A 

SWS,  C5T 8 

IMAGE 

A, 2 

N ,R 1 , 1 

0705 

SWS,  C1T2 

IMAGE 

A, 2 

N,R1 

0706 

SWS » C3T8 

IMAGE  +1 

A, 2 

N,R1 ,1 

0707 

SWS,  C 1 T2 

IMAGE  +1 

A,  2 

N,R1 

SET  IN  PRINT  3RD  OR  71H  WORD  OF  LINE. 

0709 

TS 

Z,X2.1 

- 

N , S3 

c 

MAKE  UP  IMAGE  OF  NEXT  WORD. 

0711 

SS 

IMAGE 

C3T8 

N , R 1 , 1 

0712 

TX 

IMAGE  +1 

- 

N ,R 1 , 1 

SET  IN  PRINT  A T H OR  8 1 H WORD  OF  LINE. 

071A 

LA 

Z,R1 

END  LINE 

HALF  LINf 

BRANCH  IF  JUST  DID  FIRST  HALF  OF  LINE. 

0716 

NA,  BaaTAS 

ADDRESS 

ONES 

C , + 2 

BRANCH  IF  NOT  LAST  OF  A-LINE  GRDU=. 

0718 

TS 

SPACE  2 

LINE 

C » + 2 

0719 

TX 

SPACE  1 

_ 

LINE 

07192 

SSL,  ONE 

SWITCH 

32 

C,*l 

SKIP  TO  SUPPRESS  OCTAL  STORAGE  MAP, 

0720 

TS 

z,sc 

Z , X A 

PRINT  LIn 

PRINT  AN  ADDRESS  AND  EIGHT  WORDS. 

0722 

WA 

address 

EIGHT 

ADDRESS 

07221  NA,  84 m3  ADDRESS  ZE^O  LINE  LOOP  BRANCH  IF  NOT  END  OF  SUBSTRAND. 
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P0722J4 

Al  OF 

EACH  PARAGRAPH  (FORMERLY 

CALLED  A SUiSTRAND) , iF  AmY  OCTAL-MAP 

ERRORS  WERE  FOU^D,  PRl|y[T  A COMBINATION 

R072216 

CUSS-WHAM 

LINE  GIVI  NS 

1 HE  NUMBER(S) 

OF  THc  CUSS(ES) 

and  the  page  of  the 

preceding  cussed  line. 

07222 

_LA 

N OCT  ERRS 

ZEBJi 

ORTH  PARa 

BRANCH  JF  NO  CUSSES  ON  THIS  PAG;, 

07223 

CUSS  OCT 

wA 

z,xo 

TWO 

£ * 

072235 

_ _DA 

N ERR  UNS 

ONE  

ARG  1 

SERIAL  NO.  FOR  FIRST  rllSS  Op  PAsF. 

072245 

SWE ♦ ONES 

ARG  1 

D » 4 , L 

ARG  1 

07225 

TS 

E BLOTS 

LINE  +1 

P3  D2 A I7S  C 

07Z255 

SWE.  ONES 

ARG  2 

A,  1 ,L 

ARG  2 

07226 

LA,  Cl TA 

BLANKS 

ARG  2 

C.-i 

072265 

WA 

35  C2 

ARG  2 

N,X4 

LINE  BEGINS  "E«»«*"»  # NN  " 

072275 

NA 

N , X4  » 2 

LINE  *2 

PR  OCT  FRR 

BRANCH  IF  OUST  DID  SERIAL  OF  LAST  CUSS. 

072285 

TX 

BLOTS 

LINE  +3 

07229 

TN 

LINE  + 3 

12 

LINE  +4 

FILL  IT  OUT  AS  A WHAM  LINE. 

0723 

LA 

err  pages 

zero 

PREV  C JSs  +5 

branch  if  this  is  the  first  cuss  page. 

07231 

SWS ’ C1T4 

ERR  PAGES 

A » 4 » L . _ 

PRFV  CJSs  + a 

072315 

TN 

N.Sc,6 

5 

LINE  +11 

SET  IN  PRINT  POINTER  TO  pREVlUjS  cUSS, 

072325  PK£V  CUSS  ALF  * 5 PRECEDING  CUSSfD  LINF  15  QN  PAGF 


07233 

SWE,  C 1 T4 

PAGE  HEAD  +15 

A * 4 , L 

ERR  PAGEs 

show  that  first  CUss  is  on  this  page. 

07234 

SS 

PAGE  HEAD  +15  C5T8 

ERR  PAGES 

SHOW  I HAT  LATFST  CUSS  IS  ON  THIS  PAGF. 

07235 

DA 

n err  lins 

N 0+T  ERRS 

N ERR  LInS 

072355 

LA 

N OCT  ERRS 

ONE 

PR  OCT  ERR 

cuss  line  1^  done  if  just  one  dm  page. 

072365 

TX 

W THROUGH 

- 

LINE  +3 

07237 

TS 

N Err  LINS 

ArG  1 

CUSS  OCT  +2 

MAKE  IT  "£■■■■■•  * NN  THROUGH  * NN". 

07238 

PR  OCT  ERR 

SSL.  ONE 

SWITCH 

32 

C,  + l 

SKIP  IF  OCTAL  MAP  IS  SUPPRESSED. 

07239 

TS 

z,sc 

Z , X 4 

PRINT  LIn 

072395 

TX 

zero 

_ 

N OCT  ERRS 

RESET  COUNT  FOR  NEXT  PAGE. 

07242 

ORTH  3ARA 

cc 

N.X3 

2*1 

orthocount  FLAG-CORRECTED  BYPT  RECORD. 

07243 

NA,  BITU 

switch 

ZERO 

WS3  DONE  0 

BRANrH  If  BYPT  IS  NOT  TO  bE  WRITTEN. 

07244 

TS,  D4 

c , + 1 

WRI 1 DISC  +1 

PHI  TAPE 

SUPPLY  INDEX  NUMBER  TO  DISC-wRl TER. 

07246 

WF  , 1 

3,0 

- 

DISASTER 

WRITE  COMPLETED  BYPT  RECORD  ON  YULPROGS. 

072474 

NA 

DISC  ADRS 

ZERU 

WRIT  DISr 

SEND  PARAGRAPH  TO  DISC  IF  P0SS1 3LE. 

07248 

W53  DONE  0 

LA 

CAC3 

Z,X2 

SJBR  LIST 

0725 

NA 

PH  FLAG  c 

ZERU 

PARAP  NAP 

SLEEP  IF  WS3  HAS  EARS  CLOSED. 

0727 

TS 

Z,X3 

PH  FLAG  C 

MON  WA<E_ 

C RETURN  BUFFER  TO  WS3. 

0728 

TS 

- 

- 

EDIT  LOOP 
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Pq779 ROUTINE  TO'  PRINT  A LIST  OF  THf  SUBROUTINES  CALLfO  BY  THE  PROGRAM  OR  SUBROUTINE  BEING  A5SfMBLcD. 


R07290A  GIVING'  EACH  SUBROUTINE'S  NAME,  REVISION  NUMBER,  THE  PAGE  ON  WHICH  US  CONFIRMING  CALL  IS  PRINTED,  AND  (IF  THE 
R072908  ASSEMBLY  IS  OF  A PROGRAM)  THE  PAGE  ON  WHICH  IT  BEGINS. 


07£91  SUBR  .1ST 

TN 

SUBL  t£AD 

_ 

___  3 AGE  HED2  +1  - 

072912 

MT 

BLANKS 

11 

N,AU2,1 

SET  UP  PAGE  SUBHEAD  FOR  SUBROUTINE  LIST. 

07291 A 

TS 

ZERO 

SUBRO  NO 

AV  DIS  PaG 

c 

INITIALIZE  A-LINES-PER-GROUP  COJNTER. 

012916 

WA 

2 ,X0 

ONE 

Z.AU2 

- 072917 

MT 

BLANKS 

IS 

N , A J2 , 1 

clean  LINE  Lest  OCTL  MAP  WAS  SJ3PRESSED. 

07292 

TX 

L SYM  THR 

- 

Z,X2 

072922 

S,  ETS 

2,13 

ZX  +2 

NEXT  SJ3 

begin  by  seeing  if  there  are  NOME. 

07293  SUSL  LOOP 

TS 

N,X3 

LINE  +1 

C , + A 

set  subroutine  name  in  print. 

07293A 

EX 

3,1 

A ADRES 

ARG1 

S 

when  subroutine  has  no  subsidiaries. 

072938 

SWS , THREAD! 1 

3,1 

2A 

Z ,X3 

C 

0729A 

SWE,  A ADRZS 

N,X3 

D,  3 

ARGl 

5 

WHEN  SUBROUTINE  HAS  SUBSIDIARY  5U3R0S. 

07294A 

SSL,  ONE 

3,1 

23 

C,-3 

C 

0729A6 

TS 

P3  D2A  L?S  -2 

0 7 2 9 A 8 

ss 

ARG  2 

C6TB 

LINE  +2 

SET  revision  number  in  print. 

072952 

LA,  CACl 

2,0 

zero 

LIST  SJ3 

BRANCH  IF  SUBRO  CALL  WAS  NOT  CONFIRMED. 

072936 

SWE,  CAC2 

N *X2 

D*A 

ARG  1 

072958 

IS 

•* 

« 

P3  D2 A L 7 S 

r 

07296 

SS 

ARG  2 

C5T8 

LINE  +3 

SET  IN  PRINT  PAGE  OF  CONFIRMING  CALL. 

07296A 

LA,  CACl 

2,1 

ZERO' 

LIST  SJ3 

BRANCH  IF  SUBROUTINE  was  not  PRINTED, 

072968 

SWE,  CAC2 

2,1 

D,  A 

ARG  1 

07297 

TS 

- 

- 

P3  D2 A L7S 

c 

072972 

SS 

ARG  2 

C5T8 

LINE  + A 

Set  IN  PRINT  PAGE  WHERE  SUBRO  BEGINS. 

072976  LIST  SUB 

TX 

SPACE  1 

LINE 

072978 

NA,  THREE 

SUBRO  NO 

ONES 

C,  + 2 

07298 

TX 

SPACE  2 

. 

LINE 

SP2  BETWEEN  groups  of  four  lines. 

07298A 

WA 

SUBRO  NO 

ONE 

SJBRO  NO 

072986 

S,  ETS 

2,1 

ZX  ♦ 2 

C,  + l 

072987 

TS 

2 , SC 

Z , X A 

PRINT  LIn 

ADVANCE  TO  NEXT  SUBROUTINE  AND  sRINT. 

07299  NEXT  SUB 

LA 

ONES 

N , X 2 

CLOSE  YJL 

BRANCH  IF  THERE  ARE  NO  MORE  CALlEO  SUBS. 

07299A 

TS 

N,X2 

Z.X3 

SJBL  LOOP 

POINT  TO  SUBRO  NAME  ENTRY  IN  DIRECTORY. 

L 
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ru  f jU 
R0732 
R0734 

SI RICfLY 

TS 

SPtAKING 

1 if 

♦ T HU  3 

si  s LU. 

ZfSC 

SUBROUTINE 

JTKAJMI  M 
Z , X4 

PRINTS  THE  LINE 

1 n r A ° 1 : >1 A 1 1UN  V..U 

PRINT  LIN 
last  delivered 

IJNUKUL-.  LJN  1 K 1 _i.O  _ 

the  SYMBOL  ..LINE..  IS  ASSIGNED  TO  0,0. 

TO  IT. 

0735 

PRINT  LIN 

TX 

L OLD  LINE 

- 

Z,X5 

07351 

TX 

Z.XO 

- 

L OLD  LINE 

NEW  LINE  AGES  SUDDENLY. 

0736 

. LA 

BIT  1 

N,X5 

PRIN  SKIP 

..  BRANCH  IF  LAST  LINE  IS  SKIP. 

0738 

WA 

LIN  COUNT 

N,X5 

LIN  COJNt 

ADD  TO  LINE  COUNT  FROM  LAST  LI  Nr. 

0740 

-LA 

LIN  COUNT 

N JJNES 

_ PRINT  01,0 

BRANCH  to  normal  PRINL. 

0742 

TX 

BIT  1 

- 

N,X5 

SKIP  AFTER  LAST  LINE  AT  END  OF  aAoE, 

07432 

PR I N SKIP 

NA 

N COPIES 

zero 

COPY  PRT5 

BRANCH  IF  MORE  COPIES  TO  b£  MAD-. 

_ 07434 

S,  PHI 

PRINT 

DEPAGINb 

AT  FVFRY  SKIP.  SUPPRESS  MONITOR  PAGFHFD. 

0744 

NA 

N COPIES 

ZERO 

COPY  PRT-5 

BRANCH  IF  MORE  COPIES  TO  Be  MAD-. 

07442 

S,  PHI 

PR1  Ml 

5,0 

p. 

- 

0745 

DA 

PAGE  NO 

- ONL- 

PAGE  NO 

0747 

SWE*  ONES 

PAGE  NO 

D,4,L 

ARG  1 

0749 

TS 

- 

- 

P3  D2 A L7S 

c convert  page  number  to  zero-sjpj  alpha. 

0751 

SS 

ARG  2 

C5  T 8 

PAGE  HEAD  +16 

PUT  IT  IN  PAGE  HEAD  IN  THAT  FORH. 

07558 

PRINT  HED 

NA 

N COPIES 

ZERO' 

COPY  PRT5 

_ 0756 

S.  PHI 

PR  1 NT 

PAGE  HE  AC. 

_ 

• 

07561 

NA 

N COPIES 

ZERO 

COPY  PRT5 

0757 

S.  PHI 

PR  I NT 

PAGE  HED2 

- 

• 

PRINT  SUBHEADING. 

0759 

_ IS 

5 LINES 

LIN  COUNT 

C , + 3 

0760 

PRINT  OLD 

NA 

N COPIES 

ZERO 

COPY  PRT5 

0761 

S.  PHI 

PRINT 

5,0 

- 

0763 

TX 

Z , X5  * 1 

- 

z,xo 

OLD  LINE  DISCOVERS  FOUNTAIN  OF  rOJTH. 

0765 

MT 

BLANKS 

15 

N ,X5 , 1 

0766 

TS 

L OLD  LINE 

Z ♦ X 5 

N,X4 

AND  IS  MOREOVER  MADE  CLEAN  AGAIN. 

R0768 

minor  subroutine 

TO  COPY  PRINTING  i 

ONTO  TARE  5. 

0769 

copy  3RT5 

SS 

N , SH 

A AJjRES 

C,  + 2 

0770 

WA 

L COP  BUFS 

ONE 

z,xo 

0771 

TN 

16 

N , XO  , 1 5 

COLLECT  4 LINES  BEFORE  WRITING. 

0772 

TX 

Z , SH 

• 

AVAIL  MSi^ 

0773 

NA 

0,3 

EOR' 

COPY  EXIT 

BRANCH  IF  BUFFER  NOT  YET  FILLED. 

07J4 

IX 

0,4 

_ 

Z,XO 

0775 

cc 

0,1 

- 

0,65 

0776 

TS 

N »X0 

L COP  BUFS 

PHI  TAPE 

SWAP  tape  buffers. 

0777 

wF  , 5 

0,1 

DISASTER 

0778 

TX 

AVAIL  MSK 

Z,SC 

0779 

CUPY  EXIT 

TS 

Z,XQ 

L COP  BUFS 

C,-l 

advance  pointer  within  buffer. 

G 
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po.tbq  - 

subroutine  IN  PASS  3 TO 

T ES T THE  A VAIL A B ILITY  OF  a 

LOCATION. WJJH  A DDR FS S IN  EQIVLFNT , 

R0781 

coseduence 

CALL  TO  AVAIL  Q.  BITS  1 

TO  32  OF  EOlVw 

ENT  WILL  Bp 

Zero 

ON 

return  only  if  the  location  is  reserved. 

0783 

AVAIL  Q 

SwS.  B26T33  EUIV Lt N ( _ . 

_ 18.L 

C,*l  _ __ 

_X_ 

0784 

SWE  * ONES  BIT  1 

0 

AVAIL  MSk 

C 

mask  TO  SELECT  one  of  32  blTS  IM  WORD. 

0786 

SWE.  B38TA3  EQIVLENT 

5 

Z.X4 

c 

0787  _ 

WA  Z.X4 

L AV  TABLE 

Z.X  4 

c 

SELECT  word  FROM  AVAILABILITY  TABLE. 

0789 

SS  N.X4 

AVAIL  MS< 

EDI VLENT 

TRANSMIT  AVAILABILITY  BIT.  EXIT, 

R0791 

SUBROUTINE  in  PASS  3 TO 

convert  decimal 

TO  ALPHABp 

TIC  AND 

BLANK  OUT  UP  TO  SeVlN  LEADING  ZeRDS. 

R0793 

cusedjencl 

CALL  WITH  ARGUMENT  IN  ARg  1.  USE  ElTHE 

r Res jl r or 

BOTH 

• 

07934 

SWE.  A AD  REG  ARG  i 

D , 3 

ARG  1 

r 

page  of  definition,  entering  in  D1-3. 

07936 

SWE.  CAC2  ARG  1 

D , 2 

ARG  1 

c 

OTHER  3-  AND  4-DiGIf  THINGS  IN  33(4)-6. 

07938 

DA  ZERO 

ARG  1 

ARG  1 

c 

convert  hex  hundreds  digit  back  to  dfc. 

0794 

P 3 02  A,  LZS 

SWS.  C5T8  ARG  1 

8 

ARG  1 

c 

normal  ENTRY. 

0795 

SWS.DECALFM|  ARG  1 

4 

ARG  1 

c 

0796 

SWS.DECALp  MZ  ARG  1 

2 

ARG  1 

c 

0797 

SWE.DECALPMa  ARG  1 

2 

ARG  1 

c 

spread  left  8 digits  out  into  alpha. 

0799 

TS  C1T7 

AVAIL  MS< 

C » + 2 

c 

_ 08  00 

ARG  1 

RESERVE  1 

0801 

TS  ARG  1 

ARG  2 

C , ♦ 3 

c 

0802 

AHG  2 

RESERVE  1 

0803 

SWS.  C1T7  AVAIL  MSK 

A.l.L 

AVAIL  MSk- 

c 

0804 

NA.  AVAIL HiSK  ARG  2 

ZERO' 

C.-l 

c 

0805 

P 3 LZ5UP 

SS  BLANKS 

AVAIL  MS< 

ARG  2 

S 

SUPPRESS  UP  TO  7 LEFT  ZEROS,  EXIT. 

R0807  SUBROUTINE  IN  PASS  3 TO  WRITS  BLOCKS  0-  1024  WORDS  (16  SECTORS)  ON  T«E  DISC.  SUBMIT  4-SeCTOR  BLOCKS 

Ro  8 0 7 4 BY  FILLING  IN  04  qF  WR,1t  DISC  + j FROM  THE  CORRESPOND  I Ns  TAPE  ORDER.  AND  BRANCHING  ON  DISC  APRS  NON-ZERO. 


08076  WRIT  DJSC  TX  OF  PLACE  - Z.CSH 

08078 RT  0.3  N.CSH.l PLACE  256-WD  BLOCK  1N]0  1024-wD  BJFFLR. 


0808 

080812 

08082  LAST 

WA 

WA 

RilTE  TS 

Z.CSH 
WRITE  CiwD 
Z.SH 

OCT  377 
BIT  37 
WDF  RETRN 

DF  PLACE 
WRITE  CWn 
WRIT  DISC 

C 

WE  ACTUALLY  MOVED  259 

advance  sector  count 

BUT  WILL  KEEP  256. 

by  4 peR  paragraph. 

080826 

LA 

ONES 

N SUBFIL  1 

C.  + 3 

BRANCH  IF  WRITING  IN 

SUBFILE  2. 

08083 

WD 

N SUBF1L  1 

ONE 

N SUBFIL  1 

080833 

LA 

N SUBFIL  1 

ZERO 

WRITE  CWL)  -1 

FORCE  WRITING  AT  END 

OF  1ST  SUBr I LE. 

08084 

NA 

DF  PLACE 

END  DF  BJF 

WDF  EXIT 

BRANCH  IF  BUFFER  IS  NOT  YeT  FUl_. 

08086 

TS 

EOR 

N.C5H 

DISCAP 

C 

08088 

WRITE  CWD 

OCT 

-13 

WRITE  16  RECTORS  (MAYBE  LESS  LAsT  TIME). 

P 

0809 

CAC 

DISC  APRS 

DISC  BUFF 

INDEX 

08092 

TS 

L DISC  BUF 

DF  JLACL 

C , + 2 

080925 

TS 

- 

DISASTER 

*■ 

08093 

SS 

ZERO 

B31 1 39 

WRITE  CWn 

080935 

NA 

N SUBFIL  1 

ZERO 

C , + 3 

BRANCH  UNLESS  JUST  FINISHED  SUB- I LE  1. 

08094 

SWE.  C2T4 

INDEX  +7 

24, L 

DISC  APRS 

FETCH  DISC  BASE  ADDRESS  OF  2ND  SUBFILE. 

* 

080945 

TS 

ONES 

N SUBFIL  1 

WDF  EXIT 

SHOW  THAT  FURTHER  WRITING  IS  IN  2ND  SF. 

08096 

WA 

DISC  ADRS 

BIT  20 

DISC  ADRs 

08096 

WDF  exit 

TX 

WDF  RETRN 

- 

z.sc 

L 
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P0810 

_ PARAPROGRAM  RDA  - PASS.  3 GRP  _B 

R081X 

R08  1 2 

JHI S PAKA3RU0RAM  OPERATES  IN  GROUP  3 DURING  PASS  ^ AND  HAS  TWO  TASKS...  URST  10  COPY  THp  EXISTING 

Robia 
R081A2 
Rob  16 

BYPT  PROM  TAPE  A TO  TARt  1*  MARKING  OBSOLETE  PROGRAMS  ON  TAPp  AND  (IN  ALL  THeIR  REVISIONS  AND  DIFFERENTLY  LOo- 
NUMBe^ED  INSTANCES)  UN,  THE  DISC,  THEN  TO  DELIVER  TU  A SORT  I No  PROGRAM  THE  UNSORTED  WORD  RECORDS  WRITTEN  BY  PASS 
2.  FIGHI  BUFFERS  ARE  ALLOTTED  FOR  THfSf  TASKS.  THE  SECOND  TASK  IS  A BIT  COMPLICAIED.  AND  IS  SUMMARISED  AS 

R0818 

R0820 

R0822 

FULLDWS...  IF  THE  NUMStR  OF  WORD  RECORDS  IS  8 OR  lESS,  FILL  AS  MANY  BUFFERS  AS  NEEDED,  REWIND  A,  AND  DI - , 
OTHERWISE,  TAPE  A IS  RtAD  FORWARD  AND  BACKWARD  AS  MANY  TIMES  AS  THERE  ARE  SUBSTRANDS  (GROUPS  OF  256  CONSECUTIVE 
ADDRESSES),  AT  EACH  TURNAROUND,  THE  8 RECORDS  JU5I  READ  ARf  PASSfD  OVER  (SINCE  THEY  ARE  STILL  AVAILmBL-  TO  THF 

R082A 
R0826 
R0828  - 

SORTER!).  EACH  RECORD  R£AD  GOES  TO  THE  BUFFER  THAI  IS  FINISHED  WITH  EARLIEST.  NOTE  THAT  AT  TURNAROUND  t I ME  THE 
BUFFER!  CONTAINING  TH;  EXTREMUM  RECORD  FULFILLS  THIS  CONDITION,  AS  THE  7 ADUACeNT  RECORDS  MUST  Be  PROCESSED  TWICE 
BEFORE.  THEIR  BUFFERS  ARt  OVERWRITTEN. 

R0829 

CUNSTANTS  AND  ASSIGNMENTS. 

08299 

ONDEK 

RESERVE 

15 

INDEX  AREA  FnR  OBSOLESCENCE  PROCESSING. 

0830 

RDA  sstab 

RESERVE 

8 

0831 

banneri 

OCT 

0 

08  32 

WD  SERI  LIM  RESERVE 

1 

0833 

WD  SERlIAL 

RESERVE 

1 

083A 

N RECS  PI 

reserve 

1 

0835 

J LIM  9 

RESERVE 

1 

0836 

7 DELTA  U 

RESERVE 

1 

08  36  7 

LAST  3R0G 

ALF 

0837 

SPEC  260 

OCT 

-100A0A 

0838 

BUF  SUE 

FXB1N 

-265 

0839 

N LOX  PH 

OCT 

0 

08  AO 

B2T32 

DEC 

7GGG  GGGG 

08  A 1 

DELTA  B 

ocT 

0 

08  A2 

DtLTA  U 

OCI 

-1 

OB  A3 

DELTA  BUF 

FXB1N 

-265 

08  AA 

DEC26A 

FXBIN 

-26A 

08AA8 

L END  THR 

SPEC  »B7 

6 

08AA9 

yul  waa 

SPEC  *B7 

600 

08A5 

L 3 3JF1 

SPEC 

11168 

08A6 

L B 3JF23 

CAC 

11A33 

11698 

08A8 

J LIM 

SPEC 

13023 

08A96 

YUL  DATE 

ASSIGN 

6,101 

0850 

yul  log 

ASSIGN 

6, 10A 

0852  L STOPPER  EQUALS  CAC3 
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Pj365* 

FIRST  T ASKj 

..  TO  TRAMSFfK  THE  EXISTING  BYJT  TO  T A 3E 

1.  anp  Supply 

WS3 

WITH  THf  NFW  BANNER  SERIAL  IN  ..BANNER.. 

0856 

RP* 

TN 

SUBSTRA6  ' 

8 

RP*  SSI AB 

create  local  substranp  table. 

0658 

TX 

P3  MASKS 

_ 

Z.MXR 

0860 

TS 

L STOPPER 

Z.X3 

PHI  IAPE 

0861 

RF  * * 

3,0 

- 

OiSASTtR 

BYPASS  LABEL  ReCORP. 

08  63  . 

SWEj  CAC3 

L B BUF25 

_ 16.  . ... 

Z_iX3 

APPRESS  OF  BUFFER  2j 

0865 

TS 

L B BUF1 

Z,X2 

PHI  TAPE 

0866 

RF  , * 

3,0 

- 

PISASTtR 

REAP  first  RECORP  OF  bYPT. 

0810 

TS  _ 

L B BUF23 

_ Z , X A 

OBS  0LP5 

MARK  OLP  REVISIONS  OF  THIS  PROGRAM  OBS. 

08712 

TS 

Z,X1 

z,x* 

PHI  TAPE 

(FOR  XFER  BYPT  -2) . 

0872 

NENP  _3YPT 

TX 

2 , X* 

«. 

Z.X3  . _ 

THIS  IS  THE  PANcE  Of  THE  INPEX  TELLERS 

087* 

WA 

Z,X2 

SPEC  260 

Z,S3 

ANP  OOITE  A FANCY  WHIRLIGIG  II  IS  TOO. 

0876 

HA 

N , S3 

N,X2 

N , S3 

THE  NET  EFFECT  IS  TO  COPY  THE  BrP)  FROM 

0878 

SS 

Z,X5*1 

SPEC  MAG 

Nj  X2 

TAPE  * TO  TAPE  L,  EXCtPT  FOR  Hr  TWO 

0880 

HA 

N , S3 

N , X 2 

N , S3 

SHORT  ENP-OF-FILE  RECORPS.  IN  RARIICJ- 

0882 

NA,  BIT  1 1 

SWITCH 

ONES 

C , ♦ 2 

LAR,  IF  THERE  IS  NO  PREVIOUS  BY3T , 

_ 088.31 

TS 

Z,xi 

Z,XA 

XFER  BYPt. 

NOTHING  WILL  BE  WRITTEN  ON  TAPE  1. 

08832 

NA,  BIT13 

SWITCH 

ONES 

XFER  BYPt  -2 

BR,  IF  NO  PROGS  OBSOLETEP  BY  THIS  ASSY. 

08832* 

NA*  C1JA 

2*0 

COM-’UTER 

XFFR  BYPT  -2 

branch  if  prog  belongs  to  anoih-r  comp. 

088328 

NA 

2.1 

LASI  PROS 

C.  + 2 

branch  if  this  is  an  authMemo  RecoRp. 

088332 

TS 

- 

- 

XFER  BYPt  -2 

08833* 

TX 

L COMP  NAM 

- 

Z ,X6 

088336 

SWS  * THREAPl U 

N,X6 

12 

Z,X6 

POINT  TO  FIRST  PROG  OR  SOB  OF  COMPUTER. 

0883* 

TS 

2,1 

LASI  PROS 

C , + 2 

0883*2 

SWS  * THREA  3 1 U 

6*1 

0 

Z,X6 

0883** 

NA 

N,X6 

LASI  PROS 

C,-l 

WE  ARE  GUARANTEEP  TO  FINP  THE  PROGRAM, 

0883*8 

SSL*  ONE 

6 * 1 

0 

C,  + l 

TEST  OBSOLETEP-THI S-ASSEMbLY  B I f . 

088352 

TS 

- 

• 

XFER  BYPt  -2 

08835* 

HA 

6 * 1 

ONE 

6.1 

CLEAR  THAT  BIT. 

088358 

IX 

YUL  WAA 

. 

Z ,X6 

08836 

HA 

N , S3 

2,100 

N , S3 

088362 

TX,  AVMAS02 

YUL  PATE 

. 

2,100 

08836* 

HA 

N , S3 

2,100 

N , S3 , 1 

088366 

HA 

N , S3 

2,101 

N , S3 

088368 

TS 

YUL  PATE  +1 

2.101 

C,-l 

C 

PLANT  YUL  PATE  (ALPHA)  ANP  FIX  ORTHOWPS. 

08837 

OBS  O.PS 

NA,  BIT11 

SWITCH 

ZERO 

XFER  BYPt  -2 

REPRINTS  ANP  bAP  MERGlS  OBSOLeT-  nobopy. 

088372 

LA,C5T8 

PISC  5TAT 

C6T8 

C , + 2 

BRANCH  IF  PISC  IS  INOPERATIVE. 

088376 

TS 

L PROG  TAB 

Z,X6 

PROS  PFO 

POINT  TO  START  OF  OWN  PISC  PIRECtdRY. 

08838 

S,  MON  TYPcK 

OBS  FRUST 

SPRA  +*0 

. 

"NO  PISC!  CAN'T  MARK  OBSOLETE  PROGS  ..." 

O88382 

TS 

C , + 0 

C.-l 

XFER  BYPt  -2 

SAY  THAT  JUST  ONCE. 

4- 

co 

m 

00 

00 

0 

PROG  OFu 

LA 

L ENP  PTAB 

Z . X 6 

XFER  BYPt  -2 

BRANCH  IF  OBSOLETEP  PROGRAM  NOT  ON  PISC. 

088388 

NA 

N * X6  « £ 

LASI  PROS 

C,-l 

get  all  revisions  by  testing  name  only. 

08839 

WP 

Z ,X6 

TWO 

Z,X6 

088392 

TX 

N,X6 

ONPEX  +1 

08839* 

TX 

BLANKS 

wm 

N , X6 . 1 

REMOVE  NAME  FROM  OWN  PlRECTORY.,. 

088398 

TX 

N ,X6 

wm 

ONPEX 

...  ANP  PREPARE  TO  LOOK  UP  ALL  INSTANCES 

088*02 

TX 

ONES 

- 

ONPEX  +2 

(NOT  REVISIONS)  OF  IT  IN  THE  PI5C  INPEX. 

L i 

S?YU|_ 

SYSTEM 

assembler  — 

PASS  3 

USER'S  OWN  PAGE  NO.  38  PAGE  38 

P08MQ4 

DURING'  FIRST  (ASK,  MARK- 

OBSOLFTF  PROGRAMS  ON  T APF 

IABOVE)  ANn 

DISC 

CLOSE  YULPROGS  6 SUPPRESS  SORT  IF  POSSIBLF. 

088406 

NEXT 

VERS 

TS 

YUL  WAA 

Z , X 6 

DlSCAP 

C 

088408 

_JDCT  _ 

-15  _ _ 

LOOK  UP  INST ANCES  OF  FILE  SUCCESSIVELY. 

088412 

SPEC 

ONDEX 

088414 

TS,  AVMASC2 

YUL  UATE 

ONDEX  +11 

C,  + 2 

TENTATIVELY  ASSUME  NOT  DISABLED. 

088418 

JS 

L PROG  JAB 

Z,Xb 

PROG  DF  n 

+1 

THAT  REV  NOJ  ON  DISC.  GO  SEEK  ANOTHER. 

088422 

NA,  D10D11 

OnDEX  +3 

YUL  FILE 

NEXT  VERS 

branch  if  disabled  FILE. 

' 088426 

TS 

YUL  DATE  +1 

ONDEX  +12 

DlSCAP 

c 

088428 

OCT 

-12  _ __  _ _ 

PLANT  ALPHA  DATE  OFFICIALLY  IN  INDEX. 

088432 

SPEC 

ONDEX 

088434 

TS 

- 

- 

next  VERs 

CONTINUE  successive  LOOKUP. 

088438 

TS 

- 

disaster 

BAD  RETURN  MUSTN'T  HAPPFN  HfRE . 

08862 

TS 

nend  BYPT  -1 

c,  + o 

C , + 2 

CHANGE  TO  TAPE-COPYING  PROCEDURE. 

08854 

WF  » 1 

2,0 

• 

DISASTER 

NO  WRITING  IF  REPRINT  OR  BAD  MERGF. 

0886 

xfer 

3YPT 

TX 

Z,X2 

- 

Z,X1 

0887 

TS 

Z,X3 

Z,X2 

PHI  TAPE 

0888 

RF , 4 

4,0 

DISASTER  . 

new  banner  serials  are  supplied  from  xs, 

0890 

NA,  BAN6 1 f S 

2,0 

BAN  EOFRI 

NEND  BYPt 

the  relevant  orthoword  being  corrected. 

0892 

NA,  BII13 

SWITCH 

ONES 

CHF C<  WF 

BR.  IF  NO  PROGS  OBSOLFTfD  BY  THlS  ASSY. 

08924 

LA,  C5T8 

DISC  STAT 

C6TS 

CHECK  WF 

branch  if  disc  is  inoperable. 

08928 

TX 

L COMP  NAM 

- 

Z,X2 

0893 

SWS , THREAD  1 U 

N,X2 

12 

Z,X2 

POINT  TO  FIRST  PROG  OR  SUB  OF  COMPUTER. 

08934 

TX 

C , + 2 

XFER  BYPt 

-2 

MODIFY  EXIT  FROM  DISC  INDEX  MARKER. 

08938 

SSL,  ONE 

2,1 

0 

C,  + l 

TEST  OBSOLETED-THIS-TIME  BIT. 

08942 

TS 

- 

C , +2 

08944 

TS 

N,X2 

LAS  1 PROG 

PROG  DF3  - 

3 

GO  TO  MARK  NEWLY  OBSOLETE  PROG  3N  DISC. 

08948 

SWS » THREA  D 1U 

2,1 

0 

Z,X2 

0895 

NA 

Z,X2 

L end  thr 

C.-4 

BR.  IF  THERE'S  MORE  PROG/SUBS  TD  CHECK, 

08954 

CHEC<  WF 

NA,  BIT  11 

Sw  1 T CH 

ones 

C , + 2 

NO  WRITING  IF  REPRINT  OR  BAD  MERGE. 

08958 

TS 

N WD  RECS 

WD  SER  LIM 

LD  E3JF  5 

0896 

TS 

N WD  RECS 

WD  SLR  LIM 

PHI  TAPE 

set  up  serial  limit  for  later  use. 

08964 

WF , 1 

- 

- 

DISASTER 

verify  final  write  if  any. 

08967 

LD  E3JF  2 

TX 

E BUFFERS 

Z+X3 

s 

08972 

EX 

Z * X5 

SPEC  MAG 

E BJFFER  2 

SET  UP  RECORD  NO.  FUR  AUTHMeMO  DR  EOFRI, 

08974 

NA,  BIT  11 

SWITCH 

ZERO 

OCT  MAP  a 

BRANCH  IF  REPRINT  OR  BAD  MERGE. 

0898 

NA,  PROGS  J'3 

switch 

ones 

DD  SORT  -1 

BRANCH  IF  DOING  PROGRAM  ASSEMBLY. 

08983 

SM 

SWITCH 

B 1 Sll 

SWITCH 

FORBID  FURTHER  WRITING. 

08984 

CLOS 

erly 

S,  MON  EOF -61 

C , + 2 

- 

E BUFFER  2 

CLOSE  YULPROGS  NOW  IF  SUBRO  ASSEMBLY. 

08988 

TS 

- 

- 

PHI  TAPE 

08992 

RW , 1 

- 

- 

08994 

OCT 

MAP  0 

NA,  B I T 1 6 

SWITCH 

ONES 

DO  SORT 

BRANCH  IF  PR  IN  I 1 NG  OCTAL  STORAGE  MAP. 

08998 

TX 

ZERO 

_ 

RD4  SSTAr 

0900 

TN 

RD4  SSTAB 

7 

RD4  SSTAB 

♦1 

ALLOW  TRANSMISSION  OF  WORD  RECORDS  FOR 

09004 

TX 

N , SC , 2 

- 

SORT  LOOP 

-1 

occupied-location  index  ONLY. 

09008 

TS 

- 

_ 

DONT  SORT 

09009 

LA 

N WD  RECS 

ZERO 

CLOS  ERLY 

-1 

0901 

DU  SORT 

TS,  C1T4 

COMPUTER 

E BUFFER  2 

MON  WA<E 

c 

permit  WS3  to  write  from  e buffer  2. 

09014 

TS,  CAC3 

E BUFFER  2 

BANNER 

PHI  TAPE 

SET  UP  BANNER  5ER1AL  FOR  USE  BY  WS3 . 

09018 

RF , 4 

- 

* 

disaster 

0902 

LA 

N WD  RECS 

ZERO 

END  RD4 

CHECK  FOR  BARREN  ASSEMBLY  (VERY  ODD). 

► 


L 
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PQ9Q3 

SECOND  T AS* 

....  TO  PREStwT  WORD  RECORDS  TO  WS3  FOR 

S3RL1  Nqj»  - _ 

090* 

TS 

L B BUF'l 

Z,X2 

PHI  TAPE 

FIRST  RECORD  FOR  SORTING  TO  BUFFER  1. 

09Q6 

RF  .* 

2,0 

- 

DISASTER 

0907 

TS 

ONE 

WD  SERIAL 

REMOTE  1 

0908 

UNIT  3D  WD 

WA  _ . 

ZiX2 

BUF  SIZE 

Z.X2  _ 

0909 

TS 

- 

PHI  TAPE 

0910 

RF  »* 

2,0 

- 

DISASTER 

2ND  thru  bth  records  iif  that  many). 

0913 

SWS,  CAC 1 

WD  SERIAL 

32»t 

NjA3 

WAKE  SORTER  AND  ATTACH  FRESH  bFRIAL. 

0915 

WA 

WD  SERIAL 

ONE 

WD  SeRIAi 

_ _ 5916 

RtMQIE  1 

TS 

Z,X2 

Z,X3 

mjn  wakf 

C 

FORM  ADDRESS  OF  REMOTF  RECORD. 

0918 

NA 

wd  serial 

N W 0 RECS 

fits  in  q 

BRANCH  IF  THERE  ARE  MORE  RECORDS, 

0920 

TS 

m 

_ PHI  TAPE 

0921 

RF  i * 

• 

- 

DISASTER 

0925 

SWS,  CAC 1 

WD  SERIAL 

32  t L 

N,X3 

WAKE  SORTER  AND  ATTACH  FRESH  SERIAL. 

_ __  09  27 

IS 

N , SC 

Z,SC 

MON  WAKF 

C 

09272 

SPEC 

end  RD* 

0928  _ 

fits  in  u 

NA 

WD  SeRJmL 

EIGHT 

I Ml T RD  wD 

branch  to  get  nfXt  rfc  of  first  fight. 

0930 

TS 

L STOPPER 

Z,X6 

PHI  TAPE 

set  up  stopper  address  for  later  jse. 

0932 

RF , * 

- 

- 

DiSASTER 

verify  sth  read  of  more  than  8 reads. 

093* 

TS 

L B BUFL 

Z , X 2 

MON  W AK E__ 

5 

0935 

SWS,  CACl 

WD  SERIAL 

32, L 

N,X3 

WAKE  SORTER  AND  ATTACH  SERIAL  NJM3ER  8. 

0937 

WA 

N WD  RECS 

ONE 

N RECS  Pi 

0938 

WA 

L B BUFi 

L B BUF8 

J LIM  9 

USED  TO  Get  FROM  bl  to  B8  OR  V I EE  VERSA. 

0990 

TS 

BIT  32 

AV  MASK  2 

C , + 2 

INITIALIZE  MASK  FOR  PARAGRAPH  COUNTING. 

0992 

COJNT  PH 

WA 

AV  MAS<  2 

AV  MASK  2 

AV  MASK  ? 

SHIFT  MASK  LEFT  1 BIT. 

0993 

NA,  AVMAS02 

Rd*.  SSTAB 

ZERO' 

INC  NLXPH 

0999 

NA,  AVMAS02 

RD*  SSTAB 

♦ l 

ZERO 

INC  NLXPh 

0995 

NA,  AVMAS02 

RD*  SSTAB 

+ 2 

ZERO 

INC  NLXPh 

0996 

NA,  AVMAS02 

RD*  SSTAB 

♦ 3 

ZERO' 

INC  NLXPh 

09961 

NA,  AVMAS02 

RD*  SSTAB 

♦ * 

ZERO' 

INC  NLXPh 

09962 

NA,  AVMAS02 

RD*  SSTAB 

♦ 5 

zero 

INC  NLXPh 

09963 

NA,  AVMAS 02 

RD*  SSTAB 

♦ 6 

ZERO 

INC  NLXPH 

09969 

NA,  AVMASG2 

RD*  SSTAB 

♦ 7 

zero 

INC  NLXPH 

STEP  COUNTER  For  each  paragraph  used. 

0998 

NA 

AV  MASK  2 

BIT  1 

COUNT  PH 

095* 

BUSY  1 

UA 

N,X2 

B2T32 

parap  NAP 

GO  10  SLEEP  IF  BUFFER  NOT  FINISHED  WITH, 

0956 

WA 

Z,X2 

DELIA  b 

Z,X3 

FUDGE  FACTOR  TO  ACCOUNT  for  BAc<Wo  READ. 

0958 

TS 

- 

- 

PHI  TAPE 

0959 

RD  WORDS 

RF,* 

3,0 

- 

DISASTER 

0960 

BA 

WD  SERIAL 

DELIA  J 

WD  SERIAL 

INCREMENT  OR  DECREMENT  RECORD  SrRIAL, 

0962 

TS,  BIT  8 

RD  WORDS 

C,  + l 

PHI  TAPE 

SET  FORWARD/BACKWARD  BIT  OF  UP  CODE. 

096* 

RF,* 

- 

- 

DISASTER 

0966 

SWS,  CACl 

WD  SERIAL 

32, L 

N,X2 

WAKE  SORTER  AND  ATTACH  FRESH  SERIAL. 

09672 

TS 

- 

MON  WAKE 

C 

0968 

NA 

wd  serial 

WD  SeR  LIM 

CH  NEX  Rd* 

BRANCH  IF  MORE  TO  READ  THIS  DIRECTION. 

L 

<»YUL  SYSTEM 

ASSEMBLER  — 

PASS  3 

USER'S  OWN  PAGE  NO.  AO  PAGE  AO 

P0970 

PROCEDURE 

for  lhangims  DIRJECIIQN  of  SCAN..  --- 

0971 

WD 

N LOX  PH 

ONE 

N LOX  PH 

COUNT  DOWN  WHEN  SCAN  IS  DONE. 

0973 

LA 

N LOX  PH 

ZERO- 

END  .RDA  -3 

0980 

TX 

EIGHT' 

Z*S3 

0982  _ 

TS  _ __ 

- 

- P.H.l  T APE 

0983 

PASS  WDS 

RB,A 

6,0 

- 

DISASTER 

READ  EIGHT  RECORDS  INI  0 STOPPER. 

0985 

NA 

2 , S3 , 1 

ONE 

C , -2 

0986 

HA 

RD  WORDS 

BIT  8 

RD  WORDS 

CHANGE  DIRECTION  OF  MAIN  READ. 

0988 

HA 

PASS  wDS 

BIT  8 

PASS  wDS 

CHANGE  DIRECTION  OF  BYPASS  READ. 

^0990 

BS 

zero 

delta  J 

della  J 

CHANGE  SIGN  OF  Sf-RIAL  INCREMENT. 

0992 

BT 

delta  J 

7 

7 DELTA  | 

0993 

BA 

7 delta  J 

WD  SERIAL 

WD  SERIAL 

change  serial  for  next  recd  read  in. 

0995 

BS 

zero 

delta  buf 

DELTA  BUf 

CHANGE  SIGN  OF  BUFFER  ADDRESS  IwCRFMFNT. 

0997 

WD 

J L 1 M 9 

J L1M 

J LIM 

SWITCH  BUFFER  ADDRESS  LIMIT. 

0999 

WD 

DEL  26 A 

delta  b 

delta  a 

switch  fudge  factor  for  read  address. 

1001 

WD 

N KELS  Pi 

WD  SER  LJM 

WD  SER  LiM 

SWITCH  LIMIT  ON  SERIAL  NUMBfR. 

1003 

TS 

- 

- 

BJSY  3 

BEGIN  READS  in  NEW  DIRECTION. 

1005 CH  NEK  RDA  NA Z,X2 J LIM Ct  + 3 BR  UNLESS  JUST  010  BUFFFR  1 OR  ft. 


1007 

1009 

WD 

TS 

U LIM  9 

U LiM 

Z.X2 
SUSY  3 

CHANGE  BUFFER  1 TO  8 OR  VICE  VERSA. 

1010 

BA 

Z,X2 

DELTA  BUF 

Z,X2 

INCREMENT  OR  DECREMENT  BUFFER  ADDRESS. 

1012 

TS 

- 

• 

BJSY  3 

*1013 

trivial 

mult I -PROGRAMMED  SUBROUTINE 

TO  increment 

the  count  df  location 

index  pages  plus  used  paragraphs. 

1015 

INC  N.XPH  WA 

N LOX  PH 

ONE 

N LOX  PH 

1016 

TX 

Z.SH 

- 

z,sc 

1017 

LA 

E LOX  SATE 

ZERO 

END  RDA 

ALL  DONE  IF  NOT  DOING  LOCATION  INDEX. 

1019 

NA 

BLOCK  IND 

. ZERO 

PARAP  NAp 

SLEEP  UNTIL  PACE  OF  INDEX  IS  FINISHED. 

1021 

NA,  CAC3 

LAST  MAX 

index  max 

PASS  wDS  -2 

BRANCH  IF  INDEX  IS  NOT  DONE  YLI. 

1023 

END  RDA 

SSL,  ONE 

SWITCH 

AA 

C,  + l 

SEE  IF  ANOTHER  YUL  TASK  FOLLOWS. 

10232 

TS 

Z,SC,1 

- 

PHI  RLE As 

1023A 

TS 

- 

. 

PHI  TAPE 

REWIND  OR  RELEASE  WORKER  ACCORDINGLY. 

102A 

RW , A 

• 

• 

WE  ARE  NOW  THROUGH  WITH  TAPE  A . 

1026 

TS 

ZERO 

RDA  WAIT 

DEAD  STOP 

*10263 CLOSED  SUBROUTINE  FOR  SEQUENCE  MODE  SL-EPING. 


1026A  PARAP  NAP 
10265 

TS  - 

WD  Z , SH  ONE 

MON  SLEEP 

z.sc 

c 

R 1 0266 

FINAL  STO3  FOR  ALL  PARAPROGRAMS. 

10267  DEAD  STOP  TS  Z,RO  2, SC  v\3N  rtA<£  ” C WAKE  PASS  3. 
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PI 027  PARAPROGRAM  WS3  - PASS  3 - GRP  C 

R 1 028  

R 1 0 79 THIS  PARARRUGRAM  OPERATES  IN  GROUP  C P-IKING  PASS  3 AND  HAS  THRFE  TASKS.  FIRST.  IT  WRITF5  A RrCORD  OF 

R103X  MISCELLANEOUS  INFORMATION  ABOUT  THt  PROGRAM  ON  YU. PROGS  AS  THE  FIRST  BYPt  RECORD  FOR  THE  PROGRAM,  AND  FOLLOWS 

R1033  11  by  records  containing  the  sortep  symbol  table,  next,  it  scans  the  word  records  and  prints  an  index  showing 

R10332  WHAT  ?AGE  eACH  WQRP  SPECIFIED  ON.  FINALLY,  WS3  SORTS_wO_RDS  INTO  PARAGRAPHS  (FORMERLY  SUBStRANDS)  CONTAINING 
«1035  256  WORDS  EACH,  FOR  EACH  PARAGRAPH  WHICH  IS  KNOWN  10  CONlAIN  AT  LEAST  ONE  WORD  OF  USED  FIXED  MEMORY,  W53 

R1037  CLEARS  a BUFFERFUL  or  276  WORDS  TO  ALL  ZEROS  AND  MAKES  A PASS  THROUGH  ALL  THE  WORD  RECORDS  PRODUCED  BY  3ASS  2, 

R1039  -the  resulting  bypt  record  consists  of  a banner  word  with  serial  from  xi,  the  alphabetic  program  namf.  thf  par- 

RlOAl  AGRAPHI  NUMBER  (EQUAL  |U  THE  ADDReSS  OF  THE  FIRST  WORD  IN  He  RECORD  DIVIDED  BY  256,  STORED  AS  A BINARY  IN- 

R10A3  TEGeR),  256  WORD  POSITIONS,  TWO  ORTHOWORDS,  AND  THE  EOR  WORD.  EACH  WORD  POSITION  MAY  BE  AVAILABLE  (ALL  ZEROS), 

R10A5  AN  OBJECT  MACHINE  WORD  wlrH  CORRECT  PARITY  AND  CONSTANT  OR  INTERPRETIVE  FLAGS  IF  REQUIRED,  OR  ONE  OF  TH-  ALPHA- 

R 10A7  BETIC  FLAGS  ..BAD  WORD..  OR  ..CONFLICT..  WHEN  A PARAGRAPH  Is  COMPLETED,  IT  IS  HANDED  OVER  TO  THE  EDITOR  IN  MAIN 

R 1 0 A9  PASS  3.  THE  WORD  RECORDS  ARE  OBTAINED  FROM  RD A , WHICH  DELIVERS  THEM  IN  8 BUFFERS  SO  THAT  THE  SET  OF  wOrD  REC- 

RIQ51  QRDS  MAY  BE  SCANNED  IN  ALTERNATING  QRDeR  FqR  SUCCESSIVE  PARAGRAPHS. 


L 

P1057  ... 

«?YUL  SYSTEM 
CONSTANTS  , 

ASSEMBLER  — PASS  3 
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1058 

BL0C<  1ND 

RESERVE 

1 

1059 

FWA 

RESERVE 

1 

1060  .... 

LWA 

RESERVE  _ 

1 - ' 

1061 

LENGTH' 

RESERVE 

1 

1062 

COMMON. 

RESERVE 

L _ _ 

1063 

R i UI  Mi 

RESERVE 

1 

1064 

W SER  J UIM 

RESERVE 

1 

1065 

HI  R££S  PI 

RESERVE 

1 _ __ 

10651 

END  IX.  BUF 

RESERVE 

1 

10652 

MIN  PLR 

RESERVE 

1 

10653 

FLW 

RESERVE 

1 

1066 

WS3  SST 

RESERVE 

8 

1068 

BIT  37 

OCT 

-4000 

1069 

DtLT  5BOF 

FXB1N 

-265 

1070 

W SER  i 

DEL 

0001 

10701 

NINE 

FXB1N 

-9 

10702 

ELEVEN' 

FXBIN 

-11 

10703 

thirteen 

FXB1N 

-13 

107031 

C320 

FXBIN 

-320 

107032 

2 THUDS 

DEC 

♦ BB  tsBB  BB6  BBC 

10704 

D8 

DEC 

-G  0000 

10705 

DYD8 

DEC 

-GG  0000 

10706 

LAST  MAX 

OCT 

0 

10707 

INDEX  MAX 

OCT 

0 

10709 

LOX  S3i  HED 

ALF  * 4 

0CC0P1ED  LOCATIONS  PAGE 

1071 

Ml  CONr L 1 C 

alf 

CONFLICT 

1072 

END  ST  BOF 

SPEC 

4759 

1073 

SPEC 

5759 

1074 

OCI 

0 

1076 

WS3  ST  SPX 

SPEC 

EN  TAP  SYM 

1077 

SPEC 

TAPE  SYM 

10771 

L ZERO' 

SPEC 

ZERO 

1078 

L ONES 

SPEC 

ONES 

1079 

SO  LI  Mi 

SPEC 

13023 

1080 

WS3  SST  P8 

SPEC 

S3  SST  +8 

10801 

RL  TY3i  TAB 

SPEC ,B2 

2000 

1081 

L B 3 JF8 

SPEC 

13023 

L i 

iSYUL  SYSTEM 

ASSEMBLER  — 

PASS  3 

USER'S  OWN  PAGE  NO.  43  P^GE  43 

P10R3 

INITIALIZING 

OF  WS3  AND  FIRST  TASK:  TO  w 

R IT  F THF  "AUtHMfMO" 

RECORD  ON  YULPROGS  OUST  AFTFR  Hz  SAVfD 

R1085 

bypt  records  and  follow 

IT  BY  THE  ALPHABETICALLY  SORTED  SYM30L 

table. 

1086 

W S3 

SPLR 

WS3 

10862 

TS 

P3  MASKS 

Z,MXR 

LD  EBUF  2 

C 

1087 

SWE  * GROUP  I ND 

WS3 

17 

WS3 

_1088 

IX 

PROG  NAME 

- 

E BUFFER  2 

+ 1 

PROGRAM  NAME  FOR  MISCELLANY  RECARO. 

108812 

TX 

W AUTMEMO 

- 

E BUFFER  2 

+ 2 

10882 

SWS * THREAD1 0 

0,1 

12 

z,xo 

FOLLOW  AUTHOR  THREADS  IN  PROGRAM  NAME 

10884 

NA * Dl 

0,1 

ONES 

c , - 1 

ENTRIES  UNTIL  AUTHOR  NAME  ENTRY  FOUND. 

1089 

TX 

N,XO*i 

_ 

E BUFFER  2 

♦3 

FETCH  FIRST  8 CHARACTERS. 

10892 

SS 

N ,X0 

THREAD  11 

z,xo 

THREAD  TO  REMAINDER. 

10894 

TX 

N ,X0 

• 

E BUFFERS 

*A 

FETCH  SECOND  8 characters. 

1090 

TN 

SUBSTRAb 

8 

E BUFFER  2 

+ 5 

SUBSTRAND  1 ABLE. 

1092 

TX 

L SYM  THR 

- 

Z , AUl 

1093 

MT 

N , AU 1 , 1 

58 

N , AU2 • 1 

10932 

TN 

N , AUl 

6 

E3UFFER2  +102 

SYMBOL  TABLE  INITIAL  THREADS. 

1095 

WD 

SYM  PLACE 

L SYM  TA3 

E BUFFER  2 

+ 71 

10952 

BM 

E BUFFER2  +71 

2 THIRDS 

E B JFF E3-?  • 

♦71 

TWICE  the  number  of  symbols  in  table. 

10,961 

TS 

L PROG  FIL 

z,xo 

REVNO  SSi 

ADDRESS  OF  PROGRAM  name  IN  DIRECTORY. 

10962 

WS_2_  R-VNQ 

SS 

Q * 1 

A A ORES 

E BUFFER  2 

+ 7 1 

supply  revision  no.  when  no  subroutines. 

10965 

SWS*THREADli 

0,1 

24 

Z,XO 

C 

10966 

SWS,  A ADR£b 

N,XO 

12 

E BUFFER  2 

+ 71 

SUPPLY  REVNO  WHEN  THERE  ARE  SU3R0S. 

IO968 

REVNO  SSL 

SSL*  ONE 

0*1 

23 

WS3  REVNO 

r 

CHOOSE  HOW  TO  GET  REVISION  NUMBER. 

1097 

TX 

RL  TYP  TAB 

• 

Z * S2 

1098 

IT 

N,S2.27 

N.S2 

E BUFFER  2 

+ 7? 

STANDARD  MEMORY  TYPE  TABLE. 

10991 

TS 

zero 

EBJFFER2  +10U 

SET  EBJFi 

c 

10993 

TX 

zero 

- 

EBUFFER2  +101 

c 

SHOW  NOT  OBS.,  LET  XI  POINT  TO  £B OFFER 1 • 

109942 

NA*  BIT34 

SWITCH 

ONES 

C,  + 3 

109944 

TX 

BIT  1 

EBUFFER2  +100 

109946 

TX 

BIT  1 

- 

INDEX  +1, 

MARK  BAD  ASSEMBLY  ON  TAPE  AND  DISC. 

10995 

TX 

E BUFFERS 

- 

z,xo 

LET  XO  POINT  TO  E BUFFER  2. 

10997 

TX 

PROG  NAME 

- 

E BUFFER  1 

+ 1 

10999 

TX 

Z,xi 

- 

Z,SO 

SET  UP  INITIAL  CONDITIONS  FOR  SDRilNG. 

1100 

LA 

E BUFFER  2 

CAC3 

PARAP  NAp 

SLEEP  UNTIL  PREViOUS  BYPI  IS  RESTORED, 

11016 

WA 

E BUFFER  2 

ONE 

N , SO 

11018 

NA,  B I T 1 1 

SWITCH 

ZERO 

EN  TAP  SyM 

+ 2 

BRANCH  TO  BYPASS  WRITING  FOR  ANY  REASON. 

110195 

TX 

END  SY  bUF  +1 

_ 

Z,5H 

1102 

cc 

E BUFFER  2 

• 

N * SH 

1103 

TS,  D4 

C,  + l 

WR1I  DISC  *1 

PHI  TAPE 

SUPPLY  INDEX  NUMBER  TO  DISC-wRlrER. 

1104 

WF  * 1 

3,0 

- 

DISASTER 

WRITE  AUTHMEMO  RECORD. 

11054 

NA 

DISC  ADRS 

ZERO' 

WRIT  DI Sr 

SEND  AUTHMEMO  RECD  TO  DISC  IF  POSSIBLE. 

1106 

SET  E 3UF 1 

SWE,  CAC3 

E BUFFERS 

16 

Z , R 1 

1107 

TX 

Z,R1,3 

Z,X1 

1108 

TN 

WS3  SY  SPX 

2 

Z ,R3 

1109 

WA 

E BUFFER  2 

ONE 

E BUFFER  1 

SET  UP  E BUFFER  1 AND  SPEC  REGS  FOR 

1111 

TX 

PROG  NAME 

.. 

E BUFFER  1 

+ 1 

RECEPTION  OF  SYMBOLS  FROM  READ  5Y MS, 

11122 

TX 

W SYMBLS  1 

_ 

E BUFFER  1 

♦ 2 

1113 

LA 

SYM  PLACE 

L SYM  T A3 

EN  TAP  SyM 

BRANCH  IF  NO  SYMBOLS  IN  PROGRAM. 

UT5  IS  “ “ - ~ READ  SYMs 


L 
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PROCEDURE.  JO  ACCEPT 

TWU-WORP  SYMBOL  TAELf^LN  TRIES.  PROM  READ  sYMS  AmO„WRJJUXHEM  On  YULIRQCS  in  LOTS  OF  ?56, 

R1119 

DUUBLE-BUFFeRING  THROUGH  t BUFFER  1 

AND  E BUFFER  2* 

1 L20 

TAPE  SYM 

NA,  04 

. 3,0  • 

. _ 6 04  _ 

I,  +2 

BRANCH  IF  NOT  NORMALLY  DEFINED. 

11202 

TX 

Z.SC*1 

- 

11204 

NA,  D4 

3,0 

3 D4 

TSAD  SYM 

BRANCH  IF  NOT  DEFINED  BY  EQUALS. 

11206 

_JX 

N ,X3 

_ 

N,R1 _ _ _ 

_ ACCEPT  ONLY  GOOD  DEFINITIONS. 

112072 

SS 

3,1 

C 1 T 2 

N,R1,1 

SEND  PAGE  OF  DEFINITION  TO  SIM  r,  EDIT. 

112074 

TX 

Z,SC,1 

- 

* 

1120b 

tbau  sym 

SM 

CAC12 

N , X 3 

N , R 1 , 1 

SPECIAL  FLAG  FOR  BAD  DEFINITION, 

1122 

NA 

Z,R1 

END  SY  BJF 

thread 

RETURN  If  not  AT  END  of  BUFFER. 

1124 

TX 

Z ,R  1 

- 

END  SY  3|)F  +2 

END-OF-BUFFER  SPECS  ARE  ROTATED, 

1126 

CC 

N ,X  1 

- 

N,R1 

1127 

TS  _ 

Z,XO 

Z , R 1 

PHI  TAPE 

fetch  name  of  alternate  buffer. 

1129 

WF  * i 

1,0 

- 

DISASTER 

1130' 

SS 

c,-l 

D4 

WRIT  DISC  +1 

SUPPLY  index  number  TO  DISC-WRITER. 

1131 

NA 

DISC  AUKS 

Zero 

WRIT  DISC 

SFND  SYMBOL  RECORD  TO  DISC  IF  PtSSIBLe, 

1132 

WA 

N *X  1 

ONE 

N , XO 

INCREMENT  banner  SERIAL. 

1134 

wA 

1.2 

ONE 

0,2 

INCREMENT  N IN  "SYMBOLSN". 

1136 

IN  _ _ 

end  sy  bUF 

♦12 

END  SY  3uF 

rotatf  FND-OF-bUFFFR  SPfCS. 

1138 

TX 

Z,X1 

z.xo 

1139 

TS 

Z,R1 ,3 

Z , X 1 

THREAD 

set  R 1 FOR  NEW  BUFFER  AND  RETURN. 

R 1 1 4 1 

PKqCeOUKe 

TO  ROUSH 

JP  SYMBOL  TABLE 

WRITING  and  ini i 

i i alize  f0r  sorting 

operations. 

1147 

EH  T A SYM 

TX 

Z.X1.3 

Z.SO 

SET  UP  SO  FOR  WORD-SORTING  OPERATION. 

1149 

NA 

Z,X1 

Z,R1 

MID  BUFF 

BRANCH  IF  DIDN'T  PILL  LAST  SYMBOL  BUFFR. 

1151 

TX 

Z.SO 

. 

Z,X2 

5ET  UP  X2  FOR  SORTING  OPERATlO\). 

1153 

wA 

N , SO 

SPEC  SIGN 

Z.Xl 

PUT  BANNER  SERIAL  INTO  Xl. 

1157 

WA 

L B BUF 1 

L -B  BUFs 

SJ  LIM  9 

SET  UP  FOR  2-WAY  SCAN  OF  WORD  RECORDS. 

1161 

TX 

L B BUF 1 

Z.X4 

1162 

TX 

SPEC  SIGN 

- 

Z,R5 

initialize  number  of  substrands. 

1164 

SWE,  CAC1 

N WD  RECS 

32,  L 

W SERL  LtM 

1165 

WA 

W SERL  LIM 

W StRL 

HI  RECS  PI 

1166 

TS 

Z,XQ 

PH  FLAG  C 

barren  d 

CORRECT  flag  and  check  on  wordlessness. 

1168 

MID  3 JFF 

MT 

ONES 

2 

N , R 1 , 1 

1169 

NA 

Z ,R  1 

END  SY  BJF 

C*-l 

fill  out  last  buffer  with  ones. 

1171 

CC 

N , SO 

• 

N.R1 

1172 

TS 

Z.SO 

Z , X 2 

PHI  TAPE 

1173 

wF , 1 

2,0 

disaster 

WRITE  final  SYMBOL  TAbLE  RECORD. 

11742 

SS 

C , - 1 

D4 

WRIT  DISC  +1 

supply  index  number  TO  DISC-WRITER. 

11744 

NA 

DISC  ADRS 

zero 

WRIT  DISC 

send  IT  TO  DISC  TOO  IF  POSSIbLc. 

1175 

WA 

N,X2 

ONE 

N,XO 

provide  serial  for  i s t substrand  record. 

11752 

TX 

Z,XO 

Z.SO 

USE  SO  As  TEMPORARY  STORAGE. 

11754 

TS 

Z,X2 

Z , XD 

EN  TAP  SyM  +2 

GO  TO  INITIALIZATION  OF  SORTING. 

1177 

barrel  a 

LA 

N RECORDS 

ONE 

END  d S3 

BRANCH  TO  QUICK  END  IF  NO  WORDS. 

L eYUL  SYSTEM  ASSEMBLER  — PASS  3 USER'S  own  page  NO.  A5  page  as 
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PROCEDURE  ru 

SORT  FWA-LWA  WORDS  FROM 

HE 

WORD  RfCoRDS  IN  ORDpR  TO  MAKf  UP  PRINTED  ITEMS  HAVImG  A FORM 

Rim 

SIMILAR  to 

THUSE  of  He 

AVAILABILITY  DISPLAY,  EX 

C £P 1 THAT  WItH 

EACH  RANGE  OF  ADDRESSES  IS  ASSOCIATED  A 3AoE  NJM- 

R 1 1 83 

BtR,  WHICH 

IS  the  PAGE 

ON  WHICH  THE 

contents  OF 

HE 

NAMED  LOCATIONS  ARE  DEFINED.  THeSe  ARE  PRINTED  Al  JP  TO  160 

R 1 1 85 

PER  PAGE  IN  FO JR  COLUMNS  — UUIJF  PRETTY*  IF  I SAT 

IT  MYSELF. 

1186 

WA 

B5  LUC  129 

C32J 

END  LX  3uF 

INITIALIZE  buffer  end  CONSTANT. 

_1  188 

LUC  INDEX 

IX  _ _ 

ES  LUC  129  _ 

Z , R 7 

INITIALIZE  address  OF  NEXT  AVA1  A3LF. 

1190 

TX 

B5  LOC  129 

- 

MIN  PTR 

INITIALIZE  MINIMUM  POINTER. 

1192 

TX 

L ZERO 

. 

Z,XS 

INITIALIZE  MAX  POINTER  TO  POINT  TO  ZERO. 

Li  232 

TS 

ONES 

BLOCK  IJlD 

INC  NLXPw 

c synchronize  rda  rescan  decisions. 

, 119A 

TS 

Z,SC 

Z , R 1 

RCV  WORDS 

go  get  a word  record. 

1196 

LUX  LOOP 

TX  

N * XA 

Z,RA 

save  fwa.  ..  . _ 

1198 

SWE*  ONES 

N *XA  * 2 

16 

FLW 

CONVERT  TO  FORM  CAc.  FwA  PAGE  LWA  . 

1200 

WD 

FLW 

Z *RA 

COMMON 

1201 

WA 

Z,XA 

COMMON 

Z,XA 

LET  XA  POINT  TO  NEXT  FWA-LWA  WORD. 

1203 

LA 

FLW 

LAST  MAX 

LOX  EOR  o 

BRANCH  IF  DONE  ON  SOMt  PRECEDING  PAGe, 

_ 1205 

LA 

_ FLW  ...  . 

INDEX  MAX 

C.  + 2 

1206 

TS 

FLW 

INOcX  MAX 

C * + 2 

KEEP  TRACK  OF  GREATESl  FLW  OF  A_l. 

1208 

LA 

FLW 

N , Xs 

LOX  LUKJP 

br  unless  greater  than  any  on  this  page. 

R1210 

HtRE  FWA-LWA-PAGe  ITEM. 

IS  KNOWN  TO 

be  greater  than 

ANY  ON  THIS 

PAGE. 

1211 

NA*  CAC2 

FLW 

3_*  0 

fjl  pag  ni 

BRANCH  IF  DIFF.  PAGE  NUMBER  FROM  =AGMAX. 

1213 

WA 

N,X5 

ONE 

Z.SH 

12  1 A 

NA 

Z ,RA 

Z.SH 

FJL  PAG  o 1 

1215 

TS,  CAC3 

FLW 

5,0 

LJX  EOR  Q 

(IF  CONTINUATION  OF  PAGE  MAX.) 

1217 

FUL  PAG  Ul 

LA 

END  LX  BUF 

Z , R 7 

LOX  EOR  Q 

forget  greater  item  if  page  is  full. 

1219 

TX 

FLW 

- 

N,R7 

PLANT  HIGHEST  ITEM  U£  PAGE  SO  FAR. 

1221 

NA 

N,X5 

ZERO 

C , + 3 

BRANCH  UNLESS  FiRST  ITEM  OF  PAGr. 

1223 

TX 

Z ,R7  * 1 

Z,X5 

1 2 2 A 

TS 

L ONES 

N , R 7 , 1 

LOX  EOR  n 

SET  FORWARD  THREAD. 

1226 

SS 

Z,R7* 1 

CAC3 

5*1 

SET  FORWARD  THREAD  FROM  FORMER  GREATEST. 

1228 

TX 

L ONES 

- 

N ,R7 

forward  Thread  for  new  creates i. 

1230 

SWS.  CAC2 

Z » X 5 * 1 

16, L 

N , R 7 , 1 

BACKWARD  THREAD  FOR  NEW  GREATEST. 

1232 

TS 

N,X5 

Z,X5 

LOX  EOR  Q 

NEW  VALUE  FOR  MAX  POINTER. 

L 
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P1234 

F W A-L.W  A-PAGE  HEM  Lb 

MUW  KNOWM  TO  bF 

IN  CORRECT _ 

RAN GE  FOR  THIS  P_ AGE. _ __ 

1235 

LUX  IJKUP 

TX 

MIN  PTR 

Z,S1 

1236 

LA  

FJLW  ...  _ _ 

N * S 1 * 1 

Si  FOJNO 

1237 

TX 

N.bl 

- 

Z ,52 

1238 

LA 

FLW 

N , S2 , 1 

S2  FOUND 

1239 

Tb 

N,b2 

z.si  _ 

LOX  LJCJp  + l 

FIND  FIRST  ITEM  GREATER  THAN  THrS  ONF. 

1241 

Si  FDJND 

TX 

Z,S1 

Z ♦ S3 

LET  SI  POINT  TO  NEXT  LESS  AND  S2  POINT 

1243 

TN 

Z.S2 

_ Z,Sl  _ 

TO  NEXT  GREATER,  WHICHEVER  fN  FOUND  IT. 

1245 

S2  FDJND 

WD 

Z * S 1 

ONE 

Z » 51 

1246 

WO 

Z,b2 

ONE 

Z,b2 

1247  _ 

LA 

N ,52  _ 

FLW 

L3X  FDR  n 

IGNORE  IF  = FOUND  I TFM  (VERY  UJrpR). 

1249 

NA 

Z,b2 

MIN  PTR 

COMB  DOWN 

branch  if  not  less  than  ANY  IN  3ASE. 

1251 

Tb 

Z,b  2 

Z,X3 

combin  Jp 

GO  [RY  TO  COMBINE  WITH  NEXT  GREATER. 

1253, 

CUMB  DOWN 

TX 

Z,S1 

- 

Z,X3 

TRY  TO  COMBINE  WITH  NEXT  LESSER. 

1255 

NA , CAC2 

FlW 

3*0 

COMB  QbWN  -1 

BRANCH  If  WRONG  PAGE  NUMBER. 

1257 

WA 

N,X3 

ONE 

JL*  SH 

FORM  LW A +1  OF  NFXT  LFSSFR  ITEM, 

1259 

NA 

Z,R4 

Z,SH 

COMB  DOWN  -1 

COMPARE  FWA  OF  CURRENT  ITEM. 

1261 

Tb,  CAL3 

FLW 

3,0 

LOX  EOR  0 

SUBSTITUTE  LWA  OF  CURRENT  ITEM. 

1263 

CUMB1  M,  UP 

NA*  CAC2 

FLW 

3*0 

FJL  PAG  Q2 

BRANCH  IF  WRONG  page  number. 

1265 

bwE * CAC3 

N ,X3 

32 

COMMON 

ISOLATE  FW A OF  NEXT  GREATER. 

_ 1267 

WA 

FLW 

J2NE 

Z , SH 

1268 

NA 

Z,bH 

common 

FJL  PAG  Q2 

COMPARE  LWA  +1  OF  CURRENT  ITEM. 

1270 

Tb,  CAC 1 

FLW 

3.0 

LOX  EOR  Q 

SUBSTITUTE  FWA  OF  CURRENT  ITEM. 

1272 

FUL  PAG  Q2 

NA 

Z,R7 

end  lx  bjf 

LOX  ON  RYE 

BRANCH  IF  THEREb  ROOM  TO  SANDWICH  IT  IN. 

1274 

NA 

Z,S2 

Z . X 5 

C.  + 2 

BRANCH  UNLESS  NEXT  GREATER  lb  PAGE  MAX. 

1276 

Tb 

FLW 

N.X5 

LOX  EOR  0 

...IN  WHICH  CASE  REPLACE  IT  SAMS  FUSS. 

1278 

TX 

Z,X5 

- 

Z , S3 

REPLACE  PAGE  MAX  HERE  ALSO,  bUT  ELECT  A 

1280 

SWE,  CAC3 

5,1 

16 

Z,X5 

NEW  PAGE  MAX  AND  REARRANGE  THREADS. 

1282 

Tb,  CAC3 

L ONES 

Ji*  1 

LOX  ON  RYE  +1 

FORWARD  THREAD  FOR  NEW  PAGE  MAX. 

1284 

LUX  DM,  RYE 

TX 

Z ,R7  ♦ 2 

Z , S3 

1285 

IX 

FLW 

• 

N,S3 

PLANT  NEW  ITEM  WHICH  Is  NOT  PAGE  MAX. 

1287 

SWS * CAC2 

Z . S3 

16. L 

3,1 

BACKWARD  THREAD  OF  NEXT  GREATER  TD  HERE. 

1289 

NA 

Z,S2 

MIN  PTR 

C , + 2 

BRANCH  UNLESS  PLANTING  PAGE  MIMJMJM. 

1291 

Tb 

Z * 53  1 1 

MIN  PTR 

LOX  EOR  n -1 

...IN  WHICH  CASt  OMIT  SOME  THREADING. 

1293 

TX 

Z,S1 

Z ,X3 

1294 

Sb 

Z , S3 , 1 

CAC3 

3,1 

FORWARD  THREAD  OF  NEXT  LESSER  TD  HERE. 

1296 

SWE*  CAC2 

Z,bl 

16  , L 

N , S3 

BACKWARD  THREAD  OF  THIS  TO  NEXT  L£SS£R, 

1298 

Sb 

Z,S2 

CAC3 

N , S3 

forward  thread  of  this  to  next  greater. 

1300 

LUX  E OR  Q 

NA 

N,X4 

ONES 

LOX  LOOP 

BRANCH  IF  WORD  RECORD  NOT  FXHAJ4TFD. 

1302 

NA,  CAC 1 

0,0 

W SERL  LIM 

nend  SS 

BRANCH  IF  NOT  END  OF  SCAN. 

1304 

TX 

N,X5 

LAST  MAX 

PRESERVE  LARGEST  ITEM  OF  PAGE. 

13052 

Tb 

zero 

BLOCK  INO 

MON  WAKE  C 

MAKE  RD4  DECIDE  ON  RESCAN  NOW. 

L 

PJ.  3 06 

syul  system 

WAIT  UNTIL 

ASSEMBLER  - 
main  pass  3 

- PASS  3 
(IN  GRQJP  A)  IS 

i READY.  THEM 

. PRINT  a PaGe. 

USER'S  OWN  PAGE  NO.  A7  PAGE  A7 

1307 

13Q9 

PI-OX  SATE 

TS 

. _ 

Z.R7 

B5  LOr  129 

parap  nap 
COMMON 

(CLEARED  WHEN  PASS  3 IS  WAITING.) 

_ form  twice  number  op  items  on  pagf. 

1311 

1312 
-1315 

TX 

TN 

TS 

COMMON 

Z,XO 

L OLD  LIRE 

6 

Z.X5 

Z ,R6 
N ,R7 

_ AV  PIS  PaG 

C 

SAVE  XO  TO  X5. 

1317 

TN 

LOX  SB  HEO 

A 

PAGE  HED2 

+ 1 

set  up  first  tour  words  of  page  sjbhead. 

1319 

LA 

COMMON 

AC3  8 

C , + 2 

branch  if  less  than  a items  on  sage. 

1321 

_IS 

Z.SC.l 

- 

NORM  LOXH 

C 

form  full  subhead  and  skip  one. 

1323 

SSL.  AC08 

COMMON 

0 

C,  +0 

C 

form  as  much  subhead  as  needed. 

1325 

TS 

MIN  PTR 

Z * X3 

qjarters 

1326 

TN 

PAGE  HED2  + A 

11 

PAGE  HEO? 

+ 5 

ONE  COLUMN  ONLY.  FILL  WITH  BLANKS. 

1328 

NORM  LOXH 

TN 

PAGE  hEo2  +1 

11 

PAGE  HE02 

+ 5 

normal  case:  four  columns. 

1330 

TN 

PAGE  HEL»2  +1 

A 

PAGE  HEP? 

+ 5 

c 

two  COLUMNS.  REPEAT  COLUMN  HEATING... 

1332 

TN 

PAGE  HEU2  +8 

7 

PAGE  HEP? 

+ 9 

...AND  FILL  OUT  WITH  BLANKS. 

1 33A 

TN 

PAGE  HE02  +1 

B 

PAGE  HE32 

+ 5 

c 

THREE  COLUMNS.  REPEAI  COLUMN  H-AD  TWICE 

J336 

TN 

PAGE  HEU2  +12 

3 

PAGE  HEP? 

♦13 

...  AND  FILL  OUI  WITH  BLANKS, 

1338 

quarters 

TX 

Z.X3 

Z,SO 

SET  1ST  OF  A UUARIER-THREADS. 

1 3 AO 

TX 

3,1 

Z,X3 

FOLLOW  THREAD  for  1ST  UUARTER-PAGF. 

13A2 

LA 

NINE 

Z ♦ 3 $ * 8 

C.-l 

13A3 

TS 

Z.X3 

Z,S1 

PLOX  GATc 

+ 2 

c 

SET  2ND  QUARTER-THREAD,  RESET  R«,. 

1 3 A5 

LA 

ONES 

N , X 3 

PLOX  GRP 

BRANCH  IF  ONLY  ONE  ITtM  ON  PAGE, 

1 3 A7 

TX 

3,1 

- 

Z,X3 

FOLLOW  THREAD  IHROUGH  2ND  QUART ER-PAGE, 

13A9 

LA 

ELEVEN 

Z.R5.8 

C,-l 

1350 

TS 

Z,X3 

Z,S2 

PlOX  SATF 

+ 2 

c 

SET  3RD  QUARTER-THREAD,  RESET  Rb. 

1352 

LA 

ONES 

N,X3 

PLOX  GRP 

BRANCH  IF  ONLY  2 ITEMS  ON  PAGE. 

1 3 5 A 

TX 

3,1 

- 

Z,X3 

FOLLOW  THREAD  THROUGH  3RD  QUAR  I er.PASE, 

1356 

LA 

THIRIEEN 

Z.R5.8 

C.-l 

1357  TX  Z,X3  - Z,S3 


SET  ATH  QUARTER-THREAD 
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GROUPS  OF  FOUR 

SINGLE-SPACED 

.LINES, 

USER'S  OWN  PAGE  NO,  48  PAGE  48 

1360 

PLQX  3RP  TX 

FOUR 

- 

Z,R6 

INITIALIZE  EACH  GROUP  OF  FOUR  LINES, 

1362 

1365 

1367 

PLOX  LINE  TS 
LA 
SM 

L NEW  LINE 
ONES 

spec  sim 

Z»XJ 
N , SO 

A S3  

Av  LINE 
EN  lox  Pag 

Z.X4 

C 

PAGE  IS  DONE  IF  FIRST  COLUMN  IS  DONE. 

1368 

1370 

TX 

PLQX  COLM  TX  __  _ _ 

Z , X4 , 3 
6 ,N , SO  _ _ 

Z,X6 

ELW 

INITIALIZE  FOR  PRINT  LINE. 

1371 

■ EX 

FLW 

CAC3 

eoivlent 

ISOLATE  LWA. 

1373 

WA 

M EDIT  DEF 

TWO 

z,csc 

c 

SET  LWA  IN  PRINT. 

1375 

SWE,  CAC3 

FLW 

32 

ADDRESS 

ISOLATE  fwa. 

1377 

LA 

EUIVLENl 

ADDRESS 

C , + 3 

PRINT  LWA  ONLY  IF  FwA  = LWA. 

1379 

SWE,  CAC3 

M EDIT  AVI 

16 

z,csc 

C. 

SET  FWA  IN  PRINT. 

1381 

ss 

M W TO 

MW  10  MASK 

LINE  +2 

1382 

EX 

FLW 

CACZ 

ARG  1 

I SOLA  I E PAGE  NUMBER. 

1386 

TS 

- 

- 

P 3 D2 A L7S 

c 

1388 

SS 

ARG2 

C5J8 

LINE  + 3 

SET  PAGE  NUMBER  IN  PRINT. 

1390 

SM 

Z , XO  , 4 

ONES 

6,N,S0»1 

ERASE  ITEM,  ADVANCE  QUARTER-L1 NE, 

1392 

TX 

6 ,N , SO 

- 

6 ,Z , SO 

1393 

LA 

Z,X4 

_ Z , X6 , 1 

C,  + 2 

BRANCH  IF  FOURTH  COLUMN  IS  DONE, 

1395 

NA 

6 ,N , SO 

ONES 

PLOX  COLm 

GO  DO  NEXT  COLUMN  UNLESS  IT  IS  VOID. 

1397 

TS 

L NEW  LIJM£ 

z,xo 

PRINT  AVI 

c 

reset  xq  to  beginning  of  line*  3«int.  . 

1399 

TX 

z,xo 

- 

L NEW  lInE 

INFORM  GROUP  A OF  LINE  PHASE. 

1400 

NA 

Z,R6,1 

ONE 

PLOX  LINE 

BRANCH  IF  NOT  FOURTH  LINE  OF  G-OU®. 

1402 

TS 

SPACE  2 

OLD  SPACE 

PLOX  GRP 

_ .1 405 

EN  LOX  PAL  TN 

N ,R7 

6 

Z,XO 

RESTORE  XO  TO  X5. 

1406 

TS 

L B BUF1 

Z,R3 

RE  JSE  +i 

Q 

REVERSE  DIRECTION  OF  wORp  RECORj  SCAN. 

1408 

NA,  CAC3 

last  MAX 

INDEX  MAX 

LOC  INDEX 

BRANCH  IF  MORE  PAGES  OF  LOCATION  INDEX. 

1410 

TS 

zero 

E LOX  GATE 

MON  WAKE 

c 

LET  PASS  3 CARRY  ON. 

L 

syul 

SYSTEM 

assembler  — 

PASS  3 

USER'S  OWN  PAGE  NO.  49  PAGE  49 

J11A13 

PROCEDURE _ 

TO  INITIALIZE 

EACH  SUBSTrAnD,  And  SORT  I mg 

LOOP  FOR  EACH  _W_OrD_ 

RECORD.  _ 

1415 

W53 

LOOP 

TX 

Z,X2 

Z,S3 

begin  preparation  OF  A SUBSTRAND. 

1417 

SS 

Z.Xl.i  _ 

jjPEC  MAG 

N » S3 , 2 

_ INSERT  BANNER.  STEP  SERIAL. 

1419 

find 

SS 

SWE,  D 1 2 

Z,R5 

5 

Z *R6 

REL  ADR  OF  SS  USE  WD  — INI T.  =0. 

1421 

WA 

Z,R6 

L W S3  SS  T 

Z ,R6 

1422 

LA 

BIT  1 _ 

N , R 5 _ __  

C , + 3 

BRANCH  WHEN  NEXT  USED  SUBSTRAND  FOUND. 

1424 

WA 

N,R6 

N,Rb 

N,R6 

SHIFT  OFF  ZERO  BIT  FOR  UNUSED  S JBSTR AND. 

1426 

TS 

Z , R5  * 1 

- 

FIND  SS 

ADVANCE  SUBSTRAND  NUMBER  AND  LOOK  AGAIN, 

1428 

SWE*  CAC12 

N*R6 

1*1 

N ♦ R 6 

SHIFT  OFF  1-BIT  FOR  USED  SUBSIRaND. 

1430 

WD 

Z * R5  * 1 

SPEL  SIGN 

N » S3 

STORE  SUBSTRAND  NUMBER. 

1432 

SWE*  ONES 

N,S3*1 

8 * L 

BLOCK  INn 

BLOCK  INDICATOR  = 256  X SUBSTKAmD  NO. 

1434 

TX 

Z , S3 

- 

Z,R4 

SAVE  ADDRESS  FOR  FIRST  SUBSTRAND  WORD. 

1436 

MT 

ZERO 

63 

N * S3  » 1 

1437 

MT 

zero 

_63 

N.S3.1 

1438 

MT 

ZERO 

63 

N , S3 . 1 

1439 

MT 

ZERO 

63 

N*S3*1 

1440 

MT 

zero 

4 

N , S3 , 1 

CLEAR  256  WORDS. 

1442 

TS 

z,sc 

Z,R1 

RCV  WORDc 

GO  TO  RECEIVE  A WORD  BUFFER. 

1444 

SURT 

LOOP 

SWE*  CAC3 

N * X^ 

±b 

LWA 

ADDRESS  OF  LAST  WORD  IN  SIRING.  ...  __ 

1446 

EX 

N.X4.1 

CAC3 

Frt  A 

address  of  first  word  in  string. 

1448 

TX 

Z ,X4  * 1 

- 

Z » R 6 

SAVE  ADDRESS  of  ACTUAL  STRING. 

1450 

WD 

LWA 

FWA 

length 

1451 

WA 

Z,XA 

length 

Z « X 4 

FORM  ADDRESS  OF  NEXT  LWA-FWA  WORD. 

1453 

NA,  B33T40 

FWA 

BLOCK  IND 

F«A  NOT  tN 

branch  if  beginning  of  string  not  in  ss. 

1455 

WD 

FWA 

BLOCK  IND 

common 

1456 

WA 

Z,R4 

common 

Z,R7 

form  initial  destination  address. 

1458 

LA,  B33T43 

LkvA 

BLOCK  IND 

both  in 

BRANCH  IF  all  OR  STRING  IS  IN  SjBSTRAND. 

1460 

WA 

Z,R4 

N*SC*7 

R7  eim 

FINAL  DESTINATION  ADR,  FWA  IN*  lWA  NOT. 

1462 

OCT 

-377 

1463 

FW  A 

NOT  IN 

NA*  B33T4D 

LWA 

blo^k  in; 

sort  eor  q 

branch  if  none  of  string  in  susstRand. 

1465 

TX 

Z.R4 

- 

Z.R7 

INITIAL  DESTINATION  address. 

1467 

WO 

BLOCK  INd 

FWA 

COMMON 

1468 

WA 

Z*R6 

COMMON 

Z*R6 

MODIFY  INITIAL  ORIGIN  ADDRESS. 

1470 

BUTH 

IN 

WD 

LwA 

BLOCK  IND 

COMMON 

1471 

WA 

Z,R4 

COMMON 

R 7 LI  M 

FINAL  DESTINATION  ADDRESS,  LWA  IN. 

1473 

CUNF 

CHEK 

LA 

N , R 7 

ZERO 

C » + 3 

BRANCH  IF  NO  FIXED  STORAGE  CUNFlICT. 

1475 

SWS » B1T34 

Z *R6  * 1 

1 

switch 

CONFLICT  IS  ENOUGH  FOR  BAD  ASSEMBLY. 

1477 

TS 

W CONFLIC 

N*R  7 

c , +2 

PUT  ALF  CONFLICT  INSTEAD  OF  WORO. 

1479 

TX 

N *K6 » 1 

_ 

N » R 7 

PUT  NON-CONFLICTING  WORD  INTO  SjBSTRAND. 

1481 

NA 

Z *R7 » l 

R7  IIM 

CONF  CHEkr 

1482 

SURT 

£0K  Q 

NA 

N*M 

ONES 

SORT  LOOP 

BRANCH  IF  LWA-FWA  WORD,  NOT  EOR  FLAG. 

L 

SYOU  STSTEM 

assembler 

— PASS  3 

USER'S  OWN  PAGE  NO.  50  PAGE  50 

PlABA 

PROCEDURE 

AFTER_EACH 

WUkD  RECORD  TS 

FINISHED  ( FOR  1 

1 A85 
1 A89 

DOMT  SORT 

NA*  CAC1 
NA 

0*0 

PH  FLAG  A 

W SERL  LIM 

zero 

NEND  ss 
PARAP  'JAP 

BRANCH  IF  NOT  END  OF  SUBSTRAND. 

SLEEP  IF  PASS  3 UNREADY  TO  RECEIVE  BYPT. 

1 A92 
1500 
1 601  _ 

TS 

SWE , D12 
w A 

Z,X2 
2 «R5 
Z *R6 

PH  FLAG  A 
5 

N » SC , 2 

MON  WAKE 
Z *R6 

Z,R6  ...  . . 

C WAKE  PASS  3 AND  GIVE  IT  THE  BY?r. 

SET  UP  ANY-MQRE-5UB5TRANPS  CHECc. 

1503 
1 50A 

L W S3  SST 

SPEC 

LA 

WS3  SST  P8 

Z.Rb 

WS3  SST 
END  WS3 

BRANCH  IF  NO  MyRE  SUBSTRANDS. 

1506 LA N t.R.6 1 1 ZERO C.-l 


- 1507 

_ 1510 

TS 

LA 

L B BUF  1 
PH  FLAG  C 

Z , R 3 
ZERO 

RE  JSE  ♦, 

_ PARAP  NAP _ 

C 

_ SLEEP  IF  PASS  3 USING  OTHER  BUFFER. 

1512 

1515 

151602 

TS 

TS 

-NA,  B I T_1 1 

PH  FLAG  C 

ZERO 

Switch 

Z * X2 

PH  FLAG  C 
ZERO  ..  .. 

MON  WA<E 
WS3  LOO? 

C 

ACCEPT  USED  BUFFER  AND  WAKE  PASS  3. 
SIGNAL  READINESS  FOR  BUFFER  JUSr  SENT. 
BRANCH  TO  BYPASS  WRITING  FOR  ANf  REASON. 

15160A 

15162 

1516A 

TS 

WF  * 1 
IS 

Z,X2 

Z,S3 

PHI  TAPE 
WS3  LOO?  +1 

MAKE  SURE  PASS  3 IS  THROUGH  WITH  BUFFER. 

1517 

NtND  5S 

NA 

z,xo 

SJ  ulM 

C,  + 3 

BRANCH  IF  NOT  AT  BUFFER  MODULATION. 

1519 

jWD 

N,Sc*2 

_ LJ  LIM 

Z,XA 

„BUE  MODULATION. , »__1  TO  8 OR  Vl;;  VERSA. 

1521 

SJ  LI  Mi  9 

RESERVE 

1 

1522 

BA 

z,xo 

DELI  SBUF 

Z , X A 

INCREM  OR  DECBlM  BUFFER  ADDRESS. 

152A 

SM 

N ,X0 

BIT  1 

N , XO 

FLAG  BUFFER  AS  USED. 

1526 

TS 

- 

MON  WAKE 

c 

WAKE  RDA . 

1528 

BA 

W SERL 

N,SC,2 

W SERL 

INCREM  OR  DECRLM  WORD  SERIAL. 

1530 

DELT  SJ 

DEC 

0001 

15308 

TS 

- 

- 

MON  SLEEP 

c 

1531 

RCV  words 

CP 

N.XA 

- 

PArAP  NAP 

SLEEP  IF  bEEING  AN  UNCOrrECTED  ^EAD  Err. 

1533 

NA,  CAC 1 

A ,0 

W SERL 

C , -2 

SLEEP  UNTIL  RDh  PREPARES  A BUF F£R . 

153A 

TS 

Z , XA  » 1 

z,xo 

N,R1 

PROCESS  NEW  BUFFER  IN  SAME  SUBSrR AND, 

*1536  SU3R0JTINE  TO  REVERSE  H1RECTION  OF  BUFFER  SCAN. 


1537 

RE  US; 

WA 

Z,R3 

BUF  SIZE 

Z ,R3 

C 

1538 

SS 

zero 

BIT  1 

N,R3 

C 

MARK  BUFFERS  FOR  RE-USE  AT  TURNAROUND. 

15A0 

NA 

Z ,R3 

L B BUF  8 

C,-2 

c 

1 5 A 1 

REVERSE 

BS 

zero 

JOEL • SBUF 

DELT  SB  Jf 

c 

15A2 

BS 

zero 

DELI  SJ 

delt  SJ 

c 

CHANGE  SIGNS  OF  INCREMENTS. 

15AA 

WD 

HI  RECS  PI 

W SERL  LIM 

W SERL  LIM 

c 

15A5 

WD 

SJ  LIM  9 

SJ  LIM 

SJ  LIM 

c 

SWITCH  LIMITS  10_0TH£R  states. 

15A7 

TX 

Z,X0 

- 

Z.XA 

BEGIN  NEW  SS  WITH  LAST  BUFFER  DONE. 

15A8  END  WS3 

NA 

PH  FLAG  A 

ZERO 

PARAP  NAp 

sleep  if  pass  3 has  ears  closed. 

15A82 

EX 

Z,xi 

SPEC  MAG 

banner 

STORE  RECORD  COUNT  FOR  EOFRI  BANNER, 

1 5 ASA 

TS 

zero 

PH  i-LAG  C 

CLEAR  FLAG  AGAIN  JUST  IN  CASE. 

15A86 

TS 

ONES 

PH  FLAG  A 

dead  stop 

TELL  PASS  3 IT  IS  ALL  OVER. 

L 

P15A9 
P 1 5 A92 
R 1 5 A9H 
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PROCEDURE  FOR  PASS  3 TO  CLEAN  UP  THE  END  JF  F_ -THE  ASSEMBLY  IS  A REPRINT  OR  A REJECTED  ASSY,  OR  A SJB- 

rojtine,  yulprogs  has  already  been  closed  and  rewound,  and  3it  u set.  otherwise  the  existence  of  a oy:>t  Record 

FOR  THE  PROGRAM  is  NO'TtD  IN  THe  DIRECTORY.  UNLESS  Me  ASSeM3lY  IS  BAD.  THE  FILE  TAPE  IS  CLOSED  AND  REWOUND, 

— 

1551 
1 55  A 
1556 

CLOSE  YUL 

NA,  B I T 1 1 

LA 

TS 

SWITCH 

SWITCH 

2eR0 

ONES 
BIT  1 
BIT  37 

YJLPROP  -1 
C»t2 

WHICH  aO 

BRANCH  IF  NEW  BYPT  RECORDS  WE*E  WRITTEN, 
BRANCH  IF  BAD  MERGE. 

REPRINT  MUST  NOT  CHANGE  bYPT  Bit  STATUS, 

1558 

1559 
1561 

TN 

S,  MON  T Y 3 £K 
IS 

REJECT 
REJAS  MSG 

zero 

8 

SPR AMR  *2A 
PH  FLAG  A 

LAST  LINp  +1 
FINISH  Ti  *1 
__  PHI  TAPE  . . 

BE  MOST  EMPHATiC  ABOUT  REJECTION. 

1562 

YULPR3P 

wF.l 

- 

- 

disaster 

CHECK-WRITE  LAST  BYPT  RECORD. 

15621 

LA 

DISC  ADRS 

ZERJ 

WHICH  WO 

15622 

LA 

DF  PLACE 

L DISC  BJF 

C^NF I RM 

BRANCH  IF  LAST  BUFFER  CAMt  QU 1 -YEN, 

15626 

TS 

DF  PLACE 

END  DF  BJF 

LAST  R I Tc 

FORCE  WRITING  OF  SHOR I LAST  BLOCK. 

_ 156262 

CUNfHM 

LA 

C7T8 

N ERR  LINS 

ECCH 

LET'S  NOT  DEFILE  THE  DISC  WnH  a YUCCHH. 

15626A 

TN 

DISC  100 

2 

GOOD  BAD  +A 

let  last  line  show  filing  on  disc. 

15627 

TS 

ZERO 

INOtX  +A 

DlSCAP 

C 

15628 

_ OCT 

-1H 

CONFIRM  BINARY  RECORDS  FOR  THIS  PROGRAM. 

1563 

SPEC 

INDEX 

15631  WHICH  WD 

_LA 

N ERR  _LLNS 

TWO 

C,  + 6 

15632 

LA 

N ERR  LINS 

D12 

C , + 6 

15633 

LA 

N ERR  LINS 

BA  1 1 A8 

C , + A 

156332 

LA 

N ERR  LI  MS . 

C7T8 

C , ♦ 2 

15633A 

ELCH 

TS 

KEEP  BYPT  -1 

KEEP  bYPT  -2 

C , + A 

1000  CUSSES  OR  MORE  RATE  A YUCCCHHHH. 

1563A 

TS 

WORSE  +2 

HORHID 

C f ♦ 3 

15635 

TS 

WORSt  +1 

HORRID 

C , + 2 

15636 

TX 

WORSE 

- 

HORRID 

degree  of  aspersion  gives  the  bad  news. 

1 56A 

NA,  PROG  SJb 

switch 

ZER3 

neutral 

BRANCH  IF  SUBROUTINE.  NOT  PROGRAM. 

1566 

NA,  BIT  3A 

switch 

ONES 

keep  bypt 

ADMIT  TO  BYPT  IF  GOOD/FAIR  PROG  ASSY, 

1577 

MAIN  CUSS 

TS 

BAD 

GOOD  bAD 

keep  by?t 

c 

fetch  address  of  prog/sub  name. 

1581 

ss 

ZERO 

BIT  37 

i,i 

INDICATE  that  fiP  blNARY  RECORDS  EXIST. 

1583 

S,  MON  TY 3£H 

HORRID 

SPRAM  *8 

FINISH  Tl 

15832 

S.  MON  T Y 3 £K 

YUCCHHH 

SPR  AMR  +16 

finish  ti  + 1 

1586 

KEEP  3YPT 

TX 

L PROG  FIL 

• 

Z,xi 

LOCATION  OF  PROGRAM  NAME  IN  YJl  FILE. 

1588 

SM 

1,1 

ESI  T 37 

1,1 

DECLARE  EXISTENCE  OF  bYPT  RECORo. 

1590 

NA 

N ERR  LINS 

ZERO 

C , + 3 

1591 

TX 

GOOD 

. 

GOOD  BAO 

1592 

S.  MON  T Y 3 £K 

joyful 

SPRAM  *8 

FINISH  Ti 

1593 

TX 

mediocre 

GOOD  BAO 

159A 

S,  MON  T Y 3 £R 

ho  hum 

SPRAM  +8 

FINISH  Tl 

159A2 

NEUTRAL 

S,  MON  T Y 3 £K 

w END  OF 

SPRAM  +8 

• 

1595  FINISH,  T 1 S*  NON  T Y 3£K  ASSEMBLY 


SPR AMR  ♦ 8 


L 

system  assembler  — 

PASS  3 

USER'S  OwN  PAGE  NO.  52  PAGE  52 

P161B 

F 1 N AL  I Z I No  ROUT  l.NE  F OR  PASS _ 3 . PR DUJ 

j -THE,  QUALITY  OF  THE  ASSEMBLY.  IF  MDRe  COPIES 

k1620 

R1622 

01-  TH-  LISTING  were  CALLED  FOR,  AND  the  assembly 
times’as  required,  rewinds  (releases)  ta^e  5 if 

WAS  GOOD  OR  FAIR, 

i here  is  (is  not) 

PRINTS  the  ENTIRE  LISTING  from  tape  5 AS  MANY 
another  task,  terminates  by  reloading  pass  o. 

1 62 A - 

„ END  PASS  3 TN  _ . .. 

last  line 

16 

line 

1625 

1627 

1628 

LA 

SWE.  CAC12 
TS 

N ERR  LINS 
N ERR  LINS 

ZERO 

D.A.L 

send  last 

ARG  1 

_ P3  P2A  LZ5 

branch  if  no  errors  in  program. 
C EDI r ERROR  COUNT  FOR  PRINTING. 

1 63  A 
1636 
- 1637 

SS 

TN 

SWS.  C5T8 

ARC  2 

ERR  SUMM  L 
ERR  PACES 

C3T8 

5 

A, A 

LINE  +10 
LINE  +11 
LINE  ♦ 1 A 

SET  ERROR  COUNT  IN  PRINT. 

16372 

1638 

16382 

SWE.  ONES 
SS 

SWE.  ONES 

LINE  + 1<* 
ERR  PAGES 
LiNE  +L§ 

A.l.L 

C5TB 

A.l.L  , .. 

LINE  + 1 A 
LINE  +15 
LINE  ♦ 1 5_ 

SET  ERROR  PAG_£  NUMBERS  IN  PRINT, 

16392 

S.  MON  T Y 3EK 

LINE  +10 

SPR AMR  +A8 

- 

16AQ 

_StND  JJA5T  TX 

SPACE  A 

_ OLD  S P- ACf 

16A01 

16A02 

16A1 

S.  MON  TY^EK 
TX 

TS.  CHARI 

BLANKS 

Zero 

period  cl 

SPRA  +8 
LINE  +iq_ 

LIN  COJNT 
GQ_  PRINT 

DON'T  LET  LAST  LINE  HAVE  A PAG£  TO  SELF. 
_C  PRINT  END  OF  LAST  PH  QR  £F  SUBD)  LIST. 

16A3 

TS 

Z.SC 

Z . X A 

print  old 

PRINT  LAST  LINE  OF  ASSEMBLY  OUTPUT. 

16A7 

TS 

SPACE  a 

N.XD  _ 

get  log  n|0 

_£ 

16A8 

16A9 

RD<, 

SS 

WAIT  TS 

ZERO 

D8T12 

N.AJ2 
PARAP  NAp 

CLEAR  MONITOR'S  COUNT  OF  PRINT  _INES. 

set  to  proceed  when  rda  dies. 

16502 

1650A 

16506 

NA.  BIT11 
S.  MON  EO.'RH 
TS 

SWITCH 

YULPROP 

ZERO 

C.  + A 

BANNER 
Pil  TAPE 

BYPASS  IF  YULPROGS  HAS  BEEN  CLOSED  OJT. 
CLOSE  OUT  YULPROGS. 

16508 

1651 

16522 

RW.l 

LA 

NA 

N COPIES 
Z.XO 

zero 

L COP  BUFS 

RELOAD  Po 
C.  + 5 

RETURN  TO  PASS  0 IF  NO  COPY  TA=>£  EXISTS. 
BRANCH  IF  LAST  COPY  BUF  CAME  DDT  EVEN. 

1652A 

16526 

16528 

TN 

MT 

TS 

ZERO 

BLANKS 

1 

15 

N.XO 
N.AJ2.1 
COPY  PRTs 

MAKE  UP  NO-PRINT-NO-SPACE  LINE. 

16529 

1653 

1655 

TS 

S.  MON  EOFRil 

la 

LINE 

COPIES  +1 
BIT  1 

LINE 
SWI ICH 

C.-A 

ZERO 

COPIES 

FILL  OUT  LAST  COPY  BUFFER. 

CLOSE  OUT  TAPE  WITH  COPIES  OF  LISTING. 
IF  REPRINT.  ALWAYS  DO  REQUESTED  COPIES. 

1657  LA  GOOD  BAD  BAD  REL  PRT5  OMIT  EXTRA  COPIES  IF  bAD  ASSEM3.Y. 


£ 

L 
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ASSEMBLER  — 
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IB 

HI  659 

PROCEDURE 

KLPRJNT 

ADDITIONAL  copies  of  assembly. 

-LIST  INS* 

1660 

CUPIE5 

TS 

TWO 

Z,R2 

PHI  TAPE 

1661 

RW  * 5 _ 

- 

• 

• 

1662 

SWt*  CAC3 

E BUFFERS 

16 

Z,X2 

1663 

TS 

E BUFFERS 

Z,X1 

PHI  TAPE 

LOAD  ADDRESSES  FOR  DQUBLE-BUF  F £Rl nG. 

1665 

RF  *5 

1 *0 

• 

- 

PASS  OVER  LABEL,  READ  FIRST  L1N-. 

1667 

NA 

Z ,R2  * 1 

ONE 

C ,-2 

1668 

wo 

Nl  CQPJEi 

PAPER  PLY 

N COPIES 

1669 

TS 

PRINT  COd  ♦** 

1670 

PRINT  COP 

S.  PHI 

PR1NI 

2,0 

16702 

S.  PHI 

PR I Ml 

2,16 

1670** 

S.  PHI 

PR  I R 1 

2,32 

16706 

S.  PHI 

PR  1 N 1 

2 , **8 

1671 

TS 

z,xi 

Z , X 3 

PHI  TAPE 

1672 

RF  * 5 

2,0 

• 

• 

1673 

TN 

Z,X2 

Z 

Z,X1 

SWAP  BUFFER  names. 

1675 

NA*  BANBIIS 

2,0 

BAN  EOFRI 

PRINT  COP 

BRANCH  UNLESS  EOFRI  WAS  READ. 

16762 

TS 

m 

SET  LOS  NO  C 

1676** 

ss 

Zero 

D8T12 

N,AJ2 

CLEAR  MONITOR'S  COUNT  OF  PRINT  _INES. 

1677 

TS 

- 

- 

PHI  TAPE 

1678 

RF  *5 

- 

• 

• 

FINISH  READING  SECOND  EOFrI. 

1600 

NA 

N COPIES 

PAPER  PLY 

COPIES 

BRANCH  IF  MORE  COPIES  TO  PRINT. 

1682 

RtL  PR.T5 

SSL,  ONE 

SWITCH 

**** 

£*±1 

SEE  IF  ANOTHER  YUL  TASK  FOLLOWS. 

160** 

TS 

Z*SC, 1 

- 

PHI  RLEA^ 

1685 

TS 

- 

• 

PHI  TAPE 

1686 

RW  * 5 

- 

• 

REWIND  OR  RELEASE  COPY  TAPE  ACCORDINGLY. 

1688 

RELOAD!  PO 

S,  PHI 

PR  I Ml 

0,0 

16882 

S.  PHI 

PR  I Nl 

0,0 

1688** 

S,  PHI 

PR  1 N 1 

0,0 

BE  SURE  TO  RUN  OUT  PRINT  LINES. 

16886 

S,  PHI 

LOAD 

YUL  PASS  0 

15 

BASE  ADOr 

CHANGE  B ADR  BY  HAND  AS  YUL  SYSf  GROWS. 

K 1 690 

QUANTITIES  IU  BE  FILLED 

IN  BY  1 HE  PARTICULAR  PART  OF  PASS 

3. 

1691 

FILL 

MODLOC 

6** 

1692 

Slz  PASS  3 

EQUALS 

FILL  - PROG 

NAME  ♦ 6 A 

1693 

M edit  OEF 

equals 

FILL  +6*. 

SUBROUTINE  ENTRY  CACS. 

. 

1695 

M EDIT  AVI 

EQUALS 

FjLL  +6** 

1696 

M PR  I M T PN 

EQUALS 

FILL  + 6** 

1697 

M EDIT  WD 

EQUALS 

FILL  ,65 

1698 

M EXPLAIN 

EQUALS 

FILL  +65 

1699 

MAX  LOC 

EQUALS 

FILL  +66 

MACHINE  PARAMETERS. 

p 

1701 

MAX  SSNO 

equals 

FILL  +67 

1702 

MW  JO 

EQUALS 

FILL  +68 

1703 

MW  JO  MASK 

EQUALS 

FILL  +69 

L 

&YUL  system  assembler  -- 

PASS  3 

USER'S  OWN 

PAGE  NO. 

54  PAGE  54 

P17Q4 

INITIALIZING 

SEQUENCE  FUR  PASS  3.  5E TTING  JP  RD4  AND  WS3. 

IF  NECESSARY , 

MAK.ES  UP 

OWN  DISC  Or  RECTORY. 

1706 

SET  LOC » 7C 

SIZ  PASS  3 B 1 

17061 

PARP  NAME 

ALF 

????PAS3 

1707: 

BET  19  _ 

_QCT 

0000  0040 _ ..  _ 

1708 

BIT  42 

OCT 

-100 

1709 

OF  NO  K LIM 

OCT 

0000  1000 

17092 

HULE 

_DC  T 

0075  7575  7575  757S 

1710 

WS3  SST  P7 

SPEC 

WS3  SST  +7 

1711 

L PARA.  PRS 

SPtC  ,B7 

707  _ _ 

17126 

BLOT  01 

ALF 

■ 

17127 

w eno  yul 

ALF. 2 

END  YUL  PASS  2 

17128 

NURUM  CUS 

ALF  ,4 

BINARY  RECORDS  WON«T  FILO^  DISC 

1713 

2 MANY  PGS 

ALF  .4 

OVER  500  YUL  PROGRAMS  ON  DISC 

1714 

ALJ  WORDS 

ALE, 3 

SUPERB  SQ-SQ DISMAL 

1715 

ALF  .3 

awful  VILE  PUTRID 

1716 

SU3  LAST  L 

ALF  .5 

THIS  SUEROUIINE  IS  MAINTAINED  tN  S 1657  COMPARES  "IS  SUBRO"  VS  » 3AD.  UN". 

1717 

ALF  .2 

YMBOUC  FORM  QN 

17172 

BL3R0JND 

MPC « H 

Z.O  301  MON  PCR 

17173 

DF  NO*  BUF 

EQUALS 

L DISC  BUF 

17174 

DF  NDK  ADR 

EQUALS 

EQI VLENT 

17175 

4 COUNTER 

EQUALS 

ADDRESS 

171755  TAPE  'TAME 

EQUALS 

COMP  BITS 

17176 

DISC  3UFF 

EQUALS 

7144 

17177 

L BANO  3 

equals 

L PROG  TAB 

L ( 

9YUL  SYSTEM 

ASSEMBLER  — 

PASS  3 

USER'S  OWN  PAGE  NO.  55  PAGE  55 

Pi 71 7 9 

GENERAL  initialization; 

ACCOUNT  FOR 

diffeRf-NCf  Between  programs  amp 

SUBROUJINES,  start  paraprqgrams,  etc. 

1718 

INJSH  P3 

TS 

5,1 

GOOD  BAD  +6 

P3  MASKER 

c 

PUT  CORRECT  NAME  OF  TAPE  INTO  LAST  LINE. 

17192 

St  MON  TYA£k 

,W  END  YQL  _ 

_ 5PRA  *16 

C.*3 

TYPE  "END  YUL  PASS  2 ". 

1 7 1 9A 

ss 

BLANKS 

CHAR  8 

PAGE  HEAD 

♦13 

17196 

TS 

BLANKS 

PAGE  HEAD  +1A 

C,  + 2 

CLEAR  SUBROUTINE  NAME  SLOT  IN  3AG£  HEAD. 

17198 

NA,  CHARI 

PAGE  HEAD  ♦ 1 A BLOI  Cl 

C,-2 

BRANCH  IF  NOT  REJECT  OR  ObSOLEI-. 

171992 

EBA 

SPEC  SION 

BIT  25 

Z » X4 

POINT  TO  ORIGIN  OF  ROUTINE  LIST. 

17199A 

S,  ETS 

A , 0 

ZX  ♦ A 

redjcyms 

remove  routine  names  FROM  SYMBJ_  COUNT. 

1720 

SUB  REPUC 

_JX 

L SYM  THR 

. 

Z,XA 

1 7201 

EBA 

A, 13 

BIT  25 

Z , X A 

POINT  TO  BEGINNING  OF  AD  HOC  SJ3RD  DIR, 

172015 

TX 

N.SC.l 

- 

N , SC 

CHANGE  EXIT  FROM  LOOP. 

17202 

LA 

ones 

N.XA.l  _ _ 

self  obs  o 

-2 

BRANCH  IF  NO  MoRE  SUBROUilNES  HIS  ASSY. 

1720A 

REDUCTMS 

LA 

ONES 

N.XA.l 

SJB  RED Jr 

BRANCH  IF  NO  MoRE  WORD-COUNT  ROJTINES. 

17205 

WD 

SYM  PLACE 

three 

SYM  PLACf 

REMOVE  NON-SYMBOL  ENTRY  FROM  SYM  COUNT. 

17206 

S.  ETS 

A , 0 

ZX  ♦ A 

Redjcyms 

THRtAD  TO  N£XL NON-SYMBOL  ENTRY. 

1 7 206 A 

LA 

SYM  PLACE 

spec  mag 

self  obs  0 

172066 

WD 

SYM  PLACE 

three 

SYM  PLACf 

COMPENSATE  For  SKIPPING  over  32 K STOPPR. 

17207 

StLF  JBS  0 

SSL,  ONE 

SWITCH 

36 

c , * 1 

c 

change  Rejection  line  in  version  assy. 

172072 

SSL,  ONE 

SWITCH 

37 

C,  + 2 

test  WHETHER  RECORDING  BINARY  RECORDS. 

17207A 

TN 

REJ  VERS 

A 

REJ  REV 

17208 

IX 

PROG  NAME 

LAST  PR  Or, 

CAUSE  OBSOLETING  QF  JJLD  REVS  QF  THIS  PR. 

17209 

NA,  PROG  3JB 

SWITCH 

ONES 

JJDGe  WDa 

BRANCH  IF  DOING  PROGRAM  ASSEMBLY. 

1722 

TX 

BLANKS 

- 

SJBL  HEAD 

♦ 3 

FIX  SUBROUTINE  list  PAGe  SUBHEAD. 

1 7 2 A 

TN 

SUB  LAST!. 

7 

LAST  LINE 

♦ 2 

1725 

TS 

BLANKS 

LASI  LINE  *1 

COPY  SST 

FIX  FINAL  ASSEMBLY  PRINTOUT. 

1727 

JUDGE  WDS 

HA 

SYM  PLACE 

PAGE  NO 

C,  + 0 

GENERATE  A RANDOM  BIT  IN  BIT  A7, 

1729 

SSL  * ONE 

C ,- 1 

1 

C,*l 

1730 

TN 

ALT  WORDS 

6 

JOYFJL 

17331 

COPY  SST 

TN 

SUBSIRAB 

8 

WS3  SST 

MAKE  A COPY  OF  THE  SUBSTRAND  TABLE. 

1 7333 

TS 

ONE 

N RcCORpS 

LJ  EBJF  , 

c 

173333 

MT 

ZERO 

52 

N.X3.1 

173336 

LA 

Z,X3 

END  SY  BJF  ,1 

C,-l 

CLEAN  OUT  AUTHMEMO  bUFFER. 

1733A 

TS 

L WS3  SST 

Z , X 6 

LD  E3JF  2 

c 

1 7335 

TS 

BIT  32 

AVAIL  MS< 

C , + 2 

17336 

PH  COUNT 

WA 

AVAIL  MSK 

AVAIL  MSK 

AVAIL  MSv 

1 7337 

NA,  AVAIL  MiSK 

6,0 

ONES 

C , + 2 

17338 

WA 

N RECORDS 

ONE 

N RECORDS 

COUNT  UP  THE  NUMBER  OF  PARAGRAPHS, 

173A 

NA 

AVAIL  MSK 

BIT  1 

PH  COJNT 

BRANCH  UNTIL  SUBSTRAND  T AbL£  WO  IS  DONE. 

173A2 

NA 

Z.X6.1 

WS3  SST  p7 

PH  COJNT  - 

1 

BRANCH  UNTIL  ALL  SS  TABLE  WORDS  DONE. 

173AA 

TX 

ZERO 

- 

DISC  ADRS 

IN  CASE  W£  CANNOT  OR  SHOULDN'T  JSE  DISC. 

173A6 

TX 

L COMP  NAM 

- 

Z.X6 

173A7 

SWS , THREA  0 1 0 

6,1 

12 

Z,X6 

173A8 

SWt , ONES 

CHAR  b 

A , 1 

AVAIL  MSkr 

MOVE  LEADING  NON-BLANK  CHARAC 1 B RS  OF 

1735 

SS 

N,X6 

AVAIL  MSK 

PARP  NAME 

referenced  computer  name  to  form 

17352 

SWE,  C 1 T A 

AVAIL  MSK 

A , 1 

avail  MSk 

COMPLETE  NAME  OF  PARTICULAR  PASS  3. 

1 73  5 A 

NA,  AVAIL  MS*. 

6,0 

BLANKS 

C.-2 

17355 

NA,  BIT11 

SWITCH 

ZERO 

PAGE  SIZQ 

-2 

BRANCH  IF  BAD  MERGE  OR  REPRINT. 

17357  LA  N TRECORds  ONE  PAGE  SIZq  -i  TREAT  CASE  OF  NO  WORDS  LIKE  MO  MERGE. 

17361  NA.  PROG  5JB  SWITCH  ZERO  PAGE  SiZQ  NO  BYPT-WRITING  ON  DISC  FROM  SJJRO  ASSY. 

17363  LA.  C5T8  DISC  STAT  C6T3  PAGE  SIZU  BRANCH  IF  DISC  IS  INOPERABLE. 
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17365 

TX 

computer 

. 

index 

PUT  BLANKLESS  COMPUTER  NAME  INTO  INDEX. 

17367 

SWS.  C5T8 

5,1 

A,A  _ 

_ INDEX 

PUT  FIRST  .LETTER. DF  TAPE  NAME  I N _CHAR  5_. 

17369 

TS 

L PROS  FIL 

Z.Xb 

C 9 ♦ ^ 

1737 

SWE ♦ C7T8 

6,1 

2A 

DEC'REVN 

S 

REVISION  * OF  PROGRAM  WITHOUT  SjBROS. 

17372 

SWS.THREAD1  i 

6,1 

2A 

Z,X  6 

C 

17373 

Swt.  C7T8 

N ,X6 

36 

DEC*  REV  N 

s 

REVISION  * OF  PROGRAM  WITH  SUBROUTINES. 

17375 

SSL.  ONE 

6,1 

23 

C,-3 

C 

17376 

SS  __ 

zero 

C6T8 

INDEX 

17377 

SS 

DEC*REVN 

D12 

INDEX 

173^8 

SWS.  B39TA2 

dec*revn 

2 » L 

INDEX 

17379 

SWS,  cHAR 5 

dec»revn  . 

A , L 

INDEX 

put  revision  .number  into  file  name. 

-17381 

TX 

ONES 

- 

INDEX  +2 

INITIALIZE  SUCCESSIVE  LOOKUPS. 

17383_ 

DP  LOOKUP 

JS 

PROG  NAME 

INDEX _ ±l 

D1SCAP 

C 

1 738  A 

OCT 

-15 

LOOKUP  AND/OR  DELETE  EXISTING  INSTANCES. 

17386 

SPEC 

INDEX 

17387 

SSL,  ONE 

DF  LOOKUP  +1 

3... 

C , *2 

SELECT  on  MODE  1 6 =DEL£ T E _0.R  15=_03KJP)  . 

17389 

TS 

YUL  WAA 

Z.Xb 

C . + A 

XI T HERE  WHEN  ALL  OLD  INSTANCES  DELETED. 

1739 

TS,  CHAR8 

BLANKS 

DF  LOOKUP  *1 

DF  LOOKJp  _i 

RESTORE  LOOKUP  MODE,  UNLOG  AFI ER  DELETE. 

17391 

NA,  D1QU11 

INDEX  ♦ 3 

YUL  FILE 

DF  LOOKUP 

LOOK  AGAIN  If  NOT  A GENUINE  YOU  PROGRAM. 

1739A 

TS,  CHAR8 

SIX 

DF  LOOKUP  +1 

DF  LOOKUP 

delete  the  old  version  we  found. 

17396 

_WO 

SYM  PLACE 

L SYJm'  T A3 

..  N SYM  R£CS 

173965 

BM 

N SYM  RECS 

2 THIRDS 

N SYM  RECS 

17397 

WA 

N SYM  RECS 

OCT  377 

N SYM  RECS 

17398 

SWE,  C7T8 

N SYM  RECS 

U 

N SYM  RFCS 

gft  number  of  symbol  table  records. 

1 7 AO 

SM 

YUL  LOG 

C5T» 

INDEX  *2 

1 7 AO  1 

WA 

N SYM  RECS 

N RECORDS 

N SUBFIL  1 

get  total  number  of  records. 

1 7 AO  1 5 

LA 

OCT  377 

N SUBFIL  1 

PREP  CONF  -1 

BRANCH  IF  FILE  TOO  BIG  FOR  DISC  FILE. 

17A02 

SWE,  ONES 

N SUBFiL  1 

1 

Z.AUl 

HALF  THE  NUMBER  OF  RECORDS  OR  JJST  LESS. 

17A025 

WA 

N SYM  RECS 

ONE 

Z , AU2 

number  of  non-paragraph  records. 

17A03 

LA 

Z.AU2 

ZjAJl 

Li+1 

BRANCH  IF  THOSE  WILL  FIT  IN  1ST  SUBFILE. 

17A035 

WD 

N SUBFIL  1 

Z,  AJ2 

Z.AUl 

IF  NOT,  2ND  SUBFILE  HAS  PARAGRAPHS  ONLY. 

17AOA 

WD 

N SUBFIL  1 

Z , A J 1 

N SUBFIL  1 

NUMBER  OF  RECORDS  IN  1ST  SUBFILE. 

17AOA5 

SWS,  B31T39 

N SUBFIL  1 

11.  L 

CREATE  Wr> 

17A05 

SWS,  B31T39 

Z.AUl 

11, L 

CREATE  W2 

TWO  CREATIONS  SNATCH  ALL  NEEDED  DISC. 

17A055 

TS 

- 

- 

D1SCAP 

c 

17A06 

CHEATS  WD 

OCT 

-AOO 

17A065 

SPEC 

INDEX 

1 7 AO  7 

TS 

Z.SC.i 

• 

D1SCAP 

C 

1 7 AO  75 

TS 

- 

_ 

PREP  CONF  -1 

BAD  RETURN  MEANS  NO  ROOM  IN  p!5C  FILE. 

1 7 A 1 

CREATE  W2 

OCT 

-1  OOO  A02 

CREATE  FILE  FOR  THIS  NON-REUECTeD  prog. 

1 7 A 1 1 

SPEC 

INDEX 

1 7 A 12 

IS 

create  WD 

DISC  ADRS 

PREP  CONF 

success:  go  prepare  for  confirmation. 

1 7 A 1 A 

S,  MON  TY3.EK 

NO  RUM  CUS 

SPRA  *32 

PAGE  SIZQ 

cuss  no  room  and  forget  about  disc  use. 

L 

&YUL  SYSTEM 

assembler  — PASS  3 

USER'S  OWN  PAGE  NO.  57  PAGE  57 

__  Pi  74 1.5.5 

PREPARE  for 

! CoNFIRMAl 1UN,  WHICH  WILL 

bF  PONE  when 

AND  LF  He  RUN  GE1 

■s  through  PASS  3. 

17416 

PK£P  CONF 

WA 

FINISH  T 1 

BIT  32 

finish  Ti 

add  «;  filed  on  disc  to  final  typeojt. 

17418 

_SlM 

YUL  LOG 

N.5C.1 

INDEX  *5 

form  Charlie  word. 

1742 

DEC 

-2500 

17426 

TX 

DEC»REVN 

- 

INDEX  +8 

REVISION  NUMBER  IN  DECIMAL 

17428 

TX 

L AU1H  NAM 

Z , SH 

AND  AUTHOR  NAME,  ALL  FOR  BENEFIT  OF  HE 

1743 

TX 

N»SH*1 

- 

INDEX  +9 

SIMULATOR. 

17432 

ss 

N,SH 

thread  11 

Z ,SH 

17433 

IN 

N,SH 

u 

_ . INDEX  *ln 

17434 

MT 

ZERO 

4 

N.AJ2.1 

174345 

TX 

N SYM  RECS 

- 

INDEX  +13 

NUMBER  OF  SYMbOL  TABLE  RECORDS. 

17435 

TX,  D10D11 

YUL  TILL 

- 

INDEX  *3  _ 

SUPPLY  DISCAP'S  CODE_  FOR  YUL  PROGRAMS. 

174362 

NA,  B I T 34 

switch 

ones 

PAGE  SIZq 

BRANCH  IF  GOOD  OR  FAIR  PROGRAM  ASSEMBLY. 

17437 

SWS,  B15T15 

SWITCH 

4 , L 

SWITCH 

BAD  ASSEMBLY  SETS  CONDISH  SUPPRESSIONS, 

1750 

PAGE  5U  0 

WA 

L AV  lAbLE 

ONE 

Z,X1 

POINT  TO  1ST  SPEC  PAIR  OF  SYMBOL  TABLE. 

1752 

LA 

N LINES 

54  LINES 

CH  N£X  SYM  +2 

1753 

TS 

54  LINES 

N LINES 

CH  NEX  SYM  +2 

Restore  artificially  oversize  PaQe. 

17542 

MO  S Y 'll  C-HK 

LA 

ONES 

N » X 1 , 1 

_ CH  N£X  s.yM  +3 

branch  if  there  are  no  more  symjols. 

17544 

LA 

1,1 

CAC12 

ch  nex  Sym 

BRANCH  If  SYMBOL,  NOT  MUU . DEF.  FLAG. 

17546 

5,  ETS 

1.1 

ZX  *2 

c , ♦ 1 

POINT  to  last  of  multiple  DEFINITIONS. 

1754? 

TX 

2,1 

• 

Z.AJl 

point  to  FIRST  OF  MULTIPLE  DEFINITIONS, 

17  54b 

SS 

N.Xl 

CAC3 

2,1 

THREAD  LAST  MULT  DEF  TO  NEXT  SYMBOL. 

17549 

SM 

CAC12 

Z , A J 1 

N , X 1 

make  flag  look  like  bad  SYM  ON  OISC. 

175496 

CH  NE*  sym 

LA,  CAC3 

1,0 

L AY  TABLE 

C , + 2 

BRANCH  IF  SYMBOL,  NOT  SPEC  PAIR. 

175498 

WA 

N.Xl 

ONE 

Z,X1 

1755 

S,  ETS 

1.0 

ZX  *1 

MD  SYM  Ch< 

GO  SEEK  ANOTHER  MULTIPLY  DEFINED  SYMBOL. 

17551 

LA,  C5T8 

DISC  STAT 

C6T8 

set  z i a j 

BRANCH  IF  DISC  IS  INOPERABLE. 

17552 

HA,  PROQSja 

switch 

ONES 

C + 2 

BRANCH  If  doing  PROGRAM  ASSEMBLY. 

17553 

NA,  BIT13 

SWITCH 

ONES 

set  z(ai 

BR.  II-  THIS  ASSY  OBSOLETED  NO  3ROGRAMS. 

L 

S-YUL  SYSTEM 

ASSEMBLER  — 

PASS  3 

UStR'S  OWN  PAGE  NO.  58  PAGE  56 

P17565 

MA<f  JP  OWN  DIRECTORY  OF  PROGRAMS  FOR 

THIS  COMPUT 

~R ON  THE  0 I.SC  — 

500 

AT  MOST.  ___  _ 

1757 

SWt*  C2T4 

L OF  NDX  AO 

B , 2 4 ,L 

DF  NOX  ADR 

175B 

wA  . 

OF  NOX  ADR 

BIT  19 

DF  NDX  AOR  

1759 

WA 

OF  NOX  L1M 

OF  NDX  AOR 

DF  NOX  LIM 

SET  UP  LIMITS  OF  DISCAP  INDEX  ARE4. 

1761 

RD  OF  NDX 

LA 

OF  NOX  LIM 

Of  NDX  ADR 

Set  2(A) 

BRANCH  IF  WhOLt  LNDtX  HAS  BEEN  EXAMINED. 

- 1763 

TX 

OF  NpX  BUF 

- 

Z,X1 

POINT  TO  BANK  3 OwN-dIRECTORY  area. 

1765 

S,  01 SCREA J 

1,0 

16 

DF  NDX  ADR 

READ  16  SECTORS  = 1024  WORDS  OF  INDEX. 

1767 

WA 

OF  NOX  AOR 

B J T 20  ... 

DF  NDX  ADR 

INCREMENT  DISC  ADDRESS _EQR  NEXT  READ. 

1769 

TS 

zero 

4 COUNTER 

DISC  CHEK 

WAIT  FOR  DISC  READ  TO  FINISH. 

1771 

F 1 L F TYP  Ti 

NA 

N,X  1 

HO-Lt 

C , + 2 _ 

1772 

TS 

Z ,X  1 ♦ 15 

NxT  (NDX)  +1 

REJECT  A HOLE  IN  THE  INDEX. 

177<* 

NA 

N , X 1 

BCGROUND 

C , ♦ 2 

1775 

JS 

Z , X 1 , 1 5 

NXT  (NDX'  +1 

REJECT  NEVER-USED  PART  OF  INPtX  AREA. 

1777 

NA,  D10D11 

1,3 

YUL  FILE 

NXT  (NDX) 

1780 

NA,  C1T4 

1,0 

COMPUTER 

NXT  (NDX) 

1781 

SWt,  CHARI 

N , X 1 

A , 4 ,L 

IA£E_NM£_ 

1782 

NA,  CHARI 

TAPE  NAME 

5,1 

NXT  (NDX) 

DEMAND  CORRECT  COMPUTER  AND  TAP£, 

1784 

TX 

L END  PTAB 

- 

Z ,AJ1 

__  1785 

TS 

L PRUG  TAB 

Z , X 2 

C.  + 2 

1786 

TX 

Z ,X2 , 1 

- 

1787 

LA 

Z,AUl 

Z,X2 

ADD  PROGn 

BRANCH  IF  NAME  NOT  IN  OWN  DIRECTORY. 

1 T89 

NA 

N , X 2 , 1 

1,1 

C , -2 

1790 

NA,  C6T 8 

2,0 

1,0 

C ,-3 

SEARCH  OWN  DIRECTORY  FOR  NAME  AND  REVNO. 

1792 

TS 

Z , X 1 , 1 5 

- 

NXT  (NDX)  +1 

GO  TO  NEXT  WHEN  FOUND  DIFFERENT  VERSION. 

1794 

ADD  PRDGN 

TX 

1*1 

- 

N, AJl , 1 

STORE  PROGRAM  NAMt. 

1796 

TX 

N , X 1 

- 

N , AU 1 , 1 

STORE  CQmpUTER-T ApE-RtVNO  WORD. 

1798 

TX 

Z ,AU1 

L END  PTAB 

1799 

NA 

L END  PjAB 

DF  NOX  BJF 

NXT  (NDX) 

BRANCH  IF  OWN  DIRECTORY  OIDN'I  OVERFLOW. 

1801 

S,  MON  TY3£K 

2 MANY  PGS 

SPRA  +32 

set  Z(A) 

"OVER  500  YUL  PROGRAMS  ON  DISC  •■». 

1803 

NxT  (NDx) 

TX 

Z ,X 1 1 1 5 

- 

- 

1804 

wA 

4 COUNTER 

ONE 

4 COUNTER 

1805 

NA,  THREE 

4 COUNTtR 

zero 

FILE  TY?  Q 

BRANCH  IF  IN  SAME  StClOR, 

1807 

LA 

BIT  42 

4 COUNTER 

RD  DF  NDX 

BRANCH  IF  tND  OF  DISCAP  BUFFER. 

1809 

TS 

Z , X 1 , A 

- 

FILE  TYP  Q 

JUMP  TO  NEXT  StCTOR  WITHIN  BUFFER. 

1811 

StT  2(A) 

TS 

zero 

N EECRS 

print  LIn 

c 

1812 

TX 

L LlNSTOR 

- 

Z,XO 

set  up  delay  buffering  of  print  limbs. 

1814 

TN 

YP3  SY  SPX 

_2 

Z.R3 

SEJ  QWN  ADDRESSES  INTO  JOINT  SYv)  SEARCH. 

1816 

TX 

L PAKA  PRS 

Z , X 6 

1817 

MT 

Z,SC,1 

2 

N , X6 , 3 

SET  UP  STARTING  ADDRESSES  FOR  SIDE  GRPS. 

1819 

PASS  3 GPB 

TS 

E SYLT  BAN 

Z,X  5 

RD4 

INITIALIZE  RECORD  COUNT  FOR  B Y 3 r COPY, 

1821 

PASS  3 GPC 

TS 

L PROG  FIL 

z,xo 

WS3 

GO  TO  FORM  AUTHMEMO  RtCORD. 

1823 

TS 

z,xo 

Z , R 1 

MON  WA<E 

c 

set  up  destination  of  found  symbol,  and 

1825 

SPCR 

YP3 

LET  SIDE  GROUPS  BEGIN. 

1827 

SWt* GROUP  I NO 

YP3 

17 

YP3 

SET  UP  GROUP  INDICATOR  FOR  GRQJ3  A. 

1829 

S,  PHI  LO A 0 

PARP  NAME 

1 

P3  mas<er 

SE3BKK 

END 

YUL  PASS  3 

GENERAL 

L 

@YUL  SYSTEM  ASSEMBLER  AGCA  PASS  3 

USER'S  OWN  PAGE  NO.  I 

PAGE  59 

Roooi 

R0003 

we  are  deeply  indebted  io  the  jne* 
jsoct’ 

THE  ONLY*  the  SKeAt  UOHN  SHAW 

for  the  following  strong  magic.... 

' OOOA 

SET LOC t2  S1Z  HASS  3 

ai 

0005 

MASKGRP , 1 S,0 

F,0 

R0006 

THE  a(jCA  3Ak T OF  PASS  3 

CONTAINS  SUBROJI inES  with  the 

pOLLOwiNG  FUNCTIONS! 

R0008  Aa  EOT  DEF  SeT  a GIVEN  ADDRESS  IN  PRINf  in  WORDS  2 AND  3 OF  the  PRINT  line,  OR  Set  up  blots  for  a 

Kooio  BAD  ADDRESS.  TYPICALLY  JStD  TO  PRINT  THe  DEFINITION  OF  A SYMBOL. 


R0012  Aa  EOT  AVI Set  a GIVEN  ADDRESS  IN  PRIN|  IN  WORD  I OF  THE  PRINT  LINE.  TYPICALLY  USeD  TO  PRINT  A 

ROO 1 A LOWER  LIMIT  IN  THE  AVAILA31LI TY  DISPLAY, 

R0015  AA  PRiJN  PN  .SeT  IN  PRINT  UPP£R  ADDRESS  L~IMIT,  PARAGRAPH  NUMBER,  ST  I OK  NUMBtR  ANu  Sense  Wire  NJMBers 

ROO 1 7 FOR  A PARAGRAPH. 


ROO 1 8 A A EDIT  WD FORM  A 1 a-CHAR AC T ER  PRINT  I MAGE  DF  A BYPT  WORD . FLmG  REFERENCES  TO  UNUSED  FIXED  MEMORY , 

R0020  generate  a checksum  for  each  bank  or  show  the  reason  why  not. 

R0Q2Z  AA  ex=LAN PRINT  A two-LIne  SUBHEAD! Nta  .FOR  AN  OrTAL  PARAGRAPH  LISTING. 


«002A 

QUANTITIES  FILLED  IN 

BY 

THE  AGC^  PART 

OF  PASS  3 

for  reference  by  the  general  part  of  pass  3. 

0026 

AA  S J 3 

SPX 

CAC 

AA  PRIN 

PN 

AA  EDT  AVI 

AA 

EDT 

DEF 

0027 

CAC 

AA  EXPLAN 

aa 

EDIT 

WD 

0028 

AA  MAX 

LOC 

OCT 

- 71777 

0029 

A A MAX 

SSN 

OCT 

-100163 

0030 

AAW  TO' 

ALF 

TO 

0031 

AAW  to 

MSK 

OCT 

007777 

L 0YUL  SYSTEM  ASSEMBLER  AfaCA  PASS  3 USER'S  OWN  PAGE  NO,  2 PAGE  60 

P00?2  constants  and  RESERVATIONS, 


0033  AA  FL3'  MSK  OCT  0000  0070 

00332  AA  FLAG  A OCT  0000  OOaO 

0034  AA3.  3„QIS ALFjZ •■■■ 


0035 

AA3  3 AN< 

ALF 

00*0 

0036 

M COMMON 

RESERVE 

2 

0037 

OCT  1777 

EQUALS 

B39TA8 

0039 

L-  ST  10  NOS 

SPEC 

STICK  NOS  -1 

OOAO 

L WIRE  NOS 

SPEC  _ 

WLRE  NOS 

00  AO  1 

BIT  2 

OCT 

2 

00  A 1 

PL  77777 

OCT 

+77777 

00  A 1 A 

OLJ  23OO 

OCT 

-2000 

00A2 

OCT  5777 

OCT 

-577  7 

00  A3 1 

OCTAL  CTR 

OCT 

-7 

00  AA 

L TC  SELF 

OCT 

0 

00A5 

NEXT  FQ1V 

OCT 

0 

00A6 

CHEC<  SUM 

OCT 

0 

00A7 

BANK  ZERS 

ALE 

00*0000 

00  A8 

ZEROS  1 T 3 

ALF 

000 

00A9 

ZERO  28 

ALF 

0 

0050 

ZERO  2AT7 

ALF 

0000 

0051 

EMPTY  WO 

ALF 

00000  0 

0052 

LtTTERi  C 

ALF 

Ci 

0053 

LETTERI  1 

ALF 

1 ; 

005A 

W CKSM, 

ALF 

CKSM 

0055 

W NOS JM 

ALF 

NOSUM 

0056 

BAORF  CUS 

ALF 

■REF 

0057 

EU3  CJSS 

ALF 

■EQB 

0058 

Sum  CjSS 

ALF 

•Sum 

0059 

Al  AVAIL 

ALE 

e 

0060 

W BAD  WORC 

ALF 

bad  worc 

0061 

W NO  2<SuM 

ALf-  *2 

NO  CHECKSUM 

0062 

W PARAG  NO 

ALF  .3 

PARAGRAPH 

* 000 

0063 

EOIT  MED 

ALF  ,5 

OCTAL  LISTING  OF  PARAGRAPH  * 000*  «ITH  P 

006A 

ALF  .5 

ARITY  BIT 

IN  BINARY  AT  T Hr  RIGHT  OF  FACH 

0065 

ALF  ,5 

WORD!  »e" 

DENOTES  UNUStD  FIXED  MEMORY. 
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P0066  FURTHER  ALPHABETIC  CONSTANTS.. 


0067 

0068 
0069 

W 

WO  *IARKS 

oct 

ALP  .5 
ALP  .5 

0002 

ALL  VALID  WORDS  A<E 
XCEPT  THOSE  MARKED  " 

basic  INSTRUCTIONS  e 
I"  UNI  ERPRE11VE  QPE  _ 

0070 

ALP  *5 

RATOR  WORDS)  OR  " L" 

(CONSTANTS) . 

0071 

w 

SPECENJ 

ALF  i A 

SPECIAL  AND  CENTRAL 

RE5LSTLRS_S 

0072 

ERAS  MEM 

ALP  .2 

ERASABLt  MEMORY 

0073 

w 

sti:<  N 

ALF 

STICK.  * 

007A 

w 

modjle 

ALP 

module . _ 

0075 

W SENS  LNS 

ALP  .3 

SENSt  LINE  SET  0 

(WIRES 

0076 

SI IC<  NOS 

ALP  * A 

RIB  B28 

R2A  B29 

R2B  B29 

R 1 A B28 

,0077 

0078 

ALP  « A 
ALF  .A 

SIB  b2l 
TIB  B23 

S2A  B22 
T2A  B2 A 

S2b  B2 2 
T2B  B2A 

S 1 A B21 
T 1 A 023 

0079 

WIRE  NOS 

ALF  .A 

1-16) 

17-32) 

3S-A8) 

A 9-6 A ) 

0080 


ALI"  » A 


65-80)  Hl-96)  9 Y- 1 1 2 ) 11^-128) 


L 

PQ0B1 

gYUU  SYSTEM 

assembler 

SUBROUT IMi 

AGCa  PASS  3 
IN  PASS  3 FOR 

A OCA  ! 0 SET  I N PRINT  THE  DEF 

I N 1 1 1 ON 

USER'S  OWN  PAGE  NO.  A PAGE  62 

Of  A SYMBOL  OR  THE  UPPER  LI  MU  oF  An 

" R0083  IIEM  IN  THE  AVAILABK 

R0085  TS 

K00B7  NUTATION,  OR  SETS  UP 

1 I Y DISPLAY. 

M EDIT  DEF 
FUUR  BLOTS  IF 

SUPPLY  AN  INTE: 
NO  DEFINITION. 

iER  IN  EQl Vi  ENT 
Z,CSC 

OR  ONES 
C 

• IF  there  I s NO  definiton.  entry  IS 
SETS  UP  the  DEFINITION  USING  TH;  3ANK 

0088 

AA  EOT  DEF 

NA 

EUIVLENT 

ONES 

C , + 2 

C, 

0089 

tn 

Aa3  BLOTS 

2 

line  *z 

print  blots  and  exit. 

0091 

LA 

eqivlent 

OCT  5777 

non  BAN< 

c 

BRANCH  IF  LOCATION  IS  NOT  IN  A JANK. 

0093 

TX 

Aa3  BANK 

- 

LINE  ♦ 2 

c 

0096 

SWS*  A CO 5 

EUIVLENT  _ 

5_i  L 

LINE  *2 

c 

0097 

SWS,  ACU6 

EQIVLENT 

2 , L 

LINE  ♦ 2 

c 

SET  BANK  NUMBER  IN  PRINT. 

.7  0099 

SM 

EUIVLENT 

OCT  6000 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  6003-7777. 

0101 

TS 

ZEROS  113 

LINE  ♦ 3 

C»  + 3 

c 

0102 

NUN  3 ANK 

TX 

EUIVLENT 

M COMMON 

c 

0103 

TS 

ZERO  ce 

LIN;  *2  _ 

C.tZ 

c 

010A 

SWS*  AC08 

M COMMON 

9 

LINE  +2 

c 

_ 0105 

SWS,  ACO 1 

M COMMON 

12 

C1N£_  +3 

c 

0106 

SWS,  AC02 

M COMMON 

15 

LINE  ♦ 3 

c 

0107 

SWS,  AC03 

M COMMON 

18 

LINE  *3 

SET  SUBADDRESS  IN  PRINT  AND  EXIr. 

R0109 

SUbROUT IN; 

IN  PASS  3 FOR 

AGCA  10  SET  IV  PRINT  THE  LOWER  LIMIT 

OF  An  item  in  the  availabiliiy  display 

R01U 

OK  AN  ADDRESS  IN  THE 

paragraph  edit 

. with  the  address  supplied  , 

AS  AN  INTEGER  IN  ADDRESS,  ENTRY  IS 

R0113 

SWE,  CAC3 

M EDIT  AVI 

16 

z,csc 

C 

USES  THE  BANK  NOTATION. 

0115 

AA  EOT  AVI 

LA 

ADDRESS 

OCT  577Z 

NON  SANK  _L 

0116 

TX 

BANK  2ERS 

LINE  +1 

C 

0119 

SWS,  AC01 

ADDRESS 

29, L 

LINE  +1 

z 

0120 

SWS,  AC02 

ADDRESS 

26, L 

LINE  +1 

_c 

PRINT  BANK  NUMBER. 

0122 

SM 

ADDRESS 

N , C SC , 3 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  6003-7777. 

0 1 2 A 

OUT  6000 

OCT 

-6000 

0125 

NUN  3ANK  1 

TX 

ZERO  CAT 7 

- 

LINE  +1 

c 

0126 

TX 

ADDRESS 

M COMMON 

c 

0127 

SWS*  ACOA 

M COMMON 

15,  L 

LINE  +1 

c 

0128 

SWb*  AC05 

M COMMON 

12, L 

LINE  *1 

c 

0129 

SWS,  AC06 

M COMMON 

9 ♦ L 

LINE  *1 

c 

0130 

SWS,  AC07 

M COMMON 

6 , L 

LINE  *1 

SET  SUBADDRESS  IN  PRINT  AND  EXIT. 

L 
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PQ 1 32 

subroutine 

IN  PASS  3 FOR 

AGCa  IQ  MA<£  a i a-CHAR ACtER 

image 

CORRESPONDING  TO  AN  AGCa  WORD.  THE  IMAGE 

R013* 

15  delivered  in  image 

AND  IMAGE*! 

AND  CONSISTS  OF 

ANY  OF  THE  FOLLOWING 

, KIGHt-UUStIFIeD  SO  that  the  RIGHT-HAND 

R0136 

1*  CHARACTERS  CAN  BE  JBEP: 

K0137 

I F AN  UNUSED  NON-FIXED 

LOCATION, 

R013B 

IH  AN  UNU5ED  FIXED  LOCATION, 

e 

OR  "NO  CHECKSUM"  IF  PREVENTS  CHECKSUM. 

KQ1*0 

It-  A CONFLICT  LOCATION 

t 

CONFLICT 

R0l« 

IF  A 3AD  WORD. 

BAD  WORD 

«01« 

IF  A 3ASI C INSTRUCTION 

t 

XXXXX  P 

(FIVE  OCTAL  DIGITS  AND  A PARITY  BIT) 

KOH'* 

IF  REFERRING  to  unused 

LOCATION, 

■ref  xxxxx  p 

R01*5 

IF  AN  INTERPRETIVE  03- 

KATOR  WORD, 

1 : kxxxx  p 

«0H6 

IF  A CONSTANT. 

c;  xxxxx  p 

PREFIX  IS  "CkSm"  IF  CONST  IS  A CHEUSjm. 

«0H8 

01HER  prefixes:  "•E03" 

FOR  A USED 

WORD  AFTER  A CH£ 

CKSUM,  »»SUM" 

FoR  a 

used  word  that  fouls  up  a properly  re- 

R0150 

QUESTED  checksum,  ano 

"nosum"  for 

A 

USeD  WORD  that 

PREVENTS  a CHECKSUM 

. prefixes  count  AS  CUSSeD  lines. 

H0152 

entry:  TX 

M EDIT  JO 

- 

z,csc 

c 

OR  EQUJVALENT. 

015* 

A*  EDIT  WD  T* 

BLANKS 

- 

image 

c 

015*2 

WA 

OCTAL  ctr 

ONE 

OCTAL  CTr 

c 

0L55 

LA 

N,X£ 

W BAD  WQ RC 

TEST  FLAG 

c 

BRANCH  IF  NOT  "BAD  WORD"  OR  "CONFLICT". 

01562 

TX 

N,X2 

- 

image  *1 

c 

0157 

TS 

Aa  FLAG  a 

N,X2 

set  eob  FL 

c 

MARK  AS  SUCH,  GO  TO  SET  FLAG  ANO  E*IT. 

0159 

ss 

zero 

AA  FLG  MSK 

N,X2 

c 

remove  flag  it  refers  to  used  fixed. 

0161 

TEST  FLAG  SSL,  THREE 

N.X2 

27 

C,*l 

c 

FOUR-WAY  BRANCH  ON  TYPE  OF  FLAG. 

0163 

TS 

OCT  1777 

AVAIL  MS< 

WHICH  MEM 

c 

016* 

TS 

LETTER  I 

IMAoE 

C.-l 

c 

0165 

TS 

LETTER  C 

IMAGE 

C , -2 

c 

0166 

LA,  B36TA3 

2,0 

thread  u 

TEST  flag  - 

1 C 

BRANCH  IF  NOT  REFERRING  TO  F1X£0  MEMORY. 

0168 

SWS,  B26T30 

N.X2 

17, L 

C,*l 

c 

0169 

SWE,  ONES 

BIT  1 

0 

AVAIL  MSK 

c 

0170 

SWE.  B39TA3 

N,X2 

26 

M COMMON 

c 

0171 

SWS,  BAATA3 

N,X2 

6 

M COMMON 

c 

0172 

WA 

M COMMON 

L AV  TABLE 

Z , X A 

c 

♦ 

0173 

LA,  AVAIL MoK  *,0 

ZERO 

TEST  FLAG  - 

1 c 

BRANCH  IF  LOCATION  IS  USED. 

017*2 

* NA 

slg  owner 

BLANKS 

TEST  FLAG  - 

1 c 

NO  CUSS  IN  SEGMENT  ASSEMBLY. 

0175 

TX 

badrf  cus 

- 

I mage 

c 

"■REF"  FOR  REFERENCE  TO  UNUSED  p I XED, 

♦ 

R0177 

MINOR  SUBROUTINE  IN  3A5b  3 FUR  AGCa 

TO  REGISTER  AN 

error  FOUnD 

DURING 

the  making  of  the  octal  storage  m^p. 

0179 

PS  ERRORS  DA 

N OCT  ERRS 

ONE 

N OCT  ERRS 

c 

01812 

SS 

ZERO 

BIT  16 

switch 

c 

PRINT  REMAINDER  OF  OCTAL  SfORAGc  MAP. 

0185 

TX 

Z.CSH 

- 

z.csc 

c 

• 
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_ P-0186 

MAJM  STREAM  Of-  EDIT  *3 

CONTINUED; 

PRIN-T  WORD  AND 

51  A R I CHECKSUM  PROCESSING. 

0108 

WHICH  MEM 

TS 

EMPTY  WD 

IMAjE  +1 

WD  PRINT 

c 

0188^ 

TIL 

ADDRESS  - 

• 

EQIVLENT 

c 

0189 

LA 

OCT  2000 

EUI VLENT 

C « ♦ 3 

c 

BRANCH  IF  L0CAU0N  IS  IN  FIXED  MEMORY. 

0191 

NA 

N.X2 

ZERO 

SET  EOB  fL 

c 

SET  FLAG  AND  EXIT  IF  USED. 

0193 

TS 

BLANKS 

IMAGE  ♦ 1 

SET  EOS  FL 

. C 

otherwise  send  all  blanks  and  ditto. 

0195 

ss 

OCTAL  C1R 

AC08 

EQIVLENT 

c 

FILL  IN  LAST  OCTAL  DIGIT  OF  ADDRESS. 

019a 

TX _ 

NEXT  £01 V 

- 

M COMMON 

c .. 

FOR  IMMEDIATE  MISSING-PARAGRAPH  CHECK. 

0200 

WA 

EOI VLENT 

ONE 

next  eQIv 

c 

SET  CRITERION  FOR  Ml  SSI  NO- PAR AG.  CHECK. 

0202 

NA.  AVAILS 

EOI VLENT 

ZERO 

C , ♦ 2 

c 

BRANCH  IF  NOT  THE  BEGINNING  OF  A BANK. 

0204 

TS 

ZERO 

CHECKSUM 

_ TC  SELF  Q 

c 

0205 

NA 

eqivlent 

M COMMON 

LACK  PAHA 

(- 

BRANCH  IF  PARAGRAPH(S)  missing. 

- - 02  07  _ 

_LA 

BIT  1 

checksum 

NO  SUM  I NO 

c 

BRANCH-  IF  NO  SyMMING  TO  BE  DDN£. 

0208 

LA 

BIT  2 

CHECKSUM 

plant  sum  -i 

c 

BRANCH  IF  CHECKSUM  MUST  BE  PLANTED  NOW. 

0210 

NA.  AVAIL  1614 

EOI VLENT 

ONES 

TC  SELF  0 

r 

BRANCH  IF  NOT  END  OF  BANK. 

0212  - 

kA 

N.X2 

zero 

PLANT  SUM 

r 

_ -V 

BRANCH  10  PLANT  SUM  IN  LONE  HOL-  AT  END. 

0214 

TS 

W NOSUM 

IMAoE 

SET  EOB  FL 

c 

SHOW  NO  CHECKSUM  IN  FULL  BANK,  EXIT. 

0220 

NU  SUMilNG 

NA 

N.X2 

ZERO - 

C,*2  - 

BRANCH  ON  USED  WilKD  WHEN  -MOT  SUMMING. 

0222 

TX 

AT  AVAIL 

IMAGE  +1 

s 

EXIT  with  at  for  unused  fixed. 

0224 

LA 

ones 

CHECKSUM 

N.SC.l 

c 

EXIT  IF  SUMMING  WAS  GIVEN  UP. 

0226 

NA 

EOI VLENT 

- OCT  5777 

_ SET  EOB  fL  -] 

0227 

NA 

N.X2 

N.CSC.2 

SET  EOB  FL  -1  C 

FLAG  AND  EXIT  IF  IT'S  THE  EXTEND  CONST. 

0229 

OCT 

-20  0011 

7776 

0230 

TS 

EoB  CUSS 

IMAGE 

P3  ERRORS 

c 

"•EOB"  FOR  USEu  wORji  AFTER  CHECKSUM. 

0232 

SET  E 38  FL 

TX 

ONES 

- 

CHECKSUM 

s 

0233 

NA 

N.X2 

ZERO  _ 

SUM  ERR Do 

c 

BRANCH  IF  USED  WD  WHERE  CKSM  SHjULD  Gu. 

0235 

PLANT  SUM 

$WE . B44T43 

EOl VLENT 

10 

M COMMON 

c 

FORM  POSITIVE  BANK  NUMBER.  CHECKSUM  Is 

0237 

SS 

ZERO 

BIT  2 

CHECKSUM 

c 

SUCH  THAT  TOTAL  SUM  I S ♦ OR  - BANK  NO. 

0238 

LA 

CHECKSUM 

B35T48 

C , + 2 

c 

BRANCH  IF  CHECKSUM  IS  POSITIVE. 

0240 

HA 

M COMMON 

CAC3 

M COMMON 

c 

GIVE  BANK  NUMBER  AGC  SIGN  OF  CH£CKSUM. 

0242 

BS 

M COMMON 

CHECKSUM 

N.X2 

c 

0243 

LA 

N.X2 

BIT  l 

C , ♦ 2 

c 

BRANCH  IF  ALG.  VAL.  OF  CKSM  IS  ^LUS. 

02  45 

HA 

N.X2 

PL  77777 

N.X2 

c 

02  A6 

SWE.  B41T43 

N.X2 

8 

M COMMON  +1 

c 

0247 

HA 

N.X2 

M COMMON  +1 

M COMMON 

c 

02  A8 

SWE.  D 1 2 

M COMMON 

4 

M COMMON  +1 

c 

0249 

HA 

M COMMON 

M COMMON  +1 

M COMMON 

c 

0250 

SWE.  THREE 

M COMMON 

2 

M COMMON  *1 

c 

0251 

HA 

M COMMON 

M COMMON  +1 

M COMMON 

c 

0252 

SWE.  ONE 

M COMMON 

1 

M COMMON  +1 

c 

0253 

HA 

M COMMON 

M COMMON  +1 

M COMMON 

c 

0254 

HA 

M COMMON 

ONES 

M COMMON 

c 

0255 

WA 

N.X2 

N.X2 

N.X2 

c 

0256 

SS 

M COMMON- 

B20  B48 

N.X2 

c 

SHIFT  CHECKSUM  AND  INSERT  PARITY  31 T. 

0258 

TS 

EMPTY  WO 

IMAjE  +1 

WD  PRINT 

c 

PRINT  WITH  PREFIX  "CKSM". 

0260 

TS 

W CKSM 

IMAGE 

SUM  ERROr  *1 

c 

SHOW  THAT  SUM  IS  DONE  AND  EXIT. 

L 
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P0262 

PROCEDURE 

LN  EDIT  WD  IU 

WaTCH  FOR_ 

TWO 

TC  SELFS  IN 

ACCESSION.  to  MAKE  the  checksum  follow  them. 

02  64 

TC  SElF  0 

SWE , SPEC MAG 

N.X2 

l 

M COMMON 

r* 

L 

0265 

TX 

OCT  6000 

m 

M COMMON  +1 

c 

0266 

LA 

OCT  6000 

EUI YLENT 

C , ♦ 2 

c 

BRANCH  IF  LOCATION  IS  IN  A BANK. 

0268 

TS 

EOIVLENI 

M COMMON  +1 

C , + 2 

c 

0269 

SS 

EUIVLENI 

OCT  1777  . 

M COMMON  *1 

0270 

NA 

M COMMON 

M COMMON  *1 

NO  TC  SEl  F 

C 

0271 

NA 

IMAGE 

BLANKS 

no  tc  self 

c 

BRANCH  IF  NOT  AN  INSTRUCTION. 

0272 

LA 

EUI VLeNT 

L T - SELF 

C.+2 

c 

BRANCH  IF  THIS  IS  2ND  TC  SELF  IN  A ROW, 

0273 

TS 

next  EOlV 

L TC  SELF 

ADD  2 SUM 

c 

SET  CRITERION  FOR  TWO-in-A-rOW  CHECK. 

0274 

NA,  OCT 37  7 

Eul VLENT 

_ ONES  

ADD  2 SUM  -1 

c 

BRANCH  IF  TC  S^LFS  NOT  AT  END  0-  PARAGR. 

0275 

SWE  * AC08 

EUI VLENT 

13 

M COMMON 

c 

02753 

WA 

L SUBSTKB 

M COMMON 

Z.X4 

c 

02756 

SWS.  B26T30 

EUI VLENT 

10.  L __  .. 

C .♦  1 _ _ . 

C _ 

0276 

SWE.  ONES 

BIT  2 

0 

AVAIL  MSk 

LOOK  IN  SUBSTRAB  FOR  NEXT  PARAGRAPH. 

0277 

NA.  AVAILMiSK 

4.0 

ZERO' 

ADD  2 SUM  -1 

c 

branch  if  next  PARAGRAPH  EXIBIS. 

0278 

SUV(  ERROR 

TS 

SUM  CUSS 

image 

P3  ERRORS 

c 

"•SUM"  FOR  FOULED-UP  CHECKSUM  R-QUEST. 

0280 

TX 

BIT  1 

- 

CHECKSUM 

s 

PREPARE  POST-CHECKSUM  TESTS,  tXlT. 

0282' 

NU  TC  SELF 

NA 

N.X2 

zero 

ADD  2 SUM 

c 

0283 

TX 

W NO  CKSUM 

- 

image 

r 

" NO  CHECKSUM"  FOR  AN  UNUSED  WORD  THAT 

0285 

TS 

W NO  C<SUM 

+ 1 

IMAGE  +1 

S£T  EOB  fL 

c 

PREVENTS  FORMATION  OF  A CHECKSUM. 

0287 

SM 

CHECKSUM 

BIT  2 

checksum 

c 

request  checksum  in  NEXT  word. 

0289 

ADD  2 SUM 

EX 

N.X2 

CAC3 

M COMMON 

c 

0290 

SWS.  SPEC  MAO 

N.X2 

1 

M common 

r 

PUT  WORD  INTO  SIGN-DUPLICATED  FORM. 

0292 

WA 

CHECKSUM 

M COMMON 

CHECKSUM 

c 

0293 

SSL.  AC08 

CHECKSUM 

14 

C.  + l 

c 

TEST  FOR  FND-AROUND  CARRY  AND  OVERFLOW, 

R0295 

THIS  SIX-WAY  BRANCH  ACHIEVES  eND-AROUND  carry  PROPAGATION,  Ov/ERFLoW  CORRECTION,  and  ADDITION  of  SON(OVETFLOW) . 

0297 

TX 

- 

. 

- 

S 

OOO:  NO  EAC,  +,  NO  OFLO. 

0299 

WD 

CHECKSUM 

635148 

CHECKSUM 

s 

001!  NO  EAC,  ♦,  OFLO. 

0301 

B35TA3 

OCT 

-37777 

OIOS  IMPOSSIBLE. 

0303 

TX 

- 

• 

s 

OUT  NO  EAC.  -,  NO  OFLO. 

0305 

wD 

CHECKSUM 

CAC3 

CHECKSUM 

s 

100!  EAC,  ♦,  NO  OFLO. 

0307 

BZO  B A8 

OCT 

-20  0000  0001 

101!  IMPOSSIBLE. 

0309 

WA 

CHECKSUM 

B35I48 

CHECKSUM 

c 

110;  EAC,  -,  OFLO. 

0311 

WD 

CHECKSUM 

CAC3 

CHECKSUM 

s 

Ills  EAC,  -,  NO  OFLO. 

RO3I2I 

RESPONSE  TO  DISCOVERT  1 HAT  ONE  OR 

MORE  PARAGRAPHS 

Are  MI  SSI  Nr,... 

effect 

on  Checksum  processing. 

03123 

LAC<  SARA 

la.  Avail m,sk 

M COMMON 

ZERO 

C , + 4 

c 

branch  if  new  ph  must  be  in  new  bank. 

03124 

SS 

EUI VLENT 

AVAIL  MS< 

M COMMON 

c 

03126 

NA 

EDI VLENT 

M COMMON 

C , ♦ 2 

c 

BRANCH  IF  NEW  PARAGRAPH  IS  IN  NEW  BANK, 

03126 

LA 

BIT  1 

CHECKSUM 

NO  SUM I Nr, 

c 

branch  if  no  summing  to  be  done. 

03127 

NA 

N.X2 

ZERO 

NO  SUMINg  -1 

c 

BRANCH  TO  APPLY  PREFIX  "NOSUM"  TO  WORD, 

03128 

TS 

W NO  CKSUM 

IMAGE 

NO  TC  SEl  F *2 

c 

BUT  FOR  EMPTY  WORD  WRITE  "NO  CHECKSUM". 
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0316 

WD  PRINT 

SWS  * AC02 

N,X2 

23  * L 

IMAGE  +1 

C 

0317 

SWS*  AC03 

N,X2 

2Q*U  _ 

IMAGE  *1 

c 

0318 

SWS*  ACOA 

N*X2 

17,  L 

IMAGE  +1 

c 

0319 

SWS*  AC05 

N,X2 

1 A * L 

IMAGE  +1 

c 

0320 

SWS,  AC06 

N,X2 

ll.L 

IMAGE  +1 

_c_ 

SET  IN  PRJNT  5 OCIALJOIGITS  OF  WORD. 

0322 

ss 

N,X2 

ONE 

IMAGE  +1 

c 

set  parity  bit  in  print. 

032A 

TX 

Z,CSH 

z.csc 

c 

R0325 

SUBKOUl INj 

IN  PASS  3 FOR 

AGCA  10  Set 

IN  print  THe  UPPeR 

ADDRESS  limit*  PARAGRAPH  number*  stick  NUM3eR 

R0327 

AND  SENSE 

WIRE  NUMBER'S 

FOR  THE  PARAGRAPH  NUMMARY 

. lNTRV  is  

R0328 

SWE*  CAC3 

M PRINT  PN 

32 

z.csc 

c 

EXITS  TO  tDIT  DEF  TO  PRINT  UPPER  LIMIT. 

0330 

A A PR  IN  PN 

TN 

W PAKAG  NO 

3 

LINE  + A 

c 

0331 

SWS*  ACOb 

Z,RO 

12. L 

LiNE  +5 

c 

03^2 

SWS,  AC06 

Z ,R0 

9 *L 

LINE  +5 

_c_ . 

0333 

SWS*  AC07 

Z ,R0 

6 * L 

LINE  +5 

c 

EDI T PARAGRAPH  NUMBER. 

0335 

SWt*  D12 

Z ,R0 

2 

Z ,AJ1 

c 

0336 

NA 

_ Z ♦ AU 1 

ZERO 

_ FIX  MEM 

r 

0337 

NA 

LINE  +5 

W PARAG  NO 

♦ 1 C * ♦ 2 

c 

BRANCH  IF  PARAGRAPHS  001-003* 

0339 

TN 

W SPECENT 

A 

N.AJ2 

c 

"SPECIAL  ANQ  CENTRAL  REGISTERS  5 "* 

03A1 

TN 

W ERAS  MEM 

2 

N * A J2 

c 

"ERASABLE  MEMORY  ". 

03  A3 

TS 

eoivlent 

M COMMON 

NON  BAN<  .1 

c 

JOIN  NON-BANK  PART  OF  Aa  EDT  DEr. 

03  A5 

FIX  MEM 

WA 

Z *AU1 

L ST  IX  NOS 

Z*AJ1 

c 

03A6 

TX 

W MOUULE 

- 

N , A J2  * 1 

c 

03  A7 

SWS*  C 1 T A 

N , AU 1 

A , 3 * L 

N , A J2  * J. 

c 

" MODULE  BXX  ". 

03A9 

TX 

W STICK  N 

N * A J2  « 1 

c 

0350 

SS 

N ,AUl 

C 1 T A 

N * AU2  * 1 

c 

"STICK  » XXX  ". 

0352 

swe*  Acoa 

Z.RO 

A 

Z.CSH 

c 

0353 

ss 

Z ,R0 

THRtE 

Z.CSH 

c 

035A 

ss 

Z.CSH 

ACO  8 

W SENS  LnS  +1 

c 

SET  UP  SENSE  LINE  SET  NUMBER. 

0356 

wA 

Z.CSH 

L WIRE  NOS 

Z.CSH 

c 

0357 

TN 

W SENS  LNS 

3 

N.AU2 

c 

"SENSE  LINE  SET  N (WIRES  ". 

0359 

TS 

N *CSH 

N*AJ2 

Aa  edt  off  +2 

c 

SET  UP  WIRE  NUMBERS  AND  JOIN  A<.  EOT  DEF. 

R0361 

subroutine 

IN  PASS  3 FOR 

AGCA  10  PRINT 

1 WO  EXPLANATORY 

LINES 

AT 

THE  HEAD  OF  EACH  PAGE  OF  AN  OCTAL 

R0363 

R036A 

PARAGRAPH 

LISTING.  E 
SWt*  CAC3 

NIKY  IS 

M EXPLAIN 

16 

Z.CSC 

C 

0365 

0366 

AA  EX^LAN 

TN 

SWS*  AC06 

EDIT  HED 
N,X2 

15 
6 « L 

page  hed? 
page  HE02 

♦1 
+ A 

c 

c 

0367 

SWS*  AC07 

N ,X2 

3 * L 

PAGE  HE32 

♦ A 

c 

0368 

SS 

N,X2 

ACO  8 

PAGE  HE02 

♦4 

c 

PUT 

PARAGRAPH  NUMBER  IN  FIRST  LINE. 

0370 

TN 

W WDMARKS 

16 

LINE 

c 

0371 

TS 

z,sc 

Z . X A 

PRINT  LIN 

PRINT  EXPLANATION  AND  RETURN. 
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R 0 0 0 1 wt  ARE  DEEPLY  INDEBTED  10  THt  ONE,  THE  ONLy,  HE  3*EAT  JOHN  sHAw  pOR  He  FOLLOWING  STRONG  MAGIC.... 

R0003  JSOCTLI 


0004 SELLQCj  2 5 UP  ASS  3 Bl 


0005 


MASXGRP , 1 5,0  F *0 


R0006  THE  SACO  ^AKl  OF  PASS  3 CONTAINS  SU3R0JI1NES  WITH  THE  FOLLOWING  FUNCTIONS; 

Roo  os  sl  e o i def .set  a givefT^W^ITTn^print  in  words  2 and  3 of  the  print  line,  or  set  up  blot 3 for  a 

R0010  BAD  ADDRESS.  TYPICALLY  JSED  10  PRINT  THE  DEFINITION  OF  A SYMBOL. 

R0012  SL  Yd?  AVI Set  A given  ADDRESS  in  print  IN  WORD  1 OF  THE  print  line,  typically  USeD  TO  PRINT  a 

R0014  LOWER  LIMIT  IN  THt  AVA I LA31 L I T Y DISPLAY. 

roo 1 5 sl  prin  pn set  in  print  upper  address  limit  and  paragraph'number  for  a Paragraph, 

ROO 1 7 SL  EDIT  wo FORM  A 14-LHARACTER  print  image  of  a BYPt  Word,  FLAG  REFERENCES  to  UNUSeD  Fl*tD  "'EYJRY. 

Room  SL  EX3LAN PRINT  A TWO-LINE  SUBHEADI  nG  FqR  AN  OrTAL  PARAGRAPH  LISTING. 


R0020  JUANTITIES  FILLED  in  BY  the  S4-0  PART  OF  PASS  3 FpR  REFERENCE  BY  THE  GENERAL  PART  OF  PASS  3. 

0022  SL  SJ3;  SPX  CAL  SC  PRIN  PN  SC  EDT  A Yl  SC  EOT  DfF 

0023  _ CAL  SC  EXPLAN  SC  EDIT  wD __ 


0024  SL  MAX  LOC  OCI  - 17T77 

0025  SL  MAX  SSN  OCT  -100037 

0026  SL W TO'  ALT  TO 

0027  SLW  TO'  MSK  OCI  0077T7 
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RESERVATIONS. 


00281  SL  FL3'  MSK  OCT  0000  0070 

00282  sc  flag  a oci  oooo  ooao 

0029 SC3  flLQIJS ALF_jl2 


0030 

SC3  SAN* 

ALF 

0.0 

0031 

OCT  5777 

OCT 

-5777 

0032 

M COMMON 

RESERVE 

1 _ . 

00  33 

BAN*  ZEKS 

ALF 

0.0000 

003A 

ZEROS  1 T3 

ALF 

000  . _ 

0035 

ztRo  :e 

ALF 

0 

0036 

ZtRO  CAT7 

ALF 

0000 

0037 

AT  AVAIL 

ALF 

e 

0038 

W SAD  WORC 

ALF 

BAD  WORC 

0039 

BADRF  CUS  ALF 

■REF  . 

00  AO 

LtTTER  C 

ALF 

Ci 

00  A 1 

LtTTERi  1 

ALF 

l; 

00A2 

-EMPTY  WC 

ALF 

00000  0 
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P00421  ALPHABETIC  ARRAYS. 


0043 

0044 

0045 

W PAT  AG  NO 
EDI T HED 

ALT  .3 
ALF  *5 
ALT  *5 

PARAGRAPH  * 00 

OCTAL  LISTING  oF  PARAGRAPH  * oo»  *ITH  PA 
K1TY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH 

0046 

OOA7 

w wo 

MARKS 

ALF  .5 
OCI 

WORDi  »e«  DENOTES  UNUSED  FIXED  MEMORY. 

0002  _ . _ . . _ _ 

00A8 

ALF  .5 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  E 

00A9 

ALF  t5 

XCEPI  THOSE  MARKEJ  "I"  ( I \IT  tRPRET  I VE  OPE 

OO5O 

ALF  *5 

RATOR  WORDS)  OR  »L«  (CONSTANTS). 

0051 

sc  SSTRED 

ALF  .A 

IMITS  ARE  SHOWN  FOR  EACH. 

L 

@YUL  SYSTEM 

ASSEMBLER 

SAUO  PASS  3 

USER'S  OWN  PAGE  NO.  4 PAGE  70 

PQ052 

SUBROUi IN; 

IN  PASS  3 FQK 

saco  tq  set 

1DL 

PRINT  IHf  DeEINIT ION 

E)F  A SYMBOL  OR  THt  UPP£R  HM1T  3F  AN 

R0054 

I 1 EM  IN  THE  AV  A I LAB 1 U 

I 1 Y DISPLAY. 

SUPPLY  AN  INTESi 

ER  IN  EDI  Vi  ENT  OR 

ONES 

IP  there  is  no  definiton.  entry  IS 

c 

R0056 

TS 

M E01T  DEE 

- 

z,csc 

C 

SETS  UP  THE  DEFINITION  USING  THE  3ANK 

«0058  . 

NUTATION, 

OR  SETS  UP 

■OUR  BLOTS  J F 

NO  definition 

• 

0059 

SC  EOT  DEF 

NA 

EQIVLENT 

ONES 

C , + 2 

C 

0060 

TN 

SC3  BLOTS 

2 

LINE  +2 

PRINT  BLOTS  AND  EXIT. 

0062 

LA 

EQIVLENT 

OCT  5777 

NjN  BANK 

C 

BRANCH  IF  LOCATION  IS  NOT  IN  A 3ANK. 

0064 

TX 

SC3  BANK 

LINE  +2 

c 

0067 

SWS,  AC06 

EQIVLENT 

. _ 2 , L 

LINE  +2  _ . _ 

c 

SET  BANK  NUMBER  IN  PRINT. 

0069 

SM 

EQIVLENT 

OCT  6000 

M COMMON 

c 

PUT  SUBADDRESS  IN  THt  RANGE  6003-7777. 

0071 

TS 

ZEROS  1 T 3 

LI Nt  *3 

C , + 3 

c 

OO72 

NUN  SANK 

TX 

EQIVLENT 

m 

M COMMON 

c 

0073 

TS 

ZERO  C8 

LINE  +2 

C , -2 

c 

0074 

SWS,  ACOb 

M COMMON 

9 

LINE  ♦ 2 

c 

0075 

SWS,  ACOl 

M COMMON 

12 

LINE  *3 

c 

0076 

SWS,  AC02 

M COMMON. 

15 

LINE  ♦ 3 

c 

c 

0077 

SWS,  AU03 

M COMMON 

18 

LINE  +3 

SET  SUBADDRESS  IN  PRINT  AND  EXlf. 

R0079 

SUBROUTINE 

IN  PASS  3 FOR 

SACO  10  SET 

IN 

print  THE  LOWER 

LIMIT 

OF  An  ITtM  IN  THt  AVA I LAb I LI T Y DISPLAY 

R0081 

OK  AN  ADDRESS  IN  THE 

PARAGRAPH  edit 

. WITH  the  ADDRESS  SJPPLtED  as 

AN  INTEGER  IN  address,  ENTRY  is 

c 

R0083 

SWE*  CAC3 

M EDIT  AVI 

16 

z,csc 

c 

USES  THE  bANK  NOTATION. 

( 

0085 

S<-  EOT  AVI 

LA 

ADDRtSS 

OCT  5777 

NON  BANK  1 

c 

0086 

TX 

BANK  ^ERS 

LINE  ♦ 1 

c. 

0089 

SWS,  AC02 

ADDRESS 

26, L 

LINE  +1 

PRINT  BANK  NUMBER. 

f 

0091 

SM 

ADDRESS 

N , CSC  , 3 

M COMMON 

z 

PUT  SUBADDRESS  IN  THE  RANGE  6003-7777. 

0093 

OUT  6000 

OCI 

-6000 

( 

0094 

NON  SANK  1 

TX 

ZERO  C4T  7 

LINE  *1 

c- 

0095 

IX 

ADDRESS 

M COMMON 

c 

1 

OO96 

SWS,  AU04 

M COMMON 

15, L 

LINE  +1 

c 

0097 

SWS*  A (.05 

M COMMON 

12, 

LINE  *L 

c 

0098 

SWS,  AC06 

M COMMON 

9 , L 

LINE  +1 

c 

f 

0099 

SWS,  AC07 

M COMMON 

6 t L 

LINE  +1 

SET  SUBADDRESS  IN  PRINT  AND  EXIT. 
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Poioi 

SUBROUTINE  IN  PASS  3 FOR 

SACO  10  MA<i  A L4-CHAR ACtEP 

IMAGF  CORRESPONDING  TO  A SACO  WORD.  Hr  IMASf 

R0103 

18 

DELIVERED  IN  IMAG;  AND  IMAGE* 1 AND  CONSISTS  OF 

ANY  OF  THE  FOLLOWING, 

RIGHT-JUSTIFIED  SO  that  the  R I G at -HAND 

R0105 

14 

CHARACTERS  CAN  bE  JstD: 

K0106 

IE 

A NON-FIXED  LOCATION. 

K0107 

IE 

AN  UNUSED  LOCATION. 

e 

R0108 

IE 

A CONFLICT  LOCATION. 

CONFLICT 

R0109 

IE 

A 3AD  WORD. 

3 AD  WORD 

HOllO 

IE 

A 3ASIC  INSTRUCTION. 

XXXXX  P 

(FIVE 

. OCTAL  DIGITS  AND  A PARITY  BIT) 

KOI  12 

IE 

re-erring  to  unused 

LOCATION, 

■REF  XXXXX  p 

P 0 1 1 3 

IE 

AN  INTERPRETIVE  OPERATOR  WORD. 

li  XXXXX  P 

P0114 

IE 

A CONSTANT. 

c;  xxxxx  p 

ENTRY  IS 

R0116 

TX 

M EDIT  WD 

- 

z.csc 

c 

OR  equivalent. 

0118 

SL 

JLDI T WD  TX 

BLANKS 

IMAGE 

c 

0119 

NA 

N.X2 

ZERO 

JSED  fIXt 

c 

OMIT  TYPE  CHECK  FOR  USED  WORDS. 

0121 

TX 

ADDRESS 

_E_J  J VLENJ 

_c 

0122 

WD 

Z.X2 

Z , X 3 

M COMMON 

c 

0123 

WD.  CAC3 

M COMMON 

THREE 

M COMMON 

c 

0124 

ss 

M COMMON 

B41 1 48 

eoivlent 

c 

FORM  SACO  ADDRESS  OF  UNUSED  WORD. 

0126 

TX 

RL  TYP  TAB 

Z ,X4 

c 

0127 

LA,  CAC3 

eqivlent 

4,0 

C , ♦ 2 

c 

BRANCH  WHEN  MEMORY  TYPE  FOUND. 

0129 

TS 

Z.X4.1 

C,-l 

c 

0130 

NA,  LSTYP; 

4,0 

TYPE  F 

C , + 2 

c 

0131 

TX 

AT  AVAIL 

. 

IMAGE  +1 

EXIT  WITH  AT  FOR  UNUSED  FIXED, 

0133 

TX 

BLANKS 

. 

IMAGE  +1 

EXIT  WITH  BLANK  IMAGE  FOP  NQN-F lXED. 

0135 

USED  FI  XT  LA 

N.X2 

W 3 Ap  WORC 

TEST  FLAr, 

c 

BRANCH  IF  NOT  "bAD  WORD"  OR  "CONFLICT". 

0137 

TX 

N.X2 

- 

IMAGE  +1 

c 

01372 

TX 

SC  FLAG  A 

- 

N,X2 

s 

MARK  AS  SUCH  AND  EXIT. 

0138b 

SS 

ZERO 

SC  FLG  MSK 

N.X2 

c 

remove  flag  if  refers  to  used  fixed. 

0139 

TtsT  FLAG  SSL  * AC08 

N.X2 

27 

C.  + l 

c 

FOUR-WAY  BRANCH  ON  TYPE  OF  FLAG. 

0141 

TS 

EMPTY  WD 

IMAJE  +1 

flagged 

c 

SEE  BOTTOM  OF  NEXT  PAGE. 

0143 

TS 

LETTER  I 

IMAGE 

C,-l 

c 

0144 

TS 

LETTER  c 

IMAGE 

C,-2 

c 

0145 

LA,  B36T43 

2,0 

THREAD  11 

TEST  FLAr,  -l 

c 

BRANCH  IF  NOT  REFERRING  TO  FIXED  MEMORY. 

0147 

SWS.  B26T30 

N.X2 

17,1 

C,*l 

c 

0148 

SWE.  ONES 

BIT  1 

0 

AVAIL  MSk 

c 

0H9 

SWE.  B39TA3 

N.X2 

26 

Z , X A 

c 

0150 

SWS.  B44T43 

N.X2 

6 

Z , X A 

c 

01502 

WA 

Z.X4 

L AV  TABLE 

Z , X A 

c 

0151 

LA,  AVAILS 

4,0 

ZERO 

TEST  FLAf,  -1 

c 

BRANCH  IF  LOCAliON  IS  USED. 

01522 

# 

NA 

SEG  OWNER 

BLANKS 

TEST  FLAr,  -1 

C 

NO  CUSS  IN  SEGMENT  ASSEMBLY. 

0153 

P 3 

ERRORS  DA 

N OCT  ERRS 

ONE 

N OCT  ERRS 

c 

01561 

SS 

zero 

BIT  16 

switch 

c 

PRINT  REMAINDER  OF  OCTAL  STORAGp  MAP. 

0159 

TS 

BADRF  CUS 

IMAjE 

test  FLAG  ♦ 1 

c 

MARK  GUILTY  ORDER  AND  EXIT. 
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R0163 

R016A 

PARAGRAPH 

SUMMARY.  ; 
SWE.  CAC3 

MIRY  IS 

M PRINT  PN 

32 

z,csc 

C 

EXITS  TO  EDIT  DEF  TO  PRINT  UPPER  LIMIT. 

,0166 

SL  PR  1 N PN  TN 

W PA.KAG_.Ma 

3 

LINE  ♦ A — 

__C- 

0167 

0168 
0170 

SWS.  AC05 
SWS t AC06 
TN 

Z ,R0 
Z,R0 

SC  SSTREO 

15,  L 
12.  1 
A 

LINE  ♦ 5 
LINE  +5 

. PAGE  HE3->  + 7 

c 

c 

EDIT  PARAGRAPH  NUMBER. 

REMOVE  BIT  ABOUT  "MANUFACTURING  LOCATION 

. 0172 
017A 

MT 

TS 

BLANKS 

c * *0 

A 

C * "2 

N* AU2  * 1 
Sc  EOT  OfF 

♦ 2 

C 

C 

CODE"  FROM  LOCAL  PAGE  SUBHEAD. 

JOIN  EDIT  DEF  FOR  UPPER  ADDRESS  LIMIT. 

__  -P0L76 

SUBROUTINE 

IN  PASS  3 FOR  SACO  10 

print  two  fXPLANATQRY 

LINES 

at  the  head  of  each  page_  jjf  an  octal 

R0178 

K0179 

PARAGRAPH 

LISTING.  £ 
SWEt  CAC3 

NIKY  IS 

M EXPLAIN 

16 

z.csc 

C 

0180 

SL  EX^LAN 

__IM  _ . 

EJOIT  HfO 

_15 

. PAGE  hEQp 

♦ L 

c .... 

0181 
0182 
0 1 8 A 

SWS*  AC06 
SWS,  AC07 
TN 

N.X2 

N,X2 

W WDMARKS 

9 * L 
6 , L 
16 

PAGE  HE02 
PAGE  HE02 
LINE 

♦ A 
+ A 

c 

c 

PUT  PARAGRAPH  NUMBER  IN  FIRST  LINE. 

0185 

T5 

Z,SC 

Z ♦ X A 

PRINT  LIN 

PRINT  EXPLANATION  AND  RETURN. 

R0187 

TERMINATION  OF  SC  EDIT  wo  ON  PREVIOUS 

PAGE  . 

0188 

FLAGGED 

SWS*  AC02 

N,X2 

?3.L 

IMAGE.  ♦_!_ 

c 

0189 

0190 

0191 

SWS*  AC03 
SWS.  ACOA 
SWS,  ACOb 

N*X2 
N,X2 
N ,X2 

20,  w 

17. L 
1 A , L 

IMAGE  +1 
IMAGE  +1 
IMAGE  +1 

c 

c 

c 

0192 

019A 

SWS,  AC06 

ss 

N,X2 

N,X2 

1 1 * L 
ONE 

IMAGE  +1 
IMAGE  *1 

r 

SET  IN  PRINT  5 OCIAL  DIGITS  OF  ,jORD. 
SET  PARITY  BIT  IN  PRINT.  EXIT. 

i 


L 
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USER'S  OWN  PAGE  NO.  i 

PAGE  73 

R0001 

R0003 

rtt  ARE  DEEPLY  INDEBTED  10  THE  ONE,  THE  ONlY* 
JSOCTU 

THE  3*EAT  JOHN  sHAw  F°R  THE  FOLLOWING  STRONG  MAGIC.... 

OOOA 

S£TL0C*2  SU  PASS  3 B1 

0005  MASKGRP,!  S,0  F,0 


R0006 

THt 

BLK2  ^ART  OF  PASS  3 CONTAINS  SU3RDJUNES  WITH  THE  FOLLOWING  FUNCTIONS: 

K0008 

R0010 

B2 

EDT  def  . . 

BAD  ADDRESS.  TYPICALLY  J5ED  TO  PRINT  THE  DEFINITION  OF  A SYMBOL. 

BLOTS 

FOR  A 

R0012 

rooia 

B2 

EDT  AVI  . . 

lower  limit  in  the  availability  dispiay. 

TO  PRINT  a 

ROO  1 5 
R0017 

B2 

PRIN  PN  . . 

and  sense  WIRE  NUMBERS  FDR  A PARAGRAPH. 

letter, 

ROO  18 
R0020 

B2 

EDIT  WD  . . 

generate  a checksum  for  ealh  fbanx  or  show  the  reason  why  not. 

FIXEO 

memory. 

R0022 

BE 

EX  3LAN  . . 

PRINI  A TWO-LINE  SUBHEADING  For  an  octal  paragraph  listing. 

K002A 

QUANTITIES  FILLED  IN 

BY 

THE  BL<2  PART 

of  pass  3 For  reference  by  the  general  part  of  pass  3. 

0026 

0027 

BE  SJBi 

SPX 

CAC 

CAC 

B2  PRIN 

PN 

B2  EDT  AVI 
B2  EXPLAN 

82  EDT  DEF 
62  EDIT  WD 

0028 

B2  MAX 

LOC 

OCT 

-167777 

0029 

B2  MAX 

SSN 

OCT 

-100357 

0030 

BE*  TO' 

ALF 

TO 

0031 

B2W  TO' 

MSK 

ocr 

007777 

L <S?YU(_  SYSTEM  ASSEMBLER  3LK2  HASS  3 USER'S  OWN  PAGE  NO.  2 PAGE  7A 

P0032  CONSTANTS.  RESERVATIONS,  AND  EQUIVALENCES. 


0033 

BIT  2 

OCT 

2 

003A 

BIT  17 

OCT 

0000 

02 

0035 

B1T29M. 

OCI 

-200 

0000 

0036 

0037 

0038 

BlT30Mi 
MUCT  60 
MUCT  36 

OCT 

OCT 

OCT 

-100  0000 

-60 

-66 

0039 

OCT  1377 

OCT 

-1377 

OOAO 

OCT  1 AOO 

OCT 

- 1 AOO 

00A1 

OCT  2300 

OCT 

-2000 

00A2 

OCT  A 300 

OCT 

-AOOO 

00 A3  _ 

OCT  13000 

OCT 

-10000 

00  AA  B2  CAC3  OCI  2000  0000  0017  77 77 

00A5 SPEC  1 OM  OU  -100010 

00A6  SPEC  20M  OCT  -100020 

00A7  SHEC  57M  OCT  -100067 

00A72  SPEC  237M  OC f -100237 


00 A8  82  PL3'  MSK  OCT  0000  0070 

00A82  82  FLAG  A OCI  0000  OOAO 


00  A9 

BANK  MASK 

OCT 

-176000 

0050 

EBANK  MSK 

OCT 

-3A00 

0051 

OCTAL  CTR 

OCT 

-7 

0052 

L TC  StUF 

OCT 

0 

0053 

NtXT  EQ1V 

OCT 

0 

005A 

CHECKSUM 

OCI 

0 

0055 

L WIR;  NOS 

SPEC 

WIRE  NOS 

0059 

M COMMON 

RESERVE 

2 

L @YU|_  SYSTEM  ASSEMBLER  3LK2  PASS  3 USER*S  OWN  PAGE  NO.  3 PAGE  75 

P0060  ALPHABETIC  CONSTANTS. 


0061 

B2F  BANK. 

ALF 

00.0 

0062 

B2E  BANK 

ALF 

EO.O 

0063 

BANK  2EKS 

ALP  . 

00.0000 

006** 

EBANK  ZRS 

ALF 

EO .0000 

0065  ' 

B23  BLOTS 

ALF  *2 

■ ■■■ 

0066 

ZtROs  1 T 3 

ALF 

000 

0067 

z£rq  :e 

ALF 

0 

0068 

ZfcRO  EAT  7 

ALF 

0000 

0069 

At  AYAIL 

ALF 

@ 

0070 

W BAD  worc 

ALF 

BAO  WORC 

0071 

BADRF  COS 

ALF 

■REF 

0072 

EUB  CJ6S 

ALF 

■ EOB 

0073 

SUM  CJSS 

ALF 

■ SOM 

007** 

W CKSMi 

ALF 

CKSM 

0075 

W NOSUM 

ALF 

NOSOM 

0076 

LtTTERi  C 

ALF 

Ci 

0077 

LtTTERi  1 

ALF 

I ; 

0078 

EMPTY  WO 

ALF 

00000  0 

0079 

W NO  CKSUM 

ALF  .2 

NO  CHECKSUM 

0080 

W PAR  AG  NO 

ALF. 3 

PARAGRAPH  » 000 

0081 

EUIT  HEL) 

ALF  ,5 

OCTAL  LISTING  OF  -’AKAGRAPR  * 000.  aItH  P 

0082 

ALF  ,5 

ARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  FACH 

0083 

ALF  .5 

word;  denotes  unused  fixed  memory. 

L eYUL  SYSTEM  ASSEMBLER  3UK.2  MASS  3 USER'S  OWN  PALE  NO.  A PAGE  76 

POOBA  FURTHER  ALPHABETIC  CONSTANTS. 


0085 

0086 
0087 

W WO  MARKS 

OCT 
ALF  * 5 
ALT  * 5 

0002 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  E 
XCEPT  THOSE  MARKE-*  "I"  ( I N 1 tRPR_ET  1 VE  OPE 

-0088 

ALP  » 5 

RATOR  WORDS)  OR  "C"  (CONSTANTS). 

0089 

w spe;ent 

ALP  * A 

SPECIAL  AND  CENTRAL  R£SlSTtRS  k_ 

0090 
00902 

0091 

W ERAS  mem 
W ACM 

MA  LD  CODE 

ALP  * 2 
ALP  »A 
ALP  .5 

ERASABLE  memory 

AUXILIARY  CORE  MEMORY  ( ACM7 

ROPE  MODULE  2.  SIDE  B » SENSE  JJNE  SEt  00 

0092 

ALP 

(WIRES 

0093  WIRE  SOS 

ALP  » A 

1-16)  17-32)  3 3-98 ) A9-&9) 

0099 

0095 

ALp  * 9 
ALP  t 9 

65-80)  81-96)  97-112)  113-128) 

129-199)195-160) 151-176)177-192) 

L 

_ _R.0096 

&YUL 

SYSTEM 

ASSEMBLER 
SUBROUT  IN 

3LK.2  PASS  3 
£ IN  PASS  3 FOR 

BLK2  10  Set  IN 

PRINT  the 

zl 

o 

USER ' S OWN  PAGE  NO.  5 PAGE  77 

OF  A SYMBOL  OR  THE  UPPER  LIMIT  OF  AN 

R009B 

R0100 

RQ102 

I 1 E ^ IN  THe  AVAlLAbl 
TS 

NUTATION,  or  sets  up 

= 1 1 Y 01  SPLAY , 

M EOIT  UEF 
rUUR  BLOTS  IF 

SUPPLY  AN  INTEotR  IN  EOIViENT 

z,csc 

NO  definition. 

OR  ONES  IF  THERE  IB  NO  DeFINITON.  ENTRY  IS 

c sets  up  the  definition  using  the  ban< 

0103 

OiOA 

B2  EOT  DEF 

NA 

TN 

EOIVLENT 
B23  bLOTS 

ONES 

2 

C * + 2 
LINE  *2 

c 

print  blots  and  EXIT. 

0106 

0108 

TX 

LA 

EQIVLENT 
M COMMON 

OCT  3777 

M COMMON 
EOIT  DEF 

E 

c 

r~ 

BRANCH  IF  LOCATION  IS  IN  ERASABLE. 

0110 

0112 

QUA 

LA 

WD 

TX  j 

m common 

M COMMON 
B2F  SANK 

OCT  7777 
OCT  10000 

NON  3AN< 

M COMMON 
LINE  +2  . 

c 

c 

c 

BRANCH  IF  LOCATION  IS  NOT  IN  A 3AN<. 

reduce  to  standard  bank  notation. 

0115 

SWS.  AC05 

M COMMON 

5 , L 

LINE  +2 

c 

0116 

SWS,  AC06 

M COMMON 

2 , L 

LINE  *2 

c 

set  bank  number  in  print. 

0118 

ss 

OCT  2000 

BAN A MASA 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  2000-3777. 

0120 

TS 

ZEROS  IT  3 

LINE  +3 

NON  BANK 

♦ 1 

c 

0121 

EDIT 

DEF  E 

LA 

M COMMON 

OCT  1177 

NON  BANK 

c 

BRANCH  IF  LOCATION  IS  NOT  IN  AN  E3ANA. 

0123 

TX 

B2E  BANK. 

_ 

LINE  +2 

c 

0124 

SWS,  AC06 

M COMMON 

A , L 

LINE  ♦ 2 

c 

0125 

SS 

OCT  1400 

EBANK  MSA 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  1400-1777. 

0127 

TS 

ZEROS  1T3 

LINE  +3 

NON  BAN< 

♦ 1 

c 

0128 

NUN 

3 ANK 

TS 

ZERO  C8 

LINE  +2 

C,-l 

c 

0129 

SWS,  AC08 

M COMMON 

9 

LINE  +2 

c 

0130 

SWS,  ACO 1 

M COMMON 

12 

LINE  +3 

c 

0131 

SWS,  A (.02 

M COMMON 

15 

LINE  *3 

c 

0132  SWS,  AC03  M COMMON  lb  LINE  + 3 SET  SUBADDRESS  ill  PRINT  AND  EM  I. 
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ASSEMBLER 

3LK.2  PASS  3 

USER'S  OWN  PAGE  NO.  6 PAGE  78 

P013A 

SUBROUTINE 

IN  PASS  3 FOR 

BLK2_  10  SFT  IN 

PRINT  IdF  LOWER  LIMIT  OF  AN  ITfM  IN  THE  AVAILAbILl 1 T DISPLAY 

P01 36 

OK  an  audkess  in  the 

PARAGRAPH  EDIT 

. WITH  THE  ADDRESS  SJPPLteO  AS 

AN 

INTEGER  IN  address,  ENTRY  is 

R0138 

SWE  ♦ CAC3 

M EDIT  AVI 

16 

Z,CSC 

c 

USES  THE  BANK  NOTATION. 

OHO 

B2  EDI  AVI  TX 

address  _ _ 

M COMMON 

c 

01« 

LA 

M COMMON 

OCT  3777 

EDIT  AVI 

E 

c 

0 1 A3 

LA 

M COMMON 

_ OCT  7 777  _ 

NON  BAN< 

1 

01 AA 

WD 

M COMMON 

OCT  10000 

M COMMON 

C 

01A5 

TX 

BANK.  ZERS 

- 

LINE  +1 

c 

0 1 A6 

SWS.  ACOi 

M COMMON 

29*L. 

_LiN£  +JL 

c 

01A7 

SWS  * AC02 

M COMMON 

26*0 

LINE  +1 

c 

SET  BANK  NUMBER  IN  PRINT. 

01A9 

ss 

OCT  2000 

BANK  MASK 

M COMMON 

c 

PUT  SU6ADDRES5  IN  THE  RANGE  2000-3777. 

0151 

TS 

- 

• 

NON  3AN< 

1 +1 

c 

0152 

EDIT  AVI  E 

LA 

M COMMON 

OCT  1377 

NON  SANA 

1 

c 

0153 

TX 

EbANK  ZRS 

• 

LINE  +1 

r 

015A 

SWS  * AC02 

M COMMON 

28. L 

LINE  *1 

c 

SET  EBANK  NUMBER  IN  PRINT. 

0156 

SS 

OCT  1 AOO 

EbANK  MSA 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  IAOo-1777. 

0158 

TS 

- 

NON  BAN< 

1 +1 

r 

0159 

NON  SANK  1 

TX 

ZERO  CAT7 

. 

LINE  +1 

c 

0160 

SWs»  ACOA 

M COMMON 

15.  L 

LINE  ♦ 1 

c 

0161 

SWS*  AC05 

M COMMON 

12. L 

LINE  *1 

c 

0162 

SWS*  AL06 

M COMMON 

9 . L 

LINE  +1 

c 

0163 

SWS*  AC07 

M COMMON 

6 » L 

LINE  +1 

SET  SUBADDRESS  IN  PRINT  AND  EXlr. 

R0165  SUBROUTINE  1 IM  PASS  3 FOR  BLK2  10  PRINT  IwO  EXPLANATORY  LINES  AT  THE  HEAD  OF  EAOH  PAGE  OF  An  OCTAL 

R0167  PARAGRAPH  LISTING.  ENI KY  IS 

R0168  SWE*  CAC3  IM  EXPLAIN  16 Z.CSC C 


0169 

0170 

0171 

BK  EX 3L AN  TN 

SWS* 

SWS. 

AC06 

AC07 

edit  hed 

N.X2 
N *X2 

15 
6 * L 
1*L 

page  hed? 
PAGE  HED2 
PAGE  HED2 

♦ 1 
♦ A 
♦A 

c 

c 

c 

0172 

ss 

N,X2 

ACO  8 

PAGE  HED2 

c 

PUT  PARAGRAPH  NUMBER 

IN  FIRST  LINE. 

om 

TN 

W WDMARKS 

16 

LINE 

c 

0175 

TS 

Z,SC 

z.x<* 

PRINT  UN 

PRINT  EXPLANATION  AND 

RE  1 URN. 

7 


PAGE  79 
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P0177 

SUBROUTINE  in  PJVSS  3 FOR 

BLK2  [0  Ma<E  A 1A 

-CHARACTER  image  CORRESPONDING  to  a 

BLK2  WORD. 

H-  image 

R0179 

IS 

OE-IVeReD  IN  IMAGE  AND  1MAGE+1  AND  CONSISTS  OF  ANY 

of  he  following,  right-. 

justified 

SO 

that  the 

RIGHT -HAND 

R0181 

CHARACTERS  CAN  BE  JBtD; 

R0182 

IF 

AN  UNUSED  NDN-FIXED  LOCATION, 

R0183 

If 

AN  UNUSED  LOCATION* 

e 

OR  "NO 

CHECKSUM" 

IF 

PREVENTS 

CHec<SUM. 

R0185 

IF 

A CONFLICT  LOCATION, 

...  . conflict 

RO  1 86 

IF 

A 3A0  WORD, 

BAD  WORD 

R0187 

IF 

A 3ASIC  INSTRUCTION, 

XXXXX  P 

(FIVE  OCTAL 

DIGITS  AND  A 

PARITY  BIT) 

R0189 

IF 

referring  TO  UNUSED  LOCATION, 

■R£F  XXXXX  P 

R0190 

IF 

AN  INTERPRETIVE  OPERATOR  WORD, 

i;  xxxxx  p 

R0191 

IF 

A CONSTANT. 

c:  xxxxx  p 

PREFIX 

IS  "CKSM" 

IF 

CONST  IS 

A CHECKSUM. 

RO 1 9 3 OMER  PREFIXES!  » »EO  3 " FOR  A JSeO  WORD  AF1ER  a C H - L < SUM , II  ■ SuM"  FuR  A USED  WORD  THAT  FuULS  UP  A PKOPeRLY  RE- 
RO 1 95  UUEsT£D  CHECKSUM,  AND  "NOSUM"  FOR  A USED  WORD  THAT  PREVENTS  A CHECKSUM.  "■"  PREFIXES  COUNT  AS  CUSSeD  LINES. 
K0_197 ENTRY:  TX  M EDIT  WD  - Z,CSC C OR  EQUIVALENT. 


0199  B2  EDIT  WO  TX  BLANKS  - IMAGE  C 

0200  wA  OCTAL  CTR  ONE  OCTAL  CTr  C 

0201  LA  N.X2  W BAD  WORC  TEST  FLAG C 

02022  TX  N,X2  . IMAGE  *1  C 

0203  TS  B2  FLAG  a N.X2  SET  EOB  fL  C 


0205 

ss 

zero 

B2  FLG  M5K 

N ♦ X2 

c 

REMOVE  flag  if  refers  TO  used  FHeD. 

0207 

te5t  jlag 

SSL  * 

Acoa 

N,X2 

27 

C.  + l 

c 

FOUR-WAY  BRANCH  ON  TYPE  OF  FLAS. 

0209 

TS 

OCT  1777 

AVAIL  MSK 

WHICH  MEM 

c 

0210 

TS 

LETTER  1 

IMAGE 

C,-l 

c 

0211 

TS 

LETTER  C 

image 

C , -2 

c 

0212 

sws  * 

B26T3D 

N ,X2 

17, L 

C,  + l 

c 

0213 

SWE , 

Ones 

B j T 1 

0 

AVAIL  Msk 

c 

bits  05-01  of  blk2  address  = shift. 

0215 

SWE, 

B38TA3 

N,X2 

26 

Z , X A 

c 

0216 

SWS, 

BAATA3 

N ,X2 

6 

Z , X A 

c 

0217 

wA 

Z , X A 

L AV  TABLE 

Z ,X  A 

c 

0218 

SWE, 

ONES 

N,X2 

12, L 

M COMMON 

c 

ALIGN  REFtRS-TO-F 1XED-BANK  BIT. 

0220 

SS 

M COMMON 

BIT  17 

C,  + l 

c 

USE  IT  TO  MAYBE  AUGMENT  BY  A X 32  = 128. 

0222 

LA, 

AVA1LM.SK 

A , 0 

ZERO 

TEST  FLAG  -1 

c 

BRANCH  IF  LOCATION  IS  USED. 

02232 

* 

NA 

StG  OWNER 

BLANKS 

TEST  FLAG  -1 

c 

NO  CUSS  IN  SEGMENT  ASSEMBLY • 

02  2 A 

TX 

badrf  cus 

• 

I MAGE 

c 

"•REF"  FOR  REFERENCE  TO  UNUSED  -IxED. 

P0226 

MINOR  SUBROUTINE  IN  a ABS  3 FOR  BLK2 

TO  REGISTER  AN 

error  FOUND  during 

the  making  of  He  octal  storage  map. 

0228 

P 3 ERRORS 

DA 

N 0C1  ERRS 

ONE 

N OCT  ERRS 

c 

02302 

SS 

zero 

BIT  16 

switch 

c 

PRINT  REMAINDER  OF  OCTAL  STORAGE  MAP. 

02  3 A 

TX 

Z ,CSH 

- 

z,csc 

c 

BRANCH  IF  NOT  "BAD  WORD''  _ OR  " C J L l C 1 " . 
MARK  AS  SUCH,  GO  TO  SeT  FLAG  ANj  EXIT. 
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ASSEMBLER  BLK2  PASS  3 

USER’S  OWN  PAGE  NO.  b PAGE  80 

P0235  __ 

MAIN  STREAM  08  EDIT  W 3 

continued: 

PRINT  WORD  AND  SI 

IARI  CHfCKcUM 

PROCESSING, 

J 

0237 

WHICH  MEM 

TS 

EMPTY  WD 

IMAoE  *1 

WD  PRINT 

C 

3 

0238 

TX 

ADDRESS 

- 

EQIVLENT 

C 

0239 

LA 

OCT  9000 

EUI VLENT 

C , ♦ 3 

c 

BRANCH  IF  LOCA | 1 ON  IS  IN  FIXED  MEMORY. 

0291 

NA 

N,X2 

ZERO 

SET  EOB  fL 

c 

SET  flag  and  exit  if  used. 

) 

0293 

TS 

BLANKS 

IMA jE  + L 

SET  EQB  FL 

c ... 

otherwise  send  all  blanks  and  ditto. 

0295 

SS 

OCTAL  CTR 

AC08 

EUIVLENT 

c 

FILL  IN  LAST  OCTAL  DIGIT  OF  ADDRESS, 

0297 

TX 

NEXT  EUIV 

- 

M COMMONL 

_ c 

FOR  IMMEDIATE  MISSING-PARAGRAPH  CHECK. 

02  99 

WA 

eqivlent 

one 

next  eQIv 

SET  CRITERION  FOR  M1SS1NG-PARAG.  CHECK. 

0251 

NA  i AVA  1LH.SK 

ECJl  VLENT 

ZERO 

C » + 2 

c 

BRANCH  IF  NOT  THE  BEGINNING  OF  A 3ANK , 

02  53 

TS 

zero 

CHECKSUM 

TC  SELF. q 

c 

0259 

NA 

EU1 VLENT 

M COMMON 

LACK  PARa 

c 

BRANCH  IF  PARAGRAPH  IS)  MISSING. 

0256 

LA 

BIT  1 

CHECKSUM 

NQ„  S JM 1 Nc; 

c 

BRANCH.  IF  NO  SUMMING  10  BE  DONE. 

0258 

LA 

BIT  2 

CHECKSUM 

PLAN]  SJM  - 

1 C 

BRANCH  IF  CHECKSUM  MUST  BE  PLAN J ED  NOW, 

026Q 

NA,  AVAILH.SK 

EUIVLtNT 

ONES 

TC  SELF  Q 

c 

BRANCH  IF  NOT  END  OF  bANK, 

0262 

LA 

N,X2 

zero 

NO  TC  SELF 

♦ 1 c 

BRANCH  IF  LONE  HOLE  AT  END!  NO  CHECKSUM. 

0269 

TS 

W NOSUM 

IMAoE 

SET  EOB  FL 

c 

SHOW  NO  CHECKSUM  IN  FULL  BANK,  rXIT. 

0266 

NU  SUMTNG 

NA 

N.X2 

zero 

_ C**2  _ 

c 

BRANCH  ON  US£D  word  whenjnot  sqmmlng. 

0268 

TX 

AT  AVAIL 

• 

IMAGE  +1 

s 

EXIT  WITH  at  for  UNUSED  fixed. 

0270 

LA 

ONES 

CHECKSUM 

N * SC  * 1 

c 

EXIT  IF  SUMMING  WAS  GIVEN  UP. 

0272 

TS 

EQB  CUSS 

IMAo£ 

P3  ERRORk 

c 

"»eob"  for  used  word  after  checksjm. 

0279 

StT  EDB  FL 

TX 

ONES 

- 

CHECKSUM 

s 

0275 

NA 

N,X2 

ZERO 

SUM  ERROR 

c 

BRANCH  IF  USED  WD  WHERE  CKSM  SH-^ULD  GO. 

0277 

PLANT  SUM 

SWE.  CHARS 

eqivlent 

10 

M COMMON 

c 

FORM  POSITIVE  BANK  NUMBER.  CHECKSUM  IS 

0279 

LA 

M COMMON 

THStE 

C , + 2 

c 

SUCH  THAT  THE  TOTAL  SUM  = THE  BANK  NO. 

0281 

WD 

M COMMON 

FOJR 

M COMMON 

c 

(THOUGH  IT  MIGHT  BE  -0  FOR  BANK  00). 

0283 

HA 

CHECKSUM 

B2  CAC3 

CHECKSUM 

c 

complement  running  SUM... 

0285 

WA 

CHECKSUM 

M COMMON 

N.X2 

c 

...FORM  RAW  CHECKSUM  WORD... 

0287 

LA 

N.X2 

CAC3 

C , ♦ 2 

c. 

0288 

WD 

N,X2 

CAC3 

N,X2 

c 

...AND  PROPAGATE  END-AROUND  CARRY. 

02892 

EX 

N * X2 

SPEC  MAG 

N,X2 

c 

CLEAN  OUT  DUPLICATE  SIGN. 

0290 

SWE*  69 1 T 9 9 

N.X2 

8 

M COMMON  +1 

c_ 

0291 

HA 

N,X2 

M COMMON  +1 

M COMMON 

c 

0292 

SWE*  D12 

M COMMON 

9 

M COMMON  +1 

c 

0293 

HA 

M COMMON 

M COMMON  +1 

M COMMON 

c 

0299 

SWE*  THREE 

M COMMON 

2 

M COMMON  +1 

c 

0295 

HA 

M COMMON 

M COMMON  *1 

M COMMON 

z 

0296 

SWE*  ONE 

M COMMON 

1 

M ^OMMO'l  +1 

c 

0297 

HA 

M COMMON 

M COMMON  *1 

M COMMON 

c 

0298 

HA 

M COMMON 

ONES 

M COMMON 

c 

0299 

WA 

N,X2 

H,X2 

N,X2 

c 

0300 

SS 

M COMMON 

B20  B98 

N,X2 

c 

SHIFT  CHECKSUM  AND  INSERT  PARITY  BIT. 

0302 

TS 

EMPTY  WD 

IMAoE  +1 

WO  PRINT 

c 

PR I NT  WITH  PREFIX  "CKSM". 

0309  _ 

TS 

W CKSM 

IMAGE 

SUM  ERROd  ♦ 

1 C 

SHOW  that  sum  js  done  and  exit. 

a 


be;  efrSo 


P0306  PK0CE3UKE  IN  £PI T WD  !U  waTCH  FOR.  T_WQ._IC_  LF  SjJ.CC A <_E  _T HE. .CHECK SUM  FOLLOW  THEM. 


0308 

T<-  SELF  0 

SWE,  SPEC  MAO 

N,X2 

1 

M COMMON 

z 

V 

0309 

LA 

OCT  10000 

EUIVLENT 

_ C,*2 

c 

BRANCH  IF  LQ.CA1IQN  JS  LN  A BANK. 

0311 

TS 

EOIVLENT 

M COMMON  +1 

C , *3 

c 

0312 

TX 

OCT  2000 

- 

M COMMON  +1 

c 

n 

0313 

SS 

EOIVLENT 

OCT  1777  _ _ 

M COMMON  *1 

c 

0314 

NA 

M COMMON 

M COMMON  +1 

NO  TC  SEi  F 

c 

fill!  . 

LA 

euivlent 

L TO  SELF  _ 

C , ♦ 2 _ 

c 

BRANCH  IF  rHIS  is  2iYD  TC  SELF  IN  A ROW. 

n 

0319 

TS 

NEXT  eoiv 

L TC  SELF 

ADD  2 SUM 

c 

SET  CRITERION  FOR  TWO-IN-A-ROW  CHECK. 

0321 

NA,  OCT 37 7 

EOIVLENT 

ONES 

ADD  2 SUM  -1 

c 

BRANCH  IF  TC  SeLFS  NOT  AT  END  0?  PARA3R, 

*5 

0323 

SWE*  AC08 

EOIVLENT 

13 

M COMMON 

c 

0324 

WA 

L SUBSTRB 

M COMMON 

Z,X4 

c 

0325 

SWS , B26T33 

EUIVLENT 

10  * L 

C,  + l 

c 

0326 

SWE*  ONES 

BIT  2 

0 _ 

AVAIL  MS* 

X _ 

LOOK  IN  SUBSTRAb  PgR  NEXT  PARAGRAPH, 

0328 

NA*  AVAILMiSK 

4,0 

zero 

ADD  2 SUM  -1 

c 

BRANCH  IF  NEXT  PARAGRAPH  EXISIS. 

0330 

SUM  ERROR 

IS 

SUM  CUSS 

imaje 

_ p3  ERRORS 

c 

"•SUM"  FOR  POULED-UP  CHECKSUM  REQUEST. 

0332 

TX 

BIT  1 

- 

checksjm 

s 

PREPARE  POST-CHECKSUM  TESTS,  EXIT, 

0334 

NU  TC  SELF 

NA 

N,X2 

ZERO' 

ADD  2 SJm 

c 

0335 

TX 

W NO  CKSUM 

_ 

I MAGE 

c 

" NO  CHECKSUM"  FOR  AN  UNUSED  NORD  THAT 

0337 

TS 

W NO  CKSUM  +i 

IMAoE  + 1 

set  eob  FL 

c 

PREVENTS  formation  OF  a CHECKSUM. 

0339 

SM 

CHECKSUM 

BIT  2 

CHECKSUM 

c 

REUUEST  CHECKSUM  in  NEXT  WORD. 

0341 

ADD  2 SUM 

EX 

N ,X2 

CAC3 

M COMMON 

c 

0342 

SWS*  SPECMiAG 

N,X2 

1 

M COMMON 

c 

PUT  WORD  INTO  SIGN-DUPLICATED  F JRM, 

0344 

WA 

checksum 

M COMMON 

CHECKSUM 

c 

0345 

SSL,  AC08 

CHECKSUM 

14 

C,*l 

c 

TEST  FOR  END-AROUND  CARRY  AND  OVERFLOW. 

** 

K0347 

THIS  SIX-WAY  BRANCH  4 CM i £VeS  eND-ARoUND  CARRY  PROPAGATION,  OVERFLOW  CORRECTION,  AND  ADDITION  OF  SON (OVERFLOW) , 

0349 

TX 

* 

s 

000:  NO  EAC*  ♦,  NO  OFLO. 

0351 

WD 

CHECKSUM 

B35I48 

CHECKSUM 

s 

001 ; NO  EAC,  *,  OFLO. 

0353 

B35T43 

OCT 

-377  1 7 

OIOS  IMPOSSIBLE. 

0355 

TX 

- 

. 

. 

s 

Oils  NO  EAC,  -,  NO  OFLO. 

0357 

WD 

CHECKSUM 

CAC3 

CHECKSUM 

s 

100S  EAC,  +,  NO  OFLO. 

0359 

B2 0 348 

OCT 

-20  0000  0001 

101 : IMPOSSIBLE. 

•v 

0361 

WA 

CHECKSUM 

B351 48 

CHECKSUM 

c 

110S  EAC,  -,  OFLO. 

0363 

WD 

CHECKSUM 

CAC3 

CHECKSJM 

s 

1115  EAC,  -,  NO  OFLO. 

R0365 

RESPONSE  TO  DISCOVERY  IHAT  one  or  more  paragraphs 

ARE  MI  SSI  Nr,.  • • 

effect 

ON  CHECKSUM  PROCESSING. 

0367 

LAC<  PARA 

LA,  AVAILM.SK 

M COMMON 

zero 

C « ♦ 4 

c 

BRANCH  IF  NEW  PH  MUST  Be  IN  NEW  BANK. 

0369 

SS 

EOIVLENT 

AVAIL  MS< 

M COMMON 

c 

0370 

NA 

EUIVLENT 

M COMMON 

C,*2 

c 

BRANCH  IF  NEW  PARAGRAPH  IS  IN  N£w  BANK. 

0372 

LA 

biT  i 

CHECKSUM 

NO  SJMINr, 

c 

BRANCH  IF  NO  SUMMING  TO  BE  DONE. 

3 

0374 

NA 

N,X2 

ZERO 

NO  SJMING  -1 

c 

BRANCH  TO  APPLY  PREFIX  "NOSUM"  TO  WORD. 

0376 

TS 

W NO  CKSUM 

image 

NO  TC  Self  *2 

c 

BUT  FOR  EMPTY  WORD  WRITE  "NO  CH-CKSUM", 

3 


L 
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P0378 

MINOR  SUBROUTINE  IN  3ASS  3 FOR  BLK2 

TO  SE 1 An  ASSEMBLED  WORO  IN  PRINT 

FOR  THEL  OCTAL  STORAGE  Map. 

0380 

WD  PRINT 

SWS.  AC02 

N.X2 

23, w 

IMAGE  *1 

C 

0381 

SWS*  AC03 

N.X2  

_ 20,1. 

. - IMAGE  *1 

0382 

SWS.  AC09 

N.X2 

17.  L 

IMAGE  +1 

C 

0383 

SWS.  AC05 

N.X2 

19, L 

IMAGE  +1 

C 

0389 

SWS.  AC06 

N.X2 

_ 11.-  

IMAGE  +1 

C 

SET  IN  PRINT  5 OCTAL  DIGITS _QP  WORD. 

0386 

SS 

N.X2 

ONE 

IMAGE  ,1 

c 

SET  PARITY  BIT  IN  PRINT. 

0388 

TX 

Z.CSH 

• 

Z.CSC 

C 

R0389 

SUbROUTlN; 

IN  PASS  3 FOR 

blk.2  io  Set 

IN  PRINT  t He  UPPeR 

ADDReSS  limit.  PARAGRAPH  NUMBER.  ROPr  MODULE 

*0391 

numreri  with  stOe  let r 

=k,  and  sense 

wire  numbers 

FOR  a PARAGRAPH. 

ENTRY:  

R0392 

SWh . CAC3 

M PRINT  PN 

32 

Z.CSC 

c 

EXITS  TO  EDIT  DEF  TO  PRINT  UPPER  LIMIT. 

, 0399 

B2  PRIN  PN 

TN 

W PAKAG  NO 

3 

LINE  ♦ 9 

c 

0395 

SWS.  AC05 

Z »R0 

12.  L 

LINE  *5 

c 

0396 

SWS.  AC06 

Z.RO 

9,  L_ 

LINE  ♦ 5 

_ c 

0397 

SWS,  AC07 

Z.RO 

6 t L 

LINE  + 5 

c 

EDIT  PARAGRAPH  NUMBER. 

0399 

LA 

SPEC  10M 

Z.RO 

FIX  MEM 

c 

0900 

NA 

LINE  +5 

w parag  no 

♦1  C.+2 

c 

branch  IF  paragraphs  001-007. 

0902 

TN 

W specent 

9 

N.AJ2 

c 

"SPECIAL  ANp  CENTRAL  REGISTERS  5 » . 

0909 

TN 

W ERAS  MEM 

2 

N.AJ2 

c 

"ERASABLE  MEMORY  ", 

0906 

TS 

- 

B2  EOT  OfF  +2 

c 

GO  TO  PRINT  UPPER  ADDRESS  LIMIT, 

09072 

FIX  MEM 

LA 

Z.RO 

SPEC  2 37 M 

ROPE  MEM 

c 

09079 

TN 

W ACM 

9 

N.AU2 

c 

MARK  AUXILIARY  CORE  MEMORY  PARAGRAPH. 

09076 

TS 

- 

B2  EOT  Off  ,2 

c 

0908 

RUPE  MEM 

TN 

MA  LO  CODE 

6 

N.AU2 

c 

SET  RAW  MANU.  LOCATION  CODE  IN  3RINT , 

0910 

LA 

SPEC  20M 

Z.RO 

C , ♦ 3 

c 

BRANCH  IF  PARAGRAPH  IS  IN  A BAN<. 

0912 

WA 

Z.RO 

EIGHT 

M COMMON 

c 

0913 

TS 

- 

WHICH  MDn 

c 

USE  FIXED-FIXED  PARAGRAPH  NO.  ♦ 10  OCT. 

0915 

WO 

Z.RO 

iiGHT 

M COMMON 

c 

0916 

LA 

M COMMON 

SPEC  67M 

which  mod 

c 

branch  when  rope  module  pair  is  known. 

0918 

WO 

M COMMON 

MOCI  60 

M COMMON 

c 

reduce  NUMBER  IF  IN  ROPE  MODULE  3 TO  6. 

0920 

WA 

LINE  +8 

BIT  29M 

LINE  ♦ 8 

c 

09202 

TS 

- 

C.-3 

c 

0921 

WHICH  MOO 

SSL.  TWO 

M COMMON 

9 

C.  + l 

c 

PICK  ODD  QR  EVEN  MEMBER  OF  MODJ  £ PAH, 

0923 

WO 

LINE  +8 

BIT  30M 

LINE  +8 

c 

0929 

WO 

M COMMON 

EIGHT 

M COMMON 

c 

PUT  IN  RANGE  00-13  FOR  S.L.  StT  NO. 

0926 

SSL.  ONE 

M COMMON 

0 

C,*l 

c 

PICK  SIDE  A OR  B OR  ROPE  MODULE. 

0928 

WO 

LINE  *9 

BIT  30M 

LINE  *9 

c 

0929 

SWE.  012 

M COMMON 

L 

M COMMON 

c 

FORM  BINARY  SENSE  LINE  SET  NUMBER, 

0931 

WA.  C7T8 

M COMMON 

ONE 

LINE  *11 

c 

0932 

LA.  C7T8 

LINE  *11 

NINE 

C.+2 

c 

0933 

WA 

LINE  +11 

MOC 1 66 

LINE  *11 

c 

SET  DECIMAL  SENSE  LINE  SET  NO.  JN  PRINT. 

0935 

WA 

L WIRE  NOS 

M COMMON 

Z.AJl 

c 

0936 

T5 

N.AUl 

N.AU2 

32  EOT  OfF  +2 

c 

GO  TO  PRINT  UPPER  ADDRESS  LIMIT, 
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R0006 

R0008 

AG 

THt  AGC  PARI 
E^T  UEF  

of  pass  3 contains  subroutines  with  the  following  functions: 

.Set  a given  address  in  PRINT  in  words  2 AND  3 OF  the  PRINT  line,  OR  Set  UP  blots 

FOR  A 

ROOIO 

r0012 

AG 

£PT  AVj  . . . , . . 

BAD  ADDRESS.  TYPICALLY  USED  JO  PRINT  THE  DEFINITION  OF  A SYMBOL. 

.Set  a given  ADDRESS  in  print  in  WORD  1 OF  THE  PRINT  line.  TYPICALLY  used  to  PRINT  a 

ROOIA 

RQ015 

AG 

PR  1 N PN  .....  . 

lower  limit  in  the  AVAl LA31 LI ] Y DiSPiAY. 

.set  in  print  uppf<  address  limit,  paragraph  number,  rope  module  number  with  sior 

LET  I £R , 

R0017 

AND  SENSE  WIRE  NUMBERS  FOR  A PARAGRAPH. 

R0018 

AG 

EDIT  WO  

.form  a ie-character  print  image  of  a bypt  word,  flag  references  to  unused  fi*eo 

memory. 

R0020 

R0022 

AG 

EX=LAN  ...... 

generate  a checksum  for  each  fbank  or  show  the  reason  why  not. 
•PRINT  a TWO-LINE  SUBHEADING  For  an  octal  paragraph  listing. 

R002A 

0026 

AG  SU3 

SPX 

QUANTITIES 

CAC 

TILLED  in 
AG  PR  I N 

BY 

PN 

THE  AGC  PART  Or  PASS 
AG  EDT  A Y 1 Ao 

3 for  reference  by  the  general  part  of  pass  3. 

EOT  DEF 

0027 

CAC 

AG  EXPLAN  AG 

EDIT  WD 

0028 

AG  M A < 

LOC 

OCI 

-167777 

0029 

AG  MAX 

SSN 

OCT 

-100357 

0030 

AGW  TO' 

ALF 

TO 

0031 

AGW  TO- 

MSK 

OCT 

007777 

L 

feYUU  SYSTEM 

ASSEMBLER  ALL 

PASS. 3 

USER'S  OWN  PAGE  NO. 

2 

PAGE  8 A 

P0032 

CONST  ANTSt 

RESERVaTI  3NS< 

ANP  E3UI36aLEN£ESjl 

0033 

003A 

0035 

BIT  2 
BIT  17 

BlT29Mi 

OCT 

OCT 

OCT 

2 

0000  02 

-200  0000  

0036 

BlT30Mi 

OCI 

-100  0000 

0037 

MOCT  50 

OCT 

-60 

0038 

MOCT  56 

OCT 

-66 

.0039 

OLT  1377 

OCI 

-1377 

00  AO 

OLT  1A00 

OCT 

- 1 AOO 

OOAl 

OLT  2300 

OCT 

-2000 

00  A2 

OLT  A 300 

OCT 

-AOOO 

00A3 

OLT  13000 

OCT 

-10000 

00  AA 

PL  77777 

OCT 

+77777 

OOA5 

SPEC  10M 

OCT 

-100010 

00  A6 

SPEC  20M 

OCT 

-100020 

00A7 

SPEC  57M 

OCT 

-100067 

00  A72 

SPEC  237M 

OCT 

-100237 

00A8 

AG  FL3'  MSK 

OCT 

0000  0070 

00A82 

AG  FLAG  A 

OCI 

0000  00 AO 

00A9 

BANK  MASK 

OCI 

-176000 

0050 

EBAN<  MSK 

OCT 

-3A00 

0051 

oltal  ctr 

OCT 

-7 

0052 

L TC  SELF 

OCT 

0 

0053 

NtXT  EQJV 

OCT 

0 

005A 

checksum 

OCT 

0 

0055 

L WIRE  NOS 

SPFC 

. - --  _ WIRE  NOS  _ _ ....  

0059  M COMMON  RESERVE  2 
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0061 

0062 

0063 

ABF  3 AN< 

AGE  BANK 
BANK  Z£R5  . 

ALE 

alf 

ALF 

00.0 

EO.O 

00.0000  

006A 

EBANK  2RS 

ALF 

E0.0000 

. 0065 

AG3  3i.Q  1 S 

ALF  » 2 

• ■■■ 

0066 

ZEROS  1 T 3 

alf 

000 

0067 

ZERO  E8 

ALF 

0 

0068 

ZERO  CAT  7 

ALF  . 

0000 

0069 

A 1 Av^AIL 

ALF 

e 

0070 

W BAO  WORC 

ALF 

BAP  WORC 

0071 

BAORF  CUS 

ALF 

•REF 

0072 

EOB  CJ6S 

ALF 

•EOB 

0073 

SUM  CJSS 

ALF 

■ SOM 

007A 

W CKSM, 

ALF 

CKSM 

0075 

W NOSUM 

ALF 

NOSUM 

0076 

LETTER  C 

ALF 

C; 

0077 

LETTERi  1 

ALF 

1 ; 

0078 

EMPTY  WO 

ALF 

00000  0 

0079 

W NO  cksum 

ALF  .2 

NO  CHECKSUM 

0080 

W PARAS  NO 

ALF  .3 

PARAGRAPH  » 000 

0081 

0082 

0083 

EU1T  RED 

ALF  .5 
ALF  .5 
ALF  .5 

OCTAL  LISTING  OF  ■'ARAGRAPH  H 000.  WItH  P 
AR1TY  BIT  IN  BINARY  AT  TH-  RIGHT  OF  pACH 
W0RP5  «@M  PENOTEP  UNUSED  F IXEP  memory. 
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PQOBA  FURTHER  ALPHABETIC  CQNSIANT5. 


0085 

0086 
' 00.87 

W WO  MARKS 

OCI 
ALE  .5 
ALE  .5 

0002 

ALL  VALID  WORDS  ARE  BASIC  INSlRJCTlONS  E 
XCEPT  THOSE  MARKED  "I"  ( I N LERPRE HYE  OPE 

0088 

ALF.5 

RATOR  WORDS)  OR  "v»  (CONSTANTS). 

0089 

w SPEHENT 

ALE  . A 

SPECIAL  AND  CENTRAL  RESIST  Las  6 _ ....  . 

0090 
00902 

0091 

W ERAS  mem 
W ACM 

MA  LO  CODE 

ALE  .2 
ALE  .A 
ALE  ,5 

ERASABLE  MEMORY 
AUXILIARY  CORE  MEMORY  (ACM) 

ROPE  MODULE  2.  SIDE  B,  SEN^E  LINE  SEt  00 

0092 

ALE 

(WIRES 

0093. 

WIRE  \|0S 

ALE  » A 

1-16)  17-32)  33-A8)  a9-6a)  _ _ __  ...  _ _ 

0099 

0095 

ALE  *9 
ALE  t A 

65-80)  81-96)  9 T — 1 1 2 ) 11D-128) 

129-1AA) 1A5-160) 1SI-176) 177-192) 
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PQ096 SUBROUTINE  in  PASS  3 FOR  AGC  TJ  SET  I N PRINT  THF  nFFINITION  OF  A SYMBOL  OR  tHf  UPPfR  LIMIT  Of  AN 

R 0 0 9 8 HEM  IN  the  availabiliiiy  DISPLAY,  supply  an  integer  in  euiylent  or  ones  IF  THERE  IS  no  DbFINITON,  ENTRY  is 

ROIOO  TS  M EDIT  DEF  - Z.CSC  C SETS  UP  THE  DEFINITION  USING  H-  9AN< 

RQ102  NOTATION.  OR  5ETS  UP  FOUR  BLOTS  IF  NO  DEFINITION. 


0103  AG  EOT  DEF  NA  EUIVLENT  ONES  C.  + 2 C 

010A  TN  AG3  BLOTS  2 LINE  +2  PRINT  BLOTS  AND  EXIT. 


0106 

0108 

TX 

LA 

EQ1 VLENT 
M COMMON 

OCT  3777 

M COMMON 
EDIT  DEF 

E 

C 

C 

BRANCH  IF  LOCATION  IS  IN  ERASA3.E, 

0110 

LA 

M COMMON 

OCT  7777 

NON  BANK 

c 

BRANCH  IF  LOCATION  IS  NOT  IN  A BANK. 

0112 

WD 

M COMMON 

OCT  10000 

M COMMON 

c 

REDUCE  TO  STANDARD  BANK  NOTATION. 

0 !1  A 

TX 

AGF  BANK 

- 

LINE  ♦ 2 

c 

0115 

sws. 

AC05 

M COMMON 

5 » L 

LINE  *2 

c 

0116 

SWS. 

AL06 

M COMMON 

2.L 

LINE  ♦ 2 

c 

SET  BANK  NUMBER  IN  PRINT. 

0118 

ss 

OCT  2000 

BANK  MASK 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  2000-3777. 

0120 

TS 

ZEROS  1 T 3 

LINE  +3 

NON  BANK 

♦ 1 

c 

0121 

EDIT  DEF 

E LA 

M COMMON 

OCT  1377 

NON  BANK 

c 

BRANCH  IF  LOCATION  IS  NOJ  IN  AN  LBANK, 

0123 

TX 

AGE  BANK 

LINE  ♦ 2 

c 

0 1 2 A 

SWS. 

AC06 

M COMMON 

A » L 

LINE  ♦ 2 

c 

0125 

ss 

OCT  1 AOO 

EBANK  MS.K 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE  iAOo-1777, 

0127 

TS 

ZEROS  1T3 

LINE  +3 

NON  BANK 

♦ 1 

c 

0128 

NON  BANK 

TS 

ZERO  C8 

LINE  *2 

c.-i 

c 

0129 

SWS. 

Ac08 

M COMMON 

9 

LiNE  *2 

c 

0130 

sws* 

AC01 

M COMMON 

12 

LINE  ♦ 3 

c 

0131 

sws. 

AC02 

M COMMON 

15 

LINE  +3 

c 

0132 

sws. 

AC03 

M COMMON 

18 

LINE  *3 

SET  SUBADDRESS  IN  PRINT  AND  EXIT. 

L 

eyut  system  assembler 

AGC  PASS  3 

USER'S  OWN  PAGE  NO.  6 

88 

...  P0134 

SUBROUTINE 

IN  PASS  3 FOR 

acc  to  set  in 

HR I NT  THE  1 QWfR 

LIMIT 

OH  AN  ITEM  IN  TH£.  AVAiLABILITY  D1SPL4Y 

P0136 

OK  AN  AODKESS  in  the 

Paragraph  edit. 

WITH  THE  ADDKtSS  SUPPLIED  AS  AN  INTEGER  IN  ADDRESS,  ENTRY  IS 

R0138 

SWE*  CAC3 

M EDIT  AVI 

16 

z,csc 

C 

USES  THE  BANK  NOTATION. 

0140 

AG  EOT  AVI  TX 

ADDRESS  - - 

M COMMON  _ . 

C 

0H2 

LA 

M COMMON 

OCT  3777 

EDIT  AVI  E 

c 

01  A3 

LA 

_ . M COMMON  . ... 

OCT  7777 

NON  BANK  1 

c 

om 

wD 

M COMMON 

OCT  10000 

M COMMON 

c 

0145 

TX 

BANK  ZERS 

- 

LiNE  +1 

c 

0146 

SWS,  AL01 

M COMMON 

29 * L _ 

LIJNE.  *-1 

c 

0147 

SWS * AC02 

M COMMON 

26  * L 

LINE  *1 

c 

SET  BANK  NUMBER  IN  PRINT. 

0149 

SS 

OCT  2000 

BAN*  MASK 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE 

2000-3777. 

0151 

TS 

- 

- 

NON  BANK  1 +1 

c 

0152 

EDIT  AVI  E LA 

M COMMON 

OCT  1377 

NON  BANK  1 

c 

0153 

TX 

EBANK  ZKS 

- 

. LINE.  ♦! 

. c 

0154 

SWS*  AC02 

M COMMON 

28  * L 

LINE  *1 

c 

SET  EBANK  NUMBER  IN  PRINT. 

- 0156 

SS 

OCT  1400 

EBANK  MS< 

M COMMON 

c 

PUT  SUBADDRESS  IN  THE  RANGE 

1400-1777. 

0158 

TS 

• 

- 

NON  BANK  1 *1 

c 

0159 

NUN  SAN*  1 TX 

ZERO  C4T7 

m 

LINE  *1 

c 

• 

0160 

SWb*  AC.04 

M COMMON 

15  *L 

LINE  *1 

JC_ 

0161 

SWS*  AC05 

M COMMON 

12,1 

LINE  *1 

c 

0162 

SWS*  AC06 

M COMMON 

9 * L 

LINE  *1 

c 

0163 

SWS,  AC07 

M COMMON 

6 1 L 

LINE  ♦ 1 

SET  SUBADDRESS  IN  PRINT  AND 

_EXlr. 

R0165 

SUBROUT IN; 

IN  PASS  3 FOR 

AGC  TJ  PRINT 

two  explanatory 

LINES 

AT  THE  HEAD  OF  EACH  PAGE  OT  , 

an  octal 

RO 1 67 

PARAGRAPH  LIST 1NG.  ; 

NIRY  IS 

R0168 

SWt*  CAC3 

M EXPLAIN 

...  16  . . 

. Z.CSC 

c 

0169 

0170 

0171 

AG  EX^LAN  TN 

SWS*  AC06 
SWS*  AC07 

edit  hed 

N,X2 

N,X2 

15 
6 9 L 
3 » L 

PAGE  HED? 
PAGE  HED2 
PAGE  HED2 

♦1 

C 

c 

c 

0172 

SS 

N ,X2 

ACO  8 

PAGE  HED? 

C 

PUT  PARAGRAPH  NUMBER  IN  HRS]  LINE. 

0174 

TN 

W WDMARKS 

16 

LINE 

c 

0175 

TS 

z,sc 

Z,X4 

PRINT.  LIN. 

PRINT  EXPLANATION  AND  RETURN, 

l 

t 

' 

c 

> 

> 
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P0177 

SUBROUTINE  IN  PASS  3 FOR 

AUC  TO  MA<£  A 1A-CHaRaCTeR 

IMaGE  CORRESPOJN.DING  to  an  agc  word*  the  image 

R0179 

R0181 

is  delivered  in  image  and  image+i 

1A  CHARACTERS  CAN  BE  USED? 

AND  CONSISTS  OF  ANY  OF  THE  FOLLOWING,  R I GHT-uUST I F I ED  SO  THAT  THE  RIoHT-HAND 

*0182 

R0183 

R0185 

IF  AN  UNUSED  NON-FIXjD  LOCATION. 
IF  AN  UNUSED  LOCATION. 

IF  A CONFLICT  LOCATION. 

e 

CONFLICT 

OR  ''NO  CHECKSUM"  IF  PREVENTS  CH£C<SUM. 

R0186 

R0187 

R0189 

IF  A 3AD  WORD. 

IF  A 3ASIC  INSTRUCTION. 

IF  RE-ERRING  ID  UNUSED  LOCATION, 

BAD  WORD 
*XXXX  P 

•ref  kxxxx  p 

(FIVE  OCTAL  DIGITS  AND  A PARITY  BIT) 

R0190 

IF  AN  INTERPRETIVE  OPERATOR  WORD, 

I : kxxxx  p 

R0191 

IF  A CONSTANT, 

c:  *xxxx  p 

PREFIX  IS  "CKSM"  IF  CONST  IS  A ;HECKSUM. 

Ro  1 93 
R0 195 

0 1 HER  prefixes:  t'«EO>  FOR  A USeD 

quested  checksum,  and  "nosum"  for 

WORD  AFTER  A CH-L<SUM , ...SUM 

A used  *ord  that  prevents  a 

» For  a used  word  that  Fouls  up  a properly  re- 
CHeCKSUM,  PREFIXES  count  AS  CUSSED  lines. 

RO  1 97 

entry:  tx m edit 

z.csc 

C or  equivalent. 

0199 

AG  EDIT  WD 

TX 

BLANKS 

• 

IMAGE 

c 

0200 

WA 

OCTAL  CTR 

ONE 

OCTAL  CTr 

c 

0201 

LA 

n,x2 

W bad  worc 

T&ST  FLAG 

c 

BRANCH  IF  NOT  "BAD  WORD"  OR  "CONFLICT". 

02022 

TX 

N.X2 

. 

IMAGE  *1 

c 

0203 

TS 

AG  FLAG  4 

N » X 2 

SET  EOB  FL 

c 

MARK  AS  SUCH,  GO  TO  SET  FLAG  AND  E*IT. 

0205 

SS 

zero 

AG  FLG  MSK 

N.X2 

c 

remove  flag  if  refers  to  used  fixed. 

0207 

TEST  FLAG 

SSl« 

Ac08 

N.X2 

27 

C ♦ ♦ 1 

c 

FOUR-WAY  BRANCH  ON  TYPE  OF  FLAG. 

0209 

TS 

OCT  1777 

AVAIL  MS< 

WHICH  M£m 

c 

0210 

TS 

LETTER  1 

IMAoE 

C.-l 

c 

0211 

TS 

LETTER  C 

image 

C.-2 

c 

0212 

sws, 

B26T3D 

N,X2 

17, L 

C,*l 

c 

0213 

SWE. 

Ones 

Bj  T 1 

0 

AVAIL  Msk 

c 

bits  05-01  of  agc  address  = shi-t. 

0215 

SWE, 

B38TL3 

N,x2 

26 

Z »X  A 

c 

0216 

SWS. 

BAAT43 

N.X2 

6 

Z.XA 

c 

0217 

WA 

Z.XA 

L AV  TABLE 

Z.XA 

c 

0218 

SWE. 

ONES 

N.X2 

12, L 

M COMMON 

c 

ALIGN  REFERS-TO-F JXED-BANK  BIT. 

0220 

SS 

M COMMON 

BIT  17 

C,*l 

c 

USE  IT  TO  MAYBE  AUGMENT  BY  4 X j2  = 128. 

0222 

LA, 

availm.sk 

A , 0 

ZERD 

TEST  FLAr,  -1 

c 

BRANCH  IF  LOCATION  IS  USED. 

02232 

# 

NA 

seg  owner 

BLANKS 

TEST  FLAG  -1 

c 

NO  CUSS  IN  SEGMENT  ASSEMBLY. 

02  2 A 

TX 

badrf  cus 

m 

IMAGE 

r 

"•REF"  for  reference  TO  UNUSED  PIXED. 

R0226 

MINOR  SUBROUTINE  IN  PASS  3 FOR  AGC 

to  resister  an 

error  found  durin 

1 0 

THe  MAKING  of  the  OCTAL  STORAGE  MA3. 

0228 

P3  ERRORS 

DA 

N OCT  ERRS 

ONE 

N OCT  ERRS 

c 

02302 

SS 

zero 

BIT  16 

Switch 

c 

PRINT  REMAINDER  OF  OCTAL  STORAoc  MAP. 

023A 

TX 

Z.CSH 

• 

z.csc 

c 

L 

t?YUL  SYSTEM 

assembler  AUC  PASS  3 
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PQ235 

main  stream  of-  edit  wd 

CONTINUED;' 

PRINT  WORD  AND  5 

1 art  CHECKSUM 

PROCESSING, 

0237 

WHICH  MEM 

TS 

EMPTY  WD 

IMAJE  +1 

WD  PRINT 

C 

0238 

TX  _ 

ADDRESS 

- 

EOIVLENT 

C 

0239 

LA 

OCT  AOOO 

EUI VLENT 

C,*3 

c 

BRANCH  IF  LOCAIION  IS  IN  FIXED  MEMORY, 

02  A 1 

NA 

N,X2 

EERO1 

SET  EOB  fL 

c 

SET  flag  and  exit  if  used. 

02  A3 

TS 

BLANKS 

IMAoE  +1 

_ SET  EOB  FL 

c _ 

OTHERWISE  SfJND  ALL  BLANKS  AND  OiTTO. 

02A5 

SS 

OCTAL  CfR 

ACOB 

EOIVLENT 

c 

FILL  IN  LAST  OCTAL  DIGIT  OF  ADDRESS. 

02A7 

_TX 

NfcXT  tUlV 

. 

M COMMON 

c 

FOR  IMMEDIATE  MISSING-PARAGRAPH  CHECK. 

02  A9 

WA 

EOIVLENT 

ONE 

NEXT  EOIV 

c 

SET  CRITERION  FOR  MISSING-PARAG,  CHECK. 

0251 

NA,  AVAIL M3K 

EOIVLtNT 

EERO 

C , + 2 

c 

BRANCH  IF  NOT  1 HE  BEGINNING  OF  n SANK . 

02  53 

TS 

eero 

_ CHECKSUM 

TC  SELF  Q 

_ , c _ 

025A 

NA 

EUIVLENT 

M COMMON 

LACK  PARA 

c 

BRANCH  IF  PARAGRAPH(S)  MISSING. 

0256 

la 

BIT  1 

Checksum 

NO  SUMINS 

c 

branch  if  no  summing  to  be  done. 

0258 

LA 

BIT  2 

CHECKSUM 

PLANT  SUM  - 

1 c 

BRANCH  IF  CHECKSUM  MUST  BE  PLANTED  NOW, 

0260 

NA,  AVAILMSK 

EOIVLENT 

ONES 

TC  SELF  q 

c 

BRANCH  IF  NOT  END  OF  BANK. 

0262 

LA 

N,X2 

EERO 

PLANT  SUM 

c 

BRANCH  TO  PLANT  SUM  IN  LONE  HOl?  AT  END. 

026A 

TS 

W NOSUM 

IMAoE 

SET  EOB  fL 

c 

SHOW  NO  CHECKSUM  IN  FULL  BANK,  EXIT. 

0266 

NO  SUMiING 

NA 

N»X2 

E£RJ 

Cjl+2L 

c 

BRANCH  ON  USED  WQRD  WHEN  NOT  SUMMING. 

0268 

TX 

AT  AVAIL 

- 

IMAGE  +1 

s 

EXIT  WITH  AT  FOR  UNUSED  FIXED. 

0270 

LA 

ONES 

CHECKSUM 

N.SC.l 

c 

EXIT  IF  SUMMING  WAS  GIVEN  UP. 

0272 

TS 

EOB  CUSS 

IMA  ^E 

p3  ERRORS 

c 

"■EOB"  FOR  USED  WORD  AFTER  CHECKSUM, 

027a 

StT  E3B  FL 

TX 

ones 

CHECKSUM 

s 

0275 

NA 

N,X2 

EERO 

SUM  ERROp 

c 

BRANCH  IF  USED  WD  WHERE  CKSM  SHdULD  GO. 

0277 

PLANT  SUM 

SWE,  CHAR3 

EUIVLLN1 

10 

M COMMON 

c 

FORM  POSITIVE  BANK  NUMBER.  CHECKSUM  IS 

0279 

LA 

M COMMON 

THRtE 

C,  + 2 

c 

SUCH  THAT  TOTAL  SUM  IS  ♦ OR  - SANK  NO. 

0281 

WD 

M COMMON 

FOUR 

M COMMON 

c 

0282 

SS 

EERO 

BIT  2 

CHECKSUM 

c 

02822 

LA 

CHECKSUM 

B35 1 A8 

C , + 2 

c 

BRANCH  IF  CHECKSUM  IS  POSITIVE. 

0283 

HA 

M COMMON 

CAC3 

M COMMON 

c 

GIVE  BANK  NUMBER  AGC  SIGN  OF  CH-CKSUM, 

0285 

BS 

M COMMON 

CHECKSUM 

N,X2 

c 

0287 

LA 

N,X2 

BIT  1 

C , +2 

c 

BRANCH  IF  ALG.  VAL.  OF  CKSM  IS  3LUS. 

0289 

HA 

N »X2 

PL  77777 

N,X2 

_c 

0290 

SWE,  BAIT  AS 

N,X2 

8 

M COMMON  *1 

c 

0291 

HA 

N.X2 

M COMMON 

♦ l 

M COMMON 

c 

0292 

SWE,  D 1 2 

M COMMON 

A 

M COMMON  +1 

c 

02  93 

HA 

M COMMON 

M COMMON 

♦l 

M COMMON 

c 

029A 

SWE*  THREE 

M COMMON 

2 

M COMMON  +1 

c 

0295 

HA 

M COMMON 

M COMMON 

♦1 

M COMMON 

c 

0296 

SWE,  ONE 

M COMMON 

1 

M COMMON  *1 

c 

0297 

HA 

M COMMON 

M COMMON 

♦ 1 

M COMMON 

c 

0298 

HA 

M COMMON 

ONES 

M COMMON 

Q 

0299 

WA 

N,X2 

N«X2 

N ,X2 

c 

0300 

SS 

M COMMON 

B20  BA8 

N,X2 

c 

SHIFT  CHECKSUM  AND  INSERT  PARITY  3IT. 

0302 

TS  _ 

EMPTY  WD 

IMA *1 

WD  PRINT 

c 

PRINT  WITH  PREFIX  "CKSM". 

TS  W CKSM  I MA ofc.  ' SUMERROp  +1  C SHOW  THAT  SUM  IS  DONE  AND  EXIT. 


030A 


L 
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P0306 

PROCEDURE 

IN  EDIT  WD  IU 

WaTCH  for  two 

TC  SELFS  IN  SUCCESSION,  TO  MAKE  THE  CHECKSUM  FOLLOW  THEM, 

0308 

T<-  SELF  0 

SWE.  SPEC  MAG 

N.X2 

l 

M COMMON 

c 

0309 

LA 

OCT  10000 

EUIVLENT 

. C,*2  ... 

c 

BRANCH  IF  LOCA f I ON  IS  IN  A BANK. 

0311 

TS 

EQlVLtNl 

M COMMON  *1 

C . + 3 

c 

0312 

TX 

OCT  2000 

• 

M COMMON  +1 

c 

0313 

SS 

EUIVLENT 

OCT  1777 

M COMMON  *1 

c_  _ 

0314 

NA 

M COMMON 

M COMMON  +1 

NO  TC  SEi  F 

c 

0317 

LA 

EOI VLENT 

L T C SELF 

C ♦ + 2 

c 

BRANCH  IF  JHIS  is  2JND  IC  SELF  In  A Row. 

0319 

TS 

NEXT  EU I V 

L TC  SELF 

ADD  2 SUM 

c 

SET  CRITERION  FOR  TWO-IN-A-ROW  CHECK. 

0321 

NA.  OCT 37 7 

eoivlent 

ONES 

ADD  2 SJm  -1  C 

BRANCH  IF  TC  S£LFS  NOT  AT  END  0^  PARAGR. 

0323 

SWE.  AC08 

EUIVLENT 

13  

M COMMON 

032** 

WA 

L SUBSTRB 

M COMMON 

Z.X  4 

c 

0325 

SWS » B26T33 

EOIVLENT 

10. L 

c » ♦ 1 

c 

0326 

SWE.  ONES 

BIT  2 

0 

AVAIL  MSic 

c 

LOOK  IN  SUBSTKAB  FOR  NEX]  PARAGRAPH, 

0328 

NA.  AVAIL  MiSK 

4,0 

zero 

ADD  2 SUM  -1  C 

BRANCH  if  next  paragraph  exisis. 

0330 

SUM  ERROR 

TS 

SUM  LUSS 

ima^e 

p3  ERRORS  __ 

c 

"■SUM"  FOR  FOULED-UP  CHECKSUM  R-QUeST • 

0332 

TX 

BIT  1 

- 

CHECKSUM 

s 

PREPARE  POST-CHECKSUM  TESTS,  EXIT. 

033** 

MU  TC  SELF 

NA 

N.X2 

_ZE.RO 

ADD  Z SUM 

c_ 

0335 

TX 

W NO  C<SUM 

I mage 

c 

" NO  CHECKSUM"  FOR  AN  UNUSeD  WORD  THAT 

0337 

TS 

W NO  CKSUM  +i 

IMAje  +1 

SET  EDS  fL 

c 

PREVENTS  FORMATION  OF  a CHECKSUM. 

0339 

SM 

CHECKSUM 

BIT  2 

CHECKSUM 

c 

L 

REuUEST  CHECKSUM  IN  NEXT  WORD. 

0341 

ADD  2 SUM 

EX 

N.X2 

CAC3 

M COMMON 

c 

0342 

SWS.  SPEC MAG 

N.X2 

1 

M COMMON 

c 

PUT  WORD  INTO  SIGN-DUPLICATED  F uRM. 

0344 

WA 

CHECKSUM 

M COMMON 

CHECKSUM 

c 

0345 

SSL.  AC08 

CHECKSUM 

1** 

C.  + l 

c 

TEST  FOR  END-AROUND  CARRY  AND  OVERFLOW. 

*0347 

this  six-way  branch  achieves  end-around  carry  propagation,  overflow  correct  ion*  and  addition  of  sun (overflow) , 

0349 

TX 

• 

s 

000!  NO  EAC.  ♦ , NO  OFLO. 

0351 

wD 

CHECKSUM 

B351 48 

CHECKSUM 

s 

OOi:  NO  EAC.  ♦ » OFLO. 

0353 

B35T43 

OCT 

-37777 

0105  IMPOSSIBLE. 

0355 

TX 

• 

s 

Oil : NO  EAC.  NO  OFLO. 

0357 

WD 

CHECKSUM 

CAC3 

CHECKSUM 

s 

100!  EAC,  ♦,  NO  OFLO. 

0359 

B20  348 

OCT 

-20  0000  0001 

101 J IMPOSSIBLE. 

0361 

WA 

CHECKSUM 

B35I48 

CHECKSUM 

c 

lio:  EAC,  -,  OFLO. 

0363 

WD 

CHECKSUM 

CAC3 

CHECKSUM 

s 

111!  EAC,  NO  OFLO. 

R0365 

RESPONSE  TO  DISCOVERT  1 HA f ONe  OR  MORE  PARAGRAPHS 

ARE  MISSINr,... 

. effect 

ON  checksum  processing. 

0367 

LAC<  PARA 

LA,  AVAIL  *1,56 

M COMMON 

zero 

C . + 4 

c 

BRANCH  IF  NEW  PH  MUST  Be  IN  NEW  BANK. 

0369 

SS 

EUIVLENT 

AVAIL  MSK 

M COMMON 

c 

0370 

NA 

EUIVLENT 

M COMMON 

C » ♦ 2 

c 

BRANCH  IF  NEW  PARAGRAPH  IS  IN  N;W  BANK. 

0372 

LA 

BIT  1 

CHECKSUM 

NO  SUMING 

c 

BRANCH  IF  NO  SUMMING  TO  BE  DONE, 

0374 

NA 

N.X2 

ZERO 

NO  SUMING  -I 

c 

BRANCH  TO  APPLY  PREFIX  "NOSUM"  [0  WORD. 

0376 

TS 

W NO  CKSUM 

IMA^E 

no  tc  self  * 

•2  C 

bui  for  empty  word  Write  "no  chtcksum". 

L 

P0378 
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MINOR  SUBROUTINE  in  3ASS  3 FOR  AGC  TO  i>Ei  AW  AS5E '’'PLED  WORD  in  PRINT  FOR  JHfc  OCTAL  STORAGE  MAP, 

0380 

WU  PRINT 

SWS , AC02 

N,X2 

23, L 

IMAGE  +1 

r 

0381 

SWS<  ALO  3 

N,X2 

__  20, L 

I MAGE  +1 

_c 

0382 

SWS,  AC 0.4 

N,X2 

17, L 

IMAGE  *1 

c 

0383 

SWS,  AC05 

N,X2 

14, L 

IMAGE  +1 

c 

0384 

SWS,  AC06 

N,X2 

11,- 

IMAGE  +1 

c 

SET  IN  PRINT  5 OCTAL  DIGITS  OF  WORD. 

0386 

ss 

N,X2 

ONE 

IMAGE  +1 

c 

SET  PARITY  BIT  IN  PRINT. 

0388 

TX 

2 , CSH 

- 

z,csc 

c 

R0389 

SUBROUtIN- 

IN  PASS  3 FOR 

ACC  TO  SET 

IN  PRINT  THe  iiPPER 

ADDRESS  LIMIT,  PARAGRAPH  NUMBER*  ROP£  MDDJLe 

«0391 

NUMBER'  with 

1 SIDE  LETf 

;K , ANU  SENSE  WIRE  NJMfiERS 

FOR  A PARAGRAPH. 

ENTRY: 

R0392 

SWt , CAC3 

M PRINT  PN 

32 

2, CSC 

C 

EXITS  TO  EDIT  DEF  TO  PRINT  UPPER  LIMIT. 

0394 

AC  PRIN  PN 

TN 

W PARAG  NO 

3 

LINE  +4 

C 

0395 

SWS,  AC05 

2 ,R0 

12,  L 

LINE  +5 

c 

0396 

SWS,  AC06 

2 ,R0 

9,1 

LINE  ♦ 5 

c 

0397 

SWS,  AC07 

Z,R0 

6 9 L 

LINE  *5 

c 

EDIT  PARAGRAPH  HUMBER. 

0399 

LA 

SPEC  10M 

2 ,RD 

FIX  MEM 

c 

0400 

NA 

LINE  *5 

W PARAG  NO  *1 

C , + 2 

c 

BRANCH  IF  PARAGRAPHS  001-007. 

0402 

TN 

W SPtcENT 

4 

N , AJ2 

c 

"SPECIAL  AND  CENTRAL  REGISTERS  5 ". 

0404 

TN 

W ERAS  MEM 

.2 

N,AU2 

"ERASABLE  MEMORY  ", 

0406 

TS 

- 

AG  EDI  DfF 

♦ 2 

c 

GO  TO  PRINT  UPPER  ADDRESS  LIMIT, 

04072 

FIX  M£M 

J.A 

2 ,R0 

SPEC  237 M 

ROPE  MEM 

c 

04074 

TN 

W ACM 

4 

N , A J2 

c 

MARK  AUXILIARY  CORE  MEMORY  PARAGRAPH. 

04076 

TS 

~ 

“ 

AG  EOT  DfF 

♦ 2 

c 

0408 

RUPe  mem 

TN 

MA  LO  CODE 

6 

N , A J2 

c 

SET  RAW  MANU.  LOCATION  CODE  IN  3R I NT . 

0410 

LA 

SPEC  2oM 

Z.RJ 

C , ♦ 3 

c 

BRANCH  IF  PARAGRAPH  IS  IN  A BANC. 

0412 

W A 

2 , RO 

eight 

m common 

c 

0413 

TS 

- 

WHICH  MOO 

c 

USE  FIXED-FIXED  PARAGRAPH  NO.  ♦ 10  OCT. 

0415 

WD 

2 ,R0 

eight 

M COMMON 

c 

0416 

LA 

M COMMON 

SPEC  67M 

which  mod 

c 

BRANCH  When  ROPE  MODULE  pair  Is  known. 

0418 

WD 

M COMMON 

MOCI  60 

M COMMON 

c 

REDUCE  NUMBER  IF  IN  ROPE  MODULE  3 TO  6. 

0420 

wA 

LINE  +8 

BIT  29M 

LINE  *8 

c 

04202 

TS 

- 

- 

C,-3 

c 

0421 

WHICH  MOD 

SSL,  TWO 

M COMMON 

4 

C , + 1 

c 

PICK  ODD  OR  EVEN  MEMBER  OF  MODJ.E  PAIR, 

0423 

WD 

LINE  +8 

BIT  30M 

LINE  ♦ 8 

c 

0424 

WD 

M COMMON 

EIGHT 

M COMMON 

c 

PUT  IN  RANGE  00-13  FOR  S.L.  SET  NO. 

0426 

SSL,  ONE 

M COMMON 

0 

C,*l 

c 

PICK  SIDE  A OR  B OR  ROPE  MODULE, 

0428 

WD 

LINE  *9 

BIT  30M 

LINE  +9 

c 

0429 

SWt,  D12 

M COMMON 

1 

M COMMON 

c 

FORM  BINARY  SENSE  LINt  SET  NUM3;R. 

0431 

wA*  C7T8 

M COMMON 

ONE 

LINE  *11 

c 

0432 

LA,  C7T8 

LINE  *11 

NINE 

C , ♦ 2 

c 

0433 

WA 

LINE  +11 

MOCI  66 

LINE  +11 

c 

SET  DECIMAL  SENSt  LINE  SET  NO.  IN  PRINT, 

0435 

wA 

L WIRE  NOS 

M COMMON 

Z.AJl 

c 

0436 

TS 

N , AUl 

N,AJ2 

AG  EDT  OpF 

♦ 2 

c 

GO  TO  PRINT  UPPER  ADDRESS  LIMIT. 
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ROOOl  WE  ARE  DEEPLY  INDEBTED  TO  the  ONE*  the  ONLY*  the  3KEAT  JOHN  sHAw  fOH  the  FOLLOWING  Strung  magic.... 
R0003  JSOCTl 


OOOA SETLOCtZ S}Z  PASS  3 BA. 


RQ005  THt  1800  3AKi  (jF  PASS  3 CONTAINS  ONLY  A DJMMY  MAXLOC,  AND  SOME  COD  1 NO  TO  FINISH  PASS  3 EAKLT, 


00058 

0006 

18 

18 

SJ3 
ED  r 

SPX 

def 

SPEL 

TS 

SPACE  A 

OLD  SPACE 

18  EDT  DEF  -2 
WS3  DONE  £L_ 

SEE  CARD 

0587.5  IN  GENERAL  PASS  3. 

<3007 

18 

MAX 

LOC 

OCT 

0 

0008 

RESERVE 

1 

0009 

OCT 

0 

A 3-WORD 

SEGMENT  DUST  DIDN'T  SEFM  RIGHT. 

END  0(-  REVISION  10  OF  PROGRAM  YUCPASS3  by  HB-S 


SYMBOL  TABLE 
THERE  ARE.  NQ 


wISTlNG,  INCLUDMto  PA^E  NJMBeK  OF  DeF  INI  T ION*  AND  NJMBeR  OF  REFERENCES  'wTFH  FIRST  ANU  LAST  PA(j£  NJMPbSI  9A 
SYMBOLS  IN  THIS  ASSEMBLY. 


THE  ASStMDLY  *AS  OqoD:  MANU  - AL  TURABLE  BINARY  RECORDS  STORED  JN  EXPEROGS 


§YUL  SYSTEM  MANUFACTURING  - AGCA 


user*s  o^n  page  no 


l 


page  I 


L 


Roooi 

R0003 


OOOA 


0005 


R0006 

R0008 

R0010 

r0012 

ROO 1 A 
ROOl  5 
R0016 
R0017 
R0018 
R0019 
R0020 

R0021 

R0023 

R002  5 

R0026 

r0028 

R0030 


R003I 


0032 

RQ03A 


WE  ARE  DEEPLY  INDEBTED  TO  The  One.  The  only,  The  oReAt  JOhN  ShAw  FOR  The  FOLLOWING  STRONG  MAGlc.... 
JSOCTL 


SET  LOC , 1 0 B2 

MASK.GRP,!  S,1  F , 1 


This  agca  manufacturing  Program  is  loaded  in  response  to  a well-formfd  yul  director  card  specifying 
manufacturing  For  a correctly  a.sSeMBleO  agc*,  program,  it  communicates  with  subroutines  in  pass  0 as  with  a 
monitor.  It  examineS  one  or  more  subdirector  cards  <»s"  in  column  1 ) to  Determine  tHf  task  required.  subdireC. 
TOR  CaRDS  OBtY  tHe  SAMt  SYNTACTICAL  RULlS  as  director  cards,  examples  of  all  currently  available  tvpeS  follow: 

S PUNCH  2AK  CORE  ROPE  SIMULATOR  TAPE 

S PUNCH  36K  CORE  ROPE  SIMULATOR  TAPE 

s ■ punch  Raytheon  wiring  tape 

s punch  Raytheon  tester  tapf 

s punch  master  deck 

s punch  symbol  tablf 

S PUNCH  SYMBOL  TAbLF  AND  MASTER  DeC< 

s copy  onto  worker  (used  with  compare,  below). 

s compare  program  prognaMf  from  worker  (Progname  is  name  of  copied  program). 

for  all  tape  punching  a *use*  subdirector  is  available*  see  page  2<> 

FOR  wiring  AND  TESTER  TAPf  runs  a #MoDULE  Deck  nJmBeRS*  SUBDIRECTOR  is  REQUIRED.  SEF  PAGE  27 

an  optional  feature  exists  f0r  printing  out  the  ReSults  of  a taPe^caRD  punching  run  and/oR  suppressing  punching, 

SEE  PAGE  3A 


for  all  tape  punching  a ^paragraph*  subdirector  is  required,  see  page  2a 
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what  subd 
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P0035 

FIELD  AND 

SHIFT 

MASKS  FOR  AGC4  MANUFACTURING. 

0036 

B « D3D4 

DEC 

OOGG 

0037 

B » CHAR6 

OCT 

-77  0000 

0038 

B * CHAR8 

OCT 

-77 

0039 

B.C4T7 

OCT 

-7777777700 

0040 

B.C5T6 

OCT 

-77770000 

00  A 1 

b.loadg 

OCT 

- 1 0 1 

0042 

B.B42 

OCT 

-100 

0043 

B.B21T24 

OCT 

00000017 

0044 

B.B14T24 

OCT 

00003777 

0045 

B.C1T3 

OCT 

777777 

0046 

B *C5T 8 

OCT 

-77777777 

0047 

B,C1T6 

OCT 

7777  7777  7777 

0048 

B.CAC3 

DEC 

— gggg 

0049 

B.BIT  MASK 

OCT 

0 

0050 

B .ONES 

DEC 

GGGG  GGGG  GGGG 

0051 

B .ONE 

DEC 

-1 

0052 

B * TWO 

OCT 

-2 

0053 

B. THREE 

DEC 

-3 

0054 

B.FOUR 

DEC 

-4 

0055 

B. SEVEN 

DEC 

-7 

0056 

B, EIGHT 

DEC 

-8 

0057 

B.B44T48 

OCT 

-37 

0058 

B.C1T4 

OCT 

77777777 

0059 

B »B4 1 T A8 

OCT 

-377 

0060 

B *B  1 T6 

OCT 

77 

0061 

b.banbits 

OCT 

-780  0000 

USER'S  OWN  PAGE  NO 
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P0062 

FURTHER 

SHIFT  MASKS 

0063 

S«C2T  3 

OCT 

007777 

0064 

S.C4578 

OCT 

-7777007777 

0065 

S.Db 

DEC 

-G  0000 

0066 

S.D12 

DEC 

-G 

0067 

S » C7T8 

OCT 

-7777 

0068 

S.D4T7 

DEC 

ooogggg 

0069 

SiACDl 

OCT 

17 

0070 

S.ACD2 

OCT 

0017 

0071 

S1ACD3 

OCT 

000017 

0072 

S.ACD4 

OCT 

00000017 

0-07  3 

S«ACOl 

OCT 

07 

0074 

S.AC02 

OCT 

0007 

0075 

S.ACO3 

OCT 

000007 

0076 

S*AC04 

OCT 

00000007 

0077 

S « AC05 

OCT 

-700  0000 

0078 

S.AC06 

OCT 

-7  0000 

0079 

S*AC07 

OCT 

-700 

0080 

S.C1T2 

OCT 

7777 

0081 

S,C3T5 

OCT 

0000777777 

0082 

S *B42T 47 

OCT 

-176 

0083 

S.B42T45 

OCT 

-170 

0084 

S.B45T47 

OCT 

-16 

0085 

S * B44 

OCT 

-20 

0086 

S.B43T47 

OCT 

-76 

0087 

S • B4 1 

OCT 

-200 

0088 

S * B46T 47 

OCT 

-6 

USER'S  OwN  PAGE  NO 
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gYUL  SYSTEM 

ManUFACTUR 

ING  _ AGC4 

P0069 

alphabetic 

constants. 

0090 

blanks 

ALF 

0091 

W NASA 

ALF 

NASA 

0092 

W CORE 

ALF 

core 

0093 

W ROPE 

ALF 

RnPE 

0094 

w smulato 

ALF. 2 

simulator 

0095 

W TAPE 

ALF 

TAPE 

0096 

w RATHEON 

ALF 

RaYTHFON 

0097 

w wiring 

ALF 

wiring 

0098 

W TESTER 

ALF 

tfster 

0099 

W CARD  OUT 

ALF. 2 

card  output  sent 

0100 

rareQ  msg 

ALF  . 3 

error  IN  REOUeSt  cards 

0101 

W subdirc 

ALF » 2 

SUBDIRECTORY 

0102 

w paper  ta 

ALF'3 

paper  tape  output  sfnt 

USER'S  OWN  PAGE  NO 
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alphabetic  constants  continued. 


Pq  1 03 


010A 

OCT 

0105 

CARDS 

ALF  « 5 

0106 

AlF  * 5 

0107 

OCT 

0108 

CARD 

ALF  .5 

0109 

ALF  * 5 

0110 

ALF  370 

ALF 

0111 

W 

PaRaGRA 

ALF«2 

0112 

RC162C8 

ALF 

0113 

RC1&8C8 

ALF 

01 1A 

BLNK  3ZS 

ALF 

0115 

W 

symbol 

ALF 

0116 

W 

table 

ALF 

0117 

W 

AND 

ALF 

0118 

W 

MASTER 

ALF 

0119 

W 

DECK 

ALF 

0120 

W 

END  DECK 

ALF  *3 

0121 

w 

END  SYMT 

ALF  ♦ 3 

0122 

w 

paragrf 

ALF  *2 

0123 

'W 

crw 

ALF 

012A 

w 

CRT 

ALF 

0125 

w 

USE 

AlF 

0126 

w 

PINK 

ALF 

0127 

w 

oiled 

ALF 

0128 

w 

paper 

AlF 

0129 

w 

black 

Al  F 

0130 

w 

blue 

ALF 

0131 

w 

mylar 

ALF 

0132 

w 

gray 

ALF 

0133 

w 

GREY 

ALF 

013A 

w 

fiber 

ALF 

0135 

w 

aluminm 

ALF 

0136 

w 

ONTO 

ALF 

0137 

w 

FROM 

ALF 

0138 

w 

WORKER 

ALF 

0139 

w 

PROGRAM 

ALF 

0 1 AO 

w 

MODJLE 

ALF 

01A  1 

w 

NUMBERS 

ALF 

01A2 

w 

ALL 

ALF 

0 1 A3 

w 

THRU 

ALF 

0 1 A A 

w 

THROUGH 

ALF 

01A5 

w 

testing 

ALF 

01A6 

w 

nopunch 

ALF 

0 1 A7 

w 

list 

ALF 

0 1 A8 

w 

MON  11 

AlF 

0 1 A9 

w 

2 AK 

alf 

0150 

W36K 

alf 

0151 

WB3  36K 

alf 

0152 

W 

check 

AlF 

0153 

W 

head 

ALF 

015A 

w 

TAIL 

ALF 

0 


0 

LoOOOOOaAGCA  master  deck 
1ST  PARAGRAPH 
370 

paragraph 


R 2 

R 8 

000 

SYMBOL 

TABLE 

and 

master 

DECK 

FND  OF  AGCA  MA5TER  DECK 

END  OF  SYMBOL  TABLE 
paragraph 
c r w 

CRT 
USE 
PINK 
OILED 
PAPER 
Bl  ACK 

blue 

mylar 

gray 

grey 

fiber 

Al UMINUM 

ONTO 

FROM 

worker 

program 

module 

numbers 

all 

THRU 
THROUGH 
TESTING 
NoPUNCH 
LIST 
MON  I I 
2aK 
3bK 

36K 

check 

head 

tail 
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0155 

W PUNCHED 

ALF 

PUNCHED 

0156 

NO  MDf\|  MSG 

AL  F « 5 

Module  deck  numbers  subdirector  missing. 

0157 

ALF 

ABORT 

0158 

CMPAR  MSG 

ALF. 3 

compare  from  worker 

0159 

CMPR  line 

ALF  . 3 

comparing  for  agca: 

0160 

COPY  MSG 

ALF* 2 

copy  onto  worker 

0161 

COPY  LINE 

AlF.3 

copying  for  agca: 

0162 

E COPY  MSG 

Al.  F . 5 

copying  done,  next  task  Compares  a progr 

0163 

ALF. 2 

am  with  this  one 

016A 

CHK  M MSG 

AL  F . 5 

module  deck  number  needed  for  module 

0165 

E CMPR  MSG 

AlF  « 2 

comparing  done. 

0166 

NO  WT 2 MSG 

ALF . 5 

yulwr<2  missing,  wasn't  Copy  task  donfS 

0167 

X MDN  MSG 

ALF. 5 

not  to  be  wired  module  assigned  dec 

0168 

ALF 

K NUMBER 

0169 

CMPFL  MSG 

ALF. 5 

paragraph  ooo  failed  Comparison  for  t 

0170 

ALF. 5 

hfse  paragraph  relative  locations 

0171 

PRTTP  MSG 

ALF  . A 

punch  Raytheon  testfr  tape 

0172 

C FIRST  RC 

alf.s 

program  * ooo  agca  copy  compare  worke 

0173 

ALF  .A 

r 

0 1 7 A 

EXCES  MSG 

AlF  .a 

EXCESS  SUBDIRECTOR  ENCOUNTERED 

0175 

P2AKT  MSG 

ALF. 5 

punch  2ak  core  rope  simulator  tape 

0176 

P36KT  MSG 

ALF. 5 

punch  36k  core  rope  simulator  tape 

0177 

CRWT  MSG 

ALF . 5 

computer  agca  module  deck  number  nnnn 

0178 

ALF.A 

MODULE  xxx  WIRES  ytyyyyyy 

0179 

2AKSM  MSG 

A|_F  .5 

computer  agca  module  xxx  bank  oo 

0180 

PRWTP  MSG 

ALF.A 

punch  Raytheon  wiring  tape 

0181 

2 LoNP  MSG 

ALF.3 

paragraph  no.  too  Long 

0182 

UNOPN  MSG 

AlF  .3 

paragraph  no.  not  octal 

0183 

ILLPN  MSG 

ALF.3 

illegal  paragraph  no. 

018A 

DUPPN  MSG 

ALF.3 

duplicate  paragraph  no. 

0185 

pnher  msg  . 

ALF.3 

paragraph  ooo  not  here 

0186 

NO  GUd  MSG 

ALF  « 2 

mo  good  requests 

0187 

E MEM 

Al  F . 2 

E - MEMORY 

0188 

CANCL  MSG 

OCT 

0102 

0189 

ALF  . 5 

five  consecutive  errors,  zap  for  this 

0190 

ALF.  5 

paragraph 

0191 

ALF. 5 

0192 

SYMBL  MSG 

ALF.3 

punch  symbol  table 

0193 

SKIP  MSG 

OCT 

0102 

019A 

ALF  .5 

APPARENTLY  THE  ABOVE  six  ERRORS  were 

0195 

ALF. 5 

caused  by  a reader  skip 

0196 

AlF. 5 

0197 

SYMAS  MSG 

ALF.S 

PUNCH  SYMBOL  table  AND  MASTER  DECK 

0198 

NO  SYm  MSG 

ALF  .3 

program  has  no  symbols 

0199 

pall  msg 

ALF  . 5 

"PARAGRAPH  ALL"  CARD  INVALIDATED  BY  PREV 

0200 

ALF. 2 

lous  CARD 

0201 

NASA  MSG 

ALF. 5 

Raytheon  tape  punching  requires  nasa  dwg 

0202 

ALF 

number 

0203 

CHECK  MUM 

AlF  .5 

frame  00000  = OOO  INSTEAD  of  ooo 

020A 

ALF 

0205 

CHECK  SPA 

ALF.A 

Previous  io  frames  = 

0206 

CHECK  BRA 

ALF.A 

Following  io  frames  = 

0207 

CHECK  LOS 

ALF, 5 

TAPE  checking  Done  OODOO  ERRORS 

0208 

CHECK  DOT 

AlF  « 5 

AR1  when  paper  TAPE  ready  to  read 

gYUL  SYSTEM  MANUFACTURING  - AGCA 
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P0209 

ALPHABETIC 

CONSTANTS 

continued. 

0210 

END  PaRAG 

ALF  * 5 

fnd  of  paragraph 

0211 

ALF 

RaGRAPH 

0212 

blkaa&ca 

ALF 

agca 

0213 

BLKC1C8 

AlF 

000000 

02 1 A 

EMPTY  WU 

ALF 

777771 

0215 

STICK  NOS 

ALF 

SCE 

0216 

ALF  * A 

28B 

29A  293 

0217 

ALF»A 

2 IB 

22A  22B 

0218 

AlF  » A 

23B 

2AA  2 A3 

0219 

PMSTR  MSG 

ALF  ♦ 3 

punch  master  deck 

•0220 

PH  NUMBER 

ALF 

777=  7 

0221 

WIRE  NOS 

AlF  t a 

1 - 1 6 

17-32  33-A8 

0222 

ALF  * A 

65-80 

81-96  97-112 

0223 

OCT 

-1  AOOOO 

0225 

OCT 

-1  A0020 

0226 

OCT 

-1  AOOAO 

0227 

OCT 

-1  A0060 

0228 

OCT 

-1  AO  1 00 

0229 

OCT 

-1  AO  120 

0230 

OCT 

-1  A01A0 

0231 

OCT 

-1  AO  160 

USER  1 S OWN  PAGE  NO 
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28A 
2 1 A 
2 3A 
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P0232 

NUMERIC  CONSTANTS 

for  aoc<*  manufacturing. 

0233 

C1C8 

OCT 

7700  0000  0000  00 

0234 

C2T7 

OCT 

0077  7777  7777  77 

0235 

C5T7 

OCT 

-7777  7700 

0236 

BANEOFRI 

OCT 

-420  0000 

0237 

THREAD  11 

OCT 

-3777 

0238 

D2 

DEC 

OG 

0239 

PONE 

DEC 

+ 1 

0240 

1 D2 

DEC 

01 

0241 

1 04 

DEC 

0001 

0242 

7 D2 

DEC 

07 

0243 

4 C6 

OCT 

-A  0000 

0244 

ZERO 

OCT 

0 

0245 

FIVE 

OCT 

-5 

0246 

NINE 

DEC 

-9 

0247 

TEN 

OCT 

-12 

0248 

ELEVEN 

FXBIN 

-11 

0249 

thirty 

FxBlN 

-30 

0250 

C32 

FXBIN 

-32 

0251 

DEC  0033 

DEC 

0033 

0252 

OCT  164 

OCT 

-164 

0253 

C255 

FXBIN 

-255 

02  54 

C256 

FXBIN 

-256 

0255 

OCT  00047 

OCT 

00047 

0256 

OCT  INC 

OCT 

00007 1 

0257 

check  wdd 

OCT 

-100001 

0258 

wir  tens 

DEC 

-10 

0259 

X UNITS 

DEC 

-20 

0260 

WIR  HUNDS 

DEC 

-30 

0261 

X TENS 

DEC 

-40 

0262 

WIR  UNITS 

DEC 

-50 

0263 

SPEC  FRAM 

DEC 

-60 

0264 

FEED  1 T7 

DEC 

-7G 

0265 

B 1 

OCT 

4 

0266 

B24X 

OCT 

00000001 

0267 

B 34 

OCT 

-40000 

0268 

B23K 

OCT 

00000002 

0269 

B23T2AK 

OCT 

00000003 

0270 

B22K, 

Oct 

00000004 

0271 

<6M 

OCT 

-6 

0272 

CORE  000 

OCT 

-1  00000 

0273 

CORE  400 

OCT 

-1  00400 

0274 

CORE  1000 

OCT 

-1  01000 

0275 

CORE  1400 

OCT 

-1  01A00 

0276 

STOP 

OCT 

-200 

0277 

RESET 

OCT 

-140 

0278 

SENSE  A 

OCT 

-300 

0279 

SENSE  B 

OCT 

-240 

0280 

CORE  NO  A 

OCT 

-040 

0281 

CORE  NO  B 

OCT 

-100 

0282 

PAR  BIT 

OCT 

-2  1 

0283 

8 PUNCH 

OCT 

-200 

PnG 


AUE 


USER'S  OwN  page  No 
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0284 

ADR  RESET 

OCT 

-203 

0285 

RESET  adv 

OCT 

-205 

0286 

832  PUNCH 

OCT 

-206 

0287 

NO  ADV 

OCT 

-207 

' 0288 

87  PUNCH 

OCT 

-300 

0289 

ST0P36K 

OCT 

-301 

0290 

ERASE36K 

OCT 

-340 

0291 

FS 

OCT 

-361 

0292 

FF 

OCT 

-341 

0293 

Z UNITS 

DEC 

-80 

USER'S  OtfN  PAGE  NO 
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P029A 

ADDRESS  constants. 

0295 

L RSPEX  P8 

SPEC 

0296 

R SPECS 

SPEC.  B3 

0297 

SPEC.  B3 

0298 

SPEC,  B3 

0299 

SPEC.  B3 

0300 

SPEC,  B3 

0301 

SPEC,  B3 

0302 

SPEC,  B3 

0303 

SPEC,  B3 

0304 

L END  RASS 

SPEC,  B3 

0305 

bank  1 

SPEC , B 1 

0306 

AGC4  MSKS 

MaSKBASE  S,1  F , 1 

0307 

L Aa  SUBDS 

SPEC 

0308 

L STICKNS 

SPEC 

0309 

l cards 

SPEC 

0310 

CARDS  P10 

SPEC 

0311  • 

CARD  WD2 

SPEC 

0312 

CARD  WD 1 0 

SPEC 

0313 

L WIRE  NO 

SPEC 

0314 

ST  WIR  CAC 

CAC 

STICK 

NOS 

0315 

L RED  LIST 

SPEC 

0316 

L CP Y AREA 

SPEC 

0317 

L ARTSDK  n 

CAC 

W CRT 

0318 

L CH<  BUF5 

CAC 

CHECK 

frm 

0319 

END  SUBDS 

SPEC 

USER'S  OwlN  PAGE  NO 
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R SPECS  +8 
26  2 

DAMN  ZERO 
198 
64 
132 
130 
196 
66 
263 

DAMN  zero 
Aa  subdrs 

STICK  NOS 

cards 
cards  +io 
card  +i 
card  +9 

WIRE  NO 
WIRE  NOS 

red  list 
copy  area 
art6  dk  no 

CHECK  BUF  +5 

last  sdrc 
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P0320 

RESERVATIONS. 

0321 

W I RE  NO 

RESERVE 

1 

0322 

REQ  LIST 

RESERVE 

117 

0323 

OCT 

0 

032  A 

BEGIN  ADR 

RESERVE 

1 

0325 

SS  FWA 

RESERVE 

1 

0326 

LAST  FWA 

RESERVE 

1 

0327 

MDN  MARK 

reserve 

1 

- 0328 

KCOMMON 

RESERVE 

lo 

0329 

FIRST  WD 

RESERVE 

1 

0330 

E 256  LOC 

RESERVE 

1- 

0331 

HOLD  LOC 

RESERVE 

1 

0332 

IN  OR  NOT 

RESERVE 

1 

0333 

BANK  NUM 

RESERVE 

1 

033A 

LAST  BANK 

RESERVE 

1 

0335 

ALLOW  E 

RESERVE 

1 

0336 

FRAME  POW 

reserve 

1 

0337 

FRAME  YUL 

reserve 

5 

0338 

MASTR  TOO 

reserve 

1 

0339 

PARA  DEEP 

reserve 

1 

03A0 

TEST  INST 

RESERVE 

1 

03A  l 

DELTA  FwA 

RESERVE 

1 

03A2 

check  frm 

RESERVE 

23 

03A3 

FRAME  NUM 

reserve 

1 

03AA 

CHECK  ON 

reserve 

1 

03A5 

CHECK  CNT 

reserve 

1 

03A6 

CHK  H BUF 

reserve 

6 

03A7 

SWITCH  PA 

RESERVE 

1 
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P0398 

EQUIVALENCES 

0399 

DAMN  ZERO 

equals 

0 

0350 

SPRA 

equals 

128 

0351 

SPRAMR 

equals 

389 

0352 

SPRAM 

EQUALS 

896 

0353 

ALPHA 

EQUALS 

0 

0359 

BINARY 

EQUALS 

16 

0355 

parag  NO 

EQUALS 

bfgin  adR 

0356 

reo  place 

EQUALS 

SS  FWA 

0357 

DATA  CHAR 

EQUALS 

ONE 

0358 

STIK  WIRE 

EQUALS 

LAST  FWA 

0359 

common 

EQUALS 

delta  fwa 
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P0360 

assignments  FOR  agca 

manuf actuR 

0361 

SWITCH 

assign 

0,2 

0362 

L AUTH  NAM 

ASSIGN 

0,51 

0363 

RD  SBDIRC 

ASSIGN 

0,65 

036A 

howzat 

ASSIGN 

0,66 

0365 

PCH  LEDER 

ASSIGN 

0,67 

0366 

IGN  SUBDR 

ASSIGN 

0,68 

0367 

unrc  sbdr 

assign 

0,69 

0368 

E SYLT  OK 

ASSIGN 

0,70 

0369 

FETCH  SS 

ASSIGN 

0,71 

0370 

* DELETE 

0371 

PCH  TITLE 

ASSIGN 

0,73 

0372 

manuf  RTN 

ASSIGN 

0,76 

0373 

yul  masks 

ASSIGN 

0,77 

037A 

OCTAL  20 

ASSIGN 

0,78 

0375 

WHODUNIT 

ASSIGN 

0,80 

0376 

6 COMMA  19 

ASSIGN 

0,81 

0377 

L DIRECTY 

ASSIGN 

0,83 

0378 

* delete 

0379 

FRAME 

ASSIGN 

0,85 

0380 

TYP  ABORT 

ASSIGN 

0,69 

0381 

L OB JC  MSG 

ASSIGN 

0,90 

0382 

REJEC  DIR 

ASSIGN 

0,91 

. 0383 

YUL  D2A  ZS 

ASSIGN 

0,119 

038A 

SYMS  OR  NO 

ASSIGN 

0,12A 

0385 

DISASTER 

ASSIGN 

0,126 

0386 

MON  TAPE 

ASSIGN 

7,1 

0387 

PHI  SNACH 

ASSIGN 

7,2 

0388 

mon  peek 

ASSIGN 

7,3 

0389 

EOR 

ASSIGN 

7, A 

0390 

MON  READ 

ASSIGN 

7,15 

0391 

PHI  PRINT 

ASSIGN 

7,23 

0392 

MON  EOFRI 

assign 

7,31 

0393 

MON  A2D 

ASSIGN 

7 , A 1 

039A 

MON  TADDR 

ASSIGN 

7,223 

0395 

MON  TYPER 

ASSIGN 

7,215 

ustR's  own  page  no 
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L 

<sYUL  SYSTEM 

MANUFACTURING  - AGCA 

♦ 

P0396 

procedure  to 

DfTERMINE 

WHICH  SJBDIRECTDR 

WAS  SUBMITTED 

* 

0397 

WHAT  SUBD 

s»mon  typer 

W SUBDIRC 

SPRA  +16 

C»  + l 

* 

0399 

AGCA  MSKR 

TX 

AGCA  MSKS 

- 

Z,MXR 

OAOO 

TX 

L AASUBdS 

- 

Z,XA 

0A02 

COMP  SDRC 

NA 

N »Xa  , i 

6,16 

TRY  SDREC 

* 

OAOA 

NA,  C1T6 

A ,0 

6,17 

try  SDRFC 

0A06 

ss 

N,XA 

THREAD  11 

C,  + l 

4»  ' 

0A07 

TS 

6 COMMA  19 

Z,X5 

* 

0A09 

try  sdrec 

NA 

Z.XA.l 

END  subds 

COMP  SDRC 

0A1  l 

TS 

6 COMMA  19 

Z,x5 

bad  sd 

♦ 

R0A13 

TABLE  OF  IA-CHArACTER  SUBDIRECTOR 

FIRST  WDrdS  FOR  AGCA. 

# 

0 A 1 A 

AA  SUBDRS 

ALF 

punch 

0A16 

M , A ♦ 

A* 

A, 

AGCA  PNCH 

• 

0A17 

ALF 

COPY 

OA 1 9 

M , A * 

A. 

A, 

AGCA  COPY 

0A20 

ALF 

compare 

0 

0A22 

LASTSDRC 

M » A * 

A. 

A, 

AGCA  CMPR 

R0A23 

fatal  exit 

ROUTINE  FDR 

BAD  SUBDIRECTORS 

0 

0A2A 

bad  sd 

WD 

Z,X5 

THREE 

WHO  DUN  IT 

0A26 

HOW  ZIS 

TS 

YUL  MASKS 

Z * MXR 

HOW  ZAT 

0A28 

BAD  SD2 

TS 

Z.X5.2 

- 

bad  sd 

0 

0A29 

BAD  SDN 

TS 

Z.X5 

WHO  DUN  IT 

HOW  ZIS 

0A30 

BAD  SD6 

TS 

Z ,X5 ,6 

- 

bad  sd 

0 

0 

0 

0 

0 

0 

0 

0 

I 


USER'S  OWN  PAGE  NO 


1A 


PAGE  lA 


type  "SUBDIReCtOR!". 

base  of  AGCa  MANUFACTURING  SUBDIRECTORS, 
compare  first  WORD  on  SUBDIRECTOR  CD. 
DEMAND  1A-CHARACTER  match. 

SET  TO  LOOK  AT  2ND  WORD,  GO  TO  TASK. 


branch  if  There  are  mORf  to  loo<  at. 

SET  UP  to  CUSS  1ST  WD,  ABORT  TASK. 


PUNCH  CARDS  OR  PAPER  TAPE. 

COPYING  JOBS 
comparing  job 

STEP  X5  DOWN  ONE  WORD 

EXIT  FOR  FATAi  CUSS  UF  SUBDIRECTOR  WORD. 
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P0431 

*PUNCH  2AK 

core  RoPe 

simulator  tape*  subdirfctor 

routine  Here- 

R0432 

EACH  BANK 

IS  A SEPARATE  PIECE  OF  PAPER 

R0433 

AT  LEAST  ONe  OF  THe  SUB&IRECtqRS  * 

paragraph#  is 

Required.  see  page 

24. 

R0434 

SUBDIRECTOR  »USe*  is 

optional,  see 

page  26. 

R0435 

SUBDIRECTOR  *testing* 

IS  OPTIONAL. 

see  page  34. 

0436 

AGC4  PNCH 

TN 

N,X5,3 

2 

KCOMMON 

0437 

NA 

KcOMMON 

W 24< 

TRY  36K 

0438 

TS 

z,sc 

HOLD  L0C 

P24T36K 

GO  CHECK  REST  OF  SUBDIRECTOR 

0440 

S,MON  TYPER  P24KT  MsG 

SPRA  . ao 

C , ♦ 1 

print  out  punch  2ak  tape  message 

04A2 

TS 

z,sc 

HOLD  LOC 

read  a req 

go  read  task  subdirectors 

0444 

NeXT  parg 

TS 

z,sc 

z,x5 

get  ReQ  pn 

go  locate  paragraph  in  binary  records 

0446 

TS 

- 

- 

Done  bank 

RETURN  HERE  WHEN  ALL  PARAS  DONE 

04A8 

S»vE  »CAC3 

PaRAG  no 

2 

Bank  num 

determine  bank  number 

0450 

NA 

Done  bank 

C * ♦ 2 

c , ♦ 2 

JUMP  IF  FIRST  TIME  HERE 

0452 

LA 

Bank  num 

Last  bank 

same  bank 

JUMP  IF  Bank  HAS  not  CHANGED 

0454 

TX 

Done  bank 

- 

c,+o 

0455 

Tx 

done  bank 

♦ 1 - 

c.+o 

0456 

TX 

DONE  BANK 

+2  - 

c,+o 

0457 

TN 

2aKSM  Msg 

5 

TITLE  MSG  +5 

insert  title  MESSAGE 

0459 

SwE  *CAC3 

STIK  WIRE 

16 

Z,AUl 

0460 

SWS.C3T5 

N.AUi 

A , 2 , L 

TITLE  MSG  *8 

insert  MODULE  NUMBER  IN  title  MESSAGE 

0462 

SwS , AC07 

Bank  num 

3 , L 

TITLE  MSG  *9 

INSERT  bank  NUMBER  IN  TITLE  MESSAGE 

0464 

TX, SEVEN 

bank  num 

- 

TITLE  MSG  +9 

0465 

NA 

bank  num 

zero 

C , ♦ 3 

0466 

TN 

e mem 

2 

TITLE  MSG  +8 

INSERT  * F - MEMORY  # 

0468 

TN 

title  MsG 

+4  3 

TITLE  MSG  +5 

close  up  titlf  message 

0470 

TS 

W MON  I 1 

FRAME 

GO  TITLE  H 

go  send  tape  para  leading  message 

0472 

TX 

ADR  ReSfT 

- 

frame 

c 

SEND  ADDRFSS  RESET  CoDe 

0474 

TX 

832  PUNCH 

- 

frame 

0475 

LA 

THREE 

bank  num 

banked 

0476 

NA 

TWO 

BANK  NUM 

C , + 2 

0477 

TS,TWO 

Zero 

frame 

banked 

special  code  for  bank  two 

0479 

NA 

one 

bank  num 

c , +2 

0480 

t s , Four 

zfro 

frame 

BANKED 

special  code  foR  bank  one 

0482 

tx 

87  PUNCH 

- 

Frame 

c 

special  code  foR  erasable 

0484 

Tx 

87  PUNCH 

- 

Frame 

c 

0485 

TS 

- 

- 

PCH  BANK 

0486 

banked 

SwS»842Ta5 

bank  num 

3 ,L 

Frame 

c 

SEND  LOW  FOUR  BANK  BITS 

0488 

TX 

87  PUNCH 

- 

frame 

0489 

SwS  * TWO 

bank  num 

3 

frame 

c 

SEND  HIGH  ONE  BANK  BIT 

0491 

pch  Bank 

SWE,CAC3 

Bank  num 

10, L 

kcoMMon 

FULL  BASE  ADDRESS  FoR  THIS  BANK 

0493 

TX 

bank  num 

- 

LAST  BANK 

0494 

TX 

No  adv 

- 

frame 

SET  NO  ADVANCE  CODE 

0496 

same  bank 

Sae ,CAC3 

PaRAG  No 

8 , L 

kcommon  *i 

FULL  BASE  ADDRESS  FoR  THIS  PARAGRAPH 

0498 

chk  Zeros 

LA 

KcOMMoN  +1 

KCOMMON 

send  parg 

JUMP  IF  SIMULATOR  ADDRESS  IN  PARAGRAPH 

0500 

TS 

- 

- 

pch  frame 

c 

OTHERWISE  SEND  OUT  A ZERO  WORD 

0502 

TX 

data  char 

- 

frame 

c 

WITH  ODD  PARITY 

0504 

TX 

data  char 

- 

frame 

c 

0505 

TX 

par  bit 

- 

frame 

c 

0506 

WA 

KCOMMON 

ONE 

kcommon 

0507 

TS 

rfSet  adv 

frame 

chk  zeros 

SET  RESET  ADVANCE  CODE 

0509 

send  parg 

WA 

KCOMMON  *l 

C 256 

KCOMMON  +1 

FULL  BASE  ADDR  OF  NEXT  PARAGRAPH 

0511 

WA 

Z,Xi 

THREE 

Z,R1 

R 1 SET  TO  PARA  FIRST  WORD 

0513 

send  word 

La 

KCOMMON  +1 

KCQMMqN 

NeXT  parg 

JUMP  IF  SIMULATOR  ADDR  oUT  OF  PARA 

u 
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0515 

TS 

- 

0517 

TX 

data  char 

0519 

SS 

N ,R  1 

0520 

TX 

data  char 

0521 

SwS  »BA2T  A7 

N,R1 

0522 

TX 

DATA  CHAR 

0523 

EX 

N,Rl 

052  A 

NA 

kcommon  +2 

0526 

SS 

ONE 

0528 

SwS  *BA5T  A 7 

N »R1 

0529 

S.vS  »BAA 

N*Rl *1 

0530 

wa 

KCOMMON 

0531 

TS 

rfSet  adv 

0533 

done  bank  ts 

w Mon  i i 

0535 

TX 

8 PUNCH 

0537 

SS 

ones 

0538 

TS 

- 

05A0 

P2AT36K  NA 

N,X5,3 

05  A2 

NA 

N,X5,3 

05  AA 

NA 

N,X5,i 

05  A6 

NA 

N.X5.2 

05  A7 

TX 

N.SC.i 

05A9 

BY  PAS  MDN  TS 

- 

0550 

TX 

ONE 

0552 

TS 

ONE  ONLY 

BA2TA7 


A,1 


CAC3 

zero 

ONE 

A, 2 

A»L 

ONE 

FRAME 

frame 

B3A 

W CORF 
W ROPf 
w smjlato 

W SMJLATO 


TRY  MoDUL 


USER'S  OWN  PAGE  NO 
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pch  frame 
frame 

FRAME 

frame 

frame 

frame 

kcommon  *2 
C » ♦ 2 
N,R1 
frame 
frame 
kcommon 
send  word 
OO  TItLe  T 
frame 

SWITCH 
END  P TAPF 

bad  sd 
bad  sd 
bad  SD2 

BAD  SD 

any  mdn 

READY  NOW 
ALLOW  E 

ry  Common 


PA(jE  1 6 

c otherwise  send  agc  word  to  simulator 

IN  FOUR  FRAMES 
C 

C 


jump  if  agc  word  is  not  16  zeroes 

FILL  IN  PARITY  BIT  FOR  "UNUSeD*  AGC  WORD 
C 

set  resft  advance  code 
go  Send  tape  paragraph  jailing  message 
C SEND  STOP  FRAME 

EXIT 

WORD  CORE  IS  REQUIRED 
WORD  ROPE  IS  REQUIRED 
WORD  SIMULATOR  IS  REOUIRED 

"Module  deck  numbers*  sd  not  allowed 

WORDS  from  ERASABLE  are  allowed 
"Module  dfCk  numbers*  sd  not  expected 


L 

P0554 

R0555 

«0556 

R0557 

R0558 

0559 

0560 

0562 

0563 

0565 

0567 

0569 

0571 

0573 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

05B4 

0586 

0587 

0589 

0591 

0592 

0593 

0595 

0597 

0599 

0601 

0603 

0605 

0607 

0609 

0611 

0612 

0614 

0616 

0618 

0619 

0621 

0623 

0625 

0627 

0628 

0629 

0630 

0632 

063<t 

0636 


@yul  system  manufacturing  - agc4  user's  own  page  no.  17  page  17 

*punch  36<  Core  rope  simulator  tape**  subdirfctor  routine  here. 

EACH  BANK  IS  A SEPARATE  PIECE  Of  PAPER 

at  least  one  of  the  subdirectors  ^paragraph*  is  ReQuireo.  see  page  24. 
subdirector  #use*  is  optional,  see  page  26. 
subdirector  ^testing*  is  optional,  see  page  34. 


TRY  36< 

NA 

KcOMMoN 

W 36< 

RAYTH  PQ 

TS 

Z.SC 

HOLD  l OC 

P24T36K 

GO  CHECK  REST  OF  SUBDIRfCTOR 

S.MON  TYPER 

P36KT  MSG 

SPRA  +40 

C.  + l 

TS 

Z.SC 

hold  loc 

Read  a req 

go  read  task  subdirectors 

NEXT  parh 

TS 

Z.SC 

Z.X5 

Get  reo  pn 

go  locate  para  In  binary  records 

TS 

- 

- 

Dne  banks 

RETURN  HERE  WHEN  ALL  PARAS  DONE 

S»vE  *CAC3 

paRag  no 

2 

bank  num 

SET  BANK  NUMBFR 

NA 

dne  banks 

FINISH  B< 

Finish  bk 

JUMP  IF  FIRST  TIME  HeRE 

La 

Bank  num 

last  bank 

sme  bank 

jump  if  Bank  has  not  changed 

WA 

last  bank 

ONE 

last  BANK 

S.vE  .CAC3 

last  bank 

10. L 

kcommon  +i 

TS 

C.  + l 

CH<S  zero 

chks  zero 

LA 

KCOMMON  +1 

KCOMMON 

C.  + l 

TX 

N.SC.l 

- 

CHKS  ZERO 

Lm 

KCOMMON  +1 

KCOMMON 

send  park 

finish  bk 

TX 

DNE  banks 

- 

c,+o 

TX 

dne  BANKS  +1 

- 

c,+o 

TX 

DNE  BANKS  +2 

- 

c.+o 

TN 

24  KSM  MSG 

5 

TITLE  MSG  +5 

insert  title  MESSAGE 

SaE  *CAC3 

STIK  WIRE 

16 

Z.AUl 

SWS.C3T5 

N , AU 1 

A.2.L 

TITLE  MSG  +8 

insert  module  number  in  title  message 

SwS. AC07 

bank  num 

3 . L 

TITLE  MSG  +9 

insert  BANK  NUMBER  in  title  MESSAGE 

TX. SEVEN 

bank  num 

- 

TITLE  MSG  +9 

NA 

Bank  num 

zero 

C.  + 3 

TN 

e mem 

2 

TITLE  MSG  +8 

insert  * E - MEMORY*  in  title  MESSAGE 

TN 

title  MsG  +4 

3 

TITLE  MSG  +5 

close  up  titlf  Message 

TS 

WB3  36K 

FRAME 

Go  title  h 

go  Send  tape  paragraph  leading  message 

La 

three 

Bank  num 

BaN^SeD 

jump  if  Paragraph  in  a fixed  bank 

TX 

FF 

- 

frame 

SET  FIXED  - FIXED  CODE 

S.vS  .B46T 4 7 

bank  num 

l.L 

frame 

INSERT  bank  NUMBER 

NA 

bank  num 

ze«d 

NON  BANK 

jump  if  para  in  fixed  - fixed 

TS 

ERASE36K 

Frame 

NON  BANK 

SET  ERASABLE  code 

BANKSeD 

TS 

FS 

frame 

CHK  PARIT 

c 

SEND  FIXED  - SWlTCHABLE  CODE 

TX 

LOAD  G 

- 

frame 

SWS.B43T47 

bank  num 

1 .L 

frame 

SET  BANK  BITS  IN  CODE 

non  bank 

TS 

- 

- 

CHK  PARIT 

c 

SEND  ONE  FRAME 

S w E «CAC3 

bank  num 

10. L 

< COMMON 

BASE  ADDR  OF  CURRENT  BANK 

TX 

bank  num 

- 

LAST  BANK 

sme  Bank 

SwE  .CAC3 

PaRag  No 

8 ♦ L 

KCOMMON  +1 

BASE  ADDR  OF  CURRENT  PARAGRAPH 

CHKS  ZERO 

LA 

kcommon  +1 

kcommon 

Send  park 

JUMP  IF  SIMUIATOR  ADDR  IN  PARAGRAPH 

TS 

LoADG 

frame 

CHK  PARIT 

c 

otherwise  Send  out  a Zero  word  with 

TS 

LoADG 

frame 

CHK  PARIT 

c 

ODD  PARITY 

TS 

ST0P36K 

FRAME 

CHK  PARIT 

c 

WA 

kcommon 

ONE 

kcommon 

TS 

- 

- 

CHKS  ZERO 

send  park 

WA 

kcommon  +1 

C 256 

KCOMMON  +1 

BASE  ADDR  OF  NEXT  PARAGRAPH 

WA 

Z.Xi 

THREE 

Z.Rl 

r 1 set  to  paragraph  first  word 

snd  word 

LA 

kcommon  + i 

kcommon 

NeXT  parh 

JUMP  IF  SIMULATOR  ADDR  oUT  OF  PARAGRAPH 

EX 

N.Rl 

B43T47 

frame 

OTHERWISE  SEND  AGC  wORD  TO  SlMJLATOR 

L 
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0638 

ts.loadg 

LqADG 

FRAME 

0640 

S,vE  .B43T47 

N,R1 

5 

0641 

ts.loadg 

LoADG 

frame 

0642 

EX 

N.Rl 

CAC3 

0643 

NA 

KCOMMON 

♦2 

zero 

0644 

SS 

ONE 

ONE 

0646 

SwE*B41 

N.Rl 

7.L 

0647 

SWS.B43T47 

N.Rl.l 

10 

0648 

TS.LOADG 

LoADG 

frame 

0649 

WA 

KcOMMON 

ONE 

0650 

TS 

- 

•» 

0651 

DNE 

BANKS 

TS 

ST0P36< 

FRAME 

0653 

TS 

WB3  36K 

FRAME 

0655 

SS 

ones 

B3  A 

0656 

END 

P tape 

NA .FOUR 

TfST  INST 

ZE«0 

0657 

TS 

V 

0658 

Rw.l 

- 

- 

0660 

S.MON  TYPER 

WPAPeR 

ta 

SPRAMR  ♦ 2 A 

0662 

CHK 

PaRIT 

SrtS  .ones 

Frame 

A ,L 

0664 

Ha 

frame 

KCOMMON  +2 

0666 

SwS .ONES 

KcOMMON 

♦2 

2 . L 

0668 

HA 

KcOMMON 

♦2 

KCOMMON  +3 

0669 

SwS. ONES 

KCOMMON 

♦2 

1 

0670 

HA.B42 

KCOMMON 

♦3 

KCOMMON  *2 

0671 

TS 

- 

- 

pAGE  18 
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CHK  PARIT 

c 

IN  3 FRAMFS 

frame 

CHK  PARIT 

c 

KCOMMON  *2 

C.  + 2 

N.Rl 

insert  odd  parity  for  #unused#  words 

frame 
frame 
CHK  PARIT 

c 

KCOMMON 
SND  WORD 
CHK  PARIT 

c 

SEND  STOP  CODf 

GO  TITLE  T 

send  tape  paragraph  tailing  MESSAGE 

switch 

CHELK  DNE 
MON  TAPE 

REWIND  YULPROGS. 

manuf  rtn 

announce  ready  tape.  EXIT. 

KCOMMON  ♦ 2 

c 

FOR  RIGHT  EIGHT  BITS  IN  FRAME.  COMPUTE 

KCOMMON  *2 

c 

ODD  PARITY  (BIT  A2  IS  ALWAYS  INITIALLY 

KCOMMON  4-3 

c 

= 1)  AND  PLACE  IN  BIT  42 

KCOMMON  *2 

c 

KCOMMON  ♦ 3 

c 

frame 

c 

PCH  FRAME 

c 

NOW  GO  PUNCH  THIS  FRAME 

l @yul  system  manufacturing  - agca 


P0673 

PROCEDURE 

TO  PUNCH  AN 

AGCa  MASTfR 

deck 

R067A 

SUBDIRECTOR  "TESTING* 

is  OPTIONAL. 

see  page  3a 

0675 

TRY  MaSTR 

NA 

KCOMMoN 

w master 

0677 

NA 

N *X5 , 3 

w deck 

0679 

NA 

N ,X5 , 3 

ones 

0681 

TS 

- 

- 

0682 

TS 

L DIRECTY 

Z,X5 

0683 

S,MON  typer 

PMSTR  M.sG 

SPRA  +2A 

0<>85 

DO  MASTER 

NA, CHARS 

5,0 

ZeRD 

0687 

ss 

TwO 

CHAR8 

0689 

Swe*  DAT7 

5,5 

D , 5 « L 

0691 

Da,  CAC3 

5,5 

ONE 

0693 

TS 

Z,SC 

Z.AJ1 

069A 

MON  DAW 

reserve 

1 

0695 

ss 

N , SH 

C2T7 

0697 

SwS*  CA57S 

5, A 

A, 3 

0698 

SWS*  C2T3 

5, A 

A. 3 

R0700 

loop  for 

each  ParaGraph  (formerly 

SUBSTRAND)  RE. 

0701 

masdek  ph 

TS 

L OBJC  MSG 

Z.Ri 

0703 

TS 

_ 

0705 

SWS*  AC01 

1,2 

36  * L 

0706 

SWS*  AC02 

1,2 

33  * L 

0707 

SWS*  AC03 

1*2 

30  * L 

0709 

SS 

ph  number 

C 1 T 3 

0711 

S,  PUNCH  CD 

card  -1 

ALPHA 

0713 

SS 

RC162C8 

C1C8 

0715 

TX 

Ph  numBfR 

- 

0717 

SwE*  D12 

1.2 

2 

0718 

WA 

Z.AUl 

L STICKNS 

0719 

SS 

N,AUi 

C5  T 7 

0721 

SWS*  SEVEN 

1.2 

A 

0722 

SS 

1.2 

THREE 

072A 

TN 

N,Rl 

7 

0726 

SS 

w PARAGRA 

C5T8 

0727 

TX 

W PARAGRA 

♦ 1 - 

0729 

s,  punch  cd 

card  -1 

ALPHA 

0731 

WA 

z,xi 

THREE 

0733 

ss 

ALF  370 

Cl  T A 

R0735 

LOOP  FOR 

each  four  cards  02  words) 

0736 

a cards 

ss 

blanks 

CiCa 

0738 

TS 

four 

Z , R 7 

USER'S  OWN  page  NO 
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try  symbl 
bad  sd 
bad  sd 
chk  test 
E SYLT  OK 
C,  + l 
C,*2 
N,X5 
mon  daw 
5,5 

YUL  D2A  ZS 

card 
card  +8 
card  +9 

from  yulprogs. 

Fetch  ss 

end  mastr 
ph  number 

PH  NUMBER 
ph  number 
card  +7 

c,  + l 
card 
card  *9 

Z,AU1 

Z,AUl 

card  *9 
card  +9 
card  +9 
card  *i 
card  *7 
card  +e 
c,  + i 

Z ,X5 
card  +9 


card 

EACH  CARD  +1 


"MASTER"  IS  RfOUiReD. 

"deck"  is  required, 
superfluous  words  are  forbidden. 


type  "PUNCH  MASTER  DECK". 

branch  if  somf  backup  already  wanted. 

CALL  FOR  BACKUP  T ApL  LAyLL  AMENDMENT. 
FETCH  CURRENT  MASTER  D£CK  SERIAL  NUMBER. 

increment  permanently  Stored  serial. 


place  alpha  sfrial  as  card  number, 
place  alpha  date  in  log  card. 


Fetch  a paragraph  if  any  are  left* 
cut  OUT  HfRE  IF  NO  MORE. 


form  alpha  paragraph  number. 

PUT  it  IN  Log  OR  PREClDING  TRAILER. 

punch  log  card  or  preceding  trailer. 

SET  COLUMNS  1 AND  8 FOR  HEADER  CARD. 

paragraph  numreR  For  header  card. 


SET  UP  STICK  NAME  AND  HaLF-ST IC<  LETTER. 

SET  UP  NUMBFR  OF  SENSE  LINE  SET. 

PLACE  OBJECT  MESSAGE  IN  HEADER  CARD. 

PUT  "PARAGRAPH"  IN  HEADfR. 

punch  paragraph  header  card. 

laoo  addrfss  of  first  word  in  paragraph. 

iniiialize  subaddress  in  detail  card. 


SET  COLUMNS  l AND  8 FOR  DETAIL  CARD. 
SET  UP  TO  COUNT  A CARDS. 


L 
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P0740 

LOOP  FOR  EACH  CARD. 

0741 

EACH  CARD  S,  PUNCH  CD 

card  _i 

ALPHA 

0743 

TX 

card  wD2 

- 

R0744 

LOOP  FOR  EACH  WORD. 

0745 

WD  IN  CARD  TX 

EMPTY  WD 

. 

0746 

SSL  * THREE 

N,X5 

27 

0748 

TS 

ZfRO 

KCOMMON 

0750 

TS 

nine 

KCOMMON 

0752 

TS 

EIGHT 

KCOMMON 

0754 

TX 

Four 

- 

0756 

SWStONES 

N,X5 

31 

0757 

LA.B44T48 

KcOMMON  +1 

TWO 

0758 

SS 

ONES 

TWO 

0760 

SWS.ACD2 

KCOMMON 

12 

0762 

SwS » AC03 

N,X5 

1 7 * L 

0763 

SWS*  AC04 

N,X5 

14, L 

0764 

S/JS » AC05 

N,X5 

11*1 

0765 

S a S ♦ AC06 

N,X5 

8 , L 

0766 

SwS*  AC07 

N ,X5 

5 ,L 

0767 

SS 

N,X5,l 

ONE 

0769 

NA 

Z.X4 

Caro  wd i o 

0771  ' 

WA 

card  +9 

OCT  INC 

0772 

SS 

ZFRO 

OcT  00047 

0774 

NA 

Z,R7,l 

ONE 

0776 

SS 

RC1&2C8 

char  8 

0778 

S,  PUNCH  CD 

CARD  -1 

alpha 

0780 

NA 

5,2 

EOR 

0782 

SS 

RC168C8 

Cl  C8 

0784 

TN 

end  PaRaG 

6 

0786 

Mr 

blanks 

3 

0787 

TS,  C 1 T3 

PH  NUMBfR 

CaRO  +4 

R0789 

FINAL  ACTIONS  FOR  AGC4 

MASTER  DFCK. 

0790 

END  MASTR  TN 

W END  DFCK 

3 

0791 

S*  PUNCH  CD 

CARD  -1 

ALPHA 

0793 

CLOSE  PCH  S,  PUNCH  CD 

EOR 

BINARY 

0795 

TS 

- 

m 

0796 

R .v » 1 

- 

- 

0798 

S*  MON  TYPER 

W CARD  OUT 

SPRAMR  +1( 

USER'S  0«/N  PAGE  NO.  20 
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c,*l 

PUNCH  A DfTAII  CaRD  WITH  8 WORDS. 

Z,X4 


N , X A 

C,*l 

C , +4 

C , *6 

C , ♦ 5 

KcoMMoN 

KCOMMON  +1 

C , ♦ 2 

KCOMMON 

N,X4 

N,X4 

N,X4 

N,X4 

N,X4 

N,X4 

N ,X4 , 1 

wd  In  Card 

SET  UP  LEAD  CHAR  CODE  FoR  THIS  AGC  WORD 
BASIC  INSTRUCTION 
INTERPRETIVE  INSTRUCTION  word 
constant  nord 

AGC  WORD  ADDRfSSeS  UNUSeD  FIXED  MEMORY 

OPERAND  locatfu  in  a fixed  bank, 
store  Lead  char  in  char  posit  2 

SPREAD  AGC 4 WORD  OUT  TO  1800  ALPHA  WORD. 
BRANCH  IF  MORF  WoRDS  For  THIS  CARD. 

caro  +9 
CARD  +9 
EACH  CARD 

INcREMFNT  ALFOcTAL  subaddress  by  8, 
BRANCH  IF  NOT  END  OF  4-CARD  GROJP. 

card 

C,*l 

4 CARDS 

DOUBLE-SPACE  AFTER  tACH  4 CARDS* 

PUNCH  EVERY  FOURTH  DETAIL  CARD. 

BRANCH  IF  NOT  LAST  GROUP  IN  PARAGRAPH. 

card 
Caro  +1 
N,AU2, 1 
masoek  PH 

SET  COLUMNS  1 AND  8 FOR  TRAILER  CARD. 

set  up  alpha  text  of  trailer  card, 
give  UNFINISHfD  TRAILER  to  NeXT  paragr. 

card  *5 
CLOSE  PCH 

punch  final  trailer  card. 

c , + 1 

MON  TAPE 

close  out  punching. 

REWIND  YULPROGS. 

MANUF  rtn 

L 

@YUL  SYSTEM 

manufacturing  _ agca 

P0799 

* punch  symbol  table  * 

AND  * PUNCH 

SYMBOL  TABLE 

R0801 

SUBDIRECTOR  "TESTING* 

IS  OPTIONAL. 

SEE  PAGE  3 A • 

0802 

try  symbl 

NA 

KCOMMON 

w symbol 

080A 

NA 

N.X5.3 

W TABLE 

0806 

NA 

ONES 

N,X5 

0808 

S .MON  TYPER 

SYMBL  MSG 

SPRA  +2A 

0809 

go  SYMBOL 

ts 

- 

- 

0811 

TS 

ONES 

SYMS  OR  NO 

0813 

T 5 

L OB JC  MSG 

Z,R1 

0815 

TS 

1,71 

Z,R2 

0817 

TS 

- 

- 

0819 

SS 

ZfRO 

CORE  000 

0821 

TN 

W END  SYMT 

+ 1 2 

0823 

TN 

N.Rl 

7 

082  A 

TX 

Z.R2 

- 

0825 

TX 

ZfRO 

- 

0826 

NA 

Z.RI 

zero 

0828 

S.MON  TYPER 

NO  SYM  MSG 

SPR AMR  +2A 

0829 

DS 

KCOMMON 

ONE 

0831 

LA 

El  EVEN 

Z , R 1 , 1 0 

0832 

TX 

blkaagca 

- 

0833 

S/jE'ONES 

KCOMMON 

16  *L 

083A 

TS 

z,sc 

Z.AJi 

0836 

0837 

RESERVE 
SaS  *C7T8 

1 

N.SH 

12 

0839 

S.vS  »C  1 T2 

N.SH 

12 

08  AO 

S. PUNCH  CD 

cards  -i 

ALPHA 

08  A 2 

TX 

L CARDS 

- 

08AA 

GO  ROUND 

TS 

C256 

Z,R1 

08A6 

TS 

Z.Xl 

Z,X5 

08A7 

TS 

- 

- 

08A9 

TX 

Z.X5.3 

- 

0851 

NEXT  SYMB 

TX 

Bl  KC 1C8 

- 

0852 

SaS  ♦ AC03 

5,1 

2 *L 

085A 

SwS ♦ ACOA 

5,1 

1 

0855 

SwS • AC05 

5,1 

A 

0856 

SWS  * AC06 

5,1 

7 

0857 

SWS  * AC07 

5,1 

10 

0858 

TX 

N,X5,2 

- 

0860 

NA 

z ,ra 

cards  pio 

0862 

S. PUNCH  CD 

Cards  -i 

ALPHA 

086A 

TX 

lcards 

- 

0865 

LA 

Z,R2,2 

TWO 

0867 

NA 

Z,Rl  ,2 

TWO 

0869 

TS 

_ 

- 

0870 

MT 

blanks 

2 

0872 

NA 

z ,ra 

CARDS  PIO 

0873 

S, PUNCH  CD 

cards  -i 

ALPHA 

0875 

sym  done 

NA 

Z,RA 

L Cards 

0877 

TN 

W end  SYMj 

3 

0879 

TX 

L OB JC  MSG 

- 

0880 

TN 

N.Rl 

7 

0881 

S. PUNCH  CD 

cards  -i 

ALPHA 

0883 

LA 

MaSTR  TOO 

ZeRD 
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master  deck  * subdirector  routines  here. 


bad  sd 
bad  sd 

TRY  AND 

C,  + l 

CHK  TEST 

E SYLt  ok 
fetch  ss 
C,*2 

Disaster 

Z,R2 

cards 
cards  *2 
z »r  1 

KCOMMON 

c,*2 

TYP  ABORT 
KCOMMON 

C.-l 

cards  *9 

c,+2 

YUL  D2 A ZS 


WORD  SYMBOL  IS  Re°U1RED 
WORD  TABLF  IS  REQUIRED 
NO  MORE  WORDS  ALLOWED 

LOOK  FOR  # TESTING  * SUBDIReCIOR 

start  search  fqR  first  binary  record 

GET  FIRST  binary  RECORD 

72ND  LOC  HOLDS  2 (NUMBER  OF  SYMBOLS) 

SHOULD  NEVER  CoMe  HERE 

ASSURE  NEGATIVE  SIGN 

SET  UP  SYMBOL  TABLE  OPENING  CARD 


JUMP  IF  SYMBOLS  EXIST  In  SYMBOL  TABLE 

compute  number  OF  CARDS  needed 


CONVERT  number  TO  HOLLERITH  CODE 


cards  *8 

CARDS  +9 

C,  + l 
Z,RA 

fetch  ss 

C » + 2 

DISASTER 

N,RA 

N,RA 

N ,RA 

N »RA 

N,RA 

N,RA,i 

N,RA,l 

C,*3 

C,*l 

Z,RA 

SYM  DONE 
NeXT  SYMB 

go  Round 

N »RA » i 

C.-l 

C,*2 

C.-3 

cards 

z.ri 

cards  +3 

C,  + l 

CLOBe  pch 


insert  in  opening  card 

PUNCH  OPENING  CARD 

RA  SET  TO  CARD  PUNCH  BUFFER 

GO  GET  NEXT  Bl OCK  OF  128  SYMBOLS 

SHOULD  NEVER  GET  HERE 

X5  SET  TO  FIRST  SYMBOL  WORD  PAIR 

PLACE  6 DIGIT  def  INTO  FIRST  WORD  OF  PA  I 


8 CHAR  ALPHA  symbol  INTO  2ND  WORD  OF  PAI 

jump  if  card  not  full 

PUNCH  CURRENT  CARD 

JUMP  IF  AIL  SYMBOLS  PROCESSED 

jump  if  more  symbols  in  current  block 
fill  in  Reminder  of  card  with  blanks 

PUNCH  LAST  CARD  CONTAINING  SYMBOLS 

jump  if  card  partially  loaded 
compose  closing  SYMBOL  table  card 


PUNCH  IT 

JUMP  IF  ONLY  SYMBOL  TABLE  TO  Be  PUNCHED 


@YUL 

system 

MANUFACTURING 

i - AGC4 

USER'S  OWN  PAGE  NO.  22  PA6E 

0685 

TS 

L DIReCtY 

Z,X5 

do  master 

GO  PUNCH  MASTER  DECK  NOW 

0887 

TRY 

and 

NA 

N,X5,3 

W AND 

bad  sd 

words  # and  master  deck*  required 

0889 

NA 

N,X5,3 

W MASTER 

bad  sd 

0890 

NA 

N,X5,3 

W DECK 

bad  sd 

0891 

NA 

N,X5,3 

ONES 

bad  sd 

no  more  words  allowed 

0893 

S.M0N  TYPER 

symas  MSG 

SPRA  +40 

C,  + l 

0894 

TS 

ONE 

mast r too 

Go  SYMBOL 

set  master  deck  also  flag 

L 


@yul  system  manufacturing  - agc4 


P*qE  23 


USER'S  OWN  PAGE  NO.  23 


P0896 

SUBROUTINES  COMMON  TO 

PUNCHING  RAYtHeOM  wiring  jA?e 

and  raythfom  core 

ROPe  TeStfR  TAPf 

0898 

RY  COMMON 

NA 

N.X5.3 

W TAPE 

bad  sd 

"TAPE"  IS  REQUIRED. 

0900 

RYCoMMOP 

NA 

N,X5,3 

ONES 

bad  sd 

superfluous  words  are  Forbidden. 

0902 

TX 

L REQ  LIST 

- 

Z,AUl 

0903 

MT 

ZFRO 

63 

N , AU 1 , 1 

0904 

MT 

ZfRO 

54 

N,AUi,i 

zero  reu  list  of  ii6  wds  ♦ sentinel. 

0906 

TX 

hold  loc 

z,sc 

GO  TO  Read  6 ABSORB  PARAGRAPH  REQUESTS. 

0908 

get  rwt  ss 

TN 

CrWT  MSG 

9 

TITLE  MSG  *1 

0909 

TX 

L AUTH  nAm 

- 

Z,X5 

0910 

NA.C1T4 

5,0 

W NASA 

NO  NASA 

0911 

NeX  rwt  ss 

TS 

z,sc 

Z,x5 

Get  reQ  pn 

go  to  fetch  nfxt  Requested  paragraph. 

0^13 

TS 

- 

- 

END  PTAPe 

NORMAL  END-OF-TASK  PROCfDURE. 

0915 

set  w0ru 

TX 

w crw 

Frame 

begin  (oR  Restart)  punching  substrand. 

0917 

S*E»CAC3 

stikwirf 

16 

Z ,X4 

0918 

S.vS  ,C3T5 

4,0 

A , 2 , L 

TITLE  MSG  +7 

install  name  OF  ouarter-rope. 

0920 

TX 

Z , SC  , 6 

- 

Z,X5 

0921 

ARTS  DK  NO 

RESERVE 

6 

0922 

NA,C5T6 

5,0 

4,0 

C , + 2 

match  module  number 

0924 

TS 

SlIK  WIRE 

Z , A Jl 

C,*2 

0925 

NA 

N.X5.1 

C,-3 

C,-2 

0926 

SwS»C4T7 

5,0 

A, 3 

TITLE  MSG  *5 

0927 

TS 

N.AUi 

TITLE  MSG  +9 

GO  TITLF  H 

INSTALL  WIRE  NUMBER  RANGE. 

0929 

TX 

HOLD  LOC 

- 

z,sc 

0930 

NO  NASA 

S iMON  TYPER 

NASA  MSG 

SPR AMR  +4b 

TYP  ABORT 

R0931 

subroutine 

to  send  out 

leading  and 

tailing  messages 

For  each  paper  tape  paragraph 

0933 

GO  TITLE  H 

TX 

Z , SH 

- 

Z ,R3 

0934- 

na .four 

TEST  INST 

zero 

CHECK  NOW 

0935 

GO  TITLE  J 

TS 

W HEAD 

GO  LAST 

GO  TITLE  M 

0936 

TX 

Z,SC,1 

- 

• 

0937 

GO  TITLE  T 

TX 

Z ,SH 

- 

Z,R3 

0938 

NA.FOUR 

TFST  INST 

zero 

CHECK  END 

0939 

GO  TITLE  K 

TX 

W TAIL 

- 

Go  LAST 

end  this  MESSAGE  WITH  #tail# 

0941 

GO  TITLE  M 

NA , TWO 

TFST  INST 

TWO 

C , + 2 

JUMP  IF  LISTING  NOT  REQUESTED 

0943 

IS 

Z,SC 

KCOMMoN  +5 

print  dat 

IF  SO,  PRINT  1 eADER  AND  TITLE  MESSAGE 

0945 

NA.ONE 

TFST  INST 

zero 

go  Set  esc 

JUMP  IF  TAPE  PUNCHING  INHIBITED 

0947 

TS 

- 

- 

PCH  LEDER 

GO  PUNCH  1 EADFR  VIA  YULPASSo 

0949 

WA 

ZtSC 

THREE 

Z,Si 

0950 

NA 

NtSl 

BLANKS 

C,*2 

CAUSE  SKIP  OF  TITLE  MESSAGE  LEADING  BLAN 

0952 

TS 

Z « S 1 « 1 

- 

C,-i 

0953 

TS 

z « SC  v 1 0 

- 

PCH  TITLE 

GO  PUNCH  TITLF  MESSAGE 

0955 

TITLE  MSG 

ALF  *5 

0956 

AlF  * 5 

0957 

GO  LAST 

A|  F 

0958 

GO  SET  CSC 

TS 

Z,R3 

KCOMMoN  *b 

Ret  go  ok 

go  set  co-sequence  counter  correctly 

L 

P0960 

R0961 

R0962 

R0963 

R0964 

R0966 

R0968 

«0969 

r0971 

R09?3 

R0975 

0976 

0978 

0980 

0982 

0984 

0986 

0988 

0990 

0991 

0992 

0993 

0995 

0997 

0999 

1001 

1002 

1003 

1005 

1007 

1009 

1011 

1013 

1015 

1016 

1018 

1020 

1021 

1023 

1024 

1025 

1026 

1028 

1030 

1032 

1034 

1036 

1037 

1039 

1040 

1041 

1043 

1044 
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SUBROUTINE  TO  READ  AND  ABSORB  SUBDIRECTORS 
S PARAGRAPH  ALL 

S PARAGRAPH  NNN 

S PARAGRAPH  NNN  THRU  (THROUGH)  NNN 

THE  APPEARANCE  OF  ^PARAGRAPH  ALL*  FORBIDS  ANY  SUBSEQUENT  PARAGRAPH  SUBD I REGTORS. 

THE  APPEARANCE  OF  ANY  PARAGRAPH  SuBDIReCTOR  FORBIDS  ANY  SUBSEQUENT  *PARAGRAPH  Al  L#  SUBDIRECTOR. 

NNN  IS  FROM  1 TO  3 OCTAL  DIGITS 

and  is  the  name  of  an  agc*,  paragraph,  a card  specifying  paragraph  n will  leave  in  req  list  +n  a cac  whose  cac2 
points  to  alf  " rhs"  <Rope.  halt,  side  = qjaRteR-RoPe  namf),  and  whose  cac3  Points  to  alf  "www.www,  the 
range  of  wire  numbers  that  specify  the  sense-winding  set*  enter  at  Read  a rfq  with  return  in  Si. 

assorted  complaints  about  Ill-Formed  paragraph  reoUeSt  cards. 


2 LqNG  PHN 

S.MON 

typer 

2 LoNP  MSG 

SPR AMR  +24 

C » *4 

paragraph  number  joq  long, 
paragraph  NUMBER  BlAnK  OR  nOn-OCTAL. 

UnOcT  PHN 

S*mOn 

typer 

UnOPn  MsG 

SPRAMr  +24 

C.  + 3 

illeg  phn 

S ,MON 

TYPER 

ILLPn  MsG 

SPR AMR  +2 a 

C.  + 2 

paragraph  number  has  illegal  value. 

dupli  phn 

S,MON 

typer 

DuPPn  MsG 

SPRAMr  +2a 

C.  + l 

paragraph  number  duplicated. 

TS 

- 

- 

IGN  SUBDR 

always  ignore  iLL-FORMeD  REQUEST. 

read  a req 

TS 

- 

- 

RD  SBDIRC 

fetch  ss  request  if  any  such  are  left. 

TS 

- 

5 

any  goods 

come  here  when  subdirectors  run  out. 

WA 

Z,X6 

OCTAL  20 

Z.X5 

TN 

N.X5.3 

2 

K COMMON 

NA 

KcOMMON 

W PASaGRF 

TRY  TEST 

NA 

KcOMMoN  +1 

W PARaGRF  +1 

Bad  sd 

"PARAGRAPH"  IS  REQUIRED. 

Na 

5.0 

W ALL 

LIST  PARA 

JUMP  IF  NOT  *ALL* 

NA 

5,3 

ONES 

BAD  SD6 

NO  MORE  WORDS  ALLOWED 

TX 

ONE  ONLY 

- 

C.-2 

NO  futhfr  *paraGraph*  sd  allowed 

TS 

C.  + l 

READ  A REQ  +1 

READ  A REQ 

TS 

- 

m 

ALL  PARAS 

all  paras 

NA 

RfQ  LIST  +116 

ONES 

C.  + 2 

*paragr aph  all*  sd  must  be  only 

S.MON 

typer 

PaLL  MSG 

SPRAMR  +56 

TYP  ABORT 

*PARAGR APH*  SD  For  this  task 

TS 

ONES 

SYMS  or  NO 

E SYLl  oK 

start  search  foR  program  first  binary  Rt 

TS 

ONE 

para  deep 

Fetch  ss 

go  get  the  first  binary  record 

TS 

Four 

Z.R3 

C.  + 2 

WORDS  6-9  hold  PARAGRAPH  USE  MARKERS 

TS 

- 

» 

DISASTER 

SHOULD  NEVER  COMe  HERE 

WA 

Z.xi 

FIVE 

Z.R4 

TX 

C 32 

- 

KCOMMON  +i 

32  PARAGRAPH  MARKERS  PER  WORD 

NA 

ALLOWE 

zero 

ALL  RAT 

jump  if  erasable  paragraphs  allowed 

TX 

C 32 

- 

Z.RO 

SwE.ONeS 

N.R4.1 

5.L 

KCOMMON 

BRING  forth  bit  FOR  FIRST  FIXED  PARA 

TS 

Z , RO  , 4 

- 

ALL  DOG 

ALL  RAT 

TX 

C 32 

- 

Z.RO 

TX 

N.R4.1 

- 

KCOMMON 

ALL  CAT 

SWE .ONES 

KCOMMON 

1 ,L 

KCOMMON 

PUT  PARAGRAPH  USE  BIT  INTO  BIT  48 

ALL  DqG 

NA ,ONE 

KCOMMoN 

ONE 

ALL  MICE 

jump  if  paragraph  not  used  by  this  prog 

WD 

KCOMMON  +1 

Z.RO 

parag  no 

determine  paragraph  number 

TS 

Z.SC 

Z.Rl 

st  para  dt 

GO  SET  UP  ITS  DATA 

all  mice 

NA 

Z.RO, l 

ONE 

ALL  CAT 

jump  if  word  of  32  markers  not  finished 

wa 

C 32 

KcOMMoN  +1 

KCOMMON  +l 

NA 

Z.R3.1 

ONE 

ALL  RAT 

jump  if  more  para  marker  words  yet 

TS 

C.  + l 

READY  NOW 

ANY  MDN 

TX 

L REQ  LIST 

- 

REQ  PLACE 

list  para 

TS 

Z.SC 

Z.Rl 

chk  PaRA  N 

check  alpha  validity  of  para  number 

TX 

N.X5.3 

- 

KCOMMON 

NA 

KCOMMON 

W THRU 

C.  + 2 

L 

@YUL 

SYSTEM 

manufacturing  - agc4 

1045 

TS 

- 

- 

1046 

NA 

KcOMMoN 

w THROUGH 

1047 

TX 

PaRAG  No 

- 

1049 

TS 

z,sc 

Z,R1 

1051 

NA 

ONES 

N,X5 

1053 

La 

PaRag  no 

KCOMMON  +3 

1055 

TS 

z,sc 

Z,R1 

1057 

la 

PaRag  no 

KCOMMON  +3 

1059 

WD 

parag  no 

ONE 

1060 

TS 

- 

- 

1061 

CHK 

Reg  PA 

NA 

ONES 

KCOMMON 

1063 

TS 

z,sc 

Z , R 1 

1065 

TS 

- 

- 

1066 

CHK 

para  n 

LA  »CHAR6 

5,2 

zero 

1068 

La.  CHAR6 

4 C6 

5,2 

1070 

LA.CHAR8 

EIGHT 

5,2 

1072 

TS 

zero 

PARAG  NO 

1073 

SwS  * ONES 

parag  no 

3 »L 

1074 

S,vS.  seven 

N,X5 

A, 7 

1076 

SwS « C1T3 

N ,X5 

A,  1 »L 

1077 

NA 

N,X5 

BLANKS 

1078 

TS 

Z.X5.3 

_ 

1079 

ST  1 

PARA  DT 

NA 

Al  LOW  E 

ZERO 

1080 

La,  CHAR8 

PaRAG  No 

THREE 

1082 

La,  CHAR8 

OCT  164 

Parag  no 

1084 

LA 

OCT  164 

parag  no 

1086 

WA 

PARAG  NO 

L REO  LIST 

1087 

NA 

N,R2 

zero 

1089 

SwS , D8 

Parag  no 

14, l 

1091 

SwS, seven 

PaRAG  no 

4 

1093 

ss 

PaRAG  no 

THREE 

1095 

Wa 

N,R2 

ST  W1R  CAC 

1097 

TS 

ONES 

ReQ  list  +1 

1099 

ANY 

goods 

NA 

RpQ  LIST  +116 

zero 

1101 

S ,M0N  TYPER 

NO  GUD  MSG 

SPRAMR  +16 

1103 

ANY 

mdn 

NA 

mdn  mark 

zero 

1105 

S.MON  TYPER 

NO  mdn  MSG 

SPRAMR  +48 

1 106 

READY  NOW 

TS 

l req  list 

red  place 

1108 

TX 

HOLD  LOC 

- 

USER'S  OWN  PAGE  NO.  25 


PAfcE  25 


C.  + 2 

CHK  REG  PA 
KCOMMON  + 3 
CHK  PaRA  N 

bad  sdn 
bad  sd 
st  para  dt 
read  a req 
parag  no 

C.-3 


bad  sd 

St  Para  dt 

read  a 

REQ 

unoCt 

PHN 

2L0NG 

PHN 

unoCt 

PHN 

C , + 2 

parag 

NO 

PARAG 

NO 

N »X5 

C , -3 

N ,R  1 

C , ♦ 2 

ILLEG 

PHN 

ILLEG 

PHN 

ILLEG 

PHN 

Z ,R2 

DUPLl 

PHN 

N,R2 

N ,R2 

N ,R2 

N,R2 

N ,R  1 

C , + 2 

TYP  ABORT 

CHECK 

MDN 

TYP  ABORT 

E SYLT 

OK 

z,sc 

SAVE  LOW  PARAGRAPH  NUMBfR 

CHECK  ALPHA  VALIDITY  OF  PARA  NUMBER 

no  more  words  allowed  in  sd 

jump  if  1st  para  not  cower  than  2nd 

set  up  paragraph  data 

JUMP  IF  ALL  INCLUSIVE  PaRAS  SET  UP 


no  more  words  allowed 
set  up  paragraph  data 

blank  paragraph  number. 

PARAGRAPH  NUMBER  OVER  THREE  DIGITS. 
PARAGRAPH  NUMBER  not  octal. 


CONVERT  A|  PHA-OCTAl  to  BINARY. 


NUMBERS  Xoo  thru  X03  ARf  ILLEGAL. 

NUMbpRS  X64  thru  X77  ARf  ILLEGAL. 

NUMBERS  164  THRU  777  ARf  ILLEGAL. 

reouestfD  paragraph  number  is  djplicate. 
A BITS  DETERMINE  which  ouarteR-RoPe . 

HIGH  1 AND  LOW  2 BUS  DETERMINE  WHICH 
SENSE-WINDING  SET  <1  OF  8). 

add  base  addrfSSes  to  bit  groups, 
show  that  at  i cast  one  request  got  in. 
return  IF  ANY  REQUESTS  were  ABSORBED. 
TYPE  "no  GOOD  REQUESTS",  ABORT. 

JUMP  TO  CHECK  MODULE  DECK  NUMBERS 

MAKE  GROUP  5 I OOK  FOR  DeSIRED  PROGRAM 


L 

PU09 

Rim 
R 1 1 1 2 
R 1 1 1 A 
R 1 1 1 5 
R1116 
R 1 1 X 7 
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ALONG  WIjH  tHe  PARAGRAPH  sUBDlRFtToR  CARDS,  jHp  JoB  MaY  OPTIONALLY  HAVE  A "USE"  SUBD I RtCToR  TO  SPECIFY  A TYpE  OF 
OUTPUT  TAPE.  THE  FIVE  OPTIONS  ARE! 

0 PINK  OILED  paper  tape  ( PR0gRAv\  USES  THIS  If  no  tape  Sp  ECIFIED) 

1 BLAC<  OILFD  PAPFR  TAPE 

2 BLUE  MYLAR  TAPE 

3 GRAY  FIBER  TAPE 

A ALUMINUM  TAPE 


1118 

try 

USE 

NA 

KCOMMqN 

W USE 

1119 

TS 

ONE  ONLY 

C,  + 0 

1121 

NA 

KCOMMON 

W PINK 

1122 

TRY 

OILED 

NA 

N.X5.3 

W OILED 

1123 

NA 

N.X5.3 

W PAPfR 

1124 

TRY 

TAPE 

NA 

N.X5.3 

W TAPf 

1125 

LA 

ONES 

N,X5,3 

1126 

GO 

BAD  SD 

TS 

- 

- 

1127 

TRY 

black 

NA 

KCOMMON 

w black 

1128 

TS.B21T24 

B24K 

switch 

1129 

TRY 

blue 

NA 

KcOMMON 

W BLJe 

1130 

NA 

N.X5.3 

W MYLAR 

1131 

TS.B21T24 

B23K 

SWITCH 

1132 

TRY 

gray 

NA 

KcOMMON 

W GRAY 

1133 

TS 

- 

• 

1134 

Na 

KCOMMON 

w grey 

1135 

NA 

N.X5.3 

W FIBER 

1136 

TS.B21T24 

B23T24K 

SWITCH 

1137 

TRY 

ALUMN 

NA 

KCOMMON 

W ALJMINM 

1138 

NA 

KCOMMON  +1 

BLANKS 

1139 

TS.B21T24 

B22K 

SWITCH 

TRY  MoDUL 

AGC4  PNCH  C ONLY  ONF  SUCH  SUBDIReCtoR  ALLOWED 

TRY  BLACK 
BAD  SD 

bad  sd 
bad  sd 
Read  a req 
bad  sd 

TRY  BLUE 
TRY  OILED 
TRY  GRAY 

bad  sd 

TRY  TAPE 

C»  + 2 
C » *2 

TRY  ALUMN 
BAD  SD 

try  tape 
bad  sd 
bad  sd 

TRY  TAPE 
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Pll40 

ALONG  W I jH 

TNE  PARAGRAPH  sUBDIRfCtoR 

cards,  jhe 

j3b 

WILL  MANDATORILY  HaVe  A "MqDULe  DFCK  NUMBERS"  SUBDIRECtOR. 

R 1 1 42 

the  three 

INTRODUCTORY 

words  arf  followed  by  six 

"WORDS"  EACH 

CONSISTING  OF  SIX  CHARACTERS  ( FOUR  FOR  He  MODULe 

Rll44 

DfCK  number  and  TWO  PQR 

MnDULF  NUMBER 

In  that  oRDeR) 

. ALL  SIX 

characters  must  appear  in  each  w0rd.  rqUiin 

R 1 1 46 

ES  Below  RgAO  THIS  SJBDIRfCTOR  and 

LateR  CHgCK 

A MODULe  DeCK 

number 

: exists  f0r  fach  Module  specified  iimpli 

R 1 1 48 

CItLY)  by 

jHg  ParaGraph 

Cards,  if 

this  card  is  missing  or  a Module 

DOES 

NOT  HaVF  AN  ASSIGNED  MqDULe  deck  number, 

R 1 1 50 

ABORT 

1151 

try  MqDUL 

na 

KcoMMoN 

w module 

Bad  sd 

WORDS  *M0DULe  deck  numbers*  required 

1153 

NA 

N.X5.3 

W DECK 

bad  sd 

1154 

NA 

N.X5.3 

w njmbers 

bad  sd 

1155 

TS 

ONE  ONLY 

C,  + 0 

Load  art 

c 

ONLY  one  such  SUBDIReCtqR  ALLOWED 

1157 

MI 

N.X5.3 

6 

N , X3 , 1 

SAVE  6 WORDS  OF  6 CHARS  EACH 

1159 

TS 

ONE 

mdn  mark 

Read  a rfq 

set  module  deck  numbers  markers 

1161 

CHECK  MDN 

TX 

L REQ  LIST 

- 

Z ,X5 

1162 

NEXT  MDN 

LA 

N.X5.1 

zero 

c,+o 

FIND  ACTIVE  PARAGRAPH 

1164 

WD 

Z,X5 

ONE 

Z ,X5 

1165 

LA 

ONES 

N,X5 

MDN  NUM 

JUMP  IF  NO  MORE 

1167 

SaE*CAC3 

5,0 

16 

Z,X6 

1168 

LOAD  ART 

TX 

L ARTSDK  N 

- 

Z ,X3 

1169 

NA.C5T6 

3,0 

6,0 

C , + 3 

compare  para  module  number  with  module 

1171 

TX.CHAR8 

ONES 

m 

3,0 

numbers  from  ^module  deck  numbers*  sd 

1173 

TS 

Z,X5,i 

- 

NeXT  mdn 

when  MATCHED,  SHOW  MODUl E CALLED  BY  TASK 

1175 

NA 

N,X3,l 

ARTS  DK  NO 

♦ 5 

C,-3 

1176 

S*S  »C7T8 

6,0 

A, 2 

CHK  M MSG 

♦ 4 

ERROR  IF  TASK  CALLS  A PARA  WITHIN  A 

1178 

S,M0N  TYPER 

chk  M MsG 

SPR AMR  +40 

TYP  ABORT 

module  without  an  assigned  deck  number 

1180 

ONE  ONLY 

S.MON  TYPER 

EXCES  MSG 

SPRAMR  +32 

rejec  dir 

1181 

MDN  NUM 

TS 

K6M 

Z , X 5 

LOAD  ART 

c 

1182 

NXT  MDN  CK 

LA 

ONES 

N,x3 

Ready  now 

jump  if  ail  modules  from  *module  deck 

1184 

LA.CHAR8 

ones 

3,0 

mdn  ok 

numbers*  callfd  by  task 

1186 

SWStClT2 

3,0 

A ,4 , L 

X MDN  MSG 

♦ 3 

1187 

S.MON  TYPER 

X MDN  Msg 

SPRAMR  +48 

TYP  ABORT 

error  IF  ONE  NOT  So 

1189 

MDN  OK 

LA 

Z.X5.1 

ONE 

ready  NOW 

1190 

TS 

Z.X3.1 

- 

NXT  MDN  CK 

l @ruL  system  manufacturing  _ agca  user's  own  page  no.  2a  page  2a 


P1191 

SUBROUTINE 

to  deliver 

the  next  requested  paragraph 

(as  Determined 

BY 

Read  a reQ>.  for  each  requested  bjt  absent 

R 1193 

PARAGRAPH, 

a complaint 

is  typed. 

IF 

all  Requested 

PARAGRAPHS  ARE 

absent,  »no  good  ReuUests"  is  typed  and  the 

R 1 1 9 5 

task  aborts,  normal  Return  is  to 

L*2 

WITH  PARAGRAPH  AVAILABLE  at 

Xl. 

AND  IN  StIK  wire  THE  CaC  Set  UP  BY  READ  A 

R 1 1 97 

reQ.  END-i 

of-file  Return  is  to  l*i 

• 

enter  with  Return  <l+u  in  xs 

. 

,1198 

get  par  cm 

la 

N.Aui  ,1 

zero 

c.+o 

c 

find  next  active  paragraph 

1200 

TX 

Z.AUl 

- 

REQ  PLACE 

c 

1201 

WD 

Z.AUI 

one 

Z.AUI 

c 

1202 

la 

ONES 

N ♦ A J 1 

C , ♦ 3 

c 

1203 

WD 

Z.AUi 

l req  list 

parag  no 

c 

determine  its  paragraph  number 

1205 

TX 

N.AUl 

- 

STIK  WIRE 

1206 

las  pn  dun 

TS 

- 

• 

any  goods  + i 

ex  11  IF  NONE 

1208 

get  ReQ  pn 

TS 

RfQ  PLACE 

Z.AJl 

get  par  cm 

c 

1209 

fetch  req 

TS 

- 

» 

Fetch  ss 

get  paragraph  if  IT  eMsts. 

1211 

TS 

- 

- 

Fetch  par 

stop  trying  if  paragraphs  run  out. 

1213 

TX 

ZfRO 

- 

para  deep 

121A 

now  CHECK 

la 

1,2 

parag  no 

phn  match 

BRANCH  IF  CoUl D BE  DESIRED  PH. 

1216 

ph  not  her 

S-vS  * AC03 

parag  no 

2 A * L 

PnHER  MSG  +1 

1217 

S*S«  ACOA 

PARAG  No 

21*  L 

PnHER  MSG  +1 

1218 

S.vS»  AC05 

parag  no 

18*  L 

PNHtR  MSG  +1 

1219 

S,MON  TYPER 

PnHER  MSG 

SPRA  +2A 

C,*l 

type  "ParaGraph  nnn  not  here",  try  next. 

1221 

TS 

RfQ  place 

Z.AJl 

get  par  cm 

c 

1222 

NOTHERS 

TS 

- 

- 

NOW  CHECK 

1223 

phn  match 

NA 

1.2 

PaRAG  no 

Fetch  req 

branch  to  bypass  unwantfD  paragraph. 

1225 

TS 

c,*l 

las  Pn  dun 

5,1 

SET  UP  END-OF-FILE  EXIT,  DO  NORMAL  EXIT. 

1227 

TS 

- 

- 

N.X5 

JUMP  IF  1ST  BINARY  RECORD  NOT  YET  FOUND 

1228 

fetch  par 

Na 

para  defP 

zero 

Fetch  req 

1230 

TS 

C,+0 

not  hers 

phnother 
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P 1 23 1 "PUNCH  RAYTHEON  WIRING  TAPE*  SUBDlRECTOR  SJBROJT I NE  HERE. 

R 1 232  EACH  SUBSTRAnD  IS  A SEPARATE  PIfGe  OF  PaPeR 

RI233  AT  LEAST  ONE  OF  THE  SUBDIRECTORS  ^PARAGRAPH#  IS  REQUIRED.  SEE  PAGE  2A. 

R123A  SUBDIRECTOR  ^MODULE  DECK  NUMBERS*  IS  REQUIRED.  See  PAGE  27. 

R1235  SUBDIRECTOR  "USE*  IS  OP1 IoNAL.  SEE  PAGE  26. 


R1236 

SUBDIRECTOR  "TESTING* 

IS  OPTIONAL. 

see  page  3a. 

1237 

ray^h  pu 

NA 

KcoMMoN 

W RAtHeON 

TRY  MASjR 

BR  IF  WD  2 NOT  "CORE"  OR  "RAYTHEON". 

1239 

NA 

KcOMMoN  +1 

BLAN<S 

bad  sd 

"RAYTHEON"  IS  REQUIRED  HERE* 

1 2 A 1 

NA 

N.X5 

W WIRING 

Rayth  tt 

"WIRING"  IS  RFQUIRED. 

12A3 

TX 

Z.X5.B 

- 

- 

12  AA 

TS 

Z,SC 

hold  i oc 

ry  Common 

GO  QUIZ  RfSt  OF  SUBDlRECTOR 

1 2 A6 

S ,MON  TYPER 

PrWTP  MSG 

SPRA  +32 

C.  + l 

12A7 

TS 

z,sc 

hold  loc 

Read  a red 

read  other  task  SUBDIRECTORS 

12A9 

TS 

z.sc 

HOLD  LOC 

get  rwt  ss 

1250 

TX 

THIRTY 

- 

Z ,R3 

1251 

TX 

FFED  IT7 

m 

frame 

c 

1252 

NA 

Z.R3.1 

ONE 

C.-l 

1253 

WA 

Z.xi 

THREE 

Z,R2 

INITIAL  ADDRESS  OF  PARAGRAPH. 

1255 

WD 

L RSPpX  P8 

ElOHT 

Z.R3 

INIT.  ADDr.  For  list  of  SUBStRAND  SPECS. 

1257 

REARAnGE 

TS 

Z.R2.1 

Z » A J l 

C.  + l 

c 

the  biseQuencf  bit  does  some  swinging 

1259 

TS 

N.R3.1 

Z.AJ2 

para  to  ss 

c 

things  in  herf.  hint:  what  gets  done 

1261 

NA 

Z,R3 

L RSPfX  P8 

C.-2 

twice  IN  AN  OBSCURE  WAY.... 

1263 

TS 

R SPECS  *1 

Z.Xa 

C,*2 

initial  address  of  SUBSTRAND, 

1265 

PARA  TO  SS 

MT 

N , AU l , A 

32 

N.AU2.1 

convert  paragraph  tu  substrand. 

R 1 267 

"PROCEDURE 

TO  establish 

X AND  z coordinates  of  each 

CORE* 

1268 

Ts 

7 D2 

frame 

C . + 2 

1269 

Z COORD 

WO 

frame 

1 D2 

frame 

MOVE  UP  ONE  ROW. 

1271 

TX 

C32 

- 

Z.R3 

1272 

SS 

Frame 

02 

N.XA.l 

LABEL  CORPS  with  Z-COORDINATES. 

127A 

NA 

Z.R3.I 

ONE 

c.-i 

1275 

SM 

Frame 

CAC3 

N.XA.l 

SHOW  BYPASS  HOLE  AND  Do  SAME  FOR  IT. 

1277 

NA 

frame 

zero 

Z COORD 

1278 

DS. 

DFC  0033 

1 DA 

frame 

1279 

TS 

R SPECS  "1 

Z.XA 

C , ♦ 2 

1280 

X COORD 

DS 

frame 

l da 

frame 

MOVE  RIGHT  1 column. 

1282 

DS.  D3DA 

DFC  0033 

frame 

A, 231 

1283 

SS 

frame 

D3DA 

A, 198 

128A 

SS 

A, 231 

D3DA 

A, 165 

1285 

SS 

frame 

D3DA 

A, 132 

1286 

SS 

A, 165 

D3DA 

A, 99 

1287 

SS 

frame 

D3DA 

A, 66 

1288 

SS 

A, 99 

D3DA 

A, 33 

1289 

SS 

frame 

D3DA 

N.XA.l 

LABEL  CORFS  6 BYPASSES  W / X-COORDINATES. 

1291 

NN 

frame 

ZeRD 

X COORD 

R 1 292 

INITIALIZE 

ClDED  PUNCHING  FOR  SUBSTRAND. 

1293 

SvS. SEVEN 

title  MSG  + 7 

A, 3 

SPEC  FRAM 

SET  A/B  BIT,  ZERO  NEEDLF-HOLDER  BIT. 

1295 

SM 

SPEC  FRaM 

NINE 

SPEC  FRAM 

set  begin  ss  and  Begin  wire  bits. 

1297 

S*E  .ONES 

title  MSG  *9 

A.l.L 

WlRtNO 

1298 

TS 

L WIRE  NO 

Z.Xa 

mon  A2D 

convert  first  wire  NUMBER  to  DECIMAL. 

1300 

MON  DECNO 

RtSERVE 

1 

1301 

TX 

MoN  DFCNO 

- 

WIRE  NO 

1302 

TX 

ONE 

- 

bit  mask 

WORK  FROM  parity  BIT  TOWARD  SIGN  BIT. 

l @yul  system  manufacturing  - agc4 
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INITIALIZATION  FOR  EACH 

WIRE. 

1305 

RAYt  wIRe 

TS 

SPEC  FRaM 

FRAME 

1307. 

SS 

ZERO 

nine 

1309 

HA 

SPEC  FRAM 

four 

1311 

SwE  * D12 

WIRE  NO 

D , 2 

1312 

BT 

FRAME 

10 

1313 

SM 

Frame 

WIR  HUNDS 

1315 

S.ME*  D12 

WIRE  NO 

D.l 

1316 

WA 

Common 

frame 

1317 

BT 

Common 

10 

1318 

SM 

frame 

WIR  TFNS 

1320 

EX 

wire  no 

D12 

1321 

WA 

common 

frame 

1322 

SM 

frame 

WIR  JnITS 

1324 

TX 

X TENS 

- 

1325 

TX 

X UNITS 

m 

1326 

TX 

Z UNITS 

- 

1328 

WD 

COMMON 

ONE 

1329 

SWE*  SEVEN 

common 

1 

1331 

bt 

COMMON 

4 

1332 

WA 

Common 

TWO 

1334 

WA 

r SPECS  +1 

common 

1336 

TX 

Z.X5 

- 

R 1 337 

PROCEDURE 

FOR  EACH  CORE 

• 

1338 

TEST  BIT 

NA,  BIT  MASK 

5,0 

ZERO 

1340 

TS 

Z.X5.1 

- 

1341 

HA 

SPEC  FRAM 

four 

1343 

Tx 

spec  fRam 

- 

1345 

SWE.  D12 

N.X5 

D , 9 

1346 

SM 

frame 

X TENS 

1348 

SwE*  D12 

N.X5 

D.B 

1349 

SM 

frame 

X UNITS 

1351 

SWE*  D12 

N.X5 

D.10 

1352 

SM 

frame 

Z UNITS 

1354 

Na 

Z.X5.1 

L END  RASS 

1356 

TS 

R SPECS  +1 

Z.X5 

1358 

END  WIR  CH 

NA 

Z.X5 

Common 

USER'S  OWN  PAGE  no.  30 


PAGE  30 


PCH  FRAME 

spec  fRam 

SPEC  FRAM 

frame 

common 

frame 

frame 

common 

common 

frame 

frame 

common 

frame 

frame 

frame 

frame 

common 

Common 

common 

common 

z.xs 

common 


C SPECIAL  CHARACTER  FoR  BeGIN-WIRE  BLOCK. 
RESET  BEG1N-SS  AmD  BEGIN-wIRE  BITS. 
PHONY  NeEDLe-HOLDER  COMPLEMENT. 


C HUNDREDS  DIGIT  OF  WIRE  NUMBER. 


C TENS  DIGIT  OF  WIRE  NUMBeR. 


C UNITS  DIGIT  OF  WIRE  NUMBER. 

C 

C 

C DUMMY  POSITION  TO  00.0. 

FIND  WHICH  SLOT  WIRE  COMES  FROM. 

find  core  nearest  that  slot. 

...AND  START  THERE. 


C,  + 2 BRANCH  TO  THREAD  THIS  CORE  NOW. 

END  WIR  CH 


SPEC  FRAM 

FRAME 

frame 

frame 

frame 

frame 

frame 

frame 

end  WIR  CH 


COMPLEMENT  NEFDLE-HQLDER  bit. 

C SPECIAL  CHARACTER  FOR  CORE  THREADING. 

C TENS  DIGIT  OF  X COORDINATE. 

C UNITS  DIGIT  OF  X COORDINATE. 

C Z COORDINATE. 

BRANCH  IF  NOT  AT  UPPeR  LEFT  BYPASS  HOLE. 


TEST  BIT 


go  back  and  pic*  up  rest  of  bottom  row. 


Test  b!t 


branch  if  More  CqRes  along  wire. 


l gYUL  system  manufacturing  - agca 

P 1 360  PROCEDURE  TO  FINISH  OFF  A WIRF. 


1361 

WA 

bit  mask 

Bit  mask 

1363 

SwS* 

ONE 

bit  mask 

16 

1365 

SM 

spec  fram 

EIGHT 

1367 

TX 

spec  FRaM 

- 

1369 

SwE  * 

D12 

WIRE  NO 

D » 2 

1370 

SM 

frame 

W 1 R HUNDS 

1371 

SwE  * 

D12 

WIRE  NO 

Dil 

1372 

SM 

frame 

WIR  TENS 

1373 

EX 

WIRE  NO 

D1 2 

137A 

SM 

frame 

WIR  UNITS 

1376 

Da 

wire  no 

ONE 

1378 

TX 

X TENS 

- 

1379 

Tx 

X UNITS 

m 

1380 

TX 

Z UNITS 

- 

1382 

la 

Bit  mask 

CaC  3 

R 1 38A 

PROCEDURE 

TO  FINISH 

OFF  A SUBSTRAnD. 

1385 

TX 

THIRTY 

1386 

TX 

FfED  1T7 

- 

1387 

NA 

Z *R3 « 1 

ONE 

1388 

FINISH  u 

TS 

W CRW 

FRAME 

1390 

SS 

ones 

B3A 

1391 

TS 

- 

- 

USER'S  OWN  PAGE  NO 


31 


PaGe  3 l 


bit  mask 

MOVE  TO  NfXt  wire. 

SPEC  FRAM 

Set  OR  RESET  FND-OF-SUBSTRAND  bit. 

SPEG  FRAM 

SET  END-WIRE  BIT. 

Frame 

c 

SPECIAL  CHARACTER  FqR  END-WIRE  SLOCK, 

frame 

frame 

c 

frame 

frame 

c 

frame 

frame 

c 

REPEAT  WIRE  NUMBER, 

wire  NO 

...then  increment  same. 

frame 

c 

frame 

c 

frame 

c 

DUMMY  POSITION  TO  00*0. 

RaYT  WIRF 

branch  if  mqrf  wires  in  substrand. 

Z*R3 

frame 

c.-i 

GO  TITLE  T 
switch 
nex  Rwt  ss 


c 


PUNCH  PROGRAM  I.D.  AGAIN. 

GO  See  if  ANOTHER  SUBSTRAND  IS  wanted. 
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P 1 393 

"PUNCH  RAYTHEON  TESTER 

TAPE"  sUBDiRECTOr  ROUTINE 

here. 

R 1 39A 

EACH  SUBSTRAND  IS  A SEPARATE  PIfCe 

OF  PAPER. 

R 1 395 

at  least 

ONE  OF  the  SUBDIreCtoRS  * 

paragraph*  is 

Required,  see  page 

2A. 

R 1 396 

SUBDIRECTOR  aMODULE  DECK  NUMBFRS* 

IS  REQUIRED. 

see  page  27. 

R 1 397 

SUBDIRECTOR  *USE*  IS  OPTIONAL.  SEE 

PAGE  26. 

R 1 398 

' SUBDIRECTOR  "TESTING" 

IS  OPTIONAL. 

SEE  PAGf  3 A. 

1399 

rayth  tt 

NA 

N.X5.3 

W TESTER 

bad  sd 

1 AOO 

SwS*BlAT2A 

L ARTSDK  N 

8 ,L 

SET  WORD 

1 AO  1 

TS 

Z,SC 

hold  loc 

ry  Common 

1 A03 

S ,MON  TYPER 

PRTTP  MSG 

SPRA  +32 

c.  + i 

1 AOA 

TS 

z,sc 

hold  loc 

read  a reQ 

1 A06 

TS 

z.sc 

HOLD  LOC 

get  rwt  ss 

1 A07 

TX 

StIK  wire 

- 

Z,X5 

1 A09 

SSL. THREE 

paRag  no 

2 

c,  + i 

1 A 1 1 

TS 

CORE  OOO 

Z.R2 

C , ♦ A 

I A12 

TS 

CORE  AOO 

Z.R2 

C,*3 

1A13 

TS 

core  i ooo 

Z.R2 

C , + 2 

1A1A 

TX 

core  iaoo 

- 

Z.R2 

1 A 1 5 

TX 

ONE 

m 

BIT  MASK 

1A16 

WA 

Z.xi 

THREE 

first  wd 

1A17 

WA 

first  wd 

C 255 

E 256  LOC 

1 A 1 8 

TX 

5,8 

- 

Z.R3 

IA19 

NEW  WIRE 

TX 

First  wd 

- 

Z.RI 

1 A20 

TS 

stop 

frame 

PCH  FRAME 

C 

1 A22 

TX 

RFSET 

frame 

C 

1 A23 

EX 

Z.R3 

CHAR8 

frame 

1 A2A 

SM 

frame 

sense  a 

frame 

C 

1 A26 

SwE .ONE 

Z.R3.1 

A , 1 

frame 

1 A27 

SM' 

frame 

sense  b 

frame 

c 

1 A28 

new  core 

EX 

Z.R2 

BaATAB 

frame 

1 A30 

SM 

frame 

CORE  NO  A 

frame 

c 

1 A3  1 

SwE  .BAATA8 

Z.R2.I 

5 

frame 

1 A32 

SM 

frame 

CORE  NO  B 

frame 

c 

1 A33 

TX 

N.Rl , 1 

- 

in  or  not 

1 A3A 

na.bitmas< 

IN  OR  NOT 

Zero 

THRU 

1 A36 

TX 

zero 

- 

FRAME 

c 

1 A38 

more 

LA 

Z.Rl 

E 256  LOC 

New  core 

1 AAO 

WA 

BIT  MASK 

BIT  MASK 

bit  mask 

1 A A 1 

WD 

Z.R2 

C 256 

Z.R2 

1AA2 

LA 

BIT  MASK 

CAC  3 

new  wire 

1 AAA 

TX 

STOP 

- 

frame 

c 

1 A A6 

TS.B1AT2A 

SFT  WORD 

Finish  u 

finish  u 

1 AA7 

THRU 

TX 

ONE 

- 

frame 

c 

1 AA9 

TS 

»> 

- 

more 

USER'S  OwlN  PAGE  NO.  32  PaGe  *Z 


GO  CHECK  REMAINDER  OF  SUBDIReCTOR 

read  task  SUBSEQUENT  SUBDIReCTORS 

X5  HOLDS  I.0C  OF  WIRE  NUMBER 

SET  UP  BASE  ADDR  OF  PARa  WITHIN  BANK 


SEND  STOP  CoDF 

SEND  WIRE  NUMBER  IN  TWO  FRAMES 

SEND  CORE  NUMBER  WITHIN  BANK  IN  2 FRAMES 

JUMP  IF  WIRF  SHOULD  THREAD  CORE 

send  zero  frame  if  not 

jump  if  para  not  done  with  this  wire 

JUMP  IF  16  WIRES  NOT  DONE 
SEND  STOP  CODF 

SEND  FRAMf  = 1 IF  CORE  THREADED 
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P 1450  PROCEDURE  TO  PUNCH  CARL-S/TAPf  IN  CORRELATION  WITH  *TESTInG*  SUBDIRECTORY  IF  ANY 


1452 

PRINT  OAT 

S.PHl  PRINT 

print  buf 

print  previous  line,  if  any 

1454 

TS 

HOT  DOG 

ZfRS 

blank  out 

C 

blank  out  print  buffer 

1456 

TX 

frame 

- 

print  buf  *i 

TASK  CODE  word  ONTO  LINF 

1458 

TN 

title  MsG 

11 

print  buf  +4 

same  for  title  Message 

1460 

TS 

- 

- 

go  boy 

1461 

JUST  PUNC 

NA,  ONE 

TfST  INST 

zERo 

Ret  go 

JUMP  IF  PUNCHING  inhibited 

1463 

FRAME  PUN 

TS 

_ 

• 

0,75 

c 

GO  PUNCH  one  frame 

1465 

TX 

KcOMMON  *5 

- 

z.sc 

CO-SEQUENCE  LFFT  set  to  0,75 

1467 

RET  GO 

NA .FOUR 

TFST  INST 

ZERO 

CHECK  IT 

1468 

RET  GO  OK 

TX 

Z.SC 

- 

z.csc 

c 

1469 

TX 

KcOMMON  +5 

- 

z.sc 

co-sequence  lfft  set  to  pch  frame 

1471 

pch  frame 

TS 

z.sc 

KCOMMON 

♦ 5 

C,*l 

1472 

NA  * TWO 

TF$T  INST 

TWO 

JUST  PUNC 

JUMP  IF  LISTING  not  REQUESTED 

1474 

TX 

KCOMMON  +9 

- 

Z.R6 

1475 

TX 

N.SC.l 

- 

N.RP 

1476 

OCT 

1515151515000000 

1477 

S.<jS*AC06 

Frame 

6 , L 

N ,R6 

PUT  CURRENT  FRAME  INTO  PRINT  LINE 

1479 

SwS « AC07 

Frame 

3 »L 

N.R6 

1480 

SS 

frame 

SEVEN 

N.R6.1 

1481 

NA .ONE 

TfST  INST 

ze«d 

C.*2 

JUMP  IF  PUNCHING  INHIBITED 

1483 

TS 

- 

- 

frame  pun 

c 

1484 

LA 

Z,R6 

N.SC.l 

Wow  wee 

JUMP  IF  PRINT  LINE  NOT  FULL 

I486 

SPEC 

print  buf  *14 

1487 

GO  BOY 

NA  .ONE 

TFST  INST 

zero 

C , *2 

1488 

TX 

w punched 

w 

PRINT  BUF  +15 

0 

1489 

S.PHl  PRINT 

print  buf 

1490 

TX 

N.SC.l 

- 

Z.R6 

1491 

HOT  DOG 

SPEC 

print  buf  *i 

J 

1492 

BLANK  OUT 

MT 

blanks 

15 

N.R6.1 

1493 

TS 

C.-2 

KCOMMON 

♦ 9 

Ret  go 

save  line  pointer 

1495 

WOW  wee 

TS 

Z ,R6 

KCOMMON 

♦ 9 

ret  go 

0 

1496 

print  buf 

OCT 

0 1 02 

1497 

Al  F « 5 

1498 

ALF  ♦ 5 

J 

1499 

ALF  *5 

1500 

PUNCH  CD 

SIMULATE 

1501 

TS 

- 

m 

C»*l 

1502 

EBA 

Z.AUl 

zero 

KCOMMON  +8 

1503 

NA , TWO 

TfST  INST 

TWO 

NO  CD  LIST 

JUMP  IF  LISTING  NOT  REQUESTED 

1505 

EBA 

KcOMMON  *8 

Zero 

Z.X  4 

J 

1506 

TX 

Z.AU2 

- 

KCOMMON  +9 

1507 

TN 

4,1 

10 

PRINT  BUF  +1 

1508 

TX 

blanks 

m 

PRINT  BUF  *15 

1509 

NA .ONE 

TFST  INST 

zero 

C , *2 

1510 

TX 

w punched 

- 

PRINT  BUF  *15 

1511 

S.PHI  PRINT 

print  bijf 

PRINT  LINF  = ONE  CARD 

1513 

TX 

KcOMMON  +9 

- 

Z.AU2 

1514 

NO  CD  LIST 

TX 

punch  cd 

- 

0,87 

1515 

EBA 

KcOMMON  +8 

zero 

Z.AUl 

J 

1516 

NA  .ONE 

TfST  INST 

zero 

C , *2 

jump  if  punching  inhibited 

1518 

TS 

- 

_ 

0,88 

c 

go  punch  card  via  yulpasso 

1520 

TS 

- 

- 

N.AU2 

J 

J 
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p 1 52 1 

procedure 

TO  SET  UP  ReuUeST  FoR  EIThEr  NO  PUNCHlN 

1523 

TRY  TEST 

NA 

kcommon 

W TE5TING 

1524 

TS 

z,sc 

Z.Rl 

1525 

TS 

- 

- 

1526 

CHK  TEST 

TS 

X 

to 

rsi 

Z.Rl 

1528 

TS 

- 

- 

1530 

WA 

Z.X6 

OCTAL  20 

1532 

NA 

N.X5.3 

w testing 

1534 

UP  WORD 

TX 

N.X5.3 

- 

1535 

NA 

kcommon 

W NOPUNCH 

1536 

TS.ONE 

One 

TEST  INST 

1538 

NA 

KCOMMON 

W LIST 

1539 

TS . TWO 

TWO 

TEST  INST 

1541 

NA 

kcommon 

W CHECK 

1542 

TS  .FOUR 

ones 

TEST  INST 

1543 

NA 

ONES 

KCOMMON 

1 544 

TS 

- 

- 

1545 

PAP  ABORT 

Dump 

1546 

coredump, 0 

2048 

6143 

1547 

TS 

- 

- 

1548 

CHECK  NOW 

NA 

Check 

ON 

Zero 

1549 

get  readr 

S .MON  TYPER 

check 

DOT 

SPRA  +40 

1550 

STOP 

1551 

TS 

one 

Z.AJ1 

1552 

TS 

zfro 

FRAME  POW 

1553 

WA 

frame 

NUM 

ONE 

1554 

La 

frame 

NUM 

THREE 

1555 

TS 

- 

- 

1556 

GET  READS 

S.MS.B1T6 

7,174 

18*L 

1557 

TX.B1T6 

CHECK 

RDA 

- 

1558 

TX.B1T6 

check 

rda 

- 

1559 

TX.B1T6 

check 

RDA 

- 

1560 

TX 

ones 

- 

1561 

CHECK  DOG 

TS 

zero 

Frame  POW 

1562 

SWS  *ONES 

chk  h 

BUF 

8.L 

1563 

SwStONES 

ChK  h 

BUF 

♦ 1 

8.L 

1564 

SWS  »ONES 

chk  h 

BUF 

+ 2 

8 ,L 

1565 

SWS  *ONES 

chk  h 

BUF 

♦ 3 

8 , L 

1566 

SwS  *ONES 

chk  h 

BUF 

♦ 4 

8 ,L 

1567 

Sa'S*0NES 

ChK  h 

BIJF 

+ 5 

8 ,L 

1568 

TX.B41T48 

Chk  h 

BUF 

+ 1 

- 

1569 

TX.B41T48 

ChK  H 

BUF 

+ 2 

- 

1570 

TX.B41T48 

chk  H 

BUF 

+ 3 

- 

1571 

TX.B41T48 

chk  h 

BUF 

♦ 4 

m- 

1572 

TX.B41T48 

ChK  h 

BUF 

+ 5 

m 

1573 

TX.B41T48 

check 

frm 

♦ 20 

- 

1574 

NA 

Chk  h 

BUF 

ChK  hfad 

1575 

NA 

Chk  H 

BUF 

♦ l 

Chk  hfad  +1 

1576 

NA 

ChK  h 

BUF 

♦ 2 

Chk  head  +2 

1577 

NA 

Chk  h 

BUF 

♦ 3 

ChK  HFAD  +3 

1578 

NA 

ChK  h 

BUF 

+ 4 

chk  hfad  +4 

1579 

NA 

Chk  h 

BUF 

+ 5 

chk  HFAD  +5 

1580 

TS 

- 

- 

USER'S  OWN  PAGE  NO.  34  pAQE  34 

AND/OR  LISTING  OF  CURReNj  TASK  VIA  *TEStING*  SUBDIReCTOR. 


TRY  USE 
UP  WORD 
READ  A RED 
RD  SBD IRC 
N.R1 
Z.X5 

Bad  sd 
kcommon 

C.  + 2 

up  word 
c.+z 
UP  WORD 
C.  + 2 
UPWORD 
BAD  SD 
N,R1 


END  P TAPF 

check  dog 

C.  + l 

7.111 
get  reads 
frame  num 
get  readr 

PAP  ABORT 


CHECK 

RDA 

CHECK 

RDB 

CHECK 

RDC 

CHECK 

RDD 

CHECK 

ON 

CHECK 

RDS 

CHK  H 

BUF 

chk  h 

BUF 

+ 1 

chk  h 

BUF 

+2 

chk  h 

BUF 

♦ 3 

chk  h 

BUF 

♦ 4 

chk  h 

BUF 

♦ 5 

chk  h 

BUF 

chk  h 

BUF 

+ 1 

chk  h 

BUF 

♦ 2 

chk  h 

BUF 

+ 3 

chk  h 

BUF 

♦ 4 

chk  h 

BUF 

♦ 5 

check 

DOG 

check 

DOG 

check 

DOG 

check 

DOG 

check 

DOG 

check 

DOG 

CHECK 

RDS 

c 

c 

c 


c 


c 


c 


is  next  card  a subdirector 

NO 

YES 

WORD  TESTING  IS  REQUIRED 


SET  INHIBIT  PUNCH  SWITCH 
SET  LISTING  RfQUeSteD  switch 


0 


% 
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1581 

LA 

CHECK 

FrM 

♦ 15 

zero 

C.-l 

1582 

TS 

- 

- 

CHECK 

. RDS 

1583 

LA 

CHECK 

FrM 

+ 11 

zero 

C.-l 

1584 

TS 

W HEAD 

check 

BUF 

+ U 

CHECK 

COM 

1585 

TS 

PONE 

frame 

NUM 

GO  TITLE 

J 

1586 

CHECK. 

END 

TS 

ZfRo 

frame 

NUM 

CHECK 

RDS 

1587 

TS 

W TAIL 

CHECK 

BUF 

♦U 

CHECK 

COM 

1588 

TS 

- 

- 

GO  TITLE  K 

1589 

CHECK 

IT 

TS 

- 

- 

CHECK 

RDS 

1590 

LA 

frame 

NUM 

Zero 

RET  GC 

1 OK 

1591 

LA 

sfVen 

frame 

POW 

CHECK 

EOK 

1592 

NA.B41T48 

CHECK 

FRM 

+ 10 

Frame 

CHECK 

HOT 

1593 

TX 

ZfRO 

- 

frame 

POW 

1594 

check 

EOK 

DA 

frame 

NUM 

pone 

frame 

NUM 

1595 

TS 

- 

- 

RET  GO  OK 

1596 

CHECK 

HOT 

TN 

frame 

YUL 

♦ 1 

4 

Frame 

YUL 

1597 

TX 

frame 

- 

frame 

YUL 

♦ 4 

1598 

WA 

frame 

PoW 

ONE 

frame 

POW 

1599 

NA 

frame 

Pow 

SEVEN 

CHECK 

ERR 

1600 

NA.B41T48 

Frame 

YUL 

CHECK 

FRM 

♦7 

CHECK 

SOP 

1601 

NA.B41T48 

frame 

YUL 

♦ 1 

check 

FRM 

♦B 

CHECK 

SOP 

1602 

NA.B41T48 

frame 

YUL 

♦ 2 

CHECK 

FRM 

+ 9 

CHECK 

SOP 

1603 

NA.BA1T48 

frame 

YUL 

♦ 3 

CHECK 

FRM 

♦10 

CHECK 

SOP 

1604 

NA.B41T48 

frame 

YUL 

♦ 4 

check 

FRM 

♦11 

CHECK 

SOP 

1605 

TS 

- 

- 

CHECK 

RDS 

1606 

S .PH I PRINT 

SKIP  MSG 

1607 

TS 

ZfRO 

FRAME 

POW 

CHECK 

EOK 

1608 

CHECK 

SOP 

NA.B41T48 

frame 

YUL 

+ 1 

check 

FRM 

♦6 

CHECK 

EPA 

1609 

NA.BA1T48 

FrAMf 

YUL 

♦ 2 

CHECK 

FRM 

♦7 

CHECK 

EPA 

1610 

NA.BA1T48 

frame 

YUL 

+ 3 

CHECK 

FRM 

+ 8 

CHECK 

EPA 

1611 

NA.B41T48 

frame 

YUL 

+4 

CHECK 

FRM 

♦9 

CHECK 

EPA 

1612 

S.PHI  PRINT 

SKIP  MSG 

1613 

TX 

N.SC.l 

- 

CHECK 

IT 

1614 

TX 

C * + 2 

• 

CHECK 

IT 

1615 

TS 

ZfRO 

FRAME 

o 

Q- 

CHECK 

EOK 

1616 

TS 

- 

- 

CHECK 

RDS 

1617 

check 

EPA 

S.PHI  PRINT 

CaNCL 

MSG 

1618 

TS 

- 

- 

CHECK 

EOK 

1619 

check 

ERR 

TN 

TITLE 

MSG 

♦ 1 

9 

CHECK 

BUF 

♦ 1 

1620 

TN 

CHECK 

MUM 

6 

CHECK 

BUF 

+ 10 

1621 

SrtS  »D 1 2 

frame 

NUM 

16 

check 

BUF 

+ 10 

1622 

SwS.ACDl 

frame 

NIJM 

18 

CHECK 

BUF 

♦ 11 

1623 

SaS  . ACD2 

frame 

NUM 

20 

CHECK 

BUF 

♦ 11 

1624 

SwS » ACD3 

frame 

NUM 

22 

CHECK 

BUF 

♦ 11 

1625 

SwS*ACD4 

frame 

NUM 

24 

CHECK 

BUF 

♦ 11 

1626 

S vS.  SEVEN 

check 

FrM 

+ 10 

6 

CHECK 

BUF 

+ 11 

1627 

SaS'ACOI 

check 

FrM 

♦ 10 

9 

CHECK 

BUF 

+ 12 

1628 

SaS  * AC02 

check 

frm 

♦ 10 

12 

CHECK 

BUF 

♦ 12 

1629 

S.vS  * AC07 

frame 

0 

CHECK 

BUF 

♦ 13 

1630 

SaS.  seven 

frame 

3 

CHECK 

BUF 

♦13 

1631 

SaS.  ACOl 

frame 

6 

CHECK 

BUF 

♦14 

1632 

SaS  *CAC3 

L CHK 

BUF  5 

16 

Z.R6 

1633 

s.phiprint 

CHECK 

BUF 

1634 

TN 

check 

SPA 

4 

CHECK 

BUF 

♦1 

1635 

TS 

L CHK 

BUF5 

Z.AJ1 

CHECK 

SUT 

USER'S  OWN  PAGE  NO.  35 


PA(,E  35 
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1636 

S »PH I PRINT 

CHECK  BUF 

1637 

TN 

check  bra 

4 

1638 

TX 

Z ,R6 , 1 

- 

1639 

TS 

L CHK  BUF  5 

Z , A J 1 

1 6 AO 

S »PH I PRINT 

CHECK  BIJF 

1641 

DA 

CHECK  CNT 

PONE 

1642 

TS 

- 

- 

1643 

CHECK 

SUT 

TX 

tfn 

- 

1644 

CHECK 

MUT 

TX 

BLNK  3ZS 

- 

1645 

SwS » AC06 

N,R6 

6 , L 

1646 

SwS  t AC07 

N,R6 

3 ,L 

1647 

SwS, SEVEN 

N ,R6 , 1 

0 

1648 

NA 

Z.AU2.1 

ONE 

1649 

TX 

Bl  ANKS 

- 

1650 

CHECK 

BUF 

OCT 

0 1 02 

1651 

ALF  * 5 

1652 

Al.F  * 5 

1653 

ALF  *5 

1654 

CHECK 

RDS 

WA  ,ONE 

SWITCH  PA 

ONE 

1655 

NA  ,ONE 

switch  pa 

zero 

1656 

CHECK 

RDA 

RF  ,00 

check  FrM 

+ 21 

m 

1657 

CHECK 

RDC 

RF  ,00 

check  FrM 

+ 22 

- 

1658 

TS 

- 

- 

1659 

TN 

CHECK  FrM 

+ 1 

20 

1660 

TX 

CHECK  FrM 

♦ 22 

- 

1661 

CHECK 

RDB 

RF  ,00 

CHECK  FRM 

♦ 22 

- 

1662 

check 

RDD 

RF  , 00 

CHECK  FrM 

♦21 

m 

1663 

TS 

- 

- 

1664 

TN 

CHECK  FRM 

♦1 

21 

1665 

CHECK 

DNE 

SwS  «D  1 2 

check  cnt 

16 

1666 

SwStACDl 

check  cnt 

18 

1667 

SwS*ACD2 

check  CnT 

20 

1668 

SwS , ACD3 

check  cnt 

22 

1669 

SwS , ACD4 

check  cnt 

24 

1670 

TS 

check  wdd 

Z , A J 1 

1671 

S ,MON  typer 

CHECK  LOS 

SPRA  +40 

1672 

TS 

• 

- 

1673 

CHK  HEAD 

DEC 

-0 

1674 

DFC 

00  7F  08  1 

08  08 

i 7F 

1675 

DEC 

00  7F  4B  ■ 

4B  4E 

i 42 

1676 

DEC 

00  3F  48  ■ 

48  46 

i 3F 

1677 

DEC 

00  7F  42  ■ 

4Z  42 

3D 

1678 

DEC 

-0 

1679 

check 

COM 

TN 

TITLE  Msg 

10 

1680 

TX 

Blanks 

- 

1681 

TX 

Bl  ANKS 

- 

1682 

TX 

blanks 

- 

1683 

TX 

blanks 

- 

1684 

S , PH I PRINT 

check  BIJF 

1685 

TX 

Z , SH 

_ 

1686 

CHK  EXIT 

TN 

CHECK  LOS 

5 

1687 

TS 

Bl 

PRINT  BUF 

USER'S  OWN  PAGE  NO 
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PA&E  36 


CHECK  BUF  *1 


CHECK  SUT  C 

CHECK  CNT 
CHECK  EOK 
Z,AU2  c 

N , AU 1 c 

N.AUl  C 

N,AUl  c 

N,AUl,i  c 

CHECK  MUT  C 

CHECK  BUF  +15 


SWITCH  PA  C 

CHECK  RDB  C 

C*  + 3 
C,-l 

PAP  ABORT 
CHECK  FRM  C 


CHECK  FRM  +20 

C * + 3 
C *-l 

PAP  ABORT 
CHECK  FRM 
CHECK  LOS  +2 

check  los  +3 

CHECK  LOS  +3 
CHECK  LOS  +3 
CHECK  LOS  +3 
7,111  C 

CHK  EXIT 
PAP  ABORT 


CHECK 

BUF 

♦1 

CHECK 

BUF 

♦ 1 

2 

check 

BUF 

♦ 1 

3 

CHECK 

BUF 

♦ 1 

4 

CHECK 

BUF 

+ 1 

5 

z , sc 

print 

BUF 

♦6 

las  mf 

LIN 

FINISH  OFF  PRINTING  OF  CHECKING  TASK. 


IL  ! 

L 

P1689 

gYUL  SYSTEM 

MANUFACTURING  - AGC4 

Procedure  to  Copy  tHf  binary  Record  of 

R1691 

following 

TASK.  SUBDIRECTOR  IS: 

c 

R 1692 

S COPY  ONTO  WORKER 

1693 

AGC4  COPY 

NA 

N.X5.3 

W ONTO 

L 

1695 

NA 

N.X5.3 

W YORKER 

1697 

TX 

by  Pas  mdn 

- 

1699 

TS 

z,sc 

hold  loc 

c 

1701 

S.MON  TYPER 

copy  msg 

SPR<W  16 

1703 

TS 

z.sc 

hold  loc 

1705 

TS 

z,sc 

hold  loc 

c 

- 1707 

COPY  XA 

TS 

z.sc 

z,x5 

1709 

TS 

- 

- 

1711 

COPY  XD 

TX 

1.1 

- 

c 

1713 

cc 

c first  Rc 

- 

1715 

TS 

- 

- 

1 7 1 7 

WF  *2 

C FIRST  rc 

- 

c 

1719 

TN 

COPY  LINE 

3 

1720 

TX 

L OB JC  MSG 

- 

1721 

obj  manuf 

MI 

N . AU 1 . 1 

7 

c 

1722 

TS 

z,sc 

K COMMON  4-5 

1724 

TS 

- 

- 

1725 

WF  * 2 

- 

- 

c 

1726 

TX 

N.SC.l 

- 

1727 

TS 

- 

- 

1728 

TS 

- 

- 

c 

1729 

WF  * 2 

1.0 

- 

1730 

TS 

- 

- 

1732 

WF  *2 

- 

- 

c 

1733 

TS 

- 

- 

1734 

copy  xb 

S .MON  EOFRI 

TAPE  ordr 

- 

1736 

S.MON  TYPER 

E COPY  MSG 

SPRAMR  456 

c 

1738 

TX 

ZfRO 

- 

1739 

TX 

AGC4  CMPR  -1 

• 

1741 

copy  xc 

TS 

Bl 

PRINT  BUF 

1743 

RW » 2 

- 

- 

1744 

TN 

E CMPR  MSG 

2 

1745 

LAS  MF  UN 

TS 

Z.SC 

K COMMON  +5 

1746 

TS 

OCT  00047 

PRINT  BUF 

1748 

RW  * 1 

- 

- 

1749 

S,  PHI  PRINT 

print  buf 

( ^ 

1750 

S,  PHI  PRINT 

print  bijF 

1751 

S,  PHI  PRINT 

print  buf 

1752 

TS 

- 

- 

program  onto  work 


bad  sd 
bad  sd 
any  mdn 

RY  CoMMoP 

C.  + l 

Read  a req 
get  wurkr 
get  red  pn 
copy  xb 
C FIRST  RC  +1 
C first  RC  +6 
Mon  tape 

print  BUF  +1 
Z.AUl 

N,AU2,1 
Co  bOY 
MON  TAPE 

COPY  XD 

C . + 1 

MON  TAPF 

Mon  TAPE 

COPY  XA 
Zero 

c,*i 

LAS  MF  LIN 
AGC4  CMPR  -A 
MON  TAPE 

print  buf  + i 
Go  boy 
mon  tape 


USER'S  OWN  PAGE  NO.  37  PAGE  37 

TAPE  2 FOR  COMPARISON  WlyH  ANOTHER  By  jHE 


WORD  ONTO  IS  REQUIRED 

WORD  WORKER  IS  REQUIRED 

* MODULE  deck  NUMBERS*  SD  NOT  ALLOWED 

zero  paragraph  reeouests 

PRINT  OUT  COPY  MESSAGE 

go  read  task  subdirectors 

GO  RESERVE  YUI  WoRKtR  2 

go  get  next  paragraph 

NO  MORF  PARAGRAPHS 

PROGRAM  name  INTO  STATEMENT  which 

identifies  this  particular  copy  job  to 

It'S  PARTICULAR  COMPARE  JOB.  NOW  WRITE 
IT  ONTO  THE  WORKER 


PREPARE  AND  PRINT  PAGE  HEAD  FOR  COPY. 


WAIT  UNTIL  WRITE  DONE 


WRITE  END  OF  FILe  ReCOROS 

type  out  copying  done  message. 

PREVENT  final  printing  if  copying. 
REWIND  WORKER 


REWIND  YULPROGS 


manuf  rtn 


l @yul  system  manufacturing  - agca 


p 1 753 

procedure  to 

compare  the 

binary  record 

R 1 755 

ING  TASK. 

subdirector 

IS: 

R 1 756 

s compare  program 

PROGNAMf  from 

WORKER 

1757 

AGCa  cmpr 

NA 

N.X5.3 

W PROGRAM 

1759 

TX 

N,X5,3 

- 

1761 

NA 

N.X5.3 

W FROM 

1763 

NA 

N.X5.3 

W WORKER 

1765 

TX 

by  pas  mdn 

- 

1767 

TS 

z,sc 

hold  loc 

176-9 

S *MON  TYPER 

cmpar  MSG 

SPRA+2A 

1771 

T 5 

z,sc 

hold  loc 

1773 

S.MONTADDR 

tape  ordr 

1775 

TS 

C » + 2 

HOLD  LOC 

1776 

S.  MON  TYPER 

NO  WT2  MSG 

SPR AMR  + AO 

1777 

SPEC 

1778 

TX 

THREE 

• 

1780 

CMPR  XA 

TS 

z,sc 

Z,X5 

1782 

TS 

- 

- 

178A 

TX 

ZfRO 

- 

1786 

CMPR  XR 

TX 

L CPY  AREA 

m 

1788 

TS 

- 

- 

1790 

RE,  2 

A,0 

w 

1792 

TS 

- 

- 

1793 

RF  * 2 

- 

- 

1 79A 

CMPR  XU 

NA.BANBITS 

A »0 

ban  eofri 

1795 

TS 

- 

. 

1796 

CMPr  XH 

NA 

c First  rc 

A , 0 

1798 

NA 

c first  rc 

*1 

A , 1 

1800 

NA 

C FIRST  rc 

♦2 

A, 2 

1801 

NA 

c first  RC 

+ 3 

A, 3 

1802 

NA 

c FIRST  rc 

♦ A 

A, A 

1803 

NA 

c first  rc 

♦5 

A, 5 

1 80A 

TN 

CmPR  1 InE 

3 

1805 

TS 

L OB JC  MSG 

Z.AJl 

1806 

TS 

z,sc 

k common  +5 

1808 

TS 

N , SC 

CMPR  XH 

1809 

TS 

- 

1810 

CMPR  XN 

NA 

A. 2 

1,2 

1812 

WA 

Z.X1 

THREE 

1813 

TX 

Z , Xa  , 3 

1815 

TX 

Z,X5 

- 

1816 

CMPR  XG 

NA.CAC3 

A .0 

5,0 

1818 

CMPR  XQ 

WA 

Z.XA.l 

Z ,X5  * 1 

1819 

TS 

- 

_ 

1820 

CMPR  XD 

WD 

Z.X5 

C255 

1822 

LA 

Z.Rl 

KCOMMoN  *3 

1 82  A 

La 

kcommon  ♦ 9 

Hot  Dog 

1826 

TS 

z,sc 

KCOMMON  +5 

1828 

TS 

_ 

_ 

1829 

CMPR  XE 

Wa 

KcOMMoN  ♦ 7 

ONE 

1831 

la 

TWO 

KCOMMoN  +7 

1833 

TN 

CMPFL  Msg 

10 

183A 

SwS » AC06 

1,2 

6 « L 

1836 

SwS*AC07 

1,2 

3*L 

USER'S  OWN  PAGE  no.  38  pAGE  3a 

of  a program  with  another  stored  on  work  tape  2 by  the  preced- 


BaD  so 

c first  rc  +i 
bad  so 
bad  sd 
any  mdn 

RY  COMMOP 

C.  + l 

read  a reo 

TAPE  ORDE 
TYP  ABORT 

C,  + l 

Test  INST 
get  reQ  pn 
cmpr  xb 
kcommon  +7 

Z,XA 

MON  TAPE 
MON  TAPE 


WORD  PROGRAM  IS  REQUIRED 
EXTRACT  COPY  PROGRAM  NAME 
WORD  FROM  IS  REQUIRED 

word  workfr  is  required. 

* module  deck  number#  sd  not  allowed, 

zero  paragraph  Requests 

PRINT  OUT  COMPARE  MESSAGE 

GO  Read  TASK  SUBDIReCTORS 

must  own  workfr  2 cuz  must  follow  copy 


ENAbLE  PRINTING/NO  PUNCH  OF  PCH  FRAME 
GET  NEXT  PARAGRAPH. 

no  more  paragraphs 

show  zero  errors  so  far  in  new  para 

COPY  area  BASF  ADDRESS 
READ  A RECORD  FRoM  the  WORKER 
WAIT  UNTIL  RFAD  IN 


CMPR  XH 

CMPR  XS 

CMPR  XK 

CMPR  XK 

CMPR  XK 

CMPR  XK 

CMPR  XK 

CMPR  XK 

PRINT  BUF  *1 

OBJ  MANUF  C 

Go  boy 

cmpr  xr 

c *♦  1 

CMPR  xc 

z,xs 

KCOMMON  + 3 
CMPR  XD 


demand  match  of  first  six  words  of 

FIRST  WORKER  RECORD 


prepare  and  print  page  head  for  compare, 
jump  if  paragraph  numbers  disagree 

POINT  TO  FIRST  AGC  WORDS  IN  EACH  PARA 
JUMP  IF  AGC  WoRQS  DISAGREE  FoR  THIS  LoC 


CMPR  XG 
Z.Rl 
CMPR  XE 
CMPR  XA 
Go  Boy 
cmpr  XA 
KCOMMON  +7 
CMPR  XF 
PRINT  BUF  *1 

print  buf  *2 
print  buf  *2 


LOOK  to  See  if  para  boundaray  EXCEEDED 
jump  if  paragraph  not  done 

JUMP  IF  No  PARTIAL  LINE  WAITING 

print  remaining  partial  line 
number  of  locs  with  different  values 

JUMP  IF  ONE  ALREADY  FoUnD  FoR  THIS  PARA 

set  paragraph  number  into  compare  fail 
MESSAGE 


L gYUL  SYSTEM  MANUFACTURING--  AGC4  USER'S  OWN  PAGE  NO.  39  pAGE  39 


1838 

SS 

1,2 

SEVEN 

PRINT  BUF  + 2 

1839 

TS 

Z,SC 

KCOMMON  +5 

go  boy 

PRINT  COMPARE  fail  MESSAGE 

1841 

CMPr  xf 

Wo 

Z,X5 

KCOMMoN+3 

Frame 

determine  words's  relative  paragraph  loc 

1843 

TS 

- 

- 

pch  frame  c 

set  word  relative  Loc  onto  print  line 

1845 

TS 

- 

- 

CmpR  xq 

1846 

cmpr  xc 

LA 

4,2 

1,2 

cmpr  XL 

jump  if  ParaGraph  not  on  yulproGs 

1848 

SaS»AC06 

1,2 

6 ♦ L 

CMPR  XM  +1 

complain  about  paragraph  being  missing 

1850 

SwS»AC07 

1,2 

3 , L 

CMPR  XM  ♦] 

IN  THE  COPY  program 

1852 

SS 

1,2 

SEVEN 

CMPR  XM  +1 

1853 

TN 

CMPR  XM 

5 

print  buf  +1 

1854 

TS 

z.sc 

KCOMMON  ♦ 5 

Go  boy 

1855 

S ,MON  TYPER 

CMPR  XM 

SPRA+40 

c , + 1 

1856 

TX 

Z.X4 

- 

KCOMMON+8 

1857 

TS 

Z,SC 

Z,X5 

GET  REO  PN 

GET  NEXT  PARAGRAPH 

1859 

TS 

KcOMMON  +8 

Z,X4 

cmprxb 

1860 

TS 

KcOMMON  +8 

Z ,X4 

cmpr  xn 

1861 

CMPR  XM 

ALF.5 

Paragraph 

000  missing 

IN 

copy  program 

1862 

CMPR  XL 

SWS * AC06 

A, 2 

6 » L 

cmpr  xp  +1 

complain  about  paragraph  being  missing 

1864 

SWS  * AC07 

4,2 

3 , L 

CMPR  xp  +i 

IN  COMPARF  program 

1866 

SS 

4,2 

SEVEN 

CMPR  XP  +1 

1867 

TN 

CMPR  XP 

6 

print  buf  + 1 

1868 

TS 

z.sc 

KCOMMON  +5 

Go  boy 

1869 

SiMON  TYPER 

CMPR  XP 

SPRA  *48 

cmpr  xr 

1870 

CMPR  XP 

ALF  *5 

paragraph 

000  MISSING 

IN 

compare  prog 

1871 

ALFil 

ram 

1872 

CMPR  XB 

TS 

N , SC 

CMPR  XU 

CMPR  XR 

READ  worker  RECORD 

1874 

TS 

- 

c , + 1 

1875 

NA.BANBItS 

4,0 

baneofri 

CMPR  XW 

jump  if  not  fnd  of  workfR 

1877 

S,MON  TYPER 

E CMPR  MSG 

SPRAMr+16 

copy  xc 

print  compare  done  message 

1879 

CMPR  XW 

SWS  * AC06 

4,2 

6 , L 

cmpr  XX  +i 

complain  about  possible  missing 

1881 

SWS4AC07 

4,2 

3 , L 

cmpr  XX  +i 

paragraphs  in  the  compare  program 

1883 

SS 

4,2 

SEVEN 

CMPR  XX  +1 

1884 

TN 

CMPR  XX 

7 

print  BUF  +1 

1885 

TS 

z,sc 

KCOMMON  +5 

Go  Boy 

1886 

S.MON  TYPER 

CMPR  XX 

SPR AMR+56 

copy  xc 

1887 

CMPR  XX 

ALF.5 

Paragraphs 

000  AND  ABOVE 

MISSING  from 

1888 

. AlF  ♦ 2 

compare  progi 

RAM 

1889 

CMPR  XS 

SaS . AC06 

1,2 

6 , L 

cmpr  XT  +1 

complain  about  missign  paragraphs  in 

1891 

SWS.AC07 

1,2 

3 ,L 

CMPR  XT  +1 

the  copy  program 

1893 

SS 

1,2 

SEVEN 

cmpr  xt  +1 

1894 

TN 

CMPR  XT 

7 

print  buf  +1 

1895 

TS 

Z.SC 

KCOMMON  +5 

go  boy 

1896 

S .MON  TYPER 

CMPR  XT 

SPR AMR+56 

copy  xc 

1897 

CMPR  XT 

ALF.5 

paragraphs 

000  AND  ABqVe 

MISSING  from 

1898 

ALF. 2 

copy  program 

1899 

CMPR  XK 

S, MONTYPER 

c,  +1 

SPRAMr  +56 

CMPR  XJ 

1900 

ALF.5 

copy  job  either  missing. 

UNSUCCESSFUL, 

1901 

AlF.2 

not  matching 

OR 

1902 

CMPR  XJ 

s.montyper 

C,  + l 

SPRAMR  +56 

COPY  XC 

1903 

ALF.5 

was  not  immediately  followed  by  THIS  COM 

1904 

ALF  »2 

PARE  job 

1905 

get  wqrkr 

S,MON  TADDR 

tape  ordr 

ASK  IF  YUL  SYSTEM  HAS  ReSeRVeD  A WORKER 

1907 

TS 

- 

- 

TAPE  ORDE 

IT  CALLS  2.  YES  IT  HAS. 

1909 

TS 

ONES 

C,*3 

phi  snach 

NO  IT  HAS  NOT.  Go  GET  IT. 

1911 

ALF. 3 

WO0YO102YULWRK2 

L 
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1912 

TAPE 

ORDe 

TS 

- 

- 

mon  tape 

191A 

TAPE 

ordr 

R,v»2 

- 

- 

- 

1915 

TS 

CAC3 

mon  tape 

1917 

RF  * 2 

4,0 

- 

- 

1918 

TS 

- 

- 

MON  TAPE 

1920 

RF  *2 

- 

- 

- 

1921 

TX 

hold  loc 

- 

z,sc 

1923 

COPY 

AREA 

RtSERVE 

262 

SEQBRK 

END 

YUL  MANIJF 

AGCA 

r 


USER'S  OWN  PAGE  NO.  AO  PAqE  AO 

REWIND  WORKER 
SKIP  OVER  LABEL  RECORD 
WAIT  UNTIL  SKIP  DONE 
RETURN  TO  CALI  eR 

work  area  For  copy  and  compare  Routines 


L 
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USER'S  OnN  PACE  NO 


1 


PAGE  A1 


ROOOl 

R0003 


0004 


- 0005 


R0006 

^0008 

Rooio 

r0012 

ROOlA 

R0016 


00 1 7 
R0019 


we  are  Deeply  indebted  to  the  one,  the  only,  the  oRfcAT  John  shaw  For  the  Following  strong  magic.,., 
jsoctl 


SETLOC , 1 0 B2 

MASKGRP , 1 S,1  F , 1 


This  saco  manufacturing  Program  is  loaded  in  response  to  a well-formfd  yul  director  card  specifying 
manufacturing  f0r  a correctly  assembled  saco  program,  it  communicates  with  subroutines  in  pass  0 as  with  a 
monitor,  it  ermines  one  or  more  sJbdireCtoR  cards  cs"  in  column  !)  to  DeteRminf  thf  task  required.  subdireC_ 
tor  cards  oBe-y  the  same  syntactical  rules  as  director  cards.  examples  of  all  currently  available  types  follow: 

s punch  core  rope  simulator  load  ta?e  ("Core"  and  "load"  are  optional). 

s punch  master  deck 


saco  manu  ts  Bank  i z»xo  what  subd  this  order  is  at  Base  aodr.  of  program. 

MAIN  PART  OF  PROGRAM  FoLLqWS  CONSTANTS,  ETC. 
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P0020 

FIELD  AND  SHIFT  MASKS 

FOR  SACO  MANUFACTURING 

0022 

B.CHAR6 

OCT 

-77  0000 

0023 

Bt CHAR8 

OCT 

-77 

0024 

B.C1T3 

OCT 

777777 

0025 

B.CIT6 

OCT 

7777  7777  7777 

0026 

B.CAC3 

DEC 

-CiGGG 

0028 

B .ONES 

DEC 

gggg  gggg  gggg 

0029 

B .ONE 

DEC 

-1 

0030 

B, THREE 

DEC 

-3 

0031 

B .FOUR 

DEC 

-4 

0032 

B. SEVEN 

DEC 

-7 

0033 

B.EIGhT 

DEC 

-8 

R0034 

further 

SHIFT  MASKS. 

0037 

S.C2T3 

OCT 

007777 

0038 

S.C4578 

OCT 

-7777007777 

0039 

S.D8 

DEC 

-G  0000 

0040 

S.D12 

DEC 

-G 

0043 

S.D4T7 

DEC 

OOOGGGG 

0054 

S.AC01 

OCT 

07 

0055 

S.AC02 

OCT 

0007 

0056 

S.AC03 

OCT 

000007 

0057 

S.AC04 

OCT 

00000007 

0058 

S.AC05 

OCT 

-700  0000 

0059 

S.AC06 

OCT 

-7  0000 

0060 

S.AC07 

OCT 

-700 

USER'S  OWN  PAGE  No.  2 


PAGE  42 
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P0061 

alphabetic 

CONSTANTS* 

0062 

BLANKS 

ALF 

0063 

W CORE 

ALF 

CORE 

0064 

W ROPE 

ALF 

ROPE 

0065 

W SMULATO 

Al  F * 2 

SIMULATOR 

0066 

w load 

ALF 

LOAD 

0067 

W TAPE 

AlF 

TAPE 

0068 

PRStP  MSG 

AL  F *5 

PUNCH  CoRE  ROPE  SIMULATOR 

0069 

w card  out 

ALF  »2 

card  output  sent 

0070 

W SUBOIRC 

ALF  ♦ 2 

subdirector: 

0071 

W SIM 

ALF 

SIM 

0072 

W paper  ta 

Al  F * 3 

PAPER  TAPE  OUTPUT  SfNT 

0073 

* DELETE 

USER'S  OWN  PAGE  NO. 


PAGE  A3 


L 

P007A 


@YUL  SYSTEM  MANUFACTURING  - SACO 

alphabetic  constants  continued. 


0075 

OCT 

0076 

CARD 

ALF.5 

0077 

ALF. 5 

0078 

ALF  370 

ALF 

0079 

w paragra 

ALF  *2 

0080 

RC162C8 

ALF 

0081 

RC168C8 

ALF 

0082 

■ w master 

ALF 

0083 

W DECK 

ALF 

008A 

W END  DECK 

ALF  .3 

0086 

w paragrf 

ALF* 2 

0087 

PRWtP  MSG 

ALF. A 

0088 

2 LONP  MSG 

ALF. 3 

0089 

UNOPN  MSG 

ALF . 3 

0090 

ILLPN  MSG 

ALF. 3 

0091 

DUPPN  MSG 

ALF  . 3 

0092 

PNHER  MSG 

ALF. 3 

0093 

NO  GUD  MSG 

ALF. 2 

0 

LoOOOOOaSaCO  master  deck 
1ST  PARAGRAPH 
370 

paragraph 

R 2 

R B 

MASTER 
DECK 

END  OF  SACO  MASTER  DECK 


paragraph 

punch  Raytheon  wiring  tape 
paragraph  no.  too  long 
paragraph  no.  not  octal 
li legal  paragraph  no. 
duplicate  paragraph  no. 
paragraph  ooo  not  hfre 
no  good  requests 


USER'S  OWN  PAGE  NO 


A 


page 


L 
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P009A 

ALPHABETIC 

CONSTANTS 

continued. 

0095 

END  PARAG 

AL  F « 5 

fnd 

OF  paragraph 

NEXT  PA 

0096 

ALF 

RaGRAPH 

0097 

EMPTY  WD 

AlF 

777771 

0098 

STICK  NOS 

Al  F 

SCE 

0099 

AlF*A 

28B 

29A  29B 

28  A 

0100 

AlF*A 

2 IB 

22A  22B 

2 1 A 

0101 

AlF  » A 

236 

24A  2AB 

23A 

0102 

PMSTR  MSG 

ALF  «3 

Punch  master  deck 

0103 

PH  NUMBER 

ALF 

777=  7 

0 10A 

WIRE  NOS 

ALF 

1-16  17 

-32  33-A8 

<t9-64 

0105 

alf»a 

65-80  8 1 

-96  97-112 

113-128 

USER'S  OWN  PAGE  NO 


5 


PA&E 
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POlOfa 

numeric  constants 

0108 

C1C8 

OCT 

0109 

C2T7 

OCT 

0110 

C5T7 

OCT 

0111 

CAC2 

DEC 

0112 

THREAD  11 

OCT 

0117 

A C6 

OCT 

0118 

ZERO 

OCT 

0119 

C 1 T A 

OCT 

0120 

C5T8 

OCT 

0121 

TWO 

OCT 

0125 

ELEVEN 

FXBIN 

0126 

TWENTY 

FXBIN 

0127 

thirty 

FXBIN 

0128 

C32 

FXBIN 

0131 

C256 

FXBIN 

0132 

OCT  OOOA7 

OCT 

0133 

OCT  INC 

OCT 

0 1 3 A 

FEED  FRAM 

DEC 

0135 

RESET  ADR 

DEC 

0136 

RESET  INF 

DEC 

0137 

BA2 

DEC 

0138 

STOP  FRAM 

DEC 

For  saco  Manufacturing. 

7700  0000  0000  0077 
0077  7777  7777  77 
-7777  7700 
0000  GGGG 
-3777 

-A  0000 
0 

7777  7777 
-7777  7777 

-2 

-11 

-20 

-30 

-32 

-256 

000A7 

000071 

-D3 

-Dl 

-D2 

-AO 

-80 


USER'S  OWN  PAGE  NO 


fa 


page 


Afa 
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P0147 

ADDRESS  CONSTANTS. 

0158 

BANK  1 

SPEC .B 1 

0159 

SACO  MSKS 

MASKBASE 

S,1 

0160 

L SC  SUBDS 

SPEC 

0161 

L STICKNS 

SPEC 

0162 

CARD  WD2 

SPEC 

0163 

CARD  WD10 

SPEC 

0165 

ST  WIR  CAC 

CAC 

0166 

L REQ  LIST 

SPEC 

0167 

END  SUBDS 

SPEC 

R0168 

RESERVATIONS. 

0169 

WIRE  NO 

reserve 

1 

0170 

REQ  LIST 

reserve 

117 

0171 

OCT 

0 

0173 

BEGIN  ADR 

RESERVE 

1 

0174 

SS  FWA 

RESERVE 

1 

0175 

LAST  FWA 

RESERVE 

1 

0176 

DELTA  FWA 

RESERVE 

1 

R0177 

EQUIVALENCES, 

0178 

DAMN  ZERO 

EQUALS 

0 

0179 

A 

equals 

128 

0180 

AMTF 

equals 

38A 

0181 

SPRAMR 

EQUALS 

384 

0182 

ALPHA  ' 

EQUALS 

0 

0183 

BINARY 

EQUALS 

16 

0185 

parag  NO 

EQUALS 

begin  adR 

0186 

req  place 

EQUALS 

SS  FWA 

0187 

STIK  WIRE 

EQUALS 

LAST  FWA 

0188 

COMMON 

equals 

delta  fwa 

USER'S  OWN  PAGE  No 


7 


PAGE  47 


damn  zero 

SC  SUBDRS 
Stick  NOS 
CARU  +1 

card  +9 
WlRt  NOS 

reo  list 
last  sdrc 


- - 
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P0189  ASSIGNMENTS  FOR  SACO  MANUfACTURi 

0190  yul  typer  assign  0,63 

0191  RD  SBDIRC  ASSIGN  0,65 

0192  HOWZAt  ASSIGN  0,66 

0193  PCH  LEDER  ASSIGN  0,67 

0199  IGN  SuBDR  ASSIGN  0,68 

0195  UNRC  SBOR  ASSIGN  0,69 

0196  E SYLT  OK  ASSIGN  0,70 

0197  FETCH  SS  ASSIGN  0,7l 

0198  * DELETE 

0199  PCH  TITLE  ASSIGN  0,73 

0200  pch  frame  assign  0,75 

0201  MANUF  RTN  ASSIGN  0,76 

0202  yul  masks  assign  0,77 

0203  OCTAL  20  ASSIGN  0,78 

0209  WHODUNIT  ASSIGN  0,80 

0205  6 COMMA  19  ASSIGN  0,81 

0206  *L  DIRECTY  ASSIGN  0,83 

0207  * DELETE 

0208  FRAME  ASSIGN  0,85 

0209  PUNCH  CP  ASSIGN  0,87 

0210  TYP  ABORT  ASSIGN  0,89 

0211  L OBJC  MSG  ASSIGN  0,90 

02111  YUL  D2A  ZS  ASSIGN  0,119 

0212  mon  tape  assign  7,1 

0213  mon  peek  assign  7,3 

0^19  EOR  ASSIGN  7,9 


0215  mon  read  assign 

0218  mon  typer  assign 


7,15 

7,215 


user's  own  page  no 


8 


PAGE  98 


0 
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P0220 

Procedure 

TO 

DfTERMInE 

WHICH  SJBOIRECTOR 

was  submitted. 

0 

0 

0221 

WHAT  SUED 

TX 

YUL  MASKS 

z.mxr 

0222 

S,  YUL  TYPER 

W SUBD1RC 

A +2 

c,*l 

type  "subdirector:". 

y 

022A 

TX 

L SC  SUBDS 

- 

Z »XA 

base  OF  Saco  MANUFACTURING  SUBDIRECTORS. 

I 

0226 

TS 

SACO  MSKS 

Z.MXR 

COMP  SDRC 

go  look  up  first  WORD  ON  SUBDIRECTOR  CD. 

3 

0228 

try  sdrec 

NA 

Z.X4,i 

end  SUBDS 

CoMP  SDRC 

BRANCH  IF  THfRe  ARe  MORf  TO  L00<  AT. 

3 

3 

1 

0230 

WA 

Z,X6 

OCTAL  20 

whodunit 

SET  UP  TO  CUSS  1ST  WD,  ABORT  TASK. 

3 

0232 

HOWZIS 

TS 

YuL  masks 

Z.MKR 

HoWZat 

exit  por  fatal  cuss  of  subdirector  word. 

J 

3 

3 

023A 

COMP  SDRC 

NA 

N »Xa  * 1 

6*16 

TRY  SDREC 

3 

0235 

NA,  C1T6 

A « 0 

6,17 

TRY  SORFC 

DEMAND  ia-character  match. 

J 

0237 

SS 

N.Xa 

THREAD  11 

C,  + l 

0238 

TS 

6 comma  19 

Z,X5 

SET  TO  LOOK  at  2ND  WORD,  GO  TO  TASK. 

J 

R02  AO 

TABLE  of 

1A-CHARACTER 

subdIRectoR 

FIRST  WORDS  FOR  SACO. 

J 

02A1 

SC  sUBDRS 

ALF 

PUNCH 

PUNCH  CARDS  OR  PAPER  TAPE. 

02  A3 

LAST  SDRC 

M » A « 

A, 

A« 

SACO  PNCH 

J 

J> 


:> 


o 


> j 

► 

3 > 
> 


9 


M 
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« 

** 

Po244 

introduction  to  all  saco  manufacturing  functions  involving  punching 

of  cards  or  tape. 

— 

R0246 

NOW  ReCOGnIZeS  "PUNCH 

(Gore)  rope 

SIMULATOR  (LOAD) 

tape"  AND  "PUNCH 

master  deck". 

0248 

SACO  PNCH  NA 

N,X5 

W CORE 

TrY  MASTr 

if  not  "core",  might  be  "master". 

J 

0250 

TX 

Z.X5.3 

- 

- 

"CORE"  IS  optional. 

0 

0252 

TX 

Z,X5 

- 

whodunit 

_) 

0253 

NA 

N.X5.3 

W ROPE 

howzis 

"rope"  is  required. 

0255 

TX 

Z.X5 

* 

whodunit 

0256 

NA 

N ,X5  ♦ 1 

W SMUlATO 

howzis 

J 

0257 

NA 

N,X5,2 

w SMJLATO  +1 

HoWZlS 

"Simulator"  is  Required. 

0259 

NA 

N.X5 

W LOAD 

C » + 2 

0 

0260 

TX 

Z.X5.3 

- 

- 

"LOAD"  IS  OPTIONAL. 

J 

0262 

TX 

Z.X5 

- 

whodunit 

0263 

NA 

N.X5.3 

w t<\pe 

howzis 

"tape"  is  Required. 

0265 

TX 

Z * X5 

m 

whodunit 

J 

0266 

NA 

N,X5 

ONES 

Howzis 

superfluous  words  are  Forbidden. 

0268 

TS 

YUL  MASKS 

Z,MXr 

E SYLT  ok 

make  group  b i ook  for  Dfsired  program. 

J 

0270 

* s,  yul  typer  prstp  msg 

A *5 

c * + 1 

"PUNCH  CORE  ROPE  SIMULATOR  LOAD  TAPE". 

g\ 

- 

0272 

x delete  thru 

275 

J 

0276 

labl  rstp  ts 

W SIM 

FRAME 

PCH  LeDeR 

PUT  visible  identification  ON  TAPE. 

0278 

TS 

z,sc 

Z.Sl 

PCH  TITLE 

INDICATE  HEAD  OF  TAPE. 

V 

0280 

ALF 

hfad 

J 

0281 

TX 

TWENTY 

_ 

Z,R3 

_ 

0282 

TS 

FfED  fram 

frame 

PCH  FRAME 

C PUNCH  TWO  INCHES  OF  TAPrFeeD  CHARS. 

J 

0284 

NA 

Z.R3.1 

ONE 

C,-l 

c 

0285 

* TS 

Zero 

Z * R 1 

Fetch  ss 

clear  unused-word  count*  get  first  ss. 

} 

0287 

* DELETE 

V 

0288 

• SC  MASKER  TX 

saco  msks 

• 

Z,MXr 

J 

0289 

SXE 1 ONES 

1 ,2 

8 , L 

SS  FWA 

saco  address  of  first  Word  in  paragraph. 

0291 

WA 

Z,xi 

THREE 

Z,X4 

1800  ADDRESS  OF  DITTO. 

0293 

La 

N » X4  * 1 

zero 

c. 

FIND  FIRST  USfD  WORD  IN  SUBStRAND. 

J 

0295 

WD 

Z.X4 

ZfXl 

Z,AU1 

0296 

TX 

Z , AU  1,4 

- 

. 

c 

0297 

Wa 

SS  FWA 

Z » A J 1 

Begin  adr 

first  SACO  ADDRESS  USED. 

J 

0299 

TS 

RfSET  ADR 

Frame 

pch  frame 

C RESET  ADDRESS  AND  INFORMATION  BUFFERS. 

0301 

EX 

BfGIN  adR 

CHAR8 

frame 

C LOW-ORDFR  6 bitg  of  address. 

0303 

Sts'Ei  CHAR8 

BeGIN  ADR 

6 

frame 

C HIGH-ORDER  6 BITS  OF  ADDRESS. 

0305 

WD 

Z,X4 

ONE 

Z,X4 

MAKE  X4  POINT  TO  1ST  USED  WORD. 

0307 

TS 

Ba2 

frame 

punch  WD  +2 

SET  DATA  FRAMf  Bit,  GO  PUNCH  FIRST  WORD. 

0309  * 


DELETE  THRU  316 
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P0317  PUNCHING  L00p  FOR  .SACO  GoRe  ROpE  SIMULATOR  LOAD  TAPE.  PUNCHeS  ALL  USeO  WORDS  OF  PRoGRaM  aND  SUPPLIES 

r o 3 1 9 16-^eRo  (bad  parity)  words  For  intervening  unuseO  Locations,  so  that  tfie  te*t  of  t fhe  tape  consists  of  tHe  lowest 

R0321  ADDRESS  used  AND  A CONTINUOUS  StRING  OF  Words  INCLUDING  the  Lowest  and  HIGHEST  USeD. 


0323 

NEXT  word 

Na 

N,Xa 

ztRo 

TEST  ZROS 

branch  if  current  Word  is  used. 

J 

0325 

WA 

Z . R 1 

ONE 

Z.Rl 

incremfnt  unused-word  count. 

0327 

TS 

Z.X4.1 

- 

TEST  ND  SS 

STEP  WORD  COUNTER,  GO  CHECK  ENd  OF  SS. 

032-9 

TEST  ZROS 

la 

Z,Rl 

zero 

PUNCH  WD 

branch  if  no  unused  words  waiting. 

J 

0331 

TS 

RfSET  InF 

frame 

PCH  frame 

c 

Reset  information  storage. 

0333 

TX 

B42 

- 

frame 

c 

J 

0334 

TX 

- 

m 

- 

c 

0335 

TX 

- 

m 

- 

c 

PUNCH  A WORD  OF  16  ZERO  BITS. 

0337 

NA 

Z.Rl.i 

ONE 

TEST  ZROS  +i 

REPEAT  until  R i COUNTS  DOWN  TO  ZeRO. 

J 

0339 

PUNCH  WD 

TS 

RfSET  InF 

Frame 

pch  frame 

c 

RESET  INFq  STOR.  ON  ALL  BUt  1ST  WORD. 

0341 

TX 

B4Z 

- 

FRAME 

SET  BIT  TO  INDICATE  DATA  FRAME. 

J 

0343 

SwS  * 

CHAR8 

N.X4 

l 

frame 

c 

BITS  1-6  OF  WORD, 

0345 

SWS » 

CHAR8 

N.X4 

7 

frame 

c 

BITS  7-12  OF  WORD. 

0347 

TX 

B42 

- 

FRAME 

J 

0348 

SwS  ♦ 

THREE 

N.X4 

13 

frame 

0349 

SWS  * 

EIGHT 

N.X4 

12 

frame 

0350 

sws. 

FOUR 

N,X4,i 

2,L 

frame 

c 

BITS  15,0,14,13  OF  WORD. 

J 

0352 

TEST  ND  SS. 

NA 

4.2 

EOR 

NeXT  word 

branch  if  morf  words  in  substrand. 

0354 

TS 

SS  FW A 

LAST  FWA 

fetch  SS 

GO  GET  ANOTHER  SuBSTRANd  IF  ANY. 

J 

0356 

TS 

stop  fraM 

frame 

END  CRStP 

NO  MoRf  SUBSTRANDS  — PUNCH  TRAILER. 

-> 

0358 

WA 

Z.Xi 

THREE 

Z,X4 

1800  ADDRESS  OF  1ST  WD  IN  NEW  SUBSTRAND. 

0360 

S^E  * 

ONES 

1,2 

8 , L 

ss  fwa 

SACO  ADDRFSS  OF  DITTO. 

0362 

WD 

SS  fwa 

last  fwa 

delta  fwa 

J 

0363 

La 

delta  fwa 

C256 

NeXT  word 

branch  if  delta  fwa  = 256. 

0365 

WA 

Z , R 1 

C256 

Z ,R  1 

NON-CONSECUTIVE  SUBSTRANDS,  SO  SeT  UP 

J 

0367 

WD 

DfLTA  FWA 

C256 

Delta  fwa 

SOME  MULTIPLE  OF  256  UNUSED  WORDS. 

0369 

TS 

- 

- 

C.-3 

J 

R0370 

procedure 

TO  CLOSE  OUT 

SACO  C0Rf  ROpE 

S I M JLA  rOR 

Load  tape  and  proceed 

TO  THe  NeXT  TASK, 

0372 

end  CRSTP 

TS 

thirty 

Z ,R3 

pch  frame 

c 

PUNCH  A STOP-TAPE  CHARACTER. 

J 

0374 

TX 

FEED  FRAM 

- 

FRAME 

c 

PUNCH  TWO  INCHES  OF  TAPf  FEED  CHARS. 

0376 

NA 

Z.R3.1 

ELEVEN 

c.-x 

0377 

TX 

ZfRO 

FRAME 

c 

PUNCH  ONE  INCH  OF  BLANK  TAPE. 

J 

0379 

NA 

Z.R3.1 

ONE 

C.-l 

0380 

TX 

YUL  MASKS 

• 

Z.MXR 

0381 

TS 

W SIM 

FRAME 

PCH  LeDeR 

PUNCH  visible  identification  on  tape. 

J 

0383 

TS 

Z.SC.4 

Z.Sl 

PCH  TITLE 

0384 

ALF  * 5 

tail 

IDENTIFY  AS  TAIL,  RUN  OUT  3"  OF  TAPE. 

0386 

END  PtAPe 

TS 

w 

- 

mon  tape 

J 

0387 

Rrt , 1 

- 

- 

REWIND  YUL PROGS, 

0389 

S,  MON  TYPER  W PAPeR  TA 

SPRAMR  +24 

manuf  rtn 

"PAPER  TAPE  OUTpUT  SENT",  EXIT. 

J 
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P0391 

procedure  to 

PUNCH  A SACO 

MASTER  DECK. 

0392 

TRY 

MaSTR 

na 

n,x5 

W MASTER 

SACO  PNCH  +2 

"MASTER"  IS  RfQUIReD. 

0394 

WA 

Z ,X5 , 3 

THREE 

whodunit 

0395 

NA 

N ,X5 , 3 

w deck 

HOWZIS 

"Deck"  is  required. 

0397 

TX 

Z,X5 

m 

whodunit 

0398 

NA 

N,X5 

ONES 

HoWZis 

superfluous  words  are  forbidden. 

0400 

TS 

YUL  MASKS 

Z , MXr 

E sylt  ok 

make  group  b i ook  for  desired  program. 

0402 

s,  yul  typer 

PmSTR  msg 

A +3 

C»  + l 

TYPE  "PUNCH  MASTER  DECK'!. 

0404 

ts 

L DIReCtY 

Z,x5 

sc  masker 

c 

recover  masks,  poini  to  yulprogs  label. 

0406 

NA,  CHAR8 

5,0 

zero 

C , + 2 

BRANCH  IF  SOMf  BaCKUP  ALREADY  WANTED. 

0408 

ss 

TWO 

CHARS 

N,X5 

CALL  FOR  BACKUP  tape  LABEL  AMENDMENT. 

0410 

SWE*  D4T7 

5,5 

D , 5 , L 

MON  DAW 

FETCH  CURRENT  MASTER  DECK  SERIAL  NUMBER. 

0412 

DA,  CAC3 

5,5 

ONE 

5,5 

increment  permanently  stored  serial. 

0414 

TS 

Z,SC 

Z , A Jl 

YUL  D2A  ZS 

0415 

MON 

daw 

RFSERVE 

1 

0416 

SS 

N , SH 

C2T7 

card 

place  alpha  sfrIaL  as  card  number. 

0419 

SWS  * C4578 

5,4 

A, 3 

card  +8 

0420 

SwS,  C2T3 

5,4 

A, 3 

card  +9 

place  alpha  date  in  log  card. 

Roa22  loop  for  each  paragraph  (formerly  substrand)  read  from  yulprogs. 


0423 

MASDEK  PH  TS 

L OBUC  MSG 

Z , R l 

Fetch  ss 

fetch  a paragraph  if  any  are  left. 

0425 

TS 

YUL  MASkS 

Z , MXR 

end  mastr 

CUT  OUT  HfRE  IF  NO  MORE. 

0427 

SwS,  AC01 

1,2 

36, L 

ph  number 

0428 

Sw5*  AC02 

1,2 

33  * L 

ph  number 

0429 

SMS*  AC03 

1,2 

30* L 

ph  number 

FORM  ALPHA  ParaGraph  NUMBER. 

0431 

SS 

PH  NUMBER 

C 1 T 3 

card  +7 

PUT  IT  IN  LOG  OR  PRECEDING  TRAILER. 

0433 

S,  PUNCH  CD 

Card  _i 

ALPHA 

c,  + i 

punch  log  card  or  preceding  trailer. 

0435 

SS 

RC162C8 

ClC8 

card 

SET  columns  1 and  8 FOR  HEADER  CARD. 

0437 

TX 

PH  number 

card  +9 

paragraph  number  for  header  card. 

0439 

SWE*  D12 

1,2 

2 

Z,AUl 

0440 

WA 

Z.AUl 

L STICKNS 

Z.AUl 

0441 

SS 

N,AUi 

C5T7 

card  +9 

SET  UP  STICK  NAME  AND  HALF-STlC<  LETTER 

0443 

SWS*  SEVEN 

1,2 

4 

card  +9 

0444 

SS 

1,2 

THREE 

card  +9 

SET  UP  NUMBER  OF  SENSE  LINE  SET. 

0446 

TN 

N,R1 

7 

card  +1 

PLACE  OBUfCT  MESSAGE  in  header  card. 

0448 

SS 

W paragra 

C5T8 

card  +7 

0449 

TX 

w paragra  +1 

- 

card  +e 

PUT  "PARAGRAPH"  IN  HEADER. 

0451 

S*  PUNCH  CD 

Card  -i 

ALPHA 

C,  + l 

PUNCH  PARAGRAPH  HEADER  CARD. 

0453 

WA 

Z.Xi 

THREE 

Z,X5 

1800  ADDRESS  OF  FIRST  WORD  IN  PARAGRAPH 

0455 

SS 

Al  F 370 

CiT4 

card  +9 

initialize  subaddress  in  detail  card. 

L @YUL  SYSTEM  MANUFACTURING  _ SACO 
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0458 

4 cards  ss 

blanks 

CiCb 

0460 

TS 

Four 

Z * R 7 

R0462 

LOOP  FOR  EACH  CARD. 

0463 

EACH  CARD  S,  PUNCH  CD 

Card  >i 

ALPHA 

0465 

TX 

CARP  WD2 

m 

R0466 

LOOP  FOR  EACH  WORD. 

0467 

WD  IN  CARP  TX 

EMPTY  WO 

m 

0468 

SwS  * AC03 

N,X5 

17»L 

0469 

SwS,  AC04 

N,X5 

14  * L 

0470 

SwS * AC05 

N,X5 

ll.L 

0471 

SWS.  AC06 

N,X5 

8 * L 

0472 

SWS*  AC07 

N *X5 

5 * L 

0473 

S5 

N,X5,i 

ONE 

0475 

NA 

Z,Xa 

CARD  WD 1 0 

0477 

WA 

card  +9 

OCT  INC 

0478 

SS 

ZfRO 

OcT  00047 

0480 

NA 

Z *R7  * l 

ONE 

0482 

SS 

RC1&2C8 

CHAR  8 

0484 

5,  PUNCH  CD 

CARD  -1 

ALPHA 

0486 

NA 

5,2 

EOR 

0488 

SS 

RC1&8C8 

CiC8 

0490 

TN 

END  PaRaG 

6 

0492 

MT 

blanks 

3 

0493 

TS*  C1T3 

PH  NUMBfR 

card  +4 

R0495 

final  actions  for  saco 

MASTER  DECK. 

0496 

end  mastr  TN 

W END  DfCK 

3 

0497 

S*  PUNCH  CD 

CARD  -1 

alpha 

0499 

CLOSE  PCH  S.  PUNCH  CD 

EoR 

binary 

0501 

TS 

- 

w 

0502 

Rw  * 1 

- 

§ 

0504 

S,  MqN  TYPER 

w CARD  qUj 

SPR AMR  +16 

f 
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Card 

EACH  CARD  +1 

set  columns  i and  8 for  detail  Card.  • 

SET  UP  TO  COUNT  4 CARPS. 

c,  + i 

punch  a Pftaii  Card  with  b words. 

Z,X4 


N,X^ 

N,X4 
N,X4 
N,X4 
N,X4 
N,X4 
N *X4 , l 

wp  in  card 

m 

spread  SACO  WORD  out  to  1800  ALPHA  WORD. 

BRANCH  IF  MORF  WoRDS  For  THIS  CARD.  0 

carp  +9 

CARP  +9 
EACH  CARD 

incRemfnt  alfocTal  subaddress  BY  8.  0 

BRANCH  IF  NOT  END  OF  4-CARD  GRoJP. 

card 

c * ♦ 1 

4 CARDS 

DOUBLE-SPaCE  after  each  4 carps.  • 

PUNCH  EVERY  FOURTH  DETAIL  CARP. 

BRANCH  IF  NOT  LAST  GROUP  IN  PARAGRAPH. 

card 
Carp  +i 
N,AU2,1 
maspek  PH 

set  columns  1 and  b for  trailer  carp. 

SET  UP  alpha  TEXT  OF  TRAILER  CARD. 

m 

GIVE  UNFInISHfD  TRAILER  TO  NeXT  paragr. 

m 

card  +5 
CLOSE  PCH 

PUNCH  FINAL  TRAILER  CARD.  • 

c,  + l 

MON  TAPE 

close  out  punching. 

manuf  rtn 

REWIND  YULPROGS. 

TYPE  "CARP  OUTPUT  DONE"  AND  EXIT. 
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P0506  SUBROUTINE  TO  READ  AND  ABSORB  SuBDIReCtoRS  OF  THE  FoRM  "PARAGRAPH  NNN",  WHtRE  NNN  IS  FROM  1 TO  3 oCtaL  DiGItS 

R0508  AND  IS  THE  NAME  OF  A Sa<-0  PARAGRAPH.  A CARD  SPECIFYING  PARAGRAPH  N WILL  LEAVE  IN  REQ  LIST  +N  A CaC  WHoSe  CAC2 

ro5 io  Points  to  alf  « rhs"  (Rope,  half,  side  = qjaRteR-RoPe  namf>»  and  whose  CAC3  points  to  alf  nwww-www",  the 

Ro512  range  OF  wire  NUMBERS  THAT  SPeCiFY  THe  SeNSe-WINDiNG  SeT.  ENTER  At  READ  A ReQ  WItH  Return  in  Si. 

R o 5 i a assorted  complaints  aBqUt  ill-Fqrmeu  paragraph  request  Cards. 


0515 

2 LONG  PHN 

TX 

YUL  MASKS 

- 

Z ,MXR 

0516 

St 

YUL  TYPER 

2 LONP  MSG 

AMTF  +3 

unrc  subd  -i 

paragraph  number  too  long. 

0518 

UNOCT  PHN 

TX 

YUL  MASKS 

- 

ZtMXR 

0519 

St 

YUL  TYPER 

UNOPN  msg 

AMTF  +3 

unrc  subd  -i 

paragraph  number  blank  oR  non-oCtal. 

0521 

ILLEG  PHN 

TX 

YUL  MASKS 

- 

Z,MXR 

0522 

S, 

YUL  TYPER 

II  LPN  msg 

AMTF  +3 

unrc  subd  -i 

paragraph  number  has  illegal  value. 

0524 

DUPLI  PHN 

TX 

YUL  MASKS 

- 

Z,MXR 

-0525 

St 

YUL  TYPER 

DUPPN  MsG 

AMTF  +3 

unrc  subd  -i 

PARAGRAPH  NUMBER  DUPLICATED. 

0527 

TS 

2, SC, i 

- 

IGN  SUBDR 

always  ignore  ILL-FoRMed  request. 

0529 

unrc  subd 

TS 

yul  masks 

ZtMXR 

Unrc  sbdr 

unrecognized  word  in  substrand  request* 

0531 

read  a Req 

TS 

SaCo  MSkS 

Z.^XR 

RD  SBDIRC 

fetch  ss  reqUfst  if  any  such  are  left. 

0533 

TS 

yul  masks 

Z.MXR 

any  goods 

come  here  when  subdirectors  run  out. 

0535 

WA 

Z,X6 

OCTAL  20 

Z,X5 

0536 

TX 

Z ,X5 

- 

WHODUNIT 

0537 

NA 

N,X5,i 

W PARAGRF 

unrc  subd 

0538 

NA 

N,X5,2 

W PARAGRF  *1 

unrc  subd 

"PARAGRAPH"  IS  REQUIRED. 

0540 

LAt 

CHAR6 

5,2 

zero 

UnoCt  PHN 

blank  paragraph  number. 

0542 

LAt 

CHAR6 

4 C6 

5,2 

2L0NG  PHN 

PARAGRAPH  number  over  three  digits. 

0544 

LAt 

CHAR8 

EIGHT 

5,2 

UnoCt  phn 

paragraph  number  not  octal. 

0546 

TS 

zero 

PARAG  NO 

C , + 2 

0547 

SWS*  ONES 

paRag  no 

3 t L 

PARAG  NO 

0548 

SiWS 

t seven 

N,X5 

A, 7 

PARAq  NO 

CONVERT  ALPHA-OCTAL  TO  rINARy. 

0550 

SWS t C1T3 

N ,X5 

A , 1 1 L 

N ,X5 

0551 

NA 

N,X5 

BLANKS 

C,-3 

0552 

LA 

C32 

PARAG  NO 

ILLEG  PHN 

numbers  040  THRU  777  ARE  ILLEGAL. 

0554 

WA 

Z »X5 

THREE 

whodunit 

0555 

NA 

5,3 

ONES 

HoWZis 

superfluous  words  are  forbidden. 

0557 

WA 

PARAG  NO 

L RE3  LIST 

Z,X5 

0558 

NA 

N.X5 

zero 

DUPLI  PHN 

requested  paragraph  number  is  duplicate 

0560 

SWS 

t Dq 

PaRag  no 

14 1 L 

N ,X5 

4 bits  DETERMINE  WHICH  QUARTER-ROPE. 

0562 

SwS 

» SeVeN 

paRag  no 

4 

N ,X5 

HIGH  1 AND  LOW  2 Bits  DETERMINE  WHICH 

0564 

ss 

PaRAG  no 

THREE 

N ,X5 

SENSE-WINDING  SET  (1  OF  8). 

0566 

WA 

N,X5 

ST  WIR  CAC 

N ,Xb 

add  base  addrfsses  to  bit  groups. 

0568 

T5 

ONES 

re3  list  +116 

read  a req 

show  that  at  least  one  request  got  in. 

0570 

any  goods 

NA 

RfQ  list  *116 

zero 

NtSl 

RETURN  IF  ANY  REQUESTS  were  ABSORBED. 

0572 

S, 

YUL  TYPER 

No  Guo  mSg 

AmTF  +2 

TYP  ABORT 

TYPE  "NO  GOOD  REQUESTS",  ABORT. 
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R0576  PARAGRAPH,  A COMPLAINT  IS  tYPED.  IF  ALL  REQUESTED  PARAGRAPHS  ARE  AbSeNT,  "No  GOOD  REQUESTS"  IS  TYPeD  AND  THe 

Rq578  task  aborts.  nqRMal  Reiurn  is  To  l+2  with  paragraph  available  at  xlf  and  in  St i k wirf  the  CaC  set  up  by  Read  a 


R0580 

REO 

. END- 

OF-FILE 

return  is  to  l+i. 

enter  with 

Return  (l+d  in  X5. 

0581 

GET 

REQ  PN 

Tx 

reo  pi_a<;E 

Z , AUl 

REO  PLaCE  MU-ST  INIT.  = l rEQ  lI^T. 

0583 

LA 

N.AUl.l 

zero 

c,*o 

058  A 

tx 

Z.AUI 

- 

REO  PLACE 

0585 

WO 

Z.AUi 

ONE 

Z.AUi 

point  to  found  Request. 

0587 

Las 

PN  dun 

la 

ONES 

N*AJl 

any  goods 

+ 1 

<c  address  changed  on  first  delivery). 

0589 

WD 

Z.AUI 

L REO  LIST  PARAG  NO 

0590 

TX 

N.AUl 

Sj I K WIRE 

DO  NOT  ECONOMIZE  WITH  NeXT  INSTRUCTION. 

0592 

fetch  reo 

TS 

_ 

Fetch  ss 

GET  PARAGRAPH  IF  IT  EXISTS. 

0594 

TS 

c,+o 

C.-l 

ph  not  her 

stop  trying  if  paragraphs  run  oJt. 

0596 

La 

1,2 

PA^Ao  NO 

phn  match 

branch  if  couid  be  desired  ph. 

0598 

PH  1 

NOT  HER 

TX 

SACO  msks 

z.mxr 

0599 

S»vS,  AC03 

PaRAG  no 

24, L 

PNHER  MSG 

+ 1 

0600 

SwS*  AC04 

PaRAG  no 

21,  L 

Pnher  msg 

+ 1 

0601 

SwS,  AC05 

PaRAG  NO 

18, L 

PNHER  MSG 

+ 1 

0602 

YUL 

maskr 

TX 

YUL  MASKS 

- 

Z.MXR 

0603 

S,  YUL 

typer 

PNHER  MsG 

A +3 

GEt  ReQ  Pn 

type  "paragraph  nnn  not  here",  try  next. 

0605 

phn 

match 

NA 

1,2 

PARAG  NO 

FETCH  REQ 

branch  to  bypass  unwantfd  PARAGRAPH. 

0607 

TS 

C , ♦ 1 

LAS  Pn  DUN  5,1 

SET  UP  END-OF-FILE  EXIT,  DO  NORMAL  EXIT. 

0609 

LA 

ones 

N,  AJl 

N ,X5 

0 
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L 


Roooi  we  are  Deeply  indeBteQ  to  the  one*  the  only,  the  greAt  Qohn  c'haw  for  tHe  Following  Strong  magic,.,. 

R0003  JSOCTj 


OOOA 


SETLOc.l 


B2 


0005 


MAS<tlRP.l 


S,1 


F,1 


R0006  THIS  BLK2  MAnUFAcTUr j nG  PrOGrAM  is  lOAdEd  IN  RESPonSE  TO  A WELL-FOrMED  YUl  DIRECTOR  cArD  sPEciFYimG 

R0008  MANUFACTURING  FOR  A CORRECTLY  ASSeMBLeO  3lK2  PROGRAM.  It  COMMUNICATES  WITH  SUBROUTINES  IN  PASS  o AS  wirH  A 

Rooio  monitor,  it  examines  one  or  more  subdirector  caros  cs"  in  column  ii  to  determine  the  task  required,  su3direc_ 

r0012  tor  cards  OBeT  THe  same  SYNTACTICAL  rules  AS  DIRECTOR  CARDS.  EXAMPLES  of  ALL  CURRENTLY  AVAILABLE  TYPES  Follow; 


r001A  s 

R00 1 5 S 
R00I6  s 
R0017  S 
ROO  I 8 S 
R0019  "S 
ROO 190 1"S 


PUNCH  36<  CORE  ROPE  SIMULATOR  TAPE 
PUNCH  RAYTHEON  WIRING  TAPE 
PUNCH  RAYTHEON,  TESTER  TAPE 

punch  master  deck 

PUNCH  SYMbOL  I ABLE 

PUNCH  SYMBOL  TABLE  AND  MASTER  DECK 

PUNCH  SIMULATION  DECK 


R00191  S COPY  ONTO  WORKER 

R00 1 92  S COMPARE  PROGRAM  PROGNAME  FROM  W0R<Er 


(USED  WITH  COMPARE.  BeLOW), 

(PROGNAME  Is  NAME  Op  COPIED  PR03RAM) . 


R0020  FOR  A.L  TAPE  PUNCHING'  A *USE*  SUBDIRECTOR  IS  AVAI.ABLe.  SEr  PAGF  23. 


ROO 2 1 FOR  WIRING  AND  TeSTE^  TAPE  RUNS  A "MODULE  DECK  NJMBeRS"  SJ30tRECtOr  IS  REQUIRED.  SEE  PAGE  2A. 

R0023  AN  OPTIONAL  FeATURe  EXISTS  FOR  PRINTING  DJT  TH£  RrSULTS  OF  A tAPe/CARD  PUNCHING  RUN  AND/OR  SUPPRESSING  PUNCHING. 

R0025  SEE  PAGE  30. 


R0026  FOR  AuL  TAPe  PJNCHING'A  "PARAGRAPH"  SUBDI RECTOR  IS  REQUIRED.  SEE  P 21. 

0027  BL<2  MANU  TS  BANK  i Z.X o WHAT  SU3r>  THIS  ORDER  IS  AT  BASE  ADDR.  OF  PROGRAM. 

R0029  MAIN  3ARt  OF  PROGRAM  FOLLOWS  CONSTANTS,  ETC. 
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L 6YUL  SYSTEM  MAN JFACTU RiI NG  - BL<2 


P0030 

FIELD  AND 

shift  MASKS 

FOR  BLK2  MANUFACTURING 

0031 

B*D3D4 

DEC 

OOGG 

0032 

B1CHAR6 

OCT 

-77  0000 

0033 

B.CHARB 

OCT 

-77 

0034 

B * C4T  7 

OCT 

-7777777700 

0035 

B.CHAR6 

OCT 

-77000000 

0036 

B « LOADS 

OCT 

-101 

0037 

B.342 

OCT 

-100 

0038 

B * 32 1 T 24 

OCT 

00000017 

0039 

B »314  T24 

OCT 

00003777 

0040 

B * C 1 T 3 

OCT 

777777 

0041 

B tC5T  3 

OCT 

-77777777 

0042 

B.C1T5 

OCT 

7777  7777  7777 

0043 

B.CAC3 

DEC 

-GGGG 

0044 

B*BIT  MASK 

OCT 

0 

0045 

BONES 

DEC 

GGGG  GGGG  GGGG 

0046 

BONE 

DEC 

-1 

0047 

B.TWD 

OCT 

-2 

0048 

B * THR  EE 

DEC 

-3 

0049 

B»FDJRi 

DEC 

-4 

0050 

B.SE\/EN 

DEC 

-7 

0051 

B * E I 34T 

DEC 

-8 

0052 

B * B44  T48 

OCT 

-37 

0053 

B.C1T4 

OCT 

77777777 

00532 

B.C7T3 

OCT 

-7777 

00533 

B * B AN  3T  TS 

OCT 

-760  0000 

00534 

#B  * B 1 T 7 

OCT 

004 
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L 

0YUL  SrSTEM 

MANUFACTURING  - 6L<2 

P005A 

FURTHER  SHIFT  'IAsKS 

0057 

S » C2T  3 

OCT 

007777 

0058 

S*CA578 

OCT 

-777700777 

0060 

S.012 

DEC 

-G 

0061 

SfCHARl 

OCT 

77 

0063 

S*DAT7 

DEC 

OOOGGGG 

0065 

S.ACD2 

OCT 

0017 

0071 

S 1 1 C 5 

OCT 

-0100  0000 

0072 

S.l  C 6 

OCT 

-01  0000 

00  7 A 

StACDl 

OCT 

07 

0075 

5 » ACD2 

OCT 

0007 

0076 

S.ACD3 

OCT 

000007 

0077 

S » ACD  A 

OCt 

00000007 

0078 

S.ACD5 

OCT 

-700  0000 

0079 

S * ACD  5 

OCT 

-7  0000 

0080 

S * ACD  7 

OCT 

-700 

0081 

S » C 1 T 2 

OCT 

7777 

0082 

S.CHAR3 

OCT 

000077 

0085 

S » 3A5  TA7 

OCT 

-16 

0087 

S * 3 A3  T A7 

OCT 

-76 

0088 

5 » 3 A 1 

OCT 

-200 

0089 

S.B12 

OCT 

0001 
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P0091  ALPHA3ETIC  CONSTANTS. 


009199*W 

3 AD  WORD 

ALF 

0092 

BLAN<S 

ALF 

0093 

w 

NASA 

ALF 

009A 

w 

CORE 

ALF 

- 0095 

w 

ROPE 

ALF 

0096 

w 

SMJ.ATO 

ALF, 2 

0098 

w 

TAPE 

ALF 

0099 

w 

ratteon 

ALF 

0100 

w 

WIRING 

ALF 

0101 

w 

tester 

ALF 

0102 

w 

ACM 

ALF 

0107 

w 

CARD  OUT 

ALF, 2 

0108 

*w 

SIM-ATN 

ALF, 2 

0111 

w 

PAP-R  TA 

ALF, 3 

BADWORD 

NASA 

CORE 

ROPE 

SIMULATOR 

TAPE 

RAYTHEON 

WIRING 

TESTER 

ACM 

card  output  sent 
simulation 

paper  tape  output  sent 
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L @ YUL  SYSTEM  MANUFACTURING  - BL<2 

P01 12  ALPHA3ETIC  CONSTANTS  CONTINUED. 
0113  OCT  0 


0114 

CARDS 

ALT  .5 

0115 

ALF  »5 

0116 

OCT 

0117 

CARD 

ALF, 5 

.0118 

ALF, 5 

01185 

*S1M  CARD 

ALF, 3 

0119 

ALF  370 

ALF 

0120 

W 

PARAGRA 

ALF  ,2 

0121 

RC1&2C8 

ALF 

0122 

RC1&8C8 

ALF 

01221 

#E 

COMMA  XX 

ALF 

01222 

*4 

ZEROS 

ALF 

01223 

*0CT  FORM 

ALF 

01224 

*W 

OCT 

ALF 

01225 

#FBAN<  00 

ALF 

0123 

W 

SYM30L 

ALF 

0124 

W 

TA3.E 

ALF 

0125 

W 

AND 

ALF 

0126 

w 

MASTER 

ALF 

0127 

w 

DECO  ' 

ALF 

0128 

w 

END  DECK 

ALF, 3 

0129 

w 

END  SYM  T 

ALF , 3 

0131 

w 

PARAGRF 

ALF, 2 

0132 

w 

CRW 

ALF 

0133 

w 

CRT 

ALF 

0134 

w 

USE 

ALF 

0135 

w 

PINO 

ALF 

0136 

w 

OILED 

ALF 

0137 

w 

PAPER 

ALF 

0138 

w 

BLACK 

ALF 

0139 

w 

31 IE 

ALF 

0140 

w 

MYLAR 

ALF 

0141 

w 

GRAY 

ALF 

0142 

w 

GREr 

ALF 

0143 

w 

FI3ER 

ALF 

0144 

w 

ALJN1NM 

ALF 

014401 

w 

D1G5T0R 

ALF, 2 

01441 

w 

ONTO' 

ALF 

01442 

w 

FROMi 

ALF 

01443 

w 

WORKER 

ALF 

01444 

w 

PROGRAM 

ALF 

0145 

w 

MOD  JLE 

ALF 

0146 

w 

NJM3ERS 

ALF 

0147 

w 

ALL 

ALF 

0148 

w 

THRJi 

ALF 

0149 

w 

THROUGH 

ALF 

0150 

w 

TESTING 

ALF 

0151 

w 

NOPJNCH 

ALF 

0152 

w 

LIST 

ALF 

0155 

W36K 

ALF 

0156 

WB3  3 SK 

ALF 

0 

L0000004BLK2  MASTER  DECK 
1ST  PARAGRAPH 
L aAGC  SIM  DECK  0F 

370 

PARAGRAPH 

R 2 

R 8 

EO  *0000 
0000 
77777 
OCT 
00* 

SYMBOL 

TABLE 

AND 

master 

DtCK 

end  of  blk2  master  deck 
end  of  symbol  table 
paragraph 

C R W 
CRT 
USE 
PINK 
OILED 

paper 

black 

BLUE 

mylar 

gray 

grey 

FIBER 

ALUMINUM 

DlGISTORE 

ONTO 

FROM 

WORKER 

PROGRAM 

MODULE 

NUMBERS 

ALL 

THRU 

THROUGH 

TESTING 

NOPUNCH 

LIST 

36K 


36K 
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0157 

W HEA> 

ALF 

HEAD 

0158 

W TAIL 

alf 

TAIL 

0159 

W PUNCHED 

ALF 

PUNCHED 

0160 

EB< 

ALF 

E-BANK  0 

0161 

EBN< 

ALF 

EBKO 

0162 

NO  MDN  MSG 

ALF 

.5 

(module  deck  numbers  su3director  missing. 

0163 

ALF 

ABORT 

01631 

CMPAR  MSG 

ALF 

,3 

compare  from  worker 

016312 

CMPR  lJNE 

alf 

,3 

comparing  for  blq; 

01632 

COPY  MSG 

ALF 

,2 

copy  onto  worker 

016322 

COPY  _INE 

ALF 

,3 

copying  for  blk2: 

01633 

E COPT  MSG 

alf 

,5 

copying  done,  next  TAS<  COMPARES  a p«OGR 

01634 

ALF 

,2 

AM  WITH  THIS  ONE 

01635 

E CMPRi  MSG 

ALF 

,2 

comparing  done. 

0164 

CH<  M MSG 

ALF 

*5 

module  deck  number  needed  for  module 

0165 

X MDN  MSG 

ALF 

» 5 

NOT  TO  Be  wired  MODULE  ASSIGNED  DEC 

01651 

ALF 

K NUMBER 

01659 

NO  WT2  MSG 

ALF 

,5 

YULWRK2  MISSING.  WASN'T  COPY  TASK  DOmE* 

01661 

CMPFL  MSG 

ALF 

*5 

PARAGRAPH  000  FAILED  COMPARISON  FqR  T 

01662 

ALF 

,5 

hese  paragraph  relative  locations 

0167 

PRTTP  MSG 

alf 

,4 

PUNCH  RAYTHEON  TESTER  TAPE 

01673 

C FIRST  RC 

ALF 

,5 

PROGRAM  000  3LK2  COPY  COMPARE  WnRKE 

01674 

ALF 

,4 

R 

0168 

EXCES  MSG 

ALF 

,4 

EXCESS  SUBDIRECTOR  ENCOUNTERED 

0169 

P36<T  MSG 

ALF 

,5 

PUNCH  36K  CORE  RO=E  SIMULATOR  TAPE 

0170 

CRWT  MSG 

ALF 

*5 

computer  blk2  module  Peck  number  nmnn 

0171 

ALF 

*5 

MODULE  OA  strand  00  WIRES  yyyyyyyy 

0172 

36KSM  MSG 

ALF 

,5 

COMPUTER  BLK2  MODULE  OA  BANK  00 

0173 

ALF 

FEB  0 

0174 

PRWTP  MSG 

ALF 

,4 

PUNCH  RAYTHEON  WIRING  TAPE 

0175 

2 LON^F  MSG 

ALF 

,3 

PARAGRAPH  NO.  TOO  LONG 

0176 

UNOPN  MSG 

ALF 

,3 

PARAGRAPH  NO.  NOT  OCTAL 

0177 

ILLPN  MSG 

ALF 

,3 

illegal  paragraph  NO. 

0178 

DUPPN  MSG 

ALF 

,3 

DUPLICATE  PARAGRAPH  NO. 

0179 

pnher  msg 

ALF 

,3 

PARAGRAPH  000  NOT  HERE 

0180 

NO  GJ>  MSG 

ALF 

,2 

NO  GOOD  REOUESTS 

01801 

#SMDSO  MSG 

ALF 

• 5 

SIMULATION  DECK  IS  FOR  SEGMENTS  ONLY 

0181 

E MEM 

ALF 

*2 

E - MEMORY 

0182 

SYMBL  MSG 

ALF 

,3 

PUNCH  SYMBOL  TABLE 

0183 

SYMAS  MSG 

ALF 

,5 

PUNCH  SYMBOL  TABLE  AND  MASTER  DECK 

01831 

*SIMD<  MSG 

alf 

,3 

PUNCH  SIMULATION  DECK 

0184 

NO  S Y Mi  MSG 

ALF 

,3 

PROGRAM  HAS  NO  SYMBOLS 

0185 

PALL  MSG 

ALF 

,5 

^PARAGRAPH  ALL*  CARD  INVA.lDATED  BY  pREV 

0186 

ALF 

,2 

IOUS  CARD 

0187 

NASA  MSG 

ALF 

,5 

RAYTHEON  TAPE  PUNCHING  R£DUIReS  NASA  DWG 

0188 

ALF 

NUMBER 
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P0189 

ALPHA3ETIC 

constants 

continued. 

0190 

END  P 4R  AG 

ALF, 5 

END  OF 

PARAGRAPH 

next 

0191 

alf 

RAGRAPH 

0192 

BL<2  NAME 

ALF 

BL<2 

0193 

BL<C1C8 

ALF 

000000 

0194 

EMPTY  WD 

ALF 

777771 

0195 

PMSTR  MSG 

ALF,  3 

PUNCH  MASTER  DeC< 

0196 

PH  NJMBER 

ALF 

777=2B00 

0197 

WIRE  NOS 

ALF, 4 

1-16  17-32 

33-48 

49-64 

0198 

ALF,  A 

65-80  81-96 

97-112 

113-128 

0199 

ALF, 4 

129-144  145-160  161-176 

177-192 

0200 

*W  EDRJPT 

ALF 

EDRUPT 

02001 

"W  EXTEND 

ALF 

EXTEND 

02002 

"W  INHINT 

ALF 

INHINT 

02  00  3 

"W  RELINT 

ALF 

relint 

02004 

#.W  RESUME 

ALF 

resume 

02005 

"W  EXERASE 

ALF 

EXERASE 

0201 

"OP  CODES 

ALF 

TC 

02011 

* 

SPEC 

CCS  TCF 

02012 

# 

SPEC 

DAS  ETC 

02013 

* 

ALF, 2 

CA  CS 

02014 

# 

SPEC 

INDEX  ETr 

02015 

# 

ALF, 2 

AD  MASK 

02016 

* 

SPEC 

DV  BZF 

02017 

# 

SPEC 

MSU  ETC 

02018 

# 

ALF,  3 

DCA  DCS 

INDEX 

02019 

# 

SPEC 

SJ  BZMF 

0202 

# 

ALF 

MP 

0203 

"CHAN  OPS 

ALF  ,4 

READ  WRITE 

RAND 

WAND 

02031 

# 

ALF, 3 

ROR  WOR 

RXOR 

0204 

*ccs  t:f 

ALF.2 

CCS  TCF 

0205 

"DAs  ETC 

ALF  *4 

DAS  LXCH 

I NCR 

AOS 

0206 

"INDEX  ETC 

ALF,  4 

index  dxch 

TS 

X CH 

0207 

*DV  BZF 

ALF, 2 

DV  BZF 

0208 

"MS J ETC 

ALF, 4 

MSU  QXCH 

AJG 

DIM 

0209 

"SU  BZMF 

ALF, 2 

SU  BZMF 
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@YUL  SYSTEM 

MANUFACTURING  - BL<2 

PG213 

NUMERIC  CONSTANTS 

FOR;  BLK2  MANUFACTURING. 

02 1 A 

*TCF  7777 

OCT 

-37776 

0215 

C1C8 

OCT 

7700  0000  0000  0077 

0216 

C2T7 

OCT 

0077  7777  7777  77 

0217 

BANEDFRI 

OCT 

-A20  0000 

0219 

THREAD  11 

OCT 

-3777 

0220 

02 

DEC 

OG 

0221 

1 02  . 

DEC 

01 

0222 

1 DA 

DEC 

0001 

0223 

7 02 

DEC 

07 

02  2 A 

A C6 

OCT 

-A  0000 

0225 

ZERO 

OCT 

0 

0227 

SIX 

OCT 

-6 

0228 

FIVE 

OCT 

-5 

0229 

NINE 

DEC 

-9 

0231 

ELEVEN; 

FXBIN 

-11 

0233 

THIRTY 

fxbin 

-30 

02  3A 

C32 

FXBIN 

-32 

0235 

DEC  0033 

DEC 

0033 

0237 

C2  55 

FXBIN 

-255 

0238 

C256 

FXBIN 

-256 

0239 

OCT  OOOA7  . 

OCT 

OOOA7 

02  AO 

DEC  M 16 

DEL 

-16 

02A02 

OCT  INC 

OCT 

000071 

02  A5 

WIR  TENS 

DEC 

-10 

02A6 

X JNITS 

DEC 

-20 

02A7 

WIR  HJNDS 

DEC 

-30 

02  A8 

X TENS 

DEC 

-AO 

02  A9 . 

WIR  JNJTS 

DEC 

-50 

0250 

SPEC  -RAM 

DEC 

-60 

0251 

FEED  1 T 7 

DEC 

-7G 

02511 

B 1 

OCT 

A 

0252 

2 C5 

OCT 

-0200  0000 

02522 

OCT  17 

OCT 

-17 

0252A 

*OCT  117 

OCT 

-117 

02526 

*OCT  3 77$. 

OCT 

-377$ 

02527 

*OCT  10000 

OCT 

-10000 

- — 02528 

*OCT  2779 

OCT 

-2779 

02529 

*OCT  17777 

OCT 

-17777 

0253 

OCT  157 

OCT 

-157 

02  5A 

OCT  60 

OCT 

-60 

0255 

OCT  2 NO 

OCT 

-2A0 

0256 

OCT  37 

OCT 

-37 

0257 

OCT  2 7 

OCT 

-27 

0258 

B2A< 

OCT 

00000001 

0259 

B 3 A 

OCT 

-AOOOO 

0260 

B23< 

OCT 

00000002 

0261 

B30 

OCT 

-1000000 

0262 

B23T2NK 

OCT 

00000003 

02  6A 

OCT  65 

OCT 

-66 

0265 

OCT  217 

OCT 

-217 

0266 

B22< 

OCT 

OOOOOOOA 
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02661 

B22B29K 

OCT 

0000  0005 

02662 

PRESUME  WD 

OCT 

-50017 

0267 

K6M 

OCT 

”6 

0268 

CORE  000 

OCT 

-1  00000 

0269 

CORE  900 

OCT 

-1  00900 

0270 

STOP 

OCT 

-200 

0271 

RESET 

OCT 

-190 

0272 

SENSE  A 

OCT 

-300 

0273 

SENSE  B 

OCT 

-290 

0279 

CORE  MO  A 

OCT 

-090 

0275 

CORE  MO  B 

OCT 

-100 

0282 

87  PUNCH 

OCT 

-300 

0283 

ST0P36< 

OCT 

-301 

0285 

FS 

OCT 

-361 

0287 

DATA 

OCT 

-390 

0288 

Z UNITS 

DEC 

-80 

2" 


I" 
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P0289 

address  constants 

' • 

0290 

L RSPEX  P8 

SPEC 

R SPECS  *8 

0291 

R SPECS 

SPEC* 

B3 

262 

- 

0292 

SPEC* 

B3 

DAMN  ZERn 

0293 

SPEC* 

B3 

198 

0294 

SPEC* 

B3 

6A 

0295 

SPEC* 

B3 

132 

0296 

SPEC* 

B3 

130 

* 

0297 

SPEC* 

B3 

196 

- 

0298 

SPEC* 

B3 

6 6 

02  99 

L END  R ASS 

SPEC* 

B3 

263 

0300 

R SPECSP 

SPEC.B3 

262 

0301 

BANK  1 

SPEC  *B 1 

DAMN  ZERn 

0302 

Bl_<2  MSKS 

maskbase 

S,1 

F * 1 

0303 

L 32  SDBDS 

SPEC 

32  S IBDRS 

0304 

L NEK  PARH 

SPEC 

NEXT  PARu 

0305 

L CARDS 

SPEC 

CARDS 

0306 

CARDS  PlO 

SPEC 

CARDS  +in 

0307 

CARD  WD2 

SPEC 

card  +i 

0308 

CARD  WD 1 0 

SPEC 

CARD  +9 

0309 

*L  DP  CODES 

SPEC 

dp  codes 

03091 

*L  CHAM.  OPS 

SPEC 

CHAN  DPs 

0310 

ST  W I R CAC 

CAC 

TRENDS  _1 

0311 

L RED  LIST 

SPEC 

req  list 

0312 

L CPY  AREA 

SPEC 

CdPY  area 

0313 

L ARTSDK  N 

CAC 

W CRT 

ARTS  D<  MO 

0314 

END  SJBDS 

SPEC 

last  sort 

ROYAL  f BUSINESS  FORMS  INCORPORATED 
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P0315 

RESERVATIONS. 

0316 

WIRE  \|0 

RESERVE 

i 

0317 

RE3  LIST 

RESERVE 

240 

0318 

0C1 

0 

0320 

BEGIN  ADR 

RESERVE 

1 

0321 

SS  F W A 

RESERVE 

1 

0322 

LAST  FWA 

RESERVE 

1 

032-3 

MDN  MARK 

RESERVE 

1 

0324 

KC0MM3N' 

reserve 

10 

0325 

FIRST  WD 

reserve 

1 

0326 

E 256  LOC 

reserve 

1 

0327 

HOLD  _0C 

RESERVE 

1 

0328 

IN  OR  NOT 

RESERVE 

1 

0329 

BANK  NUM 

reserve 

1 

0330 

LAST  3ANK 

RESERVE 

1 

0331 

ALLOW  E 

RESERVE 

1 

0332 

STOP  3ANK 

RESERVE 

1 

0333 

MASTR  TOO 

reserve 

1 

0334 

PARA  DEEP 

reserve 

1 

0335 

TEST  INST 

RESERVE 

1 

0336 

SENSE 

RESERVE 

1 

0337 

DELTA  FWA 

RESERVE 

1 

i” 
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P0338 

EQUIVALENCES 

0339 

DAMN  ZERO 

equals 

0 

03  A2 

SPRA 

EQUALS 

128 

03  A3 

SPRAMR 

equals 

38A 

03AA 

SPRAM 

equals 

896 

03  A5 

ALPHA 

EQUALS 

0 

03  A6 

BINARY 

EQUALS 

16 

03A8 

PAR A3  NO 

EQUALS 

begin  adr 

03  A 9 

RE3  P_ACE 

EQUALS 

ss  fwa 

0351 

ST  I < WIRE 

EQUALS 

last  fwa 

i" 


USER'S  OWN  PAGE  NO,  12 


PAGE 


67 


L g YUL  SYSTEM  MAN  JF aCTU  R,I NG  - BL<2 

Pq353  ASSIGNMENTS  FOR  BLK2  MANUFACTURING. 


0354 

SWITCH! 

ASSIGN 

0*2 

0355 

L AUTh,  NAM 

assign 

0*51 

0357 

YUL  TYPER 

assign 

0,63 

0358 

RD  S3DIRC 

assign 

0,65 

03.59 

HOWZAT 

assign 

0*66 

0360 

PCH  LEDER 

ASSIGN 

0,67 

0361 

IGN  SJBDR 

ASSIGN 

0,68 

0362 

UNRC  SBDR 

ASSIGN 

0.69 

0363 

E SYLT  OK 

ASSIGN 

0,70 

0364 

FETCH  SS 

assign 

0,71 

0366 

PCH  TITLE 

assign 

0,73 

0367 

MANUF  RTN 

ASSIGN 

0,76 

0368 

YUL  MASKS 

ASSIGN 

0,77 

0369 

OCTAL  20 

assign 

0,78 

0370 

WHODJNI t 

ASSIGN 

0,80 

0371 

6 COMMA  19 

ASSIGN 

0,81 

0372 

L DIRECTY 

ASSIGN 

0,83 

0374 

FRAME 

ASSIGN 

0,85 

0375 

TYP  A30RT  ■ 

ASSIGN 

0,89 

0376 

L OS JC1  MSG 

ASSIGN 

0,90 

0377 

REJEC  DIR 

ASS  1 Gn 

0,91 

0378 

YUL  D2A  ZS 

assign 

0,119 

0379 

SYMS  OR  NO 

ASSIGN 

0,124 

03791 

DISASTER 

ASSIGN 

0,126 

0380 

MON  TAPE 

ASSIGN 

7,1 

0381 

MON  PEEK 

ASSIGN 

7,3 

03812 

PHI  SNACH 

ASSIGN 

7,2 

0382 

EOR 

ASSIGN 

7,4 

0383 

MON  R-AD 

ASSIGN 

7,15 

0384 

PHI  PHiINT 

ASSIGN 

7,23 

03842 

MON  EDFRI 

assign 

7,31 

0385 

MON  TADDR 

ASSIGN 

7,223 

0386 

MON  TYPER 

ASSIGN 

7,215 
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P0387  PROCEDURE  TO  DETERMINE  WHICH  SJBDIrECTOR  Was  SJBMtTTED. 


0388 

0390 

0391 

WHAT 

BL<2 

SUBD 

MSKR 

SETLOC 

TX 

TX 

BLK2  M5KS 
L B2SUBDS 

- 

Z.MXR 

Z,XA 

BASE  OF  BL<2  MANUFACTURING  SUBDi ReCTORS, 

0393 

0395 

0397 

0398 

COMP 

5DRC 

NA 

NA,  C1T6 

SS 

TS 

N . Xa  , l 

4,0 

N,X4 

6 COMMA  19 

6,15 

6,17 

THREAD  11 
Z,X5 

try  sOREr 
TRY  SDREr 

C,  + l 

compare  first  WORD  ON  SUBDIReCt-iR  CD. 
DEMAND  14-CHARACTER  MATCH. 

SET  TO  LOOK  AT  2ND  WORD,  GO  TO  TASK. 

0400 

0402 

TRY  S }REC 

NA 

TS 

Z ,X4  * 1 
6 COMMA  19 

END  SUBdS 
Z,X5 

COMP 

BAD 

SDRr 

SD 

branch  if  there 

SET  UP  TO  CUSS 

are  more  TO  loo<  at. 

1ST  WD,  ABORT  TASK. 

R0404 

table  of 

14-CHARACTER! 

SubdIRECTOR 

FIRST  WORDS  FOR 

BL<2. 

0405 

B2  SJ3DRS 

alf 

PUNCH 

PUNCH  CARDS  OR 

paper  TAPE. 

0407 

M , A , 

A, 

A. 

BLK  2 

PNCH 

04071 

ALF 

COPY 

COPYING  JOBS 

04072 

M*A, 

A , 

A, 

Bl<2 

COPY 

04073 

ALF 

COMPARE 

COMPARING  JOB 

04074 

LASTSORC 

M , A , 

A, 

A, 

BLK2 

CMPr 

R0408 

fatal  exit 

routine 

FOR  BAD  SUBDiRECTORS 

0409 

BAD  SO 

WD 

Z,X5 

three 

WHO  r> JM  it 

STEP 

X5  DOWN  ONE  WORD 

0411 

HOW  ZIS 

TS 

yul  masks 

Z.MXR 

HOW  ZAT 

EXIT 

FOR  FATAL  CU5S  OF  SUBDlREC rOR  WORD 

0413 

BAD  S 02 

TS 

Z.X5.2 

BAD  SD 

0414 

BAD  SON 

TS 

Z,X5 

WHO  DUN  IT 

HOW  ZIS 

0415 

BAD  S 06 

TS 

Z ,X5 ,6 

- 

BAD  SD 

ROYAL  t BUSINESS  FORMS  INCORPORATED 
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P0416 

*P JNC Hi  36K 

COkE  rope 

SIMULATOR  tape*  subdirectdr 

ROUTINE  HErc. 

R0A17 

EACH  3ANK 

is  complete 

ON  ONE  PIECE 

OF  PAPER. 

ROA18 

atleast  one  of  the  sjbdirectors  ^paragraph*  is  Required,  see  page 

R0419 

SU3DI RECTOR  *USE*  IS 

OPTIONAL.  SEE 

PAGE  23. 

ROA20 

SUBDIRECTOR  *TESt1NG* 

IS  OPTIONAL. 

SEE  PAGE  30. 

0421 

BL< 2 5NCH 

TN 

N.X5.3 

2 

KCOMMON 

0422 

NA 

KCOMMON 

W 3b  K 

RAYTH  PO 

0423 

TS 

z,sc 

HOLD  LoC 

P24T36K 

0425 

S .MON  TYPE 

Ri  P36KT  MSG 

SPRA  +40 

C.  + l 

0426 

TS 

z,sc 

HOLD  LOC 

read  a rcq 

0428 

NEXT  3ARH 

TS 

z,sc 

Z,X5 

get  reo  pn 

0430 

TS 

- 

_ 

DNE  3ANK<; 

04312 

LA 

OCT  240 

PARAG  NO 

ONE  3ANKs 

0432 

SWE » CaC3 

Parag  no 

2 

bank  njm 

0434 

LA 

Parag  No 

SEVEN 

eras  bank 

0436 

TX 

bank  njm 

„ 

KCOMMON  *4 

0437 

LA 

parag  No 

D12 

C.+2 

0439 

WD 

KCOMMON  +4 

FOJR 

KCOMMON  *4 

0445 

LA 

stop  bank 

zero 

NO  FINIS 

0447 

LA 

bank  NJM 

last  bank 

SME  BANK 

0449 

wA 

LAST  BANK 

ONE 

LAST  BAN* 

0450 

SWE.CAC3 

LAST  BANK 

10. L 

KCOMMON  +1 

0451 

TS 

c . + 1 

chks  zero 

CHKS  ZERn 

0452 

LA 

KCOMMON  +1 

KCOMMON 

C.  + l 

0453 

TX 

N.SC.l 

CHKS  ZERo 

0454 

LA 

KCOMMON  +1 

KCOMMON 

send  park 

0456 

TS 

Z.sc.i 

DONE  BANK 

0458 

NO  FINIS 

TX 

one 

_ 

si  op  bank 

0459 

TN 

36KSMMSG 

6 

TITLf  MSG  +4 

0461  . 

SWS»CHAR3 

STIK  WIRE 

A.2.L 

TITLE  MSG  +7 

0462 

NA.ONf 

PARAG  NO 

ONE 

C.  + 2 

0463 

SWS.AC04 

TITLE  MSG  +7  l.L 

TITLE  MSg  +7 

0465 

SWS  * AC07  ' 

KCOMMON  +4 

3 «L 

TITLE  MSG  +8 

0467 

TX. SEVEN 

KCOMMON  +4 

- 

TITLE  MSG  +8 

0468 

SWS,  AC07 

THREE 

A. l.L 

TITLE  MSG  +9 

0469 

LA 

PARAG  NO 

OCT  217 

C.  + 2 

. 0470 

SWS.  AC07 

FOUR 

A. l.L 

TITLE  MSr,  +9 

0471 

TS 

WB3  36K 

FRAME 

GO  TITLE  H 

0473 

TX 

FS 

- 

frame 

0475 

LA 

PARAG  NO 

OCT  217 

C.  + 3 

04752 

wD 

K COMMON  +4 

eight 

K COMMON  +4 

0476 

SM 

FRAME 

eight 

frame 

0478 

TS 

- 

m 

CHK  PAR  I t 

0479 

TX 

load  g 

m 

FRAME 

0480 

SWS , B4.3T4  7 

KCOMMON  +4 

l.L 

frame 

0482 

NON  BANK 

TS 

- 

_ 

CHK  PARIt 

0484 

SWE.GAC3 

bank  num 

10. L 

K COMMON 

0486 

TX 

bank  num 

LAST  BANK 

0487 

sme  bank 

SWE.CAC3 

parag  no 

8 . L 

KCOMMON  +1 

0489 

CHKS  zero 

LA 

KCOMMON  +1 

KCOMMON 

Send  par* 

0491 

* 

TS 

feed  1 t 7 

frame 

CHK  PARIt 

0493 

* 

TS 

feed  1T7 

FRAME 

CHK  PARIt 

0495 

* 

TS 

OCT  117 

frame 

CHK  PARIT 

0496 

WA 

KCOMMON 

ONE 

KCOMMON 
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GO  CHECK  REST  OF  SUBDIREClOR 

go  Read  task  subdirectors 
go  locate  para  in  binary  records 
Return  here  when  all  paras  done 
stop  after  lasi  bank  in  rope  memory, 
set  i/a(parag  numj  into  banknjm. 

JUMP  IF  ERASABLE  paragraph 

JUMP  IF  FIXED  FIXED  PARAGRAPH 
OBTAIN  fixed  bank  BANK  NUMBER 
jump  if  first  i ime  here 
jump  if  bank  has  noi  changed 


go  fill  in  parag  end  with  zeroes 
go  send  tail  message 

insert  title  message 


insert  module  NUMBER  IN  TITLE  M-SSAGe 
insert  bank  number  in  title  message 


go  send  tape  paragraph  leading  message 
SEND  361  for  regular  banks 


send  371  for  super  bank  a range 


set  bank  bits  in  code 
send  one  frame 

BASE  ADDR  OF  CURRENT  BANK 

base  addr  of  current  paragraph 

JUMP  IF  SIMULATOR  ADDR  IN  PARAGRAPH 
OTHERWISE  SEND  OUT  a TCF  7777  WITH 
ODD  PARITY 
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0^97 

TS 

_ 

CHKS  ZERn 

..l 

0498 

SEND  3ARK 

wA 

kcommon  +1 

C 256 

KCOMMON  +1 

BASE  ADDR  OF  NEXT  PARAGRAPH 

* 

0500 

WA 

2, XI 

THREE 

Z,R1 

R 1 SET  TO  PARAGRAPH  FIRST  WORD 

0502 

SND  WORD 

LA 

KCOMMON  +1 

KCOMMON 

NeXT  PARW 

JUMP  IF  SIMULATOR  ADDR  OUT  OF  PARAGRAPH 

05032 

* 

EX 

N,R1 

CAC3 

KCOMMON  +2 

* 

05034 

* 

NA 

KCOMMON  +2 

ZERO 

C,  + 2 

05036 

# 

SS 

TCF  7777 

CAC3 

N , R 1 

INSERT  TCF  7777  FOR  UNUSED  WORDS. 

0504 

EX 

N,Rl 

B43T47 

FRAME 

OTHERWISE  SEND  AGC  WORD  TO  SlMJ.ATOR 

*» 

0506 

TS.LOADG 

LOADG 

FRAME 

CHK  PARIt 

C 

IN  3 FRAMES 

0508 

SWE , B43T4  7 

N,R1 

5 

FRAME 

0509 

TS.LOADG 

LOADG 

FRAME 

CHK  PARIt 

c 

♦ 

0510 

* delete  thru 

513 

0514 

SWE.Bai 

N,R1 

7.L 

FRAME 

0515 

SWS , Ba3J4  7 

N ,R1 , 1 

10 

FRAME 

* 

0516 

ts*loadg 

LOADG 

frame 

CHK  PARIT 

c 

0517 

WA 

KCOMMON 

ONE 

KCOMMqn 

0518 

TS 

- 

- 

SND  WORD 

* 

0519 

ERAS  3ANK 

NA 

STOP  BANK 

zero 

DONE  BANK 

JUMP  TO  CLOSE  OUT  PREV  E-PARAGRIftPH 

0521 

TX 

ONE 

STOP  BANK 

0522 

TN 

36KSM  MSG 

2 

TITLE  MSr,  +7 

FIRST  TWO  WORDS  OF  MESSAGE 

t 

0524 

TX 

EBK 

m 

TITLE  MSCi  +9 

0525 

TX  * CHAR8 

PARAG  NO 

_ 

TITLE  MSG  +9 

E-BANK  NUMBER 

0527 

TS 

W83  36< 

frame 

GO  TITLE  H 

GO  PUNCH  TITLE 

* 

0529 

TS 

87PUNCH 

frame 

SME  BANK 

c 

0530 

SWS ♦ B45T4  7 

PARAG  NO 

1*1 

FRAME 

0531 

TS 

- 

chk  pari t 

c 

SEND  1100XXX0  CODE 

9 

0533 

TS 

KCOMMON  +1 

kcommon 

send  park 

0534 

DNE  BANKS 

TS 

- 

done  bank 

0535 

END  PTAPE 

TS 

- 

_ 

MON  TAPE 

t 

0536 

RW  * 1 

- 

- 

REWIND  YULPROGS. 

0538 

S.MON  jYP- 

Ri  WPAPER  [A 

SPRAMR  + 24 

MANJF  Rtn 

ANNOUNCE  READY  TAPE,  EXIT. 

0540 

DONE  3ANK 

TX 

Z,SH 

- 

HOLD  LOC 

* 

0541 

TS 

STOP  36K 

frame 

CHK  PARIt 

c 

SEND  STOP  CODE 

0543 

TS 

WB3  36< 

FRAME 

GO  TITLE  T 

send  tape  paragraph  tailing  message 

0545 

TS 

Z,SC 

Z , R3 

SPACE  TAd 

SPACE  tape  30  BLANKS 

9 

0547 

TX 

hold  loc 

m 

Z.SC 

0548 

CH<  PaRIt 

sws, ones 

Frame 

4 , L 

KCoMMQN  +2 

c 

for  right  eight  bits  in  frame,  compute 

0550 

ha 

frame 

KCOMMON  +2 

KCoMMqN  +2 

c 

ODD  PARITY  ( B I t 42  IS  ALWAYS  INITIALLY 

9 

0552 

sws, ones 

KCOMMON  +2 

2 « L 

KCoMMQN  *3 

c 

= 1)  AND  PLACE  IN  BIT  42 

' 

0554 

ha 

KCOMMON  +2 

KCOMMON  *3 

KCOMMON  +2 

c 

. 0555 

SWStONES 

KCOMMON  +2 

1 

KCOMMON  +3 

c 

9 

0556 

HA,B42 

KCOMMON  +3 

KCOMMON  +2 

FRAME 

c 

3" 

0557 

TS 

- 

PCH  FraMf 

c 

NOW  GO  PUNCH  THIS  FRAME 

0559 

P24T3b< 

NA 

N,X5,3 

W CORE 

BAD  SD 

WORD  CORE  IS  REQUIRED 

• 

0561 

NA 

N,X5.3 

W ROPE 

BAD  SD 

WORD  ROPE  IS  REQUIRED 

0563 

NA 

N,X5,1 

W SMuLatO 

bad  SD2 

word  simulator  is  required 

0565 

NA 

N,X5,2 

W SMULATO  +1 

bad  sd 

• 

0566 

TX 

N , SC , i 

_ 

any  MDN 

*module  deck  numbers*  sd  not  allowed 

2" 

0568 

BY  PA 5 MDN 

TS 

- 

• 

READY  NOw 

0569 

TX 

ONE 

- 

ALLOW  E 

words  from  erasable  are  allowed 

• 

0571 

TS 

ONE  ONLY 

try  modul 

RY  COMMOm 

*module  deck  numbers*  sd  not  expected 

9 

i" 


* 
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P0573 

PROCEDURE 

TO  PJNCH  A 

3LK2  MASTER  DECK. 

R057A 

SUBDIRECTOR  *TEStING* 

IS  OPTIONAL. 

SEE  PAGE  30. 

0575 

TRY  MASTR 

NA 

KCOMMON 

W M45TER 

TRY  SYM3I 

"MASTER"  IS  REUUIRED. 

0577 

NA 

N ,X5 , 3 

W DECK 

Bad  sd 

"DECK"  IS  REQUIRED. 

0579 

NA 

N , X5 , 3 

ONES 

bad  sd 

SUPERFLUOUS  WORDS  ARE  FORBIDDEN. 

0581 

T 5 

- 

- 

CHK  TEST 

0582 

TS 

L DIRECTY 

Z.X5 

E SYl'T  Ok' 

0583 

S.MON  TYPE 

R)  PMSTR  MSG 

SPRA  +24 

C,  + l 

TYPE  "PUNCH  MASTER  DECK", 

0585 

DO  MASTER 

NA  * CHaR8 

5*0 

ZERO 

C,  + 2 

BRANCH  IF  SOME  BACKUP  ALREADY  WANTED. 

0587 

SS 

TWO 

CHARS 

N,X5 

CALL  FOR  BACKUP  TAPE  LABEL  AMENDMENT. 

0589 

SWE.  DaT7 

5.5 

D , 5 ,L 

Mon  daw 

fetch  current  master  deck  seria_  number. 

0591 

DA,  CAC3 

5,5 

ONE 

5,5 

increment  permanently  stored  serial. 

0593 

TS 

2, SC 

Z , A J 1 

YJL  D2A  7 S 

0594 

MON  DAW 

RESERVE 

1 

0595 

SS 

N , SH 

C2T7 

card 

PLACe  alpha  serial  as  CARD  NUM3rR, 

0597 

SWS  * CA573 

5, A 

A, 3 

CARD  +8 

0598 

SWS,  C2T3 

5, A 

A, 3 

card  +9 

place  alpha  date  in  log  card. 

R0600 

loop  -or  each  paragra 

=h  (Formerly 

substrand)  read 

From  y ilprdGS. 

0601 

MASDeCI  PH 

TS 

L OBJC  MSG 

Z , R 1 

fetch  ss 

fetch  a paragraph  if  any  are  left. 

0603 

TS 

_ 

END  MASto 

CUT  OUT  Here  IF  NO  MORE. 

0605 

SWS.  AC01 

1,2 

36, L 

PH  NJMBER 

0606 

SWS,  AC02 

1,2 

33, L 

PH  NJMBER 

0607 

SWS,  AC03 

1,2 

30, L 

PH  NJMBER 

form  alpha  paragraph  number. 

0609 

SS 

PH  NUMBER 

C 1 T 3 

Card  +7 

PUT  IT  IN  LOG  OR  PRECEDING  TRAIlER. 

0611 

s,  punch  : 

d card  -i 

alpha 

c,  + l 

PUNCH  LOG  CARD  OR  PRECEDING  TRAILER. 

0613 

SS 

RC162C8 

C1C3 

card 

SET  COLUMNS  1 AND  8 FOR  HEADER  CARD, 

0615 

TX 

PH  NUMBER 

„ 

card  +9 

PARAGRAPH  NUMBER  FOR  HEADER  CAR Di 

0617 

LA 

EIGHT 

1,2 

FIX  MEM 

BRANCH  UNLESS  SPeC/CeNT  OR  ERASABLE. 

0619 

WA,C5T8 

EBNK 

1,2 

card  +9 

put  e bank  number  in  last  Four  columns 

0621 

TS 

- 

- 

PL  oaj  M^G 

06212 

MASTR  ACM 

TS,  C5T8 

W ACM 

CARD  +9 

PL  OBJ  MsG 

0622 

FIX  M£M 

WA 

1.2 

eight 

PARAG  NO 

For  FIXED-FIXED, USE  PARAG  NUM  + n OCTAL 

0624 

LA 

1,2 

OCT  17 

WHICH  Mon 

JUMP  IF  IN  FIXED  FIXED 

0626 

WD 

parag  no 

OCTAL  20 

parag  no 

for  fixec  bank,  use  parag  num  - 10  octal 

.0628 

LA 

OCT  240 

1,2 

mastR  ACm 

PARAG  NUM  over  237  IS  IN  ACM. 

0630 

LA 

1,2 

OCT  157 

C , + 3 

JUMP  IF  NOT  IN  MODULES  FIVE  OR  SIX 

0632 

wD 

PARAG  No 

OCT  60 

PARAG  NO 

USE  PH  NUM  - 150  OCTAL 

0634 

WA 

CARD  +9 

2 C5 

card  +9 

raise  module  number  on  card 

0636 

LA 

1,2 

CHAR8 

C , + 3 

jump  if  in  modules  one  or  two 

0638 

WD 

PARAG  NO 

OCT  60 

parag  no 

use  PH  NUM  - 70  OCTAL 

06  A0 

WA 

card  +9 

2 C5 

card  +9 

RAISE  MODULE  NUMBER  ON  CARD 

0642 

WHICH  MOD 

SSL,  TWO 

parag  no 

- 4 

c , + 1 

PICK  ODD  OR  EVEN  MEMBER  OF  MODJle  PAIR. 

0644 

WD 

card  +9 

1 C5 

card  +9 

REDUCE  MODULE  NUMBER  FROM  EVEN  10  ODD. 

06A6 

WD 

PARAG  No 

EIGHT 

PARAS  NO 

(FOR  SENSE  LINE  SET  NUMBER). 

06A8 

SSL,  ONE 

parag  no 

0 

c,  + i 

PICK  A OR  B SIDE  OF  MODULE. 

0650 

WD 

CARD  +9 

1 Cb 

CARD  +9 

CHANGE  B TO  A. 

0652 

SWE,  D12 

parag  no 

1 

PARAS  NO 

FORM  BINARY  SENSE  LINE  SET  NUM3?R. 

065A 

WA , CHAR8 

PARAG  NO 

ONE 

card  +9 

0655 

LA , CHAR8 

card  +9 

NINE 

C , ♦ 2 

BRANCH  IF  SENSE  LINE  SETS  0-9. 

0657 

WA 

CARD  +9 

OCT  66 

CARD  +9 

SET  DECIMAL  SENSE  LINE  SET  NO.  IN  PRINT. 

0659 

PL  OBJ.  MSG 

TN 

N,R1 

7 

CARD  +1 

place  object  message  in  header  card. 
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0661 

ss 

W PARA3RA 

C5T3 

0662 

TX 

W PARASHA  +1 

- 

0669 

S,  PUNCH  CD 

CARD  -1 

alpha 

0666 

wA 

Z,Xl 

three 

0668 

SS 

ALF  370 

Cl  T9 

R0670 

LOOP  -OR 

EACH  FOUR  CARDS  (32  WORDS) 

0671 

9 CARDS 

SS 

BLANKS 

C1C3 

0673 

TS 

FOUR 

Z , R 7 

R0675 

LOOP  *0R 

EACH  CARD. 

0676 

EACH  card 

S,  PUNCH  ;D 

CARD  -1 

ALPHA 

0678 

TX 

CARD  WD2 

- 

R0679 

LOOP  -OR 

EACH  WORD. 

0680 

WD  IN  CARD  TX 

EMPTY  WD 

m 

0681 

SSL, THREE 

N,X5 

27 

0683 

TS 

zero 

KCOMMON 

0685 

TS 

NINE 

KCOMMON 

0687 

TS 

EIGHT 

KCOMMON 

0689 

TX 

four 

_ 

0691 

SWE.ONE 

5,0 

20 

0692 

NA*0Np 

KCOMMON  +1 

ONE 

0693 

SS 

ONES 

TWO 

0699 

NA, EIGHT 

KCOMMON 

ZERO 

0695 

sws,one 

5,0 

22 

0697 

SWS.ACD2 

KCOMMON 

12 

0699 

SWS , AC03 

N ,X5 

17. L 

0700 

SWS,  AC09 

N ,X5 

19, L 

0701 

SWS,  AC05 

N ,X5 

11*1 

0702 

SW5,  AC06 

N ,X5 

8 .L 

0703 

SWSi  AC07 

N,X5 

5 * L 

0709 

SS 

N,X5,1 

ONE 

0706 

NA 

Z,Xa 

CARD  WD 1 0 

0?08 

wA 

CARD  +9 

OCT  INC 

0709 

SS 

ZERO 

OCT  00097 

0711 

NA 

2 ,R7  * 1 

ONE 

0?13 

SS 

RC162C8 

CHAR  8 

0715 

S,  PUNCH  ;D 

CARD  -1 

ALpHA 

0717 

NA 

5,2 

EOR 

0719 

SS 

RC168C8 

ClC8 

0721 

TN 

end  PaRaG 

6 

0723 

MT 

BLANKS 

3 

0729 

TS,  C i T3 

PH  NUMBER 

card 

R0726 

FINAL  ACTIONS  FOr  BL02 

MASTER  DECK. 

0727 

END  MASTR 

TN 

w end  deck 

3 

0728 

S,  PUnCH  CD 

card  -i 

alpha 

i" 
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CARD  + 7 
CARD  +8 
C,*l 
Z,X5 
card  +9 

PUT  ''PARAGRAPH"  IN  HEADER. 

PUNCH  PARAGRAPH  HEADER  CARD. 

1800  address  of  first  word  in  Paragraph. 

INITIALIZE  SUBADDRESS  IN  DETAIL  CARD. 

CARD 

EACH  CARn  +1 

SET  C0LUMN5  1 AND  8 FOR  DETAIL  ^ARD. 
SET  UP  TO  COUNT  9 CARDS. 

Ct  + 1 
Z,X9 

punch  a detail  card  with  b words. 

N ,X9 

C,*l 

C , + 9 
C , + 8 
C , ♦ 7 

KCOMMON 
KCOMMON  *1 

C , + 2 

set  up  lead  char  code  for  this  agc  word 

BASIC  INSTRUCTION 

interpretive  instruction  word 
constant  word 

AGC  WORD  ADDRESSES  UNUSeD  FIXED  MeMoRY 

KCoMMqN 

operand  located  in  a fixed  bank. 

C , *2 

KCOMMON 
N,Xa 
N ,X9 
N,X9 
N,X9 

extracode  instruction, 
store  lead  char  in  char  posit  2 

N,X9 
N,X9 
N , X A , 1 
WD  IN  C AoD 

SPREAD  BLK2  WORD  OUT  10  1800  AL^HA  WORD. 

branch  if  more  words  for  this  Card. 

CARD  +9 
CARD  +9 
EACH  CARn 

INCREMENT  ALfOcTAL  SUBADDRESS  3t  8. 
BRANCH  IF  NOT  END  OF  a-CARD  GROJP. 

card 
C . + 1 

A CARDS 

double-space  after  each  9 cards. 

PUNCH  EVERY  FOURTH  DETAIL  CARD, 

BRANCH  if  not  last  group  in  paragraph. 

card 
card  +1 

SET  COLUMNS  1 AND  8 FOR  TRAILER  CARD. 

set  up  alpha  te*t  of  trailer  card. 

N , A J2  » 1 
MaSDEK  Pw 

give  UNFINISHED  TRAILER  to  ne*t  paragr. 

card  +5 

CLOSE  PCH 

PUNCH  FINAL  TRAILER  CARD. 
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0730 

0732 

CLOSE  PCH  S*  PUNCH  CO 
TS 

EOR 

BINARY 

C.  + l 

MON  TAPE 

CLOSE  OUT  PUNCHING. 

0733 

0735 

RW.l 

S.  M0N  TY^ER 

W CARD  OUT 

SPR AMR  +16 

MANUF  RTN 

REWIND  YULPROGS. 
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P0736 

* PJ^CH  SYMBOL  TAbLE  * 

and  » pjnch 

SYMBOL  TABLE  Av|D 

MASTER  OFCK 

* SJBDIRECTOR  ROUTINES  HERE. 

R0738 

SUBDIRECTOR  * TESTIN3'  * 

IS  OPTIONAL 

. see  3age  30. 

• 

0739 

*TRY  symbl 

NA 

kcommon 

w symbol 

TRY  SMLTN 

word  symbol  is  reouired 

07A1 

NA 

N.X5.3 

w table 

BAD  SO 

WORD  TABLE  IS  REQUIRED 

4 

07  A3 

NA 

ONES 

N,X5 

TRY  AND 

NO  MORE  WORDS  ALLOWED 

07A5 

S.MON  TYPER: 

SYMBL  MSG 

SPRA  +2 A 

C,  + l 

07A6 

GO  SYMBOL 

TS 

- 

m 

CHK  TEST 

LOOK  FOR  * TESTING  * SUBDIReCTOT 

4 

-07A8 

TS 

ONES 

SYM5  OR  NO 

E SYL]  Ok' 

start  search  for  first  binary  record 

0750 

TS 

L OB JC  MSG 

Z.Rl 

Fetch  ss 

get  first  binary  record 

0752 

TS 

1,71 

Z,R2 

C , + 2 

72ND  LOC  HOLDS  2 (NUMBER  OF  SYM3oLSl 

4 

075A 

TS 

- 

_ 

disaster 

should  never  come  here 

0756 

SS 

zero 

CORE  000 

Z,R2 

assure  negative  sign 

0758 

TN 

w end  symt 

+ 1 2 

cards 

set  up  symbol  table  opening  caro 

4 

0760 

TN 

N.Rl 

7 

cards  +2 

0761 

TX 

Z.R2 

- 

Z , R 1 

0762 

TX 

zero 

- 

KCOMMON 

4 

0763 

NA 

Z.Rl 

ZERO 

C , + 2 

JUMP  IF  SYMBOLS  EXIST  IN  SYMBOL  TABLE 

0765 

S.MON  TYPE* 

NO  SYM  MSG 

SPRAMR  + 2 A 

TYP  ABORt 

0766 

DS 

KCOMMoN 

ONE 

KCOMMON 

compute  number  of  cards  needed 

4 

0768 

LA 

ELEVEN 

Z.R1.10 

C,-l 

0769 

TX 

BLK2NAML 

_ 

CARDS  .<? 

0770 

SWE.ONES 

KCOMMON 

16, L 

C , ♦ 2 

4 

0771 

TS 

z.sc 

Z , A J 1 

YJL  D2 A 7 S 

CONVERT  NUMBER  TO  HOLLERITH  COO; 

0773 

RESERVE 

1 

077A 

SWS.C7T8 

N.SH 

12 

CARDS  +8 

insert  in  OPENING  card 

4 

0776 

SWS.C1T2 

N.SH 

12 

CARDS  +9 

0777 

S.PJNCH  CO 

cards  -i 

ALPHA 

C,  + l 

PUNCH  OPENING  CARD 

0779 

TX 

L CARDS 

_ 

Z ,RA 

ra  set  to  card  punch  buffer 

4 

0781 

GO  RDJND 

TS 

C256 

Z,R1 

fetch  ss 

go  get  next  block  of  12s  symbols 

0783 

TS 

Z.Xl 

Z , X 5 

c , ♦ 2 

07  8A 

TS 

- 

_ 

disaster 

SHOULD  NEVER  GET  HERE 

4 

0786 

TX 

Z »X5 , 3 

• 

X5  SET  TO  FIRST  SYMBOL  WORD  PAIT 

0788 

NEXT  SYMB 

TX 

BLKC1C8 

_ 

N ,RA 

07882 

SWS . B 1 2 

5,1 

5 , L 

N ,RA 

4 

0789 

SWS.AC03 

5,1 

2 , L 

N,RA 

PLACE  6 DIGIT  DEF  INTO  FIRST  W09D  OF  PR. 

0791 

SWS.ACOA 

5,1 

1 

N ,RA 

0792 

SWS.AC05 

5,1 

A 

N ,RA 

4 

0793 

SWS.AC06 

5,1 

7 

N , R A 

079A 

SWS.AC07 

5,1 

10 

N.RA.l 

0795 

TX 

N,X5,2 

p. 

N,RA,  1 

8 CHAR  ALPHA  SYMBOL  INTO  2ND  WORD  OF  PR. 

4 

0797 

NA 

Z , R A 

CAROS  PiO 

C , + 3 

JUMP  IF  CARD  NOT  FULL 

3" 

0799 

S.PJNCH  CO 

cards  -i 

alpha 

C,  + l 

PUNCH  CURRENT  CARD 

0801 

TX 

LCARDS 

- 

Z ,RA 

4 

0802 

LA 

Z.R2.2 

TWO 

SYM  DONE 

JUMP  IF  ALL  SYMBOLS  PROCESSED 

080A 

NA 

Z ,R 1 ♦ 2 

TWO 

NeXT  SYMr 

JUMP  IF  MORE  SYMBOLS  IN  CURRENT  BLOCK 

0806 

TS 

- 

„ 

GO  ROJNO 

4 

0807 

MT 

BLANKS 

2 

N , RA  , 1 

fill  in  reminder  of  card  with  3_anks 

2” 

0809 

NA 

Z ,RA 

CAROS  PlO 

C,-l 

0810 

S.PJNCH  CO 

CARDS  -1 

ALPHA 

C , + 2 

punch  last  card  containing  symbols 

4 

0812 

SYM  DONE 

NA 

Z , R A 

L CARDS 

C , -3 

jump  if  card  partially  loaded 

08  1 A 

TN 

w end  SYMT 

3 

CARDS 

COMPOSE  CLOSING  SYMBOL  TABLE  CARD 

0816 

TX 

L OB JC  MSG 

_ 

Z.Rl 

4 

0817 

TN 

N ,R  1 

7 

CARDS 

i" 

0818 

S.PJNCH  CO 

cards  -i 

ALPHA 

C,  + l 

PUNCH  IT 

1 

..I 

2 

2 

.. Z 

2 

2 

2 


' 
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0820 

LA 

mastr  TUO 

ZERO' 

0822 

TS 

L DIREClY 

Z.X5 

082A 

TRY  AMD 

NA 

N.X5.3 

W AMD 

0826 

NA 

N . X5  ♦ 3 

W MASTER 

0827 

NA 

N »X5 » 3 

W DECK 

0828 

NA 

N.X5.3 

ONES 

0830 

S.MON  JYPER 

SYMAS  MSG 

SPRA  +A0 

0831 

TS 

ONE 

MASTR  TOO 

t 

l 

* 


l 
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CLOSE  PCu  JUMP  IF  ONLY  SYMBOL  TABLE  TO  BE 

DO  MASTER  GO  PUNCH  MASTER  DECk  NOW 

bad  Sd  WORDS  * AND  MASTER  DECK*  REQUIRj 

BAD  SD 

Bad  so 

bad  so  no  more  words  allowed 

c,  + i 

30  SrMBof 


PAGE  76 

PJNCHED 

■D 


SET  MASTER  DECK  ALSO  FLAG 
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♦ 

0835 

RY  COMMON 

NA 

N.X5.3 

w tape 

BAD  SD 

"TAPE"  IS  REQUIRED. 

0837 

RYC0vH0P 

NA 

N.X5.3 

ONES 

BAD  SD 

SUPERFLUOUS  WORDS  ARE  FORBIDDEN. 

0839 

TS 

L REO  LIST 

Z.AUl 

C , + 1 

C 

♦ 

08  AO 

MT 

ZERO 

63 

N , AU1 , 1 

08A  1 

MT 

ZERO 

52 

N , AUl , 1 

ZERO  REQ  LIST  OF  240  WDS  + SENTINEL. 

08  A3 

TS 

HOLD  LOC 

z,sc 

C , -2 

C 

GO  TO  READ  6 ABSORB  PARAGRAPH  R-QUESTS. 

♦ 

08A5 

get  rwt  ss 

TN 

CRWT  MSG 

10 

TITLE  MSr, 

08A6 

TX 

L AUTH  NAM 

- 

Z,X5 

-08A7 

NA.ClTA 

5,0 

W NASA 

NO  NASA 

• 

08A8 

NEX  RWT  SS 

TS 

Z,SC 

Z,X5 

get  Red  dn 

go  to  fetch  next  reuuested  paraoraph. 

0850 

TS 

_ 

END  PfAPE 

NORMAL  END-OF-TASK  PROCEDURE. 

• 

0852 

SET  WORD 

TX 

W CRW 

FRAME 

0853 

TX 

CrWTMsG  +6 

- 

TITLEmsG  +6 

0854 

SWS.CHAR3 

StIK  WIRE 

A , 2 , L 

TITLE  MSr,  +6 

INSTALL  NAME  OF  qUARTLR-ROPe. 

• 

08S6 

NA.DNe 

PARAG  NO 

ONE 

C , +2 

0857 

sws.acoa 

TITLE  MSG  +6 

1 , L 

TITLE  MSr,  +6 

0858 

TX 

Z.SC.6 

m 

Z,X5 

• 

0859 

ARTS  OK  NO 

RESERVE 

6 

0860 

NA.CHAR5 

5,0 

STIC  wire 

C , + 2 

MATCH  MODULE  NUMBER 

0862 

TS.C7T8 

STIK  WIRE 

TITLE  MSG  ♦ 7 

C,  + 2 

• 

0863 

NA 

N , X5 , 1 

C ♦ -3 

C,-2 

086A 

SWS*CAT7 

5,0 

A, 3 

T1TLF  MSr,  +4 

0865 

WA 

StIK  wire 

ST  WIR  CAC 

Z,  AUl 

get  strand  number 

• 

0868 

LA.C7T8 

TITLE  MSG  +7 

NINE 

C , + 2 

0869 

WA 

TITLE  MSG  +7 

OCT  66 

TITLE  MSr,  +7 

0871 

TS 

N,AUl 

TITLE  MSG  +9 

GO  TITLE  H 

install  WIRE  NUMBER  RANGE. 

• 

0873 

TX 

HOLD  LOC 

_ 

Z,SC 

087A 

NO  NASA 

S » M 0 N TYPER 

NASA  MSG 

SPRAMR  +48 

TYP  ABORT 

R0875 

subroutine 

TO  SEND  OUT 

leading  and  tailing  Messages 

for  each  paper 

tape 

PARAGRAPH 

• 

0877 

GO  TITLE  H 

TX 

w head 

- 

GO  last 

end  this  message  with  * head# 

0879 

TX 

Z.SC.l 

• 

0880 

GO  TITLE  T 

TX 

W tail 

- 

GO  LASI 

end  this  message  with  #tail# 

» 

0882 

TX 

Z , SH 

- 

Z ,R3 

0883 

NA.TWo 

TEST  INST 

TWO 

C , + 2 

uump  if  listing  not  requested 

0885 

TS 

Z,SC 

KCD'WON  4-5 

PRINT  DAt 

if  so,  print  Leader  and  title  message 

• 

0887 

NA.DNe 

TEST  INST 

ZERO' 

GO  SET  CSC 

UUMP  IF  TAPE  PUNCHING  INHIBITED 

0889 

TS 

- 

_ 

PCH  LEDER 

Go  PUNCH  LEADER  VIA  YULPASSo 

0891 

WA 

z,sc 

THREE 

Z,S1 

9 

0892 

NA 

N,Sl 

blmks 

C , + 2 

CAUSE  SKIP  OF  TITLE  MSG  LeADING  BLANKS. 

3" 

089A 

TS 

Z,S1,1 

C ,-i 

0895 

TS 

Z , SC , 1 0 

PCH  tITLf 

GO  PUNCH  TITLE  MESSAGE 

• 

0897 

TITLE  MSG 

ALF.5 

0898 

ALF.5 

0899 

GO  LAST 

ALF 

» 

0900 

go  set  esc 

TS 

Z,R3 

KCO^MON  4.5 

Ret  go 

go  set  co-sequence  counter  correctly 

2" 

r0902 

SUBRoUT INe 

to  Send  33 

blanks  after  paper  tape  paragraph  end  and  then  signal  paragraph  end  to  yulpass0 

09QA 

SPACE  TAP 

TX 

THIRTY 

_ 

Z ,R2 

» 

0905 

TX 

zero 

m 

FRAME 

c 

0906 

NA 

Z.R2.1 

ONE 

C,-l 

0907 

SS 

ones 

B34 

SWITCH 

9 

0908 

TS 

- 

- 

N,R3 

i" 
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P0909  SUBRGJ'TINE  TO  READ  AND  ABSORB  SUBDIRECTORS 
R0910  S PARAGRAPH  ALL 

R09I1  S PARAGRAPH  NNN 

R0912  S PARAGRAPH  NNN  THRU  (THROUGH)  NNN 

Ro9 1 3 THE  APPEARANCE  OF  ^PARAGRAPH  ALL*  FORBIDS  ANY  5U3SEQJeNT  PaRaGRAPH  SUBDIReCtORS. 

R0915  THE  APPEARANCE  OF  ANY  PARAGRAPH  SUBDIReCtDR  FoRBlUS  ANY  KJ3SfQUeNt  *PARaGRaPH  ALL*  SUBDIReCtOR. 

R0917  NNN  IS  FROM  1 TO  3 OCTAL  DIGIT5 

R09 1 8 AND  IS  THE  NAME  OF  A 3L<2  PARAGRAPH,  A CaRD  SPECIFYING  PARAGRAPH  N WILL  LEAVE  IN  Req  LISt  +N  A CAC  WH3Sf  C AC2 

R0920  POINTS  TO  ALF  " RHS"  (ROPe,  HALF,  SIDE  = DJARtER-ROPf  NAME).  AND  WHOSE  CAC3  POINTS  TO  ALF  "WWW.WWW",  THe 

R0R22  range  of  wire  numbers  that  specify  the  sense-winding  set.  enter  at  read  a ReQ  with  return  in  hold  loc. 

Rq92 A - ASSORTED  COMPLAINTS  A'SOUT  ILL-FoRMeD  PARAGRAPH  REQUEST  CARDS. 


0925 

2 LONG1  PHN 

S,MON 

TYP£R 

2 LONP  MSG 

SPRAMR  + 2 A 

C,  + A 

paragraph  number  too  long. 

0927 

UnOCT  PHn 

S.MDN 

TYPER, 

unopn  msg 

SPRAMR  +2A 

C.  + 3 

PARAGRAPH  NUMBER  BLAnK  OR  nOn-DCTAL. 

0929 

1LLES  PHN 

S.MON 

typer 

1LLPN  MSG 

SPRAMR  + 2 A 

C . + 2 

paragraph  number  has  illegal  va  ue. 

0931 

DUPLI  PHN 

s,mdn 

TYPeR 

DUPPN  MSG 

SPRAMR  + 2 A 

C.  + l 

paragraph  number  duplicated. 

0933 

TS 

- 

m 

IGN  S JBDd 

always  ignore  ill-formed  request. 

0935 

read  a.  Reu 

TS 

- 

m 

RD  SBD1RC 

fetch  ss  request  if  any  such  ar-  left. 

0937 

TS 

- 

- 

ANY  GOODS 

come  here  when  subdirectors  run  ojt. 

0939 

WA 

Z.X6 

OCTAL  20 

Z,X5 

09  AO 

TN 

N.X5.3 

2 

< COMMON 

09  A I 

NA 

KCOMMON 

W PARAGRF 

TRY  TEST 

09A2 

NA 

KCOMMQN  +1 

W PARAGRF  +1 

bad  sd 

"PARAGRAPH"  IS  REQUIRED. 

09  aA 

NA 

5.0 

W ALL 

LIST  PARa 

UUMP  IF  NOT  "ALL* 

09A6 

NA 

5.3 

ONES 

BAD  Sd6 

NO  MORE  WORDS  ALLOWED 

09A8 

TX 

one  only 

m 

C.-2 

no  futher  "Paragraph*  sd  allowed 

0950 

TS' 

c ♦ + 1 

READ  A REQ  .1 

READ  A RcQ 

0951 

TS 

- 

- 

ALL  DARAs 

0952 

ALL  PARAS 

NA 

RtQ  LIST  ♦ 2 AO 

ONES 

C , + 2 

"PARAGRAPH  ALL"  SD  MUST  Be  ONLY 

095A 

S.MON 

TYPeR^ 

PALL  MSG 

SPRAMR  +56 

TYP  ABDRF 

"PARAGRAPH"  SD  FOR  THIS  TASK 

0956 

TS  ' 

ONES 

SYMS  OR  NO 

E SYLl  OK 

start  search  For  program  first  *in  rcds. 

0958 

TS 

ONE 

para  Deep 

Fetch  ss 

go  get  the  authmemo  record. 

0960 

TS 

eight 

Z.R3 

c . + 2 

words  6 -13  hold  paragraph  use  markers 

0962 

TS 

- 

DISASTER 

should  never  come  here 

096A 

wA 

Z.Xl 

F I YE 

Z.RA 

0965 

TX 

c 32 

m 

KCOMMON  *1 

32  paragraph  markers  per  word 

0967 

NA 

ALLoWe 

zero 

ALL  Rat 

JUMP  IF  ERASABLE  PARAGRAPHS  allowed 

0969 

TX 

c 32 

m 

Z.RO 

0970 

SWE.OneS 

N , R A . 1 

5.L 

KCOMMON 

BRING  FORTH  bit  FOR  FIRST  FIXED  PARA 

0972 

TS 

Z »R0 » A 

ALL  DOG 

0973 

ALL  RAT 

TX 

c 32 

m 

Z , RO 

097A 

TX 

N.RA. 1 

m 

KCOMMON 

0975 

ALL  CAT 

SWe.DNES 

KCOMMqN 

1 .L 

KCOMMON 

PUT  PARAGRAPH  USE  BIT  INTO  BIT  R8 

0977 

ALL  DOG 

NA.DNe 

KCOIMMON 

ONE 

ALL  MICE 

JUMP  IF  PARAGRAPH  NOT  USED  BY  THIS  PRjG 

0979 

WD 

KCOMMON  +1 

Z.RO 

PARAS  NO 

DETERMINE  PARAGRAPH  NUMBER 

0981 

TS 

Z,SC 

Z.Rl 

ST  PARA  nT 

go  set  up  its  data 

0983 

ALL  MICE 

NA 

Z.RO.l 

ONE 

ALL  CAT 

JUMP  IF  WORD  OF  32  MARKERS  NOT  -INISHeD 

0985 

wA 

C 32 

KCOMMON  *1 

KCOMMON  +1 

0986 

NA 

2.R3.1 

ONE 

ALL  RAT 

JUMP  IF  MORE  PARA  MARKER  WORDS  y£T 

0988 

TS 

C.  + l 

READY  NOW 

ANY  MDN 

0989 

TX 

L REQ  LIST 

_ 

REQ  PLACc 

0990 

LIST  ^ARa 

TS 

z,sc 

Z.Rl 

CHK  PaRA  n 

check  alpha  validity  of  para  number 

0992 

TX 

N.X5.3 

_ 

KCOMMON 

0993 

NA 

KCOMMON 

W THRU 

C.  + 2 

ROYAL  •f  BUSINESS  FORMS  INCORPORATED 
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099A 

TS 

- 

- 

C » + 2 

0995 

NA 

KCOMMON 

w through 

CHK  REG  pA 

0996 

TX 

parag  no 

- 

KCOMMON  +3 

SAVE  LOW  PARAGRAPH  NUMBeR 

0998 

TS 

z.sc 

Z.Rl 

chk  para  n 

CHECK  ALPHA  VALIDITY  OF  PARA  NJmBeR 

1000 

NA 

ONES 

N.X5 

bad  SDN 

NO  MORE  WORDS  ALLOWED  IN  SD 

1002 

LA 

PARAG  NO 

KCOMMON  *3 

bad  sd 

JUMP  IF  1ST  PARA  NOT  LOWER  THAN  2ND 

1009 

TS 

Z.SC 

Z.Rl 

St  para  dt 

SET  UP  PARAGRAPH  DATA 

1006 

LA 

parag  no 

KCOMMON  +3 

read  a rfQ 

JUMP  IF  ALL  INCLUSIVE  PARAS  SET  UP 

1008 

WD 

parag  no 

ONE 

PARAG  NO' 

1009 

TS 

- 

- 

C.-3 

1010 

CHK 

R^G  PA 

NA 

ONES 

KCoMMON 

bad  sd 

no  More  words  allowed 

1012 

TS 

Z.SC 

Z.Rl 

St  para  ht 

set  up  paragraph  data 

1 0 1 A 

TS 

- 

# 

READ  A Rc-Q 

1015 

CH< 

para  n 

LA.CHAR6 

5,2 

ZERO- 

jnoCt  phn 

BLANK  PARAGRAPH  NUMBER. 

1017 

LA.  ChaR6 

A C6 

5,2 

2 LONG  PHn 

PARAGRAPH  NUMBER  over  three  DIGITS. 

1019 

LA.CHAR8 

eight 

5,2 

JNOCT  PHn 

PARAGRAPH  NUMBER  NOT  OCTAL. 

1021 

TS 

ZERO 

PARAG  NO 

C » + 2 

1022 

SWS.  ONES 

parag  no 

3 » L 

parag  no 

1023 

sws*  seven 

N.X5 

A, 7 

PARAG  NO 

convert  alpha-octal  to  binary. 

1025 

SWS.  C1T3 

N.X5 

A.l.L 

N.X5 

1026 

NA 

N.X5 

BLANKS 

C.-3 

1027 

TS 

Z.X5.3 

N.R1 

1028 

ST 

PARA  dT 

NA 

allow  e 

ZERO' 

C , + 2 

1029 

LA 

parag  no 

seven 

ILLEG  PHm 

PARA  NUMBERS  ooo  - 007  ARE  ILLEGAL 

1031 

WA 

parag  no 

eight 

Z.X5 

1032 

LA 

OCTAL  20 

parag  NO 

C , + 2 

JUMP  IF  NOT  FIXED-FIXED  PARAGRAPH 

1039 

WA 

Z.X5 

OCTAL  20 

Z.X5 

SET  TO  BANKS  TWO  AND  THREE 

1036 

LA 

PARAG  NO 

OCT  27 

C , + 3 

1037' 

LA 

parag  no 

OCT  37 

ILLEG  PHm 

PARAS  NUMBERS  030  - 037  ARE  ILLEGAL 

1039 

LA 

OCT  2 AO 

PARAG  NO 

ILLEG  PHN 

NUMBERS  290  THRU  777  ARE  ILLEGA. 

1 0 A 1 

WA 

parag  no 

L REQ  LIST 

Z.R2 

10A2 

NA 

N.R2 

ZERO' 

DJPLt  PHm 

requested  paragraph  number  is  djplicate. 

10  AA 

WA 

N.R2 

B 30 

N.R2 

INCREMENT  module  number  by  one 

10A6 

LA 

OCT  60 

Z.X5.2A 

C.-l 

JUMP  IF  NOT  IN  CORRECT  MODULE  RANGE 

10A8 

SWS.CAC3 

Z.X5 

1 

N.R2 

PUT  IN  WIRE  NUMBER  0-11 

1050 

WA 

N.R2 

ONE 

N.R2 

ADD  BASE  ADDRESS  OF  WIRES 

1052 

TS 

ONES 

REO  LIST  + 2 90 

N.Rl 

show  that  at  Least  one  request  got  in. 

1 05  A 

ANY 

Goods 

NA 

REO  LIST  +2A0 

zero 

0 , + 2 

return  if  any  requests  were  abstR3ed. 

1056 

S.MON  tYPeRi 

NO  GUD  MSG 

SPRAMR  +16 

TYP  aSoR-f 

TYPE  "NO  GOOD  REQUESTS",  ABoRT. 

1058 

ANY 

MON 

NA 

mdn  mark 

ZERO' 

CHECK  MON 

JUMP  TO  CHECK  MODULE  DECK  NUMBERS 

1060 

S.hDN  T YP £ R 

NO  mDn  MSG 

SpRAMR  +A8 

TYP  ABORT 

1061 

ready  now 

TS 

l ReQ  List 

red  place 

E SYLT  oik 

make  group  b look  For  desired  Program. 

1063 

TX 

HOLD  LOC 

> 

Z.SC 

ROYAL  f BUSINESS  FORMS  INCORPORATED 
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p1064 

ALONG  WItH 

the 

paragraph  subdi rector 

cards,  the  Job 

may  optionally 

HAVE  a "USE"  SUBDIRECtOR  TO  SPECIFY  a tYPE  ( 

R 1066 

0UTPJT  TAPE. 

the  six  options  are: 

R 1 067 

0 

PINK  O'ILeD  PAPER  tape 

( PROGRAM  JSES  this  IF  NO  TAPE 

SPECIFIED) . 

- R 1 0 69 

1 

blacci  oiled  paper  tape 

R 1 070 

2 

BLUE  MYLAR  TAPE 

A 

R 1 07 1 

3 

GRAY  -IBER  TAPE 

R1072 

4 

ALUMINUM  tape 

R 1 072 1 

5 

DIGISTORE  TAPE  (ALSO 

SPELLED  DIGISTOR)  ( 36 < ONLY) 

A 

1073 

TRY  J5E 

NA 

KCOMMON 

W JSE 

TRY  MODJi 

1 0 7 A 

TS 

ONE  ONLy 

C.  + D 

BLK2PNCH 

c 

ONLY  ONE  SUCH  SUBDIREcTOR  ALLOWED 

1076 

NA 

KCOMMON 

w pink 

TRY  BLACK 

1077 

TRY  OILED 

NA 

N.X5.3 

W OILED 

bad  so 

1078 

NA 

N.X5.3 

W PAPER 

bad  sd 

1079 

TRY  TAPE 

NA 

N.X5.3 

w tape 

BAD  SD 

108.0 

NA 

ONES 

N » X 5 , 3 

BAD  So 

10802 

St 

YUl  TY3ER  6,2 

SPRA  +9 

READ  A RcU 

* 

1081 

GO  BAD  SD 

TS 

- 

- 

bad  sd 

1082 

TRY  3.ACK 

NA 

KCOMMON 

W BLACK 

TRY  BLJf 

1083 

TS. 

B21T24  B24K 

SWITCH 

TRY  OlLEn 

A 

1084 

TRY  3_UE 

NA 

KCOMMON 

W BLUE 

TRY  GRAY 

1085 

NA 

N.X5.3 

W MYLAR 

BAD  SD 

1086 

TS. 

B21T24  B23K 

SWITCH 

TRY  TAPE 

A 

1087 

try  GRAY 

NA 

KCOMMON 

w gray 

C , + 2 

1088 

TS 

- 

- 

C . + 2 

1089 

NA 

KCOMMON 

W GREY 

TRY  aLJMm 

* 

1090 

NA 

N.X5.3 

W FIBER 

bad  so 

1091 

TS. 

B2 IT  24  B23T24K 

SWITCH 

try  tape 

1092 

TRY  ALUMn 

NA 

KCOMMON 

w aluminm 

try  disk 

A 

1093 

NA 

KCOMMON  +1 

BLANKS 

bad  so 

1094 

TS. 

B2 l T 24  B22K 

SWITCH 

try  tape 

109405 

TRY  DIGIS 

NA 

k common 

W DIGStoR 

bad  so 

A 

109407 

NA 

k common  +1 

W DIGSTOR  +1 

c , +2 

109408 

TX 

Z.sc.l 

- 

- 

ALLOW  TWO  SPELLINGS  OF  "D I G I ST 0 R ( F ) " . 

10941 

NA 

k common  +i 

BLANKS 

bad  sd 

digistoRe  tape  is  incremental  Magnetic 

• 

4 

109415 

NA 

hold  loc 

L nex  parh 

bad  Sq 

TAPE  MADE  BY  TRAK,  USABlE  WITH  }6<  CRS 

10942 

TX 

N.SC.1 

- 

NO  FINIS 

replace  leader  msg  by  about  5 3_ank  in 

109425 

TS 

z,sc 

Zt^3 

DIGIS  LDn 

A 

10943 

TX 

c.-l 

_ 

eras  bank  +1 

DO  THE  SAME  FOR  ERASABLE  MEMORY  LfADeR 

109435 

TX 

N.sc.l 

- 

GO  TITLE  h 

10944 

TX 

Z.SH 

- 

Z,SC 

A 

109445 

TX 

C.-l 

_ 

GO  T I I LE  T 

WIPE  OUT  BLOCK  LETTERING  GENERATORS, 

3" 

10945 

TX 

DIGIS  LDR  +1 

- 

DONE  BANK  +3 

PROVIDE  ONE  BLANK  BETWEEN  BANKS. 

109455 

TS, 

B21T24  B22B24K 

SWITCH 

TRY  TAPE 

DIGISTORE  TAPE  IS  TYPE  5. 

4 

10946 

DIGIS  LDR 

TX 

ACO  7 

Z,R2 

109465 

TS 

ZERO 

fkme 

PCH  FRAMc 

c 

SEND  448  BLANKS  = 5.6  INCHES. 

A 

10947 

NA 

Z.R2.1 

ONE 

C»-l 

2" 

109475 

TS 

ONE 

STO3  BAN< 

N.R3 

1” 


* 
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» 

P1095 

ALONG  WITH 

thf  paragraph  subdirector 

cards,  thf  job  will  mandatorily 

have  a ..module  deck  numbers-  subdi rector. 

R 1 097 

the  three 

introductory 

words  are  followed  by  six 

"Words"  each  consisting  of  five  characters  (four  for  he  module 

» 

Rl099 

DfC<  MUMBeR  and  one  ?0R 

module  number 

IN  that  ord 

fR).  AfL  Ft'VE  CHARACTERS  MUST  APPEAR  IN  EACH  WORD.  RoUtINeS 

R 1 1 o l 

beldw  Read 

this  SUBDIRECTOR  and  lATER 

check  that 

A MOdULF  OErK  NUMBER 

EXISTS  FOR  EACH  MOnULE  SPECIFIED  UMPLl- 

R 1 1 0 3 

CITLY)  by 

the  PARAGRA3H 

CARDS.  IF  THIS  CARD  IS  MISSING  OR  A mODULf  does  not  have  an  assigned  module  deco  number. 

» 

R1105 

ABORT. 

1106 

TRY  MdDUL 

NA 

KCoMMqN 

w module 

bad  sd 

words  "Module  deck  numbers*  required 

• 

1108 

NA 

N ,X5  * 3 

W DECK 

BAD  SD 

1109 

NA 

N,X5*3 

w NUMBERS 

BAD  SD 

1110 

TS 

ONE  only 

C * + 0 

LOAD  ART  C 

ONLY  ONE  SUCH  SUBDIReCtoR  ALLOWrD 

• 

1112 

MT 

N,X5,3 

6 

N,X3,1 

SAVE  6 WORDS  OF  5 CHARS  EACH 

1 1 1 A 

TS 

ONE 

MDN  MARK 

read  a ReQ 

set  module  deck  numbers  markers 

1116 

chec<  MDN 

TX 

L REQ  LIST 

- 

Z ,X5 

• 

1117 

NEXT  MDN 

LA 

N,X5,1 

ZERO' 

C,  + 0 

FIND  ACTIVE  PARAGRAPH 

1119 

WD 

Z,X5 

ONE 

Z,X5 

1120 

LA 

ONES 

N , X 5 

MDN  NUM 

uump  if  no  more 

• 

1122 

LOAD  ART 

TX 

L ARTSDK  N 

- 

Z,X3 

1123 

NA.CHAR5 

3,0 

5,0 

C , + 3 

compare  para  MODULE  NUMBER  WITH  MODULE 

1125 

TX.CHAR8 

ONES 

3,0 

NUMBERS  from  *module  deck  NUMBERS*  sd 

• 

1127 

TS 

Z,X5,1 

• 

NeXT  MDN 

when  matched,  SHOW  MODULE  CALLfd  by  task 

1129 

NA 

N ,X3  * 1 

ARTS  DK  NO 

+5  C*-3 

1130 

SWS.CHAR8 

5,0 

A, 3 

CHK  M MSr,  + 4 

error  if  task  calls  a para  within  a 

• 

1132 

5, MON  T YP E R 

CHK  M MSG 

SPRAMR  + 40 

typ  ABORT 

module  without  an  assigned  deck  number 

1 13  A 

ONE  ONLY 

S.MON  TYPER 

EXCES  MSG 

SPRAMR  +32 

REUEr  DIr 

1135 

MDN  NJM 

TS 

<6M 

Z , X 5 

LOAD  ART  C 

• 

1136 

NXT  MON  CK 

LA 

ONES 

N , X 3 

Ready  now 

UUMP  IF  ALL  MODULES  FROM  *MoDULf  DECK 

1138 

LA,CHaR8 

ONES 

3,0 

MDN  DK 

NUMBERS*  CALLED  BY  TASK 

11  AO 

sws, Chari 

3,0 

A , 4 *L 

X MDN  MSr.  +3 

• 

1141 

s,mon  TYPER 

X MDN  MSG 

SPRAMR  +48 

TYP  aBORt 

ERROR  IF  ONE  NOT  SO 

1143 

MDN  OKI 

LA 

Z , X5  * 1 

ONE 

READY  NOW 

1144 

TS 

Z »X3 , 1 

NXT  MDN  CK 

3" 

» 

2" 

» 
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p 1 1 A5 

SUBROUTINE 

to  deliver 

THe  NeXT  ReOUeSTeD  PARAGRAPHi 

(as  determined 

BY 

Read  a req).  for  each  requested  3jt  absent 

Rll97 

PARAGRAPH, 

A COMPLAINT  IS  TYPeD.  if 

ALL  ReOUeSTeD 

paragraph^  ARe 

absent,  "no  good  Requests"  is  typfd  and  the 

R1U9 

TAS<  ABORTS.  NORMAL 

return  is  to  l+ 

2 with  ParaGraph  avaIla3ie  at 

*1 

» and  in  stik  wire  the  cac  set  up  3 y read  a 

R 1 1 5 1 

REO.  ENp-i 

De-file  RETURN  IS  TO  l+1. 

ENTER  WITH  ReT 

URN  ( L+  1 ) IN  X5 

1 • 

1152 

GET  PAR  CM 

LA 

N.AUl .1 

zerd 

C.  + O 

r 

FIND  NEXT  ACTIVE  PARAGRAPH 

115A 

TX 

Z.AU1 

m 

REQ  PLACc 

r 

1155 

WD 

Z.AUl 

ONE 

Z.AJl 

c 

1156 

LA 

ONES 

N.AUl 

C.  + 3 

c 

1157 

WD 

Z.AUl 

L REO  LIST 

PARAG  NO 

c 

determine  its  paragraph  number 

1159 

TX 

N.AUl 

ST I K aIRp 

1160 

LAS  PN  DUN 

TS 

- 

_ 

ANY  GODDs  +1 

EXIT  IF  NONE 

1162 

GET  R£Q  PN 

TS 

reo  place 

Z.AJ'l 

get  par  cm 

c 

1163 

fetch  req 

TS 

- 

fetch  ss 

get  paragraph  if  it  exists. 

1165 

TS 

- 

m 

fetch  pao 

Stop  TRYING  if  paragraphs  run  out. 

1167 

TX 

zero 

- 

PARA  DEEq 

1168 

NOW  CHECK 

LA 

1.2 

PARAG  NO 

PHN  viATCw 

branch  if  could  be  desired  PH. 

1170 

PH  NOT  HER 

SWSi AC03 

PARAG  NO 

2A.L 

PNHER  MSg  +1 

1171 

SWS,  ACOA 

PARAG  NO 

21. L 

PNHER  MSC,  +1 

1172 

SWS,  AC05 

PARAG  No 

18. L 

PNHER  MSG  +1 

1173 

S.MON  TYPE 

R PNHER  MSG 

SPRA  +2 A 

C.  + l 

TYPE  "PARAGRAPH  NNN  NOT  HERE".  TRY  NEXT. 

1175 

TS 

req  place 

Z . A J'l 

Get  par  cm 

c 

1176 

nothers 

TS 

now  Check 

1177 

PHN  MATCH 

NA 

1.2 

PARAG  NO 

fetch  reo 

branch  to  bypass  unwanted  paragraph. 

1179 

TS 

C.  + l 

LAS  PN  DUN 

5,1 

set  up  end-of-file  exit,  do  normal  exit. 

1181 

TS 

- 

N.X5 

1182 

FETCH  PAR 

NA 

PARA  DEEP 

zero 

fetch  reo 

JUMP  IF  1ST  BINARY  RECORD  NOT  YfT  FOJND 

118A 

TS 

C.  + O 

mothers 

phnother 

L @YUL  SYSTEM  MANUFACTURING  - BLK2 

P 1 1 85  *PJNCHI  RAYTHEON  WIRING'  TAPE*  SUBDIReCTOR  SUBROUTINE  HeRE. 

R 1 1 86  EACH  SUBSTRAND  IS  A SEPARATE  PIECE  OF  PAPER 

R 1 1 87  ATLEAST  ONE  OF  THE  S J0D I RECTORS  ^PARAGRAPH*  IS  ReDUIReD.  SEE  PAGE 

R 1 1 88  SUBDIRECTOR  *MODULE  DECK  NUMBERS#  IS  ReQJIRED.  SeE  PAGE  24. 

R 1 1 89  SUBDIRECTOR  *USE*  IS  OPTIONAL.  SEE  PAGE  23. 

R 1 1 90  SU3DI RECTOR  *TEStING*  IS  OPTIONAL.  SEE  PA3E  30. 


1191 

rayth  pq 

NA 

KCOMMON 

W RAtHeoN 

TRY  mASt» 

.1193 

NA 

KCOMMON  +1 

blanks 

bad  sd 

1195 

NA 

N.X5 

W WIRING 

rayth  tt 

1197 

TX 

Z.X5.3 

- 

- 

1198 

TS 

Z,SC 

HOLD  LOC 

RY  COMMOm 

1200 

S.MON  TYPERi 

PRWTP  MSG 

SPRA  +32 

C,  + l 

1201 

TS 

Z,SC 

HOLD  LoC 

Read  a rcq 

1203 

TS 

Z.SC 

HOLD  LOC 

get  rwt  ss 

1204 

TX 

THIRTY 

Z,R3 

1205 

TX 

FEED  1T7 

FRAME 

1206 

NA 

Z ,R3  * 1 

ONE 

C,-l 

1207 

WA 

Z.Xl 

THREE 

Z,R2 

1209 

WD 

L RSPEX  P8 

eight 

Z,R3 

1211 

rearange 

TS 

Z.R2.1 

Z.AU'l 

C,  + l 

1213 

TS 

N.R3.1 

Z.AJ2 

PARA  TO  ES 

1215 

NA 

Z,R3 

L RSPEX  38 

C , -2 

1217 

TS 

R SPECS  +1 

Z,X4 

C,  + 2 

1219 

para  ro.ss 

MT 

N.AU1.4 

32 

N,AU2,1 

P 1 2 2 1 

PROCEDURE 

TO  ESTABLISH! 

X AND  Z COORDINATES  OF  eACHI 

CORE. 

1222 

TS 

7 D2 

FRAME 

C , + 2 

1223 

Z cQDRD 

WD 

frame 

1 D2 

FRA.MP 

1225 

TX 

C32 

_ 

Z , R3 

1226 

ss 

frame 

D2 

N,X4,1 

1228 

NA 

Z »R3 » 1 

ONE 

C,-l 

1229 

SM 

frame 

CAC3 

N,X4,1 

1231 

NA 

FRAME 

ZERO! 

Z COORD 

1232 

DS 

DEC  0033 

1 D4 

FRAME 

1233 

TS 

R 5PECS  +1 

Z,X4 

C , + 2 

12  34 

X COORD 

DS 

frame 

1 D4 

frame 

1236 

DS.  D3D4 

DEC  0033 

FRAME 

4,231 

1237 

SS 

FRAME 

D3D4 

4,198 

1238 

SS 

4,231 

D3D4 

4,165 

1239 

ss 

FRAME 

D3D4 

4,132 

1240 

ss 

4,165 

D3D4 

4,99 

1241 

ss 

frame 

D3D4 

4,66 

1242 

ss 

4,99 

D3D4 

4,33 

1243 

ss 

frame 

D3  D4 

N.X4.1 

1245 

NN 

FRAME 

ZERO 

X COORD 
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BR  IF  WD  2 NOT  "CORE"  OR  "RAYTHEON". 
"RAYTHEON"  IS  REQUIRED  HERE. 

"WIRING"  IS  REQUIRED. 

go  quiz  rest  of  subdirector 

Read  other  task  subdirectors 


INITIAL  ADDRESS  OF  PARAGRAPH. 

INIT.  ADDR.  FOR  LIST  OF  SUBSTRAmD  SPECS. 
THE  BISEQUENCE  BIT  DOES  SOME  SWINGING 
THINGS  IN  HERE.  HINT!  WHaT  GETS  DONE 
TWICE  IN  AN  OBSCURE  WAY.... 

INITIAL  ADDRESS  OF  SUBSTRAND. 

CONVERT  PARAGRAPH  TO  SUBSTRAND, 


move  up  one  row. 

LABEL  cores  with  Z-COORDINATES. 

SHOW  BYPASS  HOLE  AND  DO  SAME  FOR  IT. 


move  right  i column. 


label  CORES  6 BYPASSES  W / X-COO'RD I NATES 


ROYAL  BUSINESS  FORMS  INCORPORATED 


L 

i&YUL  SYSTEm 

manufacturing  - BL<2 

P 1 2 46 

initialize 

cqueu  punching  for  substrand. 

1247 

ss 

zero 

SIX 

1249 

NA.ONe 

parag  NO 

ONE 

1251 

SM 

SPEC  FRAM 

SIX 

1253 

SM 

SPEC  FRAM 

NINE 

1254 

TX 

zero 

- 

1255 

TS 

stik  WIRE 

Z»X5 

12552 

DA 

WIRE  NO 

DEC  M 16 

1256 

NA 

Z.X5.1 

ONE 

1258 

DA 

WIRE  NO 

ONE 

1260 

TX 

ONE 

- 

R 1 262 

initialization  for  each 

WIRE. 

1263 

RAYT  n IRE 

TS 

SPEC  FRAM 

frame 

1265 

SS 

Zero 

NINE 

1267 

HA 

spec  FRAM 

FoJR 

1269 

SWE,  D12 

WIRE  NO 

D , 2 

1270 

SM 

frame 

WIR  HUnDS 

1272 

SWE,  D12 

WIRE  NO 

D , 1 

1273 

SM 

frame 

WIR  TENS 

1275 

EX 

WIRE  NO 

D12 

1276 

SM 

frame 

WIR  UNITS 

1278 

TX 

X TENS 

1279 

TX 

X UNITS 

- 

1280 

TX 

Z UNITS 

1282 

TX 

RSPECS  +1 

_ 

R1263 

PROCEDURE 

FOR  EACH  CORE 

• 

1284 

TEST  31 T 

NA » B 1 t MASO 

5,0 

ONES 

1286 

HA 

SPEC  FRAM 

FO  JR 

1288 

TX 

SPEC  FRAM 

_ 

1290 

SWE*  D12 

N ,X5 

D , 9 

1291 

SM 

FRAME 

X TENS 

1293 

SWE,  D12 

N,X5 

D , 8 

1294 

SM 

frame 

X JNITS 

1296 

SWE  * D12 

N,X5 

D , 1 0 

1297 

SM 

frame 

Z JNITS 

1299 

END  WlR  CH 

NA 

Z,X5,1 

R S3eGSP 

i" 
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SPEC  FRAm 

first  guess  side  a,  take  up  left  wire 

C , + 2 

JUMP  IF  it  is  indeed  side  a 

SPEC  FRAM 

set  side  b,  take  up  right  wire 

SPEC  FRAM 
WIRE  NO 
C , + 2 
WIRE  NO 

set  begin  ss  and  begin  wire  bits. 

C.-l 

WiRE  NO 

convert  first  wire  number  to  decimal. 

bit  mas< 

work  from  parity  bit  toward  sign  sit. 

PCH  FRAMc 

C 

special  character  for  begin-wir-  block 

SPEC  FRAM 

Reset  begin-ss  amd  begin-wire  3its. 

SPeC  fram 
FRAMf 

PHONY  NEEDLE-HOLDER  CoMPLeMeNT. 

frame 

FRAME 

c 

HUNDREDS  digit  of  wire  number. 

FRAME 

FRAME 

c 

TENS  DIGIT  OF  WIRE  NUMBeR. 

FRAME 

c 

UNITS  DIGIT  OF  wire  NUMBER. 

FRAME 

c 

FRAME 

c 

FRAME 
Z *X5 

c 

DUMMY  POSITION  TO  00,0. 

END  *iIR  rH 

JUMP  IF  CORE  NOT  PASSeD  THROUGH 

SPEC  FRAM 

COMPLEMENT  NEEDLE-HOLDER  bit. 

FRAMf 

frame 

c 

SPECIAL  CHARACTER  FOR  CORE  THREADING. 

FRAME 

FRAME 

c 

tens  digit  OF  X COORDINATE. 

frame 

FRAME 

c 

UNITS  DIGIT  OF  X COORDINATE. 

FRAME 

c 

Z COORDINATE. 

TEST  BIT 

BRANCH  if  more  cores  along  wire. 

ROYAL  J BUSINESS  FORMS  INCORPORATED 


L @YUL  SYSTEM  MANUFACTURING  - 6LK2 


P 1 301 

PROCEDURE 

TO  FINISH  OFF 

A WIRE. 

• 

1302 

ssl. three 

SPEC  PRAM 

1 

1304 

TX 

Z.SC.2 

- 

1306 

TX 

Z.SC.6 

- 

* 

1308 

TX 

Z.SC.5 

1310 

HA 

SPEC  FRAM 

FoJR 

1312 

TX 

SPEC  FRAM 

• 

1313 

SM 

X TENS 

THREE 

1315 

SM 

X UNITS 

THREE 

1316  . 

TX 

Z UNITS 

- 

• 

1317 

WA 

BIT  MASK 

BIT  MASK 

1319 

SWS.  ONE 

BIT  MASK 

16 

1321 

SM 

SPEC  FRAM 

eight 

• 

1323 

TX 

SPEC  FRAM 

- 

1325 

SWE.  D12 

WIRE  NO 

D.2 

1326 

SM 

frame 

WIR  HUND5 

• 

1327 

SWE.  D12 

WIRE  NO 

D , 1 

1328 

SM 

frame 

WIR  TENS 

1329 

EX 

WIRE  NO 

D12 

• 

1330 

SM 

FRAME 

WIR  UNITS 

1332 

DA 

WIRE  NO 

ONE 

1334 

TX 

X TENS 

- 

• 

1335 

TX 

X UNITS 

- 

1336 

TX 

Z UNITS 

- 

1338 

HA 

SPEC  FRAM 

FOwR 

• 

1339 

LA 

bit  mask 

CAC  3 

R 1 341 

PROCEDURE 

TO  FINISH  0*F 

A SUBSTRAND. 

• 

1342 

TX 

THIRTY 

1343 

TX 

FEED  1T7 

- 

• 

1344 

NA 

Z *R3  * 1 

ONE 

1345 

FINISHI  U ■ 

TS 

W CRW 

FRA 

1347 

TS 

z.sc 

Z » R 3 

• 

1348 

TS 

- 

- 

3" 


1" 
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C,*l 

SHALL  WE  THREAD  LAST  BYPASS  HOLr 

- 

yes.  take  up  right  to  finish  si->e  a 

- 

NO.  TOOK  UP  left  THREAD  FOR  SID-  3 LAST 

SPEC  FRAM 

NO.  TOOK  UP  RIGHT  THREAD  FOR  Si ie  A LAST 

Yes.  take  up  left  to  finish  side  3 

FRAMf 

C 

frame 

C 

position  x = 33.  z = 0 

FRAME 

C 

FRAME 

C 

bit  mask 

MOVE  TO  NeXT  WIRE. 

SPEC  FRAm 

set  or  Reset  end-of-substrand  bit. 

SPEC  FRAm 

SET  END-WIRE  BIT. 

frame 

c 

SPECIAL  CHARACTER  FOR  END-WIRE  3L0CK. 

FRAME 

frame 

c 

frame 

FRAME 

c 

FRAME 

FRAME 

c 

REPEAT  WIRE  NUMBER. 

WIRE  NO 

...then  increment  same. 

FRAME 

c 

frame 

C 

FRAME 

c 

DUMMY  POSITION  TO  00.0. 

SPEC  FRAm 
RAYT  WIRE 

BRANCH  IF  more  wires  IN  SUBSTRATD. 

Z.R3 

FRAMf  C 

C »- 1 

Go  TITLE  t punch  program  i.d.  again. 

SPACE  TAo 

NEX  RwT  GO  See  if  ANOTHER  SUBSTRAND  IS  WANTED. 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


L @ YUL  SYSTEM  MANUFACTURING  - BLK2 

P1350  *PUNCHi  RAYTHEON  TESTER,  TAPE*  SUBDIRECTOR  ROUTINE  HERE. 

R 1 35 1 EACH  SUBSTRAND  IS  A SEPARATE  PIECE  OF  PAPER. 

R 1 352  ATI-EAST  ONe  OF  The  SUQDIReCtQRS  ((PARAGRAPH*  IS  REQUIRED,  SEE  PAGE 

R 1 353  SUBDlREt-TOR  *MQDULE  DECK  NUMBERS*  IS  REQUIRED.  SEE  PAGE  24. 

R 1354  SU3DI RECTOR  *USE*  IS  OPTIONAL.  SEE  PAGe  23. 


R 1 355 

SU3DI REC 

TOR  *TESt1NG* 

IS  OPTIONAL. 

SEE  PAGE  30. 

1356 

rayth 

TT 

NA 

N,X5,3 

W TESTER 

bad  sd 

1357 

SWS.BiAT24 

L ARTSDK  N 

8 ♦ L 

set  word 

1358 

TS 

z,sc 

HOLD  LoC 

RY  CDMMom 

1360 

S.M0N  TYPER 

PRTTP  MSG 

SPRA  +32 

C.  + l 

1361 

TS 

z,sc 

HOLD  LoC 

read  a RfQ 

1363 

TS 

z,sc 

HOLD  LoC 

get  rwt  as 

1367 

NA.ONe 

PARAG  NO 

ZERO* 

C * + 2 

1368 

TS 

CORE  000 

Z.R2 

C.  + 2 

1369 

TX 

C0RE400 

m 

Z,R2 

1370 

TX 

ONE 

m 

BIT  MASK 

1371 

WA 

Z.Xl 

THREE 

FIRST  WD 

1372 

WA 

FIRST  WD 

C 255 

E 256  LDr 

1373 

TX 

ZERO 

- 

SENSE 

1374 

NEW  WIRE 

TX 

FIRST  WD 

• 

Z.Rl 

1375 

TS 

STOP 

FRAME 

PCH  FRAME 

1377 

TX 

RESET 

FRAME 

1378 

SM 

SENSE 

sense  a 

FRAME 

1380 

WA 

sense 

ONE 

SENSE 

1381 

SM.C7T8 

ST  I K WIRE 

sense  b 

frame 

1383 

NEW  C 

ORE 

EX 

Z,R2 

B 94  T48 

frame 

1385 

SM 

FRAME 

CORE  NO  A 

FRAME 

1386 

SWE  « B44T 4 3 

Z.R2.1 

5 

FRAME 

1387 

SM 

FRAME 

CORE  NO  3 

FRAME 

1388 

TX 

N.Rl.l 

m 

in  or  ndr: 

1389 

NA.BIjMASO 

IN  OR  NOT 

zerd 

thru 

1391 

TX 

DATA 

FRAME 

1393 

MORE 

. LA 

Z,Rl 

E 256  LOC 

New  core 

1395 

WA 

bit  mask 

BIT  MASK 

bit  mask 

1396 

WD 

Z.R2 

C 256 

Z.R2 

1397 

LA 

bit  mask 

CAC  3 

new  wire 

1399 

TX 

stop 

FRAME 

1401 

TS.BUT24 

SET  WORD 

FINISH  U 

finish  u 

1402 

thru 

SM 

ONE 

DATA 

frame 

1404 

TS 

- 

MORE 

i" 
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Go  CHECK  REMAINDER  OF  SUBDIReOtoR 
Read  task  subsequent  subdirectdrs 


send  stop  code 
send  wire  number 
send  strand  number 

send  core  number  within  bank  in  2 frames 

UUMP  IF  WIRE  SHOULD  THReAD  CORE 

send  zero  frame  if  not 

UUMP  IF  PARA  not  done  WITH  THIS  WIRE 

UUMP  IF  16  WIRES  NOT  DONE 

send  stop  code 

send  frame  = 1 if  core  threaded 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


L 


@YUL  SYSTEM  MANJTaCTUR.ING  - BLK2 


* 


Pi  AOS 

PROCEDURE 

TO  PUnCH  CARDS/-TAPE  IN 

CORRELATION 

WI 

• 

1407 

PRINT  DAT 

S , PH  1 PRINT 

PRINT  BUF 

1409 

TS 

HOT  DOG 

Z ♦ R5 

1411 

TX 

FRAME 

* 

1413 

TN 

TITLE  MSG 

11 

1415 

TS 

■ w 

- 

1416 

JUST  3UNC 

na,  one 

TEST  INSt 

ZERO' 

* 

1418 

FRAME  pun 

TS 

- 

- 

1420 

TX 

KCOMMON  +5 

1422 

RET  GDi 

TX 

Z,SC 

• 

• 

1423 

TX 

KCOMMON  +5 

- 

1425 

PCH  FRAME 

TS 

z,sc 

KCOMMON 

♦ 5 

- 

1426 

NA,TWo 

TEST  INST 

TWO 

• 

1428 

TX 

KCOMMON  +9 

- 

1429 

TX 

N , SC , 1 

1430 

OCT 

1515151515000000 

• 

1431 

SWS,AC06 

frame 

6 , L 

1433 

SWS » AC07 

FRAME 

3 , L 

1434 

SS 

FRAME 

SEVEN 

• 

1435 

NA,ONe 

TEST  INST 

zero 

1437 

TS 

— 

m 

1438 

LA 

Z,R6 

N » S C , 1 

• 

1440 

SPEC 

1441 

GO  BOf 

NA.QNe 

TEST  INST 

ZERO 

1442 

TX 

W PUNCHED 

„ 

• 

1443 

S,PHI  PRINT 

PRINT  BUF 

1444  . 

TX 

N , SC , 1 

m 

1445 

HOT  DOG 

SPEC 

• 

1446 

BLANK  OUT 

MT 

BLANKS 

15 

1447 

TS 

C,-2 

KCOMMON 

♦ 9 

1449 

WOW  WEE 

TS 

Z,R6 

KCOMMON 

+ 9 

• 

1450 

PRINT  BUF 

OCT 

0102 

1451 

ALF.5 

1452 

ALF , 5 

• 

1453 

ALF,5 

1455 

PUNCH  CD 

simjlate 

1456 

TS 

- 

• 

14562 

eba 

Z , AU 1 

ZERO 

1457 

NA.TWo 

TEST  INST 

TWO 

1459 

eba 

KCOMMON  +8 

ZERO 

• 

1460 

TX 

Z , AU2 

m 

3"  | 

1461 

TN 

4,1 

10 

1462 

TX 

BLANKS 

• 

1463 

NA,ONe 

TEST  INST 

ZERO' 

1464 

TX 

W PUNCHED 

1465 

S , PH  1 PRINT 

PRINT  BUF 

• 

1467 

TX 

KCOMMON  +9 

2" 

1468 

NO  CD  LIST 

TX 

PUNCH  CD 

14682 

eba 

KCOMMON  +8 

ZERO 

• 

1469 

na,one 

test  INST 

zero 

1471 

TS 

- 

1473 

TS 

- 

- 

1" 


H 
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*testing*  subdirector,  if  any 

print  previous  line,  if  any 

BLAN<  0J^  C BLANK  OUj  PRINT  BUFFER 

PRINT  BUF  +1  TASK  CODE  WORD  ONTO  LINE 

PRINT  BUF  + 4 SAME  FOR  TITLE  MESSAGE 

GO  BOY 

Ret  go 

0,75  C 

z,sc 

Z.CSC  c 

z , sc 

C,  + l 

JUST  PJNr 
Z,R6 
N ,R6 

N,R6 
N,R6 
N,R6, 1 
C * + 2 

FRAME  PJm  C 

wow  wee 

PRINT  BJp  + 14 

C , + 2 

PRINT  BUF  +15 
Z,R6 

PRINT  3 JF  +1 
N,R6 , 1 

ret  go  save  line  pointer 

ret  go 


JUMP  IF  PUNCHING  INHIBITED 
GO  PUNCH  ONE  FRAME 

co-sequence  left  set  to  0,75 
co-sequence  left  set  to  pch  frame 

JUMP  IF  LISTING  NOT  REQUESTED 

PUT  CURRENT  frame  INTO  PRINT  lime 

JUMP  IF  PUNCHING  INHIBITED 
JUMP  IF  PRINT  LINE  NOT  FULL 


c , + 1 

KCOMMON  *8 

NO  CD  LIST  JUMP  IF  LISTING  NOT  REQUESTED 

Z,X4 

KCOMMON  +9 
PRINT  3 JF  +1 
PRINT  3JF  +15 

C , + 2 

PRINT  BJF  +15 

print  line  = one  card 

Z , A J2 
0,87 
Z , A J 1 

C , +2  JUMP  IF  PUNCHING  INHIBITED 

0,88  C GO  PUNCH  CARD  VIA  YULPASSO 

N * A J ? 
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P1474 

PROCEDURE 

TO  SET  UP 

request  for 

EITHER  n3  PUnCHInS’ 

amd/or  luting 

OF 

current  task  via  *testing*  subdi rector 

1476 

TRY  TEST 

NA 

KCOMMON ' 

w testing 

TRY  JSE 

1477 

TS 

z,sc 

Z » R 1 

UP  WORD 

1478 

TS 

- 

- 

READ  A RcQ 

1479 

CH<  TEST 

TS 

Z,SH 

Z*R1 

RD  SrD 1 Rr 

is  next  card  a subdirector 

1481 

TS 

- 

N * R 1 

no 

1483 

WA 

Z,X6 

OCTAL  20 

Z.X5 

YES 

1485 

NA 

N,X5 .3 

W TESTING 

BAD  SD 

WORD  TESTING  IS  REQUIRED 

1487 

UP  WORD 

TX 

N *X5 * 3 

_ 

KCOMMON 

1488 

NA 

KCOMMON 

W NOPUNCH 

C.  + 2 

1489 

TS.ONe 

ONE 

test  Inst 

JP  WORD 

C 

set  inhibit  punch  switch 

14902 

NA 

KCOMMON 

W LIST 

C * + 2 

1491 

ts,tWo 

TWO 

test  inst 

UP  WORD 

C 

set  listing  requested  switch 

1493 

NA 

ONES 

KCOMMON 

BAD  SO 

1495 

TS 

- 

- 

N*R1 

L @YUL  SYSTEM  MANUFACTURING  - BLK2 


P1500  PROCEDURE  10  COPY  THE  BINARY  RECORD  OF  A 

R 1 502  FOLLOWING  TASK.  SUBDIRECTOR  IS; 

R1503  S COPY  OMTq  WORKER 


1509 

BL<2  COPY 

NA 

N »X5  ♦ 3 

W ONTO 

1506 

NA 

N.X5.3 

W WORKER 

1508 

TX 

BY  PAS  MDN 

• 

1510 

TS 

Z,SC 

HOLD  LoC 

1512 

S.MON  tYP-Ri 

COPY  MSG 

SPRA+16 

1 5 1 A 

TS 

z,sc 

HOLD  LoC 

1516 

TS 

z.sc 

HOLD  LOC 

1518 

COPY  XA 

TS 

z,sc 

Z.X5 

1520 

TS 

- 

- 

1522 

COPY  <D 

TX 

1.1 

- 

1529 

CC 

c first  rc 

- 

1526 

TS 

- 

- 

1528 

WF  * 2 

c first  rc 

- 

1530 

TN 

COPY  LINE 

3 

1531 

TX 

L OB JC  MSG 

m 

1532 

OBJ  M9NJF 

MT 

N.AUl.l 

7 

1533 

TS 

z,sc 

K COMMON  ♦ 5 

1535 

TS 

_ 

1536 

WF » 2 

- 

* 

1537 

TX 

IN.  SC*  1 

- 

1538 

TS 

- 

- 

1539 

TS 

- 

- 

1591 

WF » 2 

1,0 

- 

1592 

TS 

- 

- 

1599 

WF  * 2 

- 

• 

1595 

TS 

- 

- 

1596 

COPY  XB 

S.MON  eOFRI 

TAPE  ORDR 

1598 

s.mon  typer 

E COPY  MSG 

SPR<\MR  +56 

1550 

TX 

zero 

- 

1551 

TX 

BlK2  CMPR  -1 

_ 

1553 

COPY  XC 

TS 

Bl 

PRINT  BJF 

1555 

RW.2 

- 

- 

1556 

TN 

E CMPR  MSG 

2 

1557 

LAS  M-  LIN 

TS 

z,sc 

K COMMON  ♦ 5 

1558 

TS 

OCT  00097 

PRINT  BJF 

1560 

RW.l 

- 

- 

1561 

S.  PHI  PRINT 

PRINT  BUF 

1562 

S,  PH I PRINT 

print  buf 

1563 

S,  PH  I PRINT 

PRINT  BUF 

1569 

TS 

— 
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program  onto  work 


BAD  SD 
BAD  Sd 
AMY  MDM 
RY  COMMOd 

C,  + I 

read  a req 
get  wdr<r 
get  ReQ  pn 
copy  kb 
c first  rc  +i 

C FIRS!  RC  +6 
MON  TAPE 

PRINT  Bjc  +1 
Z.AU1 
N.AJ2 , 1 
Go  BOY 
MON  TAPE 

COPY  XD 
C.  + l 

MON  TAPE 
MON  TAPE 
COPY  XA 

zero 

C.  + l 

las  mf  ltn 

BLK2  CMPr  -A 
MON  TAPE 

PRINT  3 Jr  +1 
GO  BOY 

mon  tape 


USER'S  OWN  PAGE  NO.  39 
TAPE  2 FOR  COMPARISON  WiTH  AnOTHpr  3Y  THE 


WORD  ONTO  IS  required 

word  worker  Is  REQUIRED 

» module  deck  numbers*  sd  not  aTloweo 

zero  paragraph  reequests 

print  out  copy  message 

go  read  task  subdireCiors 

go  reserve  yul  worker  2 

go  get  next  paragraph 

no  more  paragraphs 

program  name  into  statement  which 

identifies  this  particular  copy  job  to 

IT'S  particular  compare  job.  now  write 

it  onto  the  worker 


prepare  and  print  page  head  for  copy. 


NOW  WRITE  262  WORDS  OUT  ON  THE  WORKER 
WAIT  UNTIL  WRITE  DONE 


write  end  of  file  records 

TYPE  OUT  COPYING  DONE  MESSAGt. 

prevent  final  printing  if  copying, 
rewind  worker 


REWIND  YULPRoGS 


MANUr  RTn 


L 

SYUL  SYSTEM 

MANUFACTURING  - BL<2 

( 

P1 565 

PROCEDURE  to 

compare  the  binary  record 

OF  a program  w: 

R 1 567 

ING  TASK. 

SUBDIrECTO'Ri 

is; 

» 

R 1 568 

S COMPARE  PROGRAM 

PROGNAMe  from 

WORKER 

1569 

BL<2  GMPR 

NA 

N»X5  *3 

W PROGRAM 

Bad  so 

t 

1571 

TX 

N,X5*3 

- 

c FIRST  DC  +: 

1573 

NA 

N.X5  *3 

W FROM 

BAD  SD 

1575 

NA 

N . X 5 * 3 

w worker 

bad  sd 

o 

1577 

TX 

BY  PAS  MDN 

- 

ANY  MDN 

' 1579 

TS 

z.sc 

hold  loc 

RY  COMMOd 

1581 

S.MON  TYPER 

CMPAR  MSG 

SPRA+24 

C,  + l 

* 

1583 

TS 

z,sc 

HOLD  Loc 

read  a rpq 

1585 

S.MQNtADDR; 

tape  ordr 

1587 

TS 

C i +2 

HOLD  Loc 

TAPE  ORDf 

0 

1588 

S,  MOn  ty^er 

NO  WT2  MSG 

SPRAMR  +40 

TYP  ABORT 

1589 

SPEC 

C,  + l 

1590 

TX 

three 

TEST  INSt 

» 

1592 

CMPR  XA 

TS 

Z,SC 

Z,X5 

get  red  pn 

1594 

TS 

- 

m 

CMPR  XB 

1596 

TX 

zero 

m 

KCOMMON  +7 

> 

1598 

CMPR  XR 

TX 

L CP Y AREA 

m- 

Z , X 4 

1600 

TS 

- 

m 

MON  TAPE 

1602 

RF»2 

4,0 

m 

J 

1603 

TS 

- 

<m 

MON  TAPE 

1605 

RF  * 2 

- 

m 

w 

1606 

CMPR  XU 

NA  * BAnB I T S 

4,0 

BAN  EOFRj 

CMPR  XH 

J 

1607 

TS 

- 

CMPR  XS 

1608 

CMPR  XH 

NA 

C FIRST  RC 

4,0 

CMPR  XK 

1610 

NA 

C FIRST  RC  +1 

4*1 

CMPR  X< 

> 

1612 

NA 

C FIRST  RC  +2 

4,2 

CMPR  X< 

1613 

NA 

C FIRST  RC  +3 

4,3 

CMPR  XK 

1614 

NA 

C FIRST  RC  +4 

4,4 

CMPR  XK 

* 

1615 

NA 

C FIRST  RC  +5 

4,5 

CMPR  XK 

1616 

TN 

CMPR  LINE 

3 

PRINT  BJr  +1 

1617 

TS 

L OBJC  MSG 

Z , A Jl 

OBJ  MANJF 

) 

1618 

TS 

Z,SC 

K COMMON  +5 

GO  BOY 

1620 

TS 

N , SC 

CMPR  XH 

CMPR  XR 

1621 

TS 

- 

- 

C,  + l 

9 

1622 

CMPR  XN 

NA 

4,2 

1,2 

CMPR  XC 

1623 

WA 

Z,X1 

THREE 

Z,X5 

1624 

TX 

Z,X4,3 

• 

• 

ft 

1626 

TX 

Z »X5 

KCOMMON  * 3 

3" 

1627 

CMPR  XG 

NA.CAC3 

4,0 

5,0 

CMPR  XD 

1629 

CMPR  X3 

WA 

Z , X4 , 1 

Z , X 5 , 1 

_ 

• 

1630 

TS 

m 

CMPR  XG 

1631 

CMPR  XD 

WD 

Z,X5 

C255 

Z,Rl 

1633 

LA 

Z ,R  1 

KCOMMON  +3 

CMPR  XE 

ft 

1635 

LA 

K COMMON  + 9 

HOT  DOG 

CMPR  XA 

2" 

1637 

TS 

Z,SC 

KCOMMON  +5 

GO  Boy 

1639 

TS 

_ 

«» 

CMPR  XA 

ft 

1 6 AO 

CMPR  XE 

WA 

KCOMMoN  + 7 

ONE 

KCOMMON  *7 

1642 

LA 

TWO 

KCOMMON  +7 

CMPR  XF 

1644 

TN 

CMPFL  MSG 

10 

PRINT  3 Jf  +1 

.ft 

1645 

SWS.AC06 

1,2 

6 , L 

PRINT  3 Jf  +2 

1" 

1647 

SWS.AC07 

1,2 

3 * L 

PRINT  3 Jf  +2 

USER'S  OWN  PAGE  NO.  35  PAGE  90 

tH  another  stored  on  work  tape  2 by  tht  =reCeD- 


word  program  is  required 
extract  copy  program  name 
word  from  is  required 
word  worker  is  required. 

* MODULE  DECK  NUMBER*  SD  NOT  ALLOWED. 

Zero  paragraph  requests 

print  OUT  compare  MESSAGE 

go  Read  task  subdireCiors 

MUST  OWN  WORKER  2 CUZ  MUST  FOLLOW  COPY 


enable  printing/no  punch  of  PCH  frame 

get  next  paragraph. 

no  more  paragraphs 

show  zero  errors  so  far  in  new  =>ara 

copy  area  base  address 

read  a record  from  the  worker 

wait  until  read  in 


demand  match  of  first  six  words  of 
first  worker  record 


c 

prepare  and  print  page  head  for  compare. 


point  to  first  agc  words  in  each  para 
jump  if  agc  words  disagree  for  this  Loc 


look  to  see  if  para  boundaray  exceeded 
JUMP  IF  PARAGRAPH  NOT  DONE 

jump  if  no  partial  line  waiting- 
print  Remaining  partial  line 

number  of  locs  with  different  yaljes 

JUMP  IF  ONE  ALREADY  FOUND  FOR  THIS  PARA 

set  paragraph  number  into  compare  fail 
MESSAGE 


L 


@YUL  SYSTEM  MANJFaCTURiING  - BLK 2 


16  99 
1650 
1652 
1659 

1656 

1657 
1659 
1661 
1663 

1669 

1665 

1666 

1667 

1668 

1670 

1671 

1672 
- 1673 

1675 

CMPR 

CMPR 

XF 

xc 

XM 

XL 

SS 

TS 

WD 

TS 

TS 

LA 

SWS.AC06 

SWS*AC07 

SS 

TN 

TS 

S .MON  TYPER, 

TX 

TS 

TS 

TS 

1,2 

z.sc 

Z.X5 

9.2 

1.2 
1.2 
1,2 

CMPR  XM 

z,sc 

CMPR  XM 

Z,X9 

Z,SC 

KCOMMON  +8 

KCOMMON  +8 

PARAGRAPH 

9,2 

9,2 

SEVEN 

^COMMON  +5 
KCOMMON+3 

1,2 
6 , L 
3 , L 
SEVEN 
5 

KCOMMON  +5 
SPRA+90 

Z,X5 
Z , X 9 
Z , X 9 

PRINT  BJf  + 2 
GO  BOY 
FRAME 
PCH  FRAMf 
CMPR  X2 
CMPR  xL 
CMPR  XM  +i 
CMPR  XM  +1 
CMPR  XM  +1 
PRINT  BJf  +1 
GO  BOY 
C,  + l 

KCOMMON+o 
GET  REO  dN 
CMPRXB 
CMPR  XN 

CMPR 

CMPR 

ALF  ,5 

SWS.AC06 

SWS.AC07 

000  missing  I 
6 * L 
3 » L 

N COPY  PROGRAM 
CMPR  XP  +1 
CMPR  XP  +1 

1677 

SS 

9,2 

SEVEN 

CMPR  XP  +1 

1678 

TN 

CMPR  XP 

6 

PRINT  3 JF  + 1 

1679 

TS 

z,sc 

KCOMMON  *5 

GO  BOY 

1680 

S.MON  TYPER, 

CMPR  XP 

SPRA  +98 

CMPR  XR 

1681 

CMPR 

XP 

ALF, 5 

paragraph 

ooo  missing  in  compare  prog 

1682 

alf.i 

ram 

1683 

CMPR 

XB 

TS 

N , SC 

CMPR  Xu 

CMPR  XR 

1685 

TS 

m 

C,  + l 

1686 

NA.BAnBITS 

9,0 

BANEOFRI 

CMPR  Xw 

1688 

S.MON  TYPER 

E CMPR  MSG 

SPRAMR+16 

COPY  XC 

1690 

CMPR 

xw 

SWS.AC06 

9,2 

6 , L 

CMPR  XX  *1 

1692 

SWS.AC07 

9,2 

3 »L 

CMPR  XX  +l 

1699 

SS 

9,2 

SEVEN 

CMPR  XX  *1 

1695 

TN 

CMPR  XX 

7 

PRINT  BJf  +1 

1696 

TS 

Z,SC 

KCOMMON  *5 

GO  BOY 

1697 

S.MON  TYPER 

CMPR  XX 

SPRAMR+56 

COPY  XC 

1698 

CMPR 

XX 

ALF, 5 

PARAGRAPHS 

000  AND  A30VE 

missing  from 

1699 

ALF. 2 

COMPARE  PROGRAM 

1700 

CMPR 

xs 

SWS.AC06 

1,2 

6 , L 

CMPR  XT  +1 

1702 

SWS.AC07 

1,2 

3 . L 

CMPR  XT  +1 

1709 

SS 

1 ,2 

SEVEN 

CMPR  XT  .1 

1705 

TN 

CMPR  XT 

7 

PRINT  BJf  +1 

1706 

TS 

Z,SC 

KCOMMON  *5 

GO  SOY 

1707 

S.MON  TYPER 

CMPR  XT 

SPRAMR+56 

COPY  XC 

1708 

CMPR 

XT 

ALF,  5 

paragraphs 

000  AND  a 30 V £ 

MISSING  FdoM 

1709 

ALF. 2 

copy  prugram 

1710 

CMPR 

XK 

s.montyper. 

C,  +1 

SPR AMR  +56 

CMPR  XJ 

1711 

ALF, 5 

copy  job  either  missing,  jnsjccessfji  , 

1712 

ALF, 2 

NOT  MATCHING  OR 

1713 

CMPR 

XJ 

S.MONjYPER, 

C,  + l 

SPR AMR  +56 

copy  xc 

1719 

ALF  , 5 

was  not  immediately  followed  by  this  com 

1715  ' 

ALF  » 2 

PARE  JOB 

1716 

get 

WDRKR 

S.MON  tADOR 

TAPE  ORDR 

1718 

TS 

- 

TAPE  OROf 

1720 

TS 

ONES 

C f + 3 

PHI  SNACH 

1722 

ALF. 3 

WOOY010ZYULWRK2 

USER'S  OWN  PAGE  NO.  36 
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PRINT  COMPARE  KAIL  MESSAGE 

determine  words's  relative  paragraph  loc 
set  word  relative  loc  onto  prink  line 

jump  if  paragraph  not  on  yulprogs 
complain  about  paragraph  being  hissing 

IN  THE  COPY  PROGRAM 


GET  NEXT  PARAGRAPH 


complain  about  paragraph  being  hissing 
in  Compare  program 


read  worker  record 

UUMP  IF  NOT  end  OF  WORKER 
PRINT  COMPARE  DONE  MESSAGE 

complain  about  possible  missing 
paragraphs  in  the  compare  program 


complain  about  missing  paragraph  in 
THE  COPY  program 


ASK  if  YUL  SYSTEM  HAS  ReSeRVeD  4 WORKER 

it  calls  2.  yes  it  has. 

NO  IT  HAS  NOT.  go  GET  IT. 


1723 

1725 

1726 
1728 

0YUL 

TAPE 

TAPE 

SYSTEm 

ORDE 

ORDR 

MANUFACTURING  - BLK2 
TS 

ZfX4 

MON  TAPE 

RW  * 2 
TS 

RF  * 2 

CAC3 

4.0 

mon  tape 

1729 

TS 

- 

- 

MON  TAPE 

1731 

RF  * 2 

- 

- 

- 

1732 

TX 

HOLD  LOC 

- 

z.sc 

1734 

COPY 

4REA 

RESERVE 

262 

PAGE  92 


USER'S  OWN  PAGE  NO.  37 
REWIND  WORKER 
SKIP  OVER  LABEL  RECORD 

wait  until  skip  done 

RETURN  TO  CALLER 
WORK  AREA  FOR  COPY  AND  COMPARE  ROJTINeS 


ROYAL  f BUSINESS  FORMS  INCORPORATED 


* 


L @YUL  SYSTEM  MAN  JFaCTU  RiI NG  - BLK2 


P 1 7 3 6 

* 

"Punch  simulation  Deck" 

sudireCtor  rout 

R 1 738 

*OPtIOMAL. 

see  page  3D. 

this  routine  punches  spec 

* 

R 1 7 40 

*MENTS  IN 

conjunction  with  a program 

• 

* 

1741 

*TRY  5MLTN 

NA 

K COMMON 

W sIMLATN 

1742 

* 

NA 

K COMMON  +1 

W SIMLatN  +1 

• 

1744 

* 

NA 

N,X5,3 

w deck 

1746 

# 

NA 

IN , X5 

ONES 

1748 

* 

TS 

- 

- 

• 

1750 

# 

s,  mon  ty 3ER 

SlMDK  MSG 

SPRA  +24 

1752 

# 

NA,  B i T7 

SWITCH 

zero 

'1754 

* 

s,  mon  ty3er 

SMDSO  MSG 

SPRAMR  +40 

• 

1756 

* 

TS 

L OB JC  MSG 

Z.R1 

1757 

# 

TN 

sim  card 

3 

1758 

* 

MT 

N.Rl.l 

7 

• 

1759 

* 

S,  PUNCH  CD 

Cards  -i 

alpha 

1761 

* 

TX 

blanks 

„ 

1762 

* 

TN 

cards 

9 

* 

1763 

# 

TX 

W EXERASE 

„ 

1764 

# 

S,  PUNCH  CD 

cards  -i 

ALPHA 

• 

R 1 766 

*LOOP  "OR 

EACH  PARAGRAPH 

(EQUALS  ONE 

ebano  . 

1767 

#SIV1De<|  PH 

TS 

E COMMA  XX 

CARDS  +1 

• 

1769 

S,  punch  CD 

EoR 

binary 

1771 

LA 

eight 

1,2 

1773 

# 

LA 

THREE 

1,2 

• 

1775 

SWE ♦ ONES 

1,2 

8»L 

1777 

# 

TS 

4 ZEROS 

cards  +1 

1779 

*S JV|  E 3ANK 

SWE.  ONES 

reset 

3 ♦ L 

• 

1781 

* 

SWS.  AC02 

1,2 

A, 2 

1783 

# 

WA 

Z,X1 

three 

• 

R 1 7 85 

*L03P • "OR 

EACH  WORD  IN  AN  OCCUPIED  PARAGRA3H* 

1786 

*S  1 M DeK  WD  NA 

N,X5 

ZERD' 

• 

1788 

* 

TS 

Z.X5.1 

CARDS  +3 

1790 

# 

SSL.  SEVEN 

N,X5 

27 

1792 

# 

NA,  ONE 

SWITCH 

ONES 

• 

1794 

* 

tS 

oct  Form 

CARDS  + a 

3" 

1796 

# 

ts 

oct  form 

CARDS  +4 

1798 

# 

tS 

4 zeros 

CARDS  +4 

• 

1800 

* 

tn 

w bad  Wurd 

2 

1802 

.* 

ts 

Z ,X5 » 1 

*. 

• 

1803 

*S  1 H OCTWD 

SWS,  ACO 1 

N,X5 

29  ♦ L 

2" 

1804 

# 

SWS,  AC02 

N,X5 

26, L 

1805 

# 

SWS,  AC03 

IN , X5 

23, L 

• 

1806 

# 

SWS,  AC04 

N ,X5 

20, L 

~~  807 

# 

SWS,  AC05 

N ,X5i  | 

17, L 

• 

1" 

1808 

# 

TS 

W OCT 

CARDS  +3 

• 

ine,  for  jce  with 
IAL  ReqJeSt  CARDS 


BAD  SD 
bad  so 

BAD  SD 

bad  sd 
chk  test 

C , + 2 

TYP  aBDRt 
E SYLT  OK 
CARDS 
N , A J2  » 1 
C,  + l 
CARDS 
CARDS  +1 
CARDS  +3 
C * + 1 


Fetch  ss 
CLOSE  PCu  +1 

c,-l 

SIM  EBANic 

begin  adr 

C * + 3 

begin  adr 

CARDS  +i 
Z,X5 


C , + 2 

ADV  SMLDr 
C,  + l 
C , + 3 

SIM  oCTWn 
SIM  OCTWD 
SlM  InStR 
Cards  +3 
SIM  LOCFn 

cards  + 4 
cards  + 4 

CARDS  + 4 
CARDS  ,4 
CARDS  +a 
SIM  LQCFr, 
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segments  only,  subdirector  "testing"  is 

FOR  THE  SIMULATOR,  TO  ALLOW  TESTING  OF  Se3> 


"SIMULATION"  IS  REQUIRED. 

"DECK"  IS  REQUIRED. 

FURTHER  WORDS  ARE  FORBIDDEN. 

see  If  "testing"  Subdirector  is  there. 

"PUNCH  SIMULATION  DECK". 

branch  if  manufacturing  a segment. 

"SIMULATION  DECK  is  FOR  SEGMENTS  ONLY". 


set  up  and  punch  identifying  card. 


POLICE  UP  AND  GIVE  HIM  A FREE  EXERASE. 


initialize  loc  field  and  get  a :>arag. 
exit  if  no  more  paragraphs. 

EXIT  IF  WANDeKeD  INTO  FIXED  MEMtRY', 
BRANCH  IF  PART  OF  SWITCHED  ERASABLE. 

form  location  value  in  unswitch-d  e. 

NO  EBANK  NOTATION  IN  LOC  FIeLD  HERE. 
LOC  VALUE  INIT  = 1400  FOR  ALL  E3ANKS. 
SUPPLY  EBANK  NUMBER  TO  LOC  FIELD. 

point  to  first  agc  word  in  paragraph. 


branch  if  location  is  occupied, 
clobber  op  field  and  go  on  to  n^xt  word. 

SELECT  ON  TYPE  FLAG. 

IF  INDEXED  INSTRUCTION,  PUNCH  AS  oCt. 

interpretive  operator  wqrds. 
constants  of  all  sorts, 
basic  instructions  with  ref  cusses, 
bad  or  Conflict;  op  = "badworD",  mo  adr. 


form  address  and  op  fields  of  dot  card 


L gYUL  SYSTEM  MANUFACTURING  - BLK2 

P18095  "PROCEDURE  TO  RECONSTITUTE  THE  MNEMONiC  OP  CODE  OF 


1810 

#SIM  IMSTR 

SWE, 

SEVEN 

N.X5 

13 

1812 

# 

SSL, 

ONE 

N.X5 

21 

1 8 1 A 

# 

TS 

L OP  COOES 

Z.Rl 

1816 

*SIM  x-ODS 

wA 

L OP  CODES 

seven 

1818 

# 

LA 

five 

K common 

18-20 

# 

LA 

K COMMON 

two 

1822 

# 

WD 

N,X5 

TWO 

1825 

* 

NA 

K COMMON 

zero 

1827 

# 

SWE. 

seven. 

N.X5 

10 

1829 

# 

NA 

K COMMON 

SEVEN 

1831 

* 

TS 

W EDRUPT 

CARDS  +3 

1833 

* 

WA 

L CHAN  OPS 

K COMMON 

1838 

* 

TS 

N.Rl 

CARDS  +3 

1836 

*51  *1  3C0DS 

SWE. 

CAC3 

N.X5 

1 

1838 

# 

NA 

K COMMON 

+ i 

three 

1839 

* 

TS 

W RELiNT 

CARDS  +3 

1880 

# 

NA 

K COMMON 

+ 1 

FO  JR 

1881 

# 

TS 

W INH1N1 

CARDS  +3 

1882 

# 

NA 

K COMMON 

+ 1 

SIX 

1883 

* 

TS 

W EXTEND 

CARDS  +3 

1888 

# 

NA 

K COMMON 

+ 1 

RESUME  WD 

1885 

* 

TX 

W RESUME 

m 

-1886 

*IMPLa>  op 

TS 

BLANKS 

CARDS  +8 

1888 

# 

WA 

Z.Rl 

K CDMMon 

1850 

* 

TX 

N.Rl 

_ 

1852 

# 

LA 

CAC3 

CARDS  +3 

1858 

SWE. 

THREE 

N.X5 

11 

1856 

* 

WA 

CARDS  +3 

K COMMON 

1858 

# 

LA 

CORE  000 

CAROS  .3 

I860 

# 

LA 

K COMMON 

ZERO' 

1862 

# 

WA 

CARDS  +3 

ONE 

1868 

* 

TS 

N.Rl 

CARDS  +3 

1866 

*sn  3C0D5 

NA 

N.Rl 

DAS  ETC 

1867 

# 

TX 

Z.Sc.l 

_ 

1869 

* 

NA 

N.Rl 

INDEX  ETC 

1870 

* ' 

WD 

N.X5 

TWO 

-1872 

# 

EX 

N,X5 

OCT  377? 

1878 

# 

TS 

N.Rl 

CARDS  +3 

1NSTRJCI IONS. 

< COMMON 

c.+i 

SIM  3CoO<; 
Z.Rl 

IMPLAD  Od  +1 

C * + 2 

N.X5 

IMPLAD  Oo  +1 
K COMMON 

C . + 2 

12  Bi r AnR 
Z.Rl 

9 BIT  AOr 

< COMMON  +1 

C . + 2 

IMPLAD  Od 

C . + 2 

IMPLAD  OP 
C.  + 2 

IMPLAD  OD 
C,  + 3 

CARDS  +3 

SIM  li.,-rtjmi 

O - I 

Z.Rl 

CARDS  +3 
12  Bll  AnR 

< COMMON 
Z.Rl 

SIM  OCOOc 

C , + 2 
Z.Rl 

12  Bit  AnR 

C.  + 2 

C , + 2 

N.X5 

N.X5 

ADR  IN  E 
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ISOLATE  3-BIT  FULL  OP  CODE. 

"BRANCH"  IF  IT'S  AN  EXTRACODE  InStR. 

point  to  array  of  non-extracode  ops. 
point  to  array  of  extracode  ops. 

BRANCH  IF  INDEX,  SU,  BZMF,  OR  M3. 

branch  if  not  dca  or  dcs. 

(Because  simulator  will  increment  dp*S), 

BRANCH  IF  NOT  ONE  OF  tHe  CHANNE.  OPS. 
ISOLATE  THE  3-bit  EXTENSION  OF  OP. 

BRANCH  IF  NOT  AN  EDRUPT. 

TREAT  EDRUPT  LIKE  A FULL  CODE. 

set  up  channel  op  field,  go  for  address, 
move  word  for  special-case  check. 


clear  address  field  For  implied. address. 

point  to  full  code  or  pointer  to  ist  ac, 

initially  assume  full  code. 

branch  if  indeed  a full  code. 

isolate  quarter-code  bits. 

point  to  quarter  code. 

branch  if  truly  four  quarter  codes. 

BRANCH  IF  ONE-QUARTER,  NOT  3-0 J'&RTER. 

point  to  ihree-Quarter  code. 

set  up  one-  or  three-quarter-cdoe  op. 


decrement  address  of  das. 
decrement  address  of  dxch. 

ISOLATE  ADDRESS  VALUE  OF  QC  lNSrRJCTIQN. 

...and  set  up  its  op  code  field. 


* 


A. 

L 

&YUL 

system 

manufacturing  - BL<2 

» 

P 1 8 755 

^procedure 

to  set  up  address  field  of 

INSTRUCTIONS 

* 

1876 

*12 

BIT  ADR 

EX 

N,X5 

OCT  17777 

'1877 

* 

LA 

N *X5 

OCT  377$ 

1879 

* 

LA 

OCT  10000 

N,X5 

* 

1881 

* 

TS,  CiT3 

FBANK  00 

CARDS  + 4 

"4883 

*adr 

IN.  E 

LA 

N,X5 

OCT  2779 

1885 

* 

SS 

cards  +i 

C1T3 

"1887 

# 

SWS,  AC04 

N,X5 

14  * L1 

1888 

*9  bit  adr 

SWS,  AC05 

N,X5 

11  *L 

1889 

* 

SWS*  AC06 

N ,X5 

8 , L 

• 

1890 

* 

SWS.  AC07 

N ,X5 , 1 

5,L 

1892 

*51  ^ 

LoCFD 

SWS*  ACOA 

begin  adr 

1 5 * L 

* 

1893 

* 

SWS*  AC05 

begin  adr 

12,  L 

1894 

* 

SWS*  aCQ6 

Begin  ADR 

9 , L 

1895 

* 

SWS,  AC07 

BEGIN  ADR 

6 , L 

• 

1896 

* 

S,  PUNCH  CD. 

cards  -i 

ALPHA 

1898 

*ADV 

smloc 

WA 

begin  adr 

one 

* 

1900 

.* 

NA 

cards  + 3 

INDEX  ETC 

1902 

* 

ts,  one 

ones 

SWITCH 

1904 

# 

SS 

zero 

ONE 

• 

1905 

* 

NA 

5,2 

EOR 

1907 

* 

TS 

zero 

CARDS  *3 

• 

end 

OF  REVISION 

9 OF  PrqGR  A Mi 

YULMANUF  BY  HB 

-S 

3" 


t 
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using  Bank  notation  where  appropriate. 


N,X5 
C , + 3 
C , ♦ A 
C * + 3 
C,  + 2 

CARDS  +A 
CARDS  +A 
CARDS  +A 

cards  +a 

CARDS  +a 

Cards  +i 
CARDS  +1 
cards 
cards  +i 

c,  + i 

Begin  adp 
C,  + 2 
C * + 2 
SWITCH 
SIM  De<  wD 

SIM  De<  pH 


BRANCH  IF  ADDRESS  IS  IN  ERASABLE. 

BRANCH  IF  ADDRESS  IS  IN  FIXeD-FiXED. 
ADDRESS  IS  IN  A FIXED  BANK.  ASSUME  00. 
BRANCH  IF  ADDRESS  IS  IN  UNSWITCheD  E. 
ADDRESS  IN  ebank.  ASSUME  SAME  As  L0C. 


set  up  address  field  of  any  instruction. 


SET  UP  LOCATION  FIELD  AND  PUNCH  CARD. 

Step  location  value. 

BRANCH  IF  NOT  AN  INDEX  INSTRUCT rON. 

FLAG  TO  MAKE  NEXT  INS'rR  PUNCH  A s oCT. 

CONTINUE  IF  NOT  END  OF  PARAGRA^. 

clobber  op  field  and  get  next  paragraph. 


symbol  table  -ISjimg,  including  pa^e  number  of  definition,  and  number  of  references  with  first  and  last  page  njmps8§ 
there  are  no  symbols  in  this  ASSEMBLY. 


THE  ASSEMBLY  WAS  GqoD;  MANUFACTURABLE  BINARY  RECORDS  STORED  on  F.XPFroGS 


L 


Roooi 

R0003 


0004 


0005 


R0006 

R0008 

R0010 

R0012 

R0014 

R0016 

R0018 

ROO 1 9 

R0020 

R0021 

R0022 

R0023 

R0024 

R0025 

R0026 

R0027 

R0028 

R0030 

R0032 

R00331 

R00332 

R00333 

R00334 

R00335 

R00336 

0034 
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w £ are  OeEply  indebted  to  the  one*  the  only,  jHe  great  John  shaw  for  the  following  strong  magic.... 

JSOcTl 


StrLOC « 1 0 B4 


MAsKGRP.I  S,1  F,l 


TH j S PrOGRaM  is  loaded  by  YUL  Pass  o In  REsPONsE  TO  a YUl  Director  Card  CORRECTLY  sPfCiFY1NG  a SIMU- 
LATION run  fur  AGC4.  when  MISCGA  SIMULATION  IS  DeSiReD,  THe  VERB  ON  THe  DIRECTOR  CARD  IS  "ETAL iMUS" . MISCGA  1 
AND  MISCGA  2 are  THe  CREATIONS  OF  CHaRLeS  "MADMaN"  MUnU,  WHO  DeRIVeD  THe  NAMf  BY  SPELLING  "AGCsIM"  BACKWARDS. 

AT  PRESENT*  THIS  PROGRAM  RESPONDS  only  TO  the  VeR3  "ETALIMUS",  AND  INCORPORATES  MISCGA  2*  A PROGRAM  DeFINeD  FOR 
LOCATIONS  00U0-7777  (FIRST  SWITCHABLE  BANK  oNlY)  C*N  BE  SIMULATED*  PROVIDED  ThAT  NO  USE  OF  INPUT-OUTPUT  OR  OF 

program  intekRJpt  is  required,  also,  Certain  cases  of  addressing  central  Registers  may  not  work,  eveRV  instRU_ 
C M ON  SIMULAIeD  IS  TRACED  1 1;  PRINT,  eXCePT  AS  MODIFIED  BY  TRACE  ON/oFF  SUBDIRpCTORS  (SeE  BeLOw).  THe  RJN  IS 
TERMINATED  BY  ANY  OF  1HE  FOLLOWING  OCCURRENCES! 

EXECUTION  OF  AN  ILLEGAL  OPERATION  CODE* 

A CCS  ADDRESS  IN  FIXED  MEMORY, 
divide  OVERFLOW, 

detection  of  an  infinite  loop  (up  to  about  300  instructions  in  length), 

EXCEEDING  THE  PRESET  PRINT  LIMIT, 

OVERFLOW  OUT  OF  THE  T1ME3  REGISTER*  OR 

ABORT  BY  tHE  OPERATOR,  USING  FB9  <B  = FIRST  SIDe-oRoUP). 

THe  SUBDIRECTORS  USED  WITH  MISCGA  2 ARE! 

s start  at  nnnn  (nnnn  octal,  i to  a digits),  this  card  is  required,  and  must  be  first. 

S PRINT  LIMIT  = DDDDD  (DDODD  DECIMAL,  1 TO  5 DIGITS,  »=•'  OPTIONAL).  THIS  CARD  IS  OPTIONAL.  IF 

IT  is  LACKING  OR  INVALID,  THe  PRINT  limit  IS  5000  LINES. 

S TRACE  ON  NNNN  TURN  ON  TRACE  JUST  BEFORE  C ( NNNN ) IS  EXfCUTeD. 

S TRACE  OFF  NNNN  TURN  OFF  TRACE  JUST  AFTER  C (NNNN)  IS  EXfCUTeD. 

S TRACt  ON  RJNNNN  TURN  TRACE  ON  JUST  BEFORE  NNNN  IS  REFERRED  TO. 

S TRACE  OFF  R I NNNN  TURN  TRACE  OFF  JUST  AFTER  NNNN  IS  REFERRED  CO. 

ANY  NUMBER  OF  TRACE  ON/oFF  SUBDIReCTORS  MAY  Be  SUBMITTED,  PROVIDED  THAT 
THEY  SPECIFY  UNIQUE  OcTaL  ADDRESSES  NNNN. 

agca  s i mu  ts  bank  t z,xq 


what  subd 


this  INSTRUCTION  is  at  rase  address. 


O M 


Roo36  main  body  of  program  follows  constants*  etc 
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P0037  FIELD  AND  SHIFT  MASKS. 


0038 

B.B3TB12 

OUT 

-7774 

0039 

B. CHARI 

OCT 

77 

0040 

B.CHAR6 

OCT 

-77  0000 

00  AO  1 

B.CHAR7 

OCT 

-7700 

0041 

B. CHAR8 

OCT 

-77 

0042 

B.EFLAG 

OCT 

000C1 

0043 

B.EDITFLG 

OCT 

00002 

0044 

B.LPFLAG 

OCT 

00004 

0045 

B.FLAgS 

OCT 

00007 

0046 

B.C7T8 

OCT 

-7777 

0047 

B »CAC3 

DtC 

-GGGG 

0048 

B*SIGN 

OCT 

-lOCOOO 

00489 

B *CHAN|GMSK 

OCT 

3 

0049 

BfDCHECK 

OCT 

6060  6060  6060  6060 

R0050 

fjrther 

shifi  masks. 

0051 

S * D1 2 

dec 

-G 

0052 

S * C 1 T3 

OCT 

777777 

00522 

S.  ACQ6 

OCT 

-70000 

0053 

S*AC08 

OCT 

-7 

0054 

S * ACH7 

OCT 

-1700 

0055 

S.MSK5 

OCT 

-70.0000000 

0056 

S »MS<4 

OCT 

-7000000 

0057 

S.MS<3 

. OCT 

-70000 

0058 

S »MS<  2 

OCT 

-700 

0059 

S .ONE 

OCT 

-1 

0060 

S*THREE 

OCT 

-3 

0061 

S .LOW  14 

OCT 

-37777 

0062 

S . LOW  1 5 

OCT 

-77777 

0063 

S.CACl 

dec 

GGGG 

0064 

S.CAC2 

DEC 

0000  GGGG 

0065 

S .ONES 

DEC 

GGGG  GGGG  GGGG 

0066 

S .US 

OCT 

-40000 

0067  S.DVMSK  OCT  037777 


L @YJL  SYSTEM  SIMULATORS  — AGC4 

P0068  RESERVATIONS* 


0069 

T 1 

RtsERVE 

1 

0070 

T 2 

RtsERVE 

1 

0071 

T 3 

RtsERVE 

1 

0072 

T A 

RESERVE 

1 

’ 0073 

I nstr 

RESERVE 

1 

0074 

I NSTR2 

RESERVE 

1 

0075 

D3EF 

RESERVE 

1 

0076 

DATA 

RESERVE 

1 

0077 

LOCATION 

RESERVE 

1 

0078 

ZDECR 

RtsERVE 

1 

0079 

NEW  Z 

RtsERVE 

1 

0080 

EDIT  WD 

RtsERVE 

1 

0081 

PAT  PTR 

RtsERVE 

1 

R0083 

- address  constants. 

0084 

0085 

0086 

BANK  1 
BANK  2 
BANK  8 

SPEC,B1 

SPEC.B2 

SFEC.B8 

0087 

BANK  5 

SPEC.B5 

0088 

BANK8  M3 

SPEC  »B7 

0089 

0090 

0091 

SPEC  1777 
L SIXES 
O3  ALF 

SPEC  »B2 

SPEC 

SPEC 

0092 

0093 

PRIN  SPEX 

SPEC 

SPEC 

0094 

0095 

SPEC 

SPEC 

0096 

0097 
00971 

IN  PTR 
OJT  PTR 
LAST  PTR 

SPEC 

SPEC 

SPEC 

0098 

L STD  PLIM 

SPEC 

0099 

L GoGo  Pi 

SPEC 

00991 

00992 
0100 

L RECYCLE 
L TRON  OFF 
DEC  853 

SPEC 
SPEC 
SPEC. BO 

01008 

0101 

PHI  WAA 
A3C4  MSKS 

SPEC.B7 

MASKBASE 

S 

USER'S  OWN  PAGE  NO 
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damn  zero 
damn  zero 
damn  zero 

DAMN  ZERO 

2045 
1023 
SIXES 
OP  ALF  T 

line  +3 
next  line  +3 
next  line  +9 

LINE  +9 

mask  loc  *64 
mask  loc  +64 

MASK  LOC  + 64 
UnRC  SUBD  +1 

continue  + i 
recycle 
Tr  on  off 
853 


600 


L 

@YJL  SYSTEM 

SIMULATORS  — AGca 

USER'S  OwN  PAGE  NO. 

4 

PAGE 

A 

P0102 

alphabetic 

cunstants  — first  of  four  pages. 

0103 

w subdirc 

ALF.2 

SUBDIRECTORY 

010A 

W START 

alf 

START 

0105 

*/  AT 

alf 

Al 

0106 

START  MSG 

ALf  *2 

START  Aj 

0107 

print 

alf 

PRINT 

0108 

.W  LIMIT 

alf 

LIMIT 

0109 

ALF  5000 

ALF 

5000 

0110 

P_IM  MSG 

ALF. 3 

PRINT  LIMIT  = 

0111 

2 LONS  MSG 

ALF*  3 

START  ADDRESS  TOO  LONG 

0112 

UNOCS  MSG 

alf  » 3 

start  address  not  octal 

0113 

2 LONP  MSG 

ALF. 3 

print  limit  too  long 

011A 

JNDPL  MSG 

ALF. 3 

print  limit  not  decimal 

0116 

NO  PAL  MSG 

ALF . 3 

no  paragraphs  Loaded 

0117 

EMRGY  MSG 

alf.a 

IN  EMfRGENCY,  abort  TASK  3Y  F79 

0118 

PAGE  1 

alf 

PAGE  1 

0119 

S I MU  HEAD 

OCT 

002  A 

0120 

ALF. 5 

YUL  SYSTEM  (MISCGa  2>  FOR  AGCa: 

0121 

ALF  .5 

0122 

ALF. 5 

L @yjl  System  simulators  — agC4 

P0123  ALPHABETIC  CUNSTANTS  — SECOND  OF  FOUR  PAGES. 


0124 

SJBHEAD 

OCT 

0002 

0125 

ALF  »5 

LOC 

OP 

ADDR 

0126 

ALF  *5 

A (X) 

LP 

0 

0127 

ALF.5 

0128 

olt 

4 

-0129 

LINE 

ALF  * 5 

0130 

ALF  * 5 

0131 

ALF  * 5 

0132 

O3  ALF  T 

ALF  * 4 

TC 

CCS 

INDEX 

0133 

A L F * 4 

0134 

ALF. 4 

MP 

OV 

0135 

ALF. 4 

CS 

TS 

AD 

USER'S  OwN  PAGE  NO 
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PAGE  5 


A 

OVCTR 


XCH 

SU 

Mask 


BIX) 
T 3 


L @Y JL  SYSTEM  SIMULATORS  — AGC4  USER'S  OwN  PAGE  NO.  * PAGE  6 

P0136  ALPHABETIC  CUNSTANtS  — THIRD  OF  FOUR  pages. 


0137 

0138 

0139 

S = 1 

NEXT  LINE 

OCT 
ALF, 5 
ALF, 5 

0001 

0140 

ALF,  5 

01401 

RESERVE 

used  IN  DITTO  PROCEDURE. 

01403 

W TRACE 

ALF 

TRACE 

01404 

W ON 

ALF 

ON 

01405 

W OFF 

ALF 

OFF 

01406 

W R 

ALF 

R 

0141 

BLAN<  1 T 3 

ALF 

00000 

0142 

BuAN<  1T4 

ALF 

0000 

0143 

ovf  blot 

ALF 

■00000 

01431 

ZERO  C6 

ALF 

0 

0144 

DITTO 

alf 

11 

0145 

DEC 

-5000 

0146 

PRINT  LIM 

DEC 

-5000 

0147 

SOIP 

OCT 

4 

0148 

blan<s 

alf 

01488 

W CUT  OFF 

ALF 

CUT  OFF 

0149 

W ILLEGOP 

alf 

ILLEGoP 

0150 

W LOOPING 

ALF 

LOOT ING 

0151 

W PRNT  MAX 

ALF 

printmax 

01519  W INF  LOOP  ALF  *2  INFINITE  LOOP 

015199  C^USE  ALF  *2  00000000 

0152  T DUMP  MSG  ALF, 5 TERMINAL  DUMP  OF  ERASABLE  MfMoRY  FOLLOWS 

0153  END  SI  MSG  ALF,2  END  SIMULATION 


L @Y  JL  SYSTEM  SIMULATORS  — AGC4 

P01530I  ALPHABETIC  CONSTANT^  — FqURtH  oF  FOUR  PAGES 


015302 

015303 

015304 

2 LoNt  MSG 

jnotR  msg 
DJPTR  MSG 

ALF  ,4 
ALF  .4 
ALF  *4 

trace  on/off  address 
trace  on/off  address 
TRACE  ON/oFF  address 

TOO  long 
NOT  OCTAL 
DJPLiCaTeD 

015305 

OMIT  MSG 

ALF, 5 

trace  off  for 

INSTRUCTIONS 

015306 

t)  CORONER 

ALF, 2 

coroner* s report 

USER'S  OwN  PAGE  NO 
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L @YJL  SYSTEM  SIMULATORS  — AGC4  USER'S  OWN  PAGE  NO.  8 PAGE  8 

P0154  NJMERIC  consiants. 


0155 

ZERO 

OCT 

0 

0156 

T >iO 

OCT 

-2 

0157 

FOUR 

OCT 

-4 

0158 

EIGHT 

DEC 

-8 

01581 

T/JELYE 

FXBIN 

-12 

0160 

FIFTY 

FX6IN 

-50 

0161 

C65 

F*6lN 

-65 

0162 

DEC  852 

FXBIN 

-852 

0163 

2 <1 

OCT 

-2000 

0164 

5 C6 

OCT 

-5  0000 

0165 

6 C6 

OCT 

-6  0000 

0167 

SIXES 

OCT 

06.  06.  0606,  060606,  0606  0606 

0168 

OCT 

0606  0606  06 

0169 

S33 

OCT 

0003 

0170 

NEG  ONE 

OCT 

-177776 

0171 

BIT  14 

OCT 

-20000 

0172 

SIGN  CLIP 

DtC 

OGGG  C,GGG 

0173 

BANK  MASK 

OCT 

-36000 

0174 

EDIT  PREF 

OCT 

-20 

0175 

GENERASE 

OCT 

-25 

0176 

L BANK  REG 

OCT 

-15 

0177 

START  ADR 

OCT 

0 

0179 

HOLD  LINE 

DtC 

GGGG  GGGG  GGGG.-l*  o 

0180 

LINE  CNT 

FXBIN 

-51 

0181 

TASK  LINS 

DEC 

0 

0182 

PAGE  NO 

dec 

-1 

01821 

TRACE  OFF 

DtC 

0 

01822 

loc  flag 

OCT 

2 

01823 

ON 

OCT 

3 

01824 

OFF 

OCT 

5 

01825 

B1B2 

OCT 

6 

l @ y jl  system  simulators  — agca 

P0183  ASSIGNMENTS. 


01831 

PAGE  HEAD 

ASSIGN 

0,20 

- 0 1 8 A 

yjl  typer 

ASSIGN 

0,63 

0185 

RO  SBDIRC 

ASSIGN 

0,65 

0186 

howzat 

ASSIGN 

0,66 

0187 

I3N  SjBDR 

ASSIGN 

0,68 

0188 

JNRC  SBDR 

ASSIGN 

0,69 

0189 

E SYLT  OK 

ASSIGN 

0,70 

0190 

FETCH  SS 

ASSIGN 

0,71 

0191 

MANUF  RTN 

ASSIGN 

0,76 

0192 

yjl  masks 

ASSIGN 

0,77 

0193 

OCTAL  20 

ASSIGN 

0,78 

019A 

W HODUN I T 

ASSIGN 

0,80 

0195 

TYP  ABORT 

ASSIGN 

0,89 

0196 

L OB JC  MSG 

ASSIGN 

0,90 

01961 

RJEC  SU6D 

ASSIGN 

0,91 

01962 

DEPAGIN8 

ASSIGN 

0,101 

01963 

YJL  D2A  ZS 

ASSIGN 

0,119 

0197 

A 

ASSIGN 

A , 0 

0198 

0 

ASSIGN 

A , 1 

0199 

z 

ASSIGN 

A, 2 

0200 

L3 

ASSIGN 

A, 3 

0201 

bankreg 

ASSIGN 

A, 13 

0202 

CYR 

ASSIGN 

A, 16 

0203 

SR 

ASSIGN 

A, 17 

020A 

CYL 

ASSIGN 

A, 18 

0205 

SL 

ASSIGN 

A, 19 

0206 

OJCTR 

ASSIGN 

A, 28 

0207 

TIMEl 

ASSIGN 

A, 29 

0208 

TIME2 

ASSIGN 

A, 30 

0209 

TIME3 

ASSIGN 

A, 31 

0210 

mon  tape 

ASSIGN 

7,1 

0211 

EOR 

ASSIGN 

7, A 

0212 

MON  PRINT 

ASSIGN 

7,23 

0213 

MON  A2D 

ASSIGN 

7,  A1 

02  1 A 

MON  WAKE 

ASSIGN 

7,99 

0215 

MON  SLEEP 

ASSIGN 

7,166 

USER'S  OWN  PAGE  NO 
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P0217  EQUIVALENCES* 


agc4 


0Z18 

DAMN  ZERO 

EQUALS 

0 

0219 

A 

equals 

128 

0220 

AMTF 

EUuALS 

384 

02201 

SARA 

EQUALS 

128 

0221 

5 = 2 

equals 

SUBHEAD 

0222 

OCT  7 

equals 

AC08 

0223 

L0W2 

equals 

THREE 

0224 

L3W4 

equals 

D12 

0225 

LOW  12 

EQUALS 

C7T8 

0226 

16  OMES 

equals 

CAC3 

0227 

16  ONES 

EQUALS 

CAC3 

0228 

E BIT 

EQUALS 

E FLAG 

0229 

L5  BIT 

EQUALS 

LP  FLAG 

02291 

LOW  1 6 

equals 

CAC3 

0230 

S3EC  ZERO 

EQUALS 

SIGN 

0231 

POINTERS 

equals 

IN  PTR 

USER'S  OWN  PAGE  NO.  lo 
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L 

P0232 

@YJL  SYSTEM 

SIMULATORS  - 
TW0  PRIMARY 

- AGC4 

SUBDIRFCtORS 

ARE  RECqGnIZED 

FOR  USE  WIM 

MISCGa. 

USER'S  OwN  PAGE  NO.  H PAGE  U 

THE  FIRSt*  WHICH  IS  REcoU  I RED  * SPECIFIES 

R0234 

■Me  Starting  address  by 

"START  AT  NNNN" , WHrRe  NNNN 

IS  FROM  i TO 

4 OCTAL 

. DIGITS.  the  second  is  OPTIONAL  and 

R0236 

specifies 

A PRINT  LINE 

LIMIT  BY  "PRINT  LIMIT  = DDDDD"  (THe  "=»  IS  OPTIONAL,  AND  "DDDDD"  IS  FROM  1 TO  5 DECIMAL 

R0238 

DIGITS) . 

if  me  print 

limit  subdirector  IS  missing 

OR  INVALID, 

THE  PRINT  LIMIT  IS  5000  LINES, 

0240 

WHAT  SUBD 

tx 

YUL  MASKS 

_ 

Z,MXR 

0241 

S*  YUL  TYPER 

W sUBdIRC 

AA  + 2 

C.  + l 

TYPE  "sUBdIREcTOR;  ». 

0243 

WA 

Z,X6 

OCTAL  20 

Z ,X5 

0244 

SJ5PECT 

TX 

Z.X5 

- 

WHODUNIT 

0245 

NA 

N.X5.3 

w start 

HoWZAT 

"START"  IS  REOUIRED. 

0247 

TS 

AGC4  MSKS 

Z , MXR 

C,-2 

C 

0248 

NA 

N.X5.3 

w at 

HOWZIS 

"AT"  IS  REQUIRED. 

0250 

LA,  CHAR6 

5 C6 

5,2 

ILL  START 

branch  if  start  adr  morf  than  4 digits. 

02511 

LA,  CHAR6 

5,2 

zero 

Uno  start 

branch  if  start  address  is  blank. 

0252 

LA,  CHAR8 

EIGHT 

5,2 

uno  start 

branch  if  start  address  not  octal. 

0254 

WA 

Z ,X5 

THREE 

whodunit 

0255 

NA 

5,3 

ONES 

HOWZIs 

superfluous  words  Are  forbidden. 

0257 

sws,  ones 

N,X5 

A , 1 

start  msg  + 1 

0258 

Ti> 

YUL  MASKS 

Z , MXR 

E sylt  ok 

make  grp  b seek  desired  program. 

0260 

S*  YUL  TYPER 

start  msg 

AA  + 2 

c,+i 

type  start  address. 

0262 

TS 

AGC4  MSKS 

z,mxr 

C»  + 3 

0263 

SWS*  ONES 

start  adr 

3.L 

start  adr 

shift  up  digits  thus  far. 

0265 

SwS,  AC08 

start  msg  +i 

A, 7 

start  adr 

CONVERT  Al PHA  START  ADR  TO  OCTAL, 

0267 

sws.  ones 

start  msg  +1 

A , 1 , L 

start  msg  +1 

position  next  alpha  octal  digit. 

0269 

NA.  CHArI 

START  MsG  ♦ 1 

BLAn<S 

C,-3 

branch  if  more  start  adk  digits. 

0271 

WA 

Z ,X6 

OCTAL  20 

Z ,X5 

0272 

TS 

Z,X5 

WHODJNI T 

Rd  SbdIRC 

Read  2ND  SUBDIRECTOR  If  ANY. 

0274 

STD  PLIM 

ts 

ALF  5000 

ALF  PLIM 

PROC  PLIM 

WHEN  2ND  SUBDIRECTOR  LACKING  OR  BAD. 

02751 

TX 

WHODUNIT 

Z ,X5 

02753 

TX 

TWO 

- 

HOLD  LINE  +1 

SHOW  THAT  A sUBD I rECTUr  WAs  rEAd. 

0276 

NA 

N ,X5 , 3 

W PRINT 

StD  PLIM 

IF  NOT  "PRINT",  MAYBE  "tRACE". 

0278 

TS 

ZERO 

HOLD  LINE  +1 

SUSPECT 

C 

show  that  print  limit  card  was  read. 

0279 

NA 

N ,X5 ,3 

W LIMIT 

UinRC  SUBD 

"LIMIT"  is  required. 

0281 

LA,  CHARS 

6 C6 

5*2 

ILL  PLIM 

branch  IF  print  limit  OVER  5 DIGITS. 

0283 

SWE.  CHAR 8 

5,2 

A, 2 

Z,AU1 

0284 

WA 

Z.AUl 

L SIXES 

Z.AUl 

0285 

WA 

N,AU1 

N,X5 

PRINT  LIM 

0286 

NA,  DCHeCK 

print  lim 

zero 

UnDC  PLIM 

BRANCH  IF  PRINT  LIMIT  NoT  DECIMAL. 

0288 

TS 

N ,X5 ,3 

alf  plim 

suspect 

c 

0289 

NA 

N,X5 

ONES 

UnRC  SUBD 

superfluous  words  are  Forbidden. 

0291 

proc  plim 

SWS*  C7J8 

ALF  plim 

A ♦ 2 * L 

plim  msg  +i 

use  Correctly  specified  Print  limit  or 

0293 

Sw5  * Cl  TP 

AlF  plIm 

A ,2 , L 

PlIM  msg  +2 

UsE  5000  l.INEs  OTHERWlsF. 

0295 

TS 

Z , SC , i 

Z»X4 

Mon  A2D 

convert  alpha  to  decimai . 

02961 

ALF  PLIM 

RESERVE 

2 

0297 

M 

ALF  PI IM  +1 

PRINT  LIM 

WHAT  SUBD 

c 

STORE  LIMIT,  RECOVER  BK  l MASKS. 

0299 

S*  YUL  TYPER 

PLIM  MSG 

AA  + 3 

C,  + l 

TYPE  PRINT  LIMIT. 

L @YJL  SYSTEM  SIMULATOR  — AGC4  USER'S  OWN  PAGE  NO.  1?  PAGE  12 


P0301 

I MlTlALIZE 

page  head, 

agc<,  memory. 

print  bJffer 

FlA6  TAbLe.  read 

TRACE  ON/OFF  SUhDIRfCTOR  cards,  plant  FLAgS. 

0303 

A4 

MASKER 

T* 

AGC4  MSKS 

_ 

Z ,MXR 

0304 

TX 

PAGE  head 

+ i 

- 

SIMU  HEAD 

♦ 1 

put  log  number  into  pAqf  heading. 

0306 

TX 

L OBJC  MSG 

- 

Z , AU 1 

0307 

TN 

N , AL'l 

7 

SIMU  HEAD 

+ 6 

put  object  message  into  page  heading. 

0309 

TN 

page  head 

+ 12 

2 

N,AU2 

ALSO  FANCY  DATE. 

0311 

S' 

MON  PRINT  S I MU  HEAD 

PRINT  PARTIAL  PAGE  head.  SP20. 

0313 

TX 

PAGE  1 

_ 

SIMU  HEAD 

+ 15 

0314 

TN 

BANK  2 

2 

Z ,X4 

BANK2  TO  x4 , bANk  8 TO  x5. 

0316 

T* 

C65 

- 

Z , AU  1 

0317 

Ml 

E BIT 

63 

N ,X4 » 1 

CLEAR  AGC4  MEMORY. 

0319 

Ml 

Zero 

63 

N ,X5 ' 1 

CLEAR  PRINT  BUFFER  FLAG  TABLE. 

0321 

NA 

Z.AUl.l 

ONE 

C,-2 

0322 

T* 

E BIT 

- 

N ,X4 

0323 

TX 

ZERC 

- 

N,X5 

03232 

SSL 

, three 

HOLD  1 INE 

+ 1 

0 

TR  ON  OFF 

CHOICf  IS  0,  1,  OR  2. 

0324 

JMREC 

sbd 

Ts 

yul  masks 

Z,MXR 

OnRC  sbdr 

unrecognized  wd  in  tRACf  on/off  subdir. 

032402 

T 3 

ON 

OFF 

ts 

AGCa  msks 

Z,MXr 

RD  SBDIRC 

get  trace  on/off  subdirfctor  if  any. 

032404 

T6 

In  ftr 

Z.AJI 

INIT  BUFF 

EXIT  WHEN  SuBdIRECTORS  run  Out. 

032406 

WA 

Z,X6 

OCTAL  20 

Z,X5 

032407 

Tx 

Z,X5 

- 

WHODUNIT 

032408 

NA 

N , X5 , 3 

W TRACE 

UnREC  SBD 

"TRACf"  IS  REQUIRED. 

03241 

TX 

Z,X5 

■ 

whodunit 

032411 

NA 

N ,X5 

W ONI 

C , +3 

032412 

TX 

OFF 

- 

edit  wd 

032413 

TS 

Z.X5.3 

- 

C , +3 

032414 

NA 

N , X5  * 3 

W OFF 

UnREC  SBD 

either  "ON"  OR  "OFF"  IS  REQUIRED. 

032416 

TX 

ON 

- 

EDIT  WD 

032417 

NA 

N ,X5 

W R 

C , +2 

"R;»  for  reference  is  optional. 

032419 

TS 

Z ,X5 , 3 

- 

C,  + 2 

03242 

EX 

EDIT  WD 

B 1 82 

edit  wd 

CLEAR  REFERENCE  BIT  IF  NO  "R:". 

032422 

LA, 

CHAR6 

5 C6 

5 ’ 2 

ill  tronf 

BRANCH  IF  ADDRESS  MORE  THAN  4 DIGITS. 

032424 

LA, 

CHAR6 

5,2 

ZERO 

UNO  TRONf 

branch  If  address  is  blank. 

032426 

LA, 

CHAR8 

EIGHT 

5,2 

UNO  TRONF 

branch  IF  ADDRESS  IS  NOT  OCTAL. 

032428 

WA 

Z ,X5 

THREE 

whodunit 

032429 

NA 

5,3 

ONES 

unrec  sbd 

SUPERFLUOUS  WORDS  ARE  FORBIDDEN. 

032431 

TX 

N ,X5 

. 

LOCATION 

032432 

TS 

ZERO 

Z,X5 

C , +2 

032433 

SWS 

, ONES 

Z ,X5 

3 , L 

Z,x  5 

SHIFT  UP  DIGITS  THUS  FAR. 

032435 

SWS 

, ACOB 

location 

A, 7 

Z,X5 

convert  alpha  address  to  octal. 

032437 

sws 

, ONES 

location 

A , 1 , L 

Location 

POSITION  NEXT  ALPHA  OCTAL  DIGIT. 

032439 

NA, 

CHARI 

location 

blanks 

C,-3 

BRANCH  IF  MORE  ADDRESS  DIGITS. 

032441 

WA 

Z ,X5 

BANK  8 

Z,X5 

FIND  PLACE  IN  TABLE  IN  RANKS  8 AND  9, 

032443 

NA 

N,X5 

ZERO 

DUP  TRONF 

BRANCH  IF  ADDRESS  IS  A DUPLICATE. 

032445 

TS 

EDIT  WD 

N,X5 

TR  ON  OFF 

PLANT  TRACE  ON/OFF  FLAG,  GET  NEXT  SUBDR. 

L 
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SIMULATORS  — AGC4 
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P032499 

initialize 

PRINT  buffer 

and  Load  i 

program  into  banks 

2 AND  3. 

0325 

I MI T BUFF 

Ml 

zero 

3 

N.AUl.l 

0326 

TX 

Z.AUltl 

- 

Z.AU2 

0327 

SWE,  cacz 

Z,AU1 

16*L 

N,AU2 

INITIALIZE  TRACE  LINE  (PRINT)  BUFFER. 

0329 

NA 

Z.AUl 

bank  5 

C,-3 

0330 

TS 

IN  PTR 

Z , A J 1 

C,-2 

c 

0331 

read  loop 

TS 

Bank  2 

z*x5 

Fetch  ss 

fetch  a paragraph  if  any  left* 

0333 

TS 

start  adr 

5,2 

ENp  LUAq 

NO  MORE,  INITIALIZE  Z REGISTER  ANd  BGlN. 

0335 

LA 

OCTAL  20 

1,2 

c,-l 

CUT  OFF  LOADING  AFTER  BaNK  03. 

0337 

TX 

Z *X5 

- 

Z »R3 

0338 

WA 

Z,X1 

THREE 

2,X5 

1800  ADDRESS  OF  iPT  WD  tN  PARAGRAPH, 

0340 

SWS.  LOW 1 2 

1*2 

8 , L 

Z,R3 

DITTO  IN  AGC4  MEMORY. 

0342 

LOAD  LOOP 

EX 

N *X5  * 1 

1 6 ONES 

Instr 

0343 

SWc,,  L0WI5 

INsTR 

1 

INsTR 

CROP  PARITY  AND  DUPLICATE  SIGN. 

0345 

TP 

SP3 

SlMJ  head 

flagset 

c 

apply  flags  to  word. 

0347 

TX 

INSTR 

- 

N,R3,1 

LOAD  WORD  INTO  AGC4  MEMnRY. 

0349 

NA 

5,2 

EOR 

Load  loop 

BRANCH  IF  MORE  WORDS  IN  PARAGRAPH. 

0351 

TP 

■ 

Read  loop 

go  to  get  next  paragraph. 

0364 

END  LOAD 

TP 

YUL  MASKS 

Z , MXR 

Mon  tape 

0365 

RW.l 

- 

- 

- 

REWIND  YUl  PROGS, 

0367 

LA 

SI MU  HEAD 

SP3 

ok  load 

BRANCH  IF  ANY  paragraphs  loaded. 

0369 

JN 

NOPAL  MSG 

3 

line  +7 

0370 

S'  MON  print 

LlNL  -1 

PRINT  "nO  PARAGRAPHS  LOADED". 

0372 

S,  YUL  TYPER 

NoPAL  MsG 

AMTF  +3 

TYP  ABORT 

TYPE  "NO  PARAGRAPHS  LOADED",  ABORT. 

0374 

0<l  LOAD 

TX 

PHI  WAA 

_ 

Z,X4 

03742 

TP 

Z , SC  , 6 

4,107 

MoN  WAKE 

c 

0375 

TP 

Z,SC 

Z , Ro 

OK  LOAD 

c 

SET  UP  SPECIAL  FIXED  START  FOR  ABORTING. 

0376 

GRP  3 PCR 

spcR 

N »R0 , 3 

0377 

TP 

zero 

GB  SWITCH 

Mon  sleep 

c 

GO  TO  SLEEP  AND  AWAIT  FiXeD  START. 

0378 

LA 

cause 

ZERO 

c,-i 

BEWARf  OF  ACCIDENTAL  WAkInG. 

0379 

TP 

C,  + l 

RECYCLE2  +2 

4,106 

set  tripwire  for  main  group. 

0380 

S»  MON  TYPER 

w cut  off 

SPRA  +8 

term  dump 

GROUP  A TYPES  "CUT  Off  ",  ABORTS. 

0381 

TP 

ZERO 

location 

A4  masker 

c 

03812 

g3  switch 

WD 

z.sc 

one 

z,sc 

03814 

SWS*  AC06 

GRP  B PCR 

16 

EMRGY  MSG  *3 

03816 

S*  YUL  TYPER 

EMRGY  MSG 

AA  +4 

c,  + l 

type  "IN  EMERGENCY,  ABORT  TASK  by  FB9  ", 

0382 

TX 

BANK  2 

- 

Z ,R  1 

0383 

TX 

BANK  2 

- 

Z ,R3 

0384 

TX 

BANK  2 

- 

Z ,X4 

0385 

TP 

SPEC  ZERO 

Z,R7 

Recycle 

initialize  special  registers,  begin. 

t 
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SIMULATORS  — AGC4 

TO  APPLY  FLAGS  DURING  LOADING*  INDEXING* 

and  tc  to  a. 

USER'S  OWN  PAGE  NO.  U 

PAGE  1 4 

3 

C 

038602 

flagset 

LA , LOW  1 2 

2K 

INSTR 

ZeROFLG 

C 

038603 

LA , LOW  1 2 

GENERASE 

INSTR 

EFLAG2 

C 

038604 

NA.B3TB12 

INSTR 

EDITPREF 

C.  + 2 

C 

c 

038605 

ss 

EUITFLG 

FLAGS 

INSTR 

038606 

NA  , LOW  1 2 

L0W2 

INSTR 

C » *2 

C 

c 

038607 

ss 

LPFI AG 

FLAGS 

INSTR 

- 038608 

EFLAG2 

SS 

EFLAG 

flags 

INSTR 

jr 

038609 

ZEROFLG 

ss 

zero 

FLAGS 

INSTR 

R0387 

UNRECOGNIZED  WORD  in  " 

START  AT"  SUBDIRECTOR  CARD* 

0388 

HOWZIS 

TS 

YUL  MASKS 

Z,MXR 

HoWZAl 

UNReCoGNI/eD-WoRD  abort. 

R0390 

START  ADDRESS  ILLEGAL. 

0391 

ILL  START 

TX 

YUL  MAS«S 

m 

Z,MxR 

y 

0392 

S*  YUL  TYPER  2 LONS  MSG 

AMTF  +3 

RJEC  SUBD 

START  ADDDRESS  TOO  LONG. 

0394 

JNO  START 

TX 

YUL  MASKS 

- 

Z.MXR 

t 

0395  . 

S*  YUL  typer  UNOCS  MsG 

AMTF  +3 

RJEC  SUBD 

start  address  not  octal. 

* 

9 

R0400 

UNRECOGNIZED  word  in  " 

PRINT  LIMIT" 

SUBDIRECTOR  CARD 

• 

m 

0401 

UNRC  SUbD 

TS 

YUL  MaSkS 

Z.MxR 

UnRC  SbDR 

UNRECOGNIZED  WORD  in  print 

LIMIT  SUBDIR. 

* 

0403 

TS 

AGC4  MSKS 

z.mxr 

SrD  PLIM 

set  print  limit  = sooo  in 

this  case. 

y 

* 

R0405 

illegal  print  limit. 

USE  5000. 

0406 

ILL  PLIM 

TX 

YUL  MASKS 

_ 

Z.MXR 

j 

0407 

S*  YUL  TYPER  2 LONP  MSG 

AMTF  +3 

C » + 3 

PRINT  limit  TOO  LARGE. 

0409 

JNDC  PLIM 

TX 

YUL  MASKS 

- 

Z,MXR 

0410 

S*  YUL  TYPER  UNDPL  MsG 

AMTF  +3 

c,*l 

PRINT  LIMIT  NOT  DECIMAL. 

0412 

TS 

L STD  PLIM 

z,sc 

IGN  SUBDR 

USE  PRINT  LIMIT  = 5000  IN 

these  cases. 

• 

R041301 

illegal  or 

DUPLICATED 

TRACE  ON/OFF 

ADDRESS. 

* 

041302 

ILL  TRONF 

TX 

YUL  MaSkS 

- 

Z,MXR 

% 

041303 

S*  YUL  TYPER  2 LONT  MSG 

AMTF  +4 

C » ♦ 5 

J 

04 i 304 

JNO  TRONF 

TX 

YUL  MASKS 

- 

Z,MXR 

041305 

S*  YUL  typer  UNOTR  MSG 

AMTF  +4 

C»  + 3 

V 

041306 

DJP  TRONF 

TX 

YUL  MASKS 

m 

Z.MXR 

J 

041307 

S*  YUL  TYPER  DUPTR  MSG 

AMTF  +4 

c « ♦ 1 

V 

041308 

TS 

L TRON  OFF 

z.sc 

IGN  SUBDR 

y 

L 

6>YJL  SYSTEM 

SIMULATORS  - 

- AGC4 

P0414 

MAIN  SIMULATOR  LOOP 

0415 

recycle 

ss 

Z 

LOW  12 

0416 

WA 

Z 

ONE 

0417 

T* 

N ,R  1 

- 

0418 

RECYCLE2 

S5 

INSTR 

L0W12 

0419 

EX 

N.Rl 

LOW  16 

04192 

LA,  L0W12 

Z 

2K 

0420 

SSL  *L0W4 

INSTR 

12 

0421 

TS 

Z ,R7 , 1 

0423 

T*> 

Z *R7 ,2 

- 

0425 

TS 

Z ,R7 ,2 

- 

0427 

TS 

Z »R7 ,2 

* 

0429 

S*  MON  TYPER 

w illfGop 

5PR A 4 8 

0431 

S*  mON  typer 

w ILLFGOP 

SpRA  48 

0433 

S*  MON  TYPER 

W ILLFGOP 

SPRA  48 

0435 

S*  MON  TYPER 

W ILLFGOP 

SPRA  48 

0437 

S*  MON  TYPER 

W illegop 

SPRA  48 

0439 

TS 

Z ,R7 ,8 

- 

0441 

TS 

Z ,R7  » 1 6 

- 

0443 

TS 

Z.R7.2 

- 

0445 

TS 

Z ,R7  * 2 

_i 

0447 

TS 

Z *R7 ,2 

- 

0449 

TS 

Z.R7.2 

- 

0451 

TS 

Z ,R7  *2 

— 

04522 

EXERASE 

TS 

Z,SH 

z,sc 

R0453 

return  here  after  each 

INSTRUCTION. 

0454 

reedchk 

TS 

0455 

TX 

LRECYCLE 

0456 

TIMES 

LA 

Z.R7 

DEC853 

0457 

WA 

TIMF  1 

ONE 

0458 

swe.one 

TIMEI 

14 

0459 

e* 

TIMEI 

LOWl  4 

0460 

WA 

T l 

TIME2 

0461 

WA 

TIME3 

ONE 

0462 

wu 

Z ,R7 

DEC852 

0463 

NA,SIGN 

TIME3 

SIGN 

0464 

TX 

ZERO 

m 

0465 

S*  MON  TYPER 

C,  + l 

SPRA  +8 

0466 

alf 

T3RUPT 

1 
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Z,R1 

Z 

- 

INSTR 

Z.Rl 

— 

dbef 

EXERASE 

BRANCH  IF 

ABOUT  TO  EXECUTE 

FROM 

E MEMRY. 

C,  + l 

TC 

0000 

■% 

J 

CCS 

0001 

Index 

0010 

xch 

0011 

TERMDUMP 

0100 

TERMDUMP 

0101 

TERMDUMP 

0110 

TERMDUMP 

0111 

_ 

TERMDUMP 

1000 

- 

Mp 

1001 

DV 

1010 

y 

su 

1011 

cs 

1100 

j 

TS 

1101 

ad 

1110 

mask. 

1111 

- 

flag  set 

C SET  Fl  AGS 

before  executing 

FROM 

E MEMRY. 

EDITCHK  C 

T4 

editor 

timei 
T 1 

T i ME  I 
T I ME2 
T IME3 
Z,R7 
EDITOR 


T I ME3 
TERMDUMP 


L 

P0467 

gYUL  system 
procedure 

SIMULATORS  — AGC4 

for  tc  (transfer  control). 

0468 

TC 

T* 

N.Rl 

0469 

TX 

z 

- 

0470 

E* 

Z.Rl 

L0WX2 

0471 

TCI 

TX 

ONE 

- 

0472 

T5 

ZERO 

T 4 

R0473  PROCEDURE  FOR  CCS  (COUNT  COMPARE  AND  SKIP). 


0474 

CCS 

LA.L0W12 

2K 

instr 

0A76 

EX 

N.Rl 

160NES 

0477 

TX 

ONE 

- 

0478 

NA .SIGN 

A 

zero 

0479 

NA 

M 

zero 

0480 

ZEROBR 

WA 

z 

ONE 

0481 

WA 

ZDECR 

ONE 

0482 

T* 

- 

- 

0483 

DECBR  . 

WD 

A 

ONE 

0484 

TS 

- 

- 

0485 

NEGCCS 

WA 

Z 

TWO 

0A86 

TX 

THREE 

- 

0487 

NA 

A 

160NES 

0488 

T15 

zero 

A 

0489 

HA 

A 

160NES 

0490 

TS 

- 

- 

0491 

ILLES  CCS 

S'  MON  TYPER 

C.  + l 

SPRA  +8 

0A92 

alf 

CCSF I XED 

USER'S  OWN  PAGE  NO.  16 
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INSTR2 

0 

NEWZ 

zdecr 

times 


illegccs  branch  if  argument  IS  In  fixed. 

A 

Zdecr 

NeGCCS 

C . ♦ A 

z 

ZDECR 

REEDCHK 

A 

REEDCHK 

Z ________ 

zdecr 

C . + 2 

Zerobr 

A 

decbr 

TeRMDUMP 
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P0A93 

procedure  for  index 

(index  next 

INSTRUCTION) . 

0A9A 

INDEX  EX 

N,R1 

160NES 

T 1 

0A95 

Si 

z 

LOW  1 2 

Z,R3 

0A96 

TX 

z 

- 

NEWZ 

0A97 

WA 

N,R3 

T 1 

Data 

0A98 

SWe.ONE 

DATA 

16 

Tl 

OA99 

WA 

T 1 

DATA 

data 

0500 

TS 

ONE 

ZDECR 

editchk 

0501 

TX 

INSTR 

- 

T 2 

0502 

EX 

DATA 

160NES 

INSTR 

0503 

Ti 

- 

- 

Flagset 

050A 

TX 

INSTR 

- 

InSTR 2 

0505 

TX 

T 2 

«■ 

INSTR 

0506 

TS 

ZERO 

TA 

times 

R0507 

PROCEDURE 

FOR  XCH  (EXCHANGE) . 

0508 

XCH 

NA, FLAGS 

INSTR 

zero 

XCH1 

0509 

EX 

N.Rl 

160nes 

A 

0510 

Ti 

ONE 

ZDECR 

REEDCHK 

0511 

XCH1 

TX 

N.Rl 

- 

data 

0512 

LA  .LOW  1 2 

INSTR 

TWO 

c , + 2 

0513 

sws*us 

A 

1 

A 

05132 

NA,  L0W1Z 

INSTR 

TWO 

C.  + 3 

05 1 3 A 

TX 

A 

- 

NEWZ 

05136 

TS 

DATA 

A 

TCI 

05  1 A 

TX 

A 

- 

N.Rl 

0515 

NA , LOW  12 

INSTR 

LBANKREG 

C,*2 

0516 

EX 

N.Rl 

BANKMASK 

N.Rl 

0517 

TX 

ONE 

s 

ZDECR 

0518 

TS 

DATA 

A 

REEDCHK 

USER'S  OwN  PAGE  NO.  17 


PAGE  17 


C 
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L 

@yjl  System 

simulators  ~ 

- AGf  A 

P0519 

procedure 

FOR  cs  (CLEAR 

AND  SUBTRACT) 

• 

0520 

cs 

HA 

N »R  1 

160NES 

0521 

TX 

ONE 

- 

0522 

TS.160NES 

DATA 

A 

R0523 

PROCEDURE 

for  Ts  (Transfer  to  storage; 

• 

052  A 

TS 

tx 

ONE 

- 

0525 

NA, FLAGS 

INSTR 

zero 

0526 

TS 

‘P 

• 

0535 

TX 

A 

0536 

LA . LOW  1 2 

INSTR 

TWO 

0537 

SWS'US 

NEWZ 

1 

0538 

NA.L0W12 

INSTR 

LBAN1KREG 

0539 

E* 

NEWZ 

bankmask 

05  AO 

Oy/IND 

SSL  * L0W2 

A 

1A 

05  A 1 

TS 

- 

- 

05A2 

TS 

ONE 

A 

05A3 

TS 

NEGONE 

A 

05  AA 

TSZ  ChK 

NA,  LOW  1 2 

INSTR 

TWO 

05AA2 

TS 

ZERO 

TA 

05  AAA 

TS 

NEWZ 

N.R1 

05A5 

TS  SKIP 

WA 

Z 

one 

05A6 

TS 

TWO 

ZDECiR 
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data 

zdecr 

reedchk 


zdecr 

C » + 2 

OVIND  OVERFl OW  INDICATION  ONLY  IF  ReF  FIXED. 

NEWZ 

C , ♦ A 

NEWZ 

Ct*2 

NEWZ 

C,  + l 
TsZ  CHK 
Ts  SKIP 
Ts  SKIP 
C,  + 2 
Times 
reedchk 


z 

TsZ  CHK 
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P0549 

procedure 

For  AD  (ADD) 

• 

0550 

AD 

WA 

N.Rl 

A 

0551 

SWE»ONE 

DATA 

16 

0552 

WA 

DATA 

A 

0553 

EX 

DATA 

160NES 

0554 

TX 

ONE 

- 

0555 

SSL  *L0W2 

A 

14 

0556 

TS 

w 

0557 

TS 

ONE 

Tl 

0558 

TS 

negone 

Tl 

0559 

TS 

- 

- 

0560 

OVCTRINC 

WA 

Tl 

OVCTR 

0561 

SWE*ONE 

OVCTR 

16 

0562 

WA 

Tl 

OVCTR 

0563 

EX 

OVCTR 

160NES 

0564 

TS 

Z »R7 . 1 

- 

R0565 

procedure 

FOR  MASK 

(BOOLEAN  AND) • 

0566 

MASK 

ex- 

N.Rl 

160NES 

0567 

ex 

DATA 

A 

0568 

TS 

ONE 

ZDECR 

R0569 

introduction  to 

PROCEDURE  FOR  su 

(SUBTRACT) . 

0570 

SJi  HA 

N.Rl 

160NES 

0571 

WA 

DATA 

A 

0572 

TS 

- 

- 

R0573 

procedure 

Fqr  mp  (mult iply)  . 

0574 

MR 

TS 

ONE 

ZDECR 

0575 

bm 

A 

DATA 

0576 

TS 

- 

T2 

0577 

EX 

T 2 

LOW  1 4 

0578 

SWE « LOW  14 

T2 

14 

0579 

na.sign 

Tl 

SIGN 

0580 

HA 

A 

160NES 

0581 

HA 

LP 

160NES 

0582 

TS 

- 

- 
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data 

a 

data 

a 

ZDECR 

c,  + l 

REEDCHK 

OVCTRINC 

OVCTRINC 

REEDCHK 

OvCTR 
T 1 

OVCTR 

OvCTR 

REEDCHK 


data 

A 

REEDCHK* 1 


JOINS  PROCEDURE  FOR  Ad. 

data 

data 

Ad*1 


sgnabs  c 

T 2 

LP 

A 

REEDCHK  +1 
A 

Lp 

REEDCHK  +1 
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P0583 

procedure 

FOR  DV  (DIVIDE) . 

0589 

DY 

TX 

N ,R  1 

Data 

0585 

TX 

ZERO 

- 

Ta 

0586 

HA, SIGN 

DATA 

A 

Ta 

0587 

sws*us 

T9 

1 

ta 

0588 

SM 

ONE 

T9 

Ta 

0589 

NA.SIGN 

DATA 

SIGN 

C , + 3 

0590 

NA,SIGN 

A 

zero 

C , + 2 

0591 

ss 

ZERO 

ONE 

Ta 

0592 

TS 

ONE 

ZDECR 

sgnabs 

C 

0593 

LA,L0W16 

DATA 

A 

DVOVF 

0599 

SWE  tDVMSK 

DATA 

30*L 

data 

0595 

SWE*DVMSX 

A 

30  * L 

a 

0596 

BD 

DATA 

A 

T 3 

0597 

EX 

T3 

DVMS< 

T 3 

0598 

BM 

T 3 

DATA 

T 2 

0599 

EX 

T 2 

SIGNCLIP 

T 2 

0600 

WD 

A 

T 2 

T 2 

0601 

SWE  »LOW 19 

T 2 

16 

Q 

0602 

HA 

Q 

160NES 

0 

0603 

SWE*L0W19 

T3 

30 

A 

0609 

TX 

T9 

- 

LP 

0605 

NA,SIGN 

Tl 

SIGN 

REEDCHK  +1 

0606 

HA 

A 

160NES 

A 

0607 

T5 

- 

- 

REEDCHK  +1 

0608 

DY  OVF 

S'  MON  TXPER 

C , + 1 

SPRA  +8 

termdump 

0609 

ALF 

D 1 V OVF 

R0610 

S JBROUT I Ne 

jU  generate 

SIGN 

and  absolute  value  of 

AN  OPERAND. 

USeD  by  MULtIPIY  and  DIVIDE. 

• 0612 

S3NABS 

ex 

N ,R  1 

160NES 

data 

C 

0613 

SWS«US 

DATA 

1 

data 

c 

061 A 

SWStUS 

A 

1 

a 

c 

0615 

HA 

A 

DATA 

Tl 

c 

0616 

NA,S1GN 

data 

SIGN 

C , + 2 

c 

0617 

HA 

data 

160NES 

data 

c 

0618 

NA,SIGN 

A 

SIGN 

C,*2 

c 

0619 

HA 

A 

160NES 

A 

0620 

TX 

- 

- 

m 

L 

P0621 

@y jl  system 
procedures 

SIMULATORS  - 
TO  SIMULATE 

— AGC4 
THe  ACtIoN 

OF  EDITING 

Registers. 

USER'S  0n»N  PAGE  NO.  2l  PAGE  2l 

0622 

0623 

editchk 

NA, FLAGS 
TX 

INSTR 

zero 

C.  + 2 

c 

FAST  fXIT  WHEN  NO  EDITING  ReGS  INVOLVED, 

0625 

NA.EBIT 

INSTR 

zero 

C*-I 

c 

0626 

NA.LPbIT 

INSTR 

zeRo 

LPCYCLE 

c 

BRANCH  WHfN  operand  IS  IP. 

0628 

SSL.L0W4 

INSTR 

2 » L 

C.  + l 

c 

R0&29 

PROCEDURE 

TO  SIMULATE  CYR  (CYCLE 

right) • 

0630 

CYRCYCLE 

SWS.SIGN  CYR 

1 5 * L 

CYR 

0631 

0632 

0633 

SWS.L0W1S  CYR 

PR 

PR 

1 

CYR 

ro63^  procedure  to  simulate  sr  (shift  right) • 

0635  SRCYCLE  SWS.L0W14  SR  1 Sr 


R0&36 

■ PROCEDURE 

TO  SIMULA! E LP  < LOW-ORDER 

product 

register) . 

0637 

L3CYCLE 

SWS.SIGN 

LP 

15. L 

LP 

C 

0638 

SWS » LOW  1 5 

LP 

1 

LP 

C 

0639 

SS 

ZERO 

B1T14 

LP 

R0640 

PROCEDURE 

TO  SIMULATE 

CYL  (CYCLE 

LEFT) . 

06  A 1 

CYLCYCLE 

SWS . LOW  1 5 

CYL 

l.L 

CYL 

C 

0642 

SWS.ONE 

CYL 

15 

CYL 

c 

0643 

0644 

SWS.SIGN 

PR 

CYL 

1 .L 

CYL 

R0&A5 

PROCEDURE 

TO  SIMULATE 

SL  (SHIFT  LEFT). 

0646 

SLCYCLE 

SWS.L0W14 

SL  l.L 

SL 

C 

0647 

SWS.ONE 

SL  14 

SL 

L 

P06A8 

R0650 

«0652 

R0654 

R0656 

R0658 

R0660 

R0662 

R066A 

R0666 

Rq668 

R0670 

R0671 

R0672 

R067A 

R0676 

R0678 

R0680 

R0682 

R0683 

R0685 

R0687 

R0689 

R0691 

R0693 

R0695 
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editor  routine  m prepaRe  printeu  outPjt.  this  part  Detects  the  occurrence  of  infinite  loops.  the 
BINARY  OUtPUI  OF  a TRACED  INSTRUCTION,  nine  AGC4  words,  IS  condensed  INTO  THRfe  GAG-WORDS.  a buffer  of  four- 
word  items  is  maintained,  where  the  first  three  words  are  a triple  of  cac-woros  for  a line,  and  the  fourth  is 

A CAC-WORD  CONTAINING  A thread  to  THe  NeXT  item  (IN  ORDeR  of  PRINTING)  IN  CAC2 , AND  A THREAD  TO  THE  NeXT  ITEM 
WITH  the  SAMt  VALUE  OF  Z IN  CAC3  (OR  ZERO  IF  NONE).  BANKS  8 AND  9 CONTAIN  SPFCS,  EACH  POINTING  TO  THE  EARLIEST 

item  in  the  buffer  with  the  corresponding  value  of  z.  by  "value  of  z»  here  is  meant  bizj,  i.e.  the  location, 
an  indicator  is  Kepi  in  Start  adr  showing  whetHe3  a Loop  pattern  is  in  a Statf  of  partial  complftion.  up  to 

F0yR  POINTERS  ARE  KEpT  (POINTERS  ARE  SpECS  pOINTlNG  TO  ITEMS  IN  THe  BuFFER).  THE  TWO  THAT  ARE  ALwAyS  KEpT  ARE 
"IN  PtR",  POINTING  to  tHe  NeXT  ITeM-SLOT  TO  Be  FILLeD  AND  "OUT  PtR"  POINTING  TO  the  NpXT  Item  to  be  PRINTED. 

WHeN  a Loop  Pattern  IS  IN  process,  "PAT  PtR"  PoINtS  to  THe  FIRST  Item  IN  the  PAtTfRN,  AND  X3,  the  COMPARISON 
POINTER'  POINTS  to  THe  ITem  WITH  WHICH  thE  NeXT  InCoMiNG  LINe  IS  TO  BE  COMPARpD.  tHE  STRATEGY,  WITH  AND  WItHoUt 
A PATTERN  IN  PROCESS,  is  AS  follows: 

case  1 • NO  PATTERN  (C(START  ADR)  NOT  ALL  ONES) 

IF  THREAD  in  BKS  8-9  IS  VOID,  THREAD  It  TO  A NeW  ITEM  FORMED  FROM  rHlS  LINE* 

if  non-void,  thread  through  items  with  same  biz)  as  this  line,  looking  for  a 3-word  match. 

IF  NONE,  THREAD  last  ITeM  EXAMINED  TO  A NEW  ITEM  FORMfD  FROM  THIS  LINE. 

if  found,  set  pat  PtR  and  x3,  discard  this  line,  and  set  start  adr  to  ail  ones. 

if  match  was  with  preceding  line,  indicate  tca  trap  and  abort. 

case  2:  pattern  in  process  ic<start  adr)  is  all  ones) 

COMPARE  THIS  LINF  WItH  EXISTING  ITEM  ACCORDING  TO  X3  (THe  COMPARISON  PoINTeR>* 

if  it  matches,  see  If  match  was  with  the  Last  non-repeating  line. 

if  so,  the  simulated  program  is  in  an  infinite  loop,  and  the  run  is  aborted. 

IF  Not,  INDEX  the  COMPARISON  POINTER  and  DISCARD  the  CURRfNt  LINE. 
if  no  match,  the  pattern  is  bro<en.  using  pat  ptr  and  X3,  feed  ali  repeated  lines  into  the  buffer, 
threading  according  to  location  but  not  checking  for  duplicates,  reset  start  adr  to  zeRo  and 
resubmit  this  line. 
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P06952 

enter  here 

AFTER  Each 

INSTRUCTION. 

0696 

editor 

TX 

IN  PTR 

- 

0698 

wu»  LOW  1 z 

Z 

ZDECR 

0699 

TX 

A 

- 

0700 

SWS*  CAC2 

INSTR 

16  *L 

0701 

SWS*  CAC1 

location 

32  * L 

0703 

TX 

LP 

m 

0704 

sws*  cAcz 

N ,R  1 

16  * L 

0706 

SWS.  CAC 1 

D BEF 

32  * L 

0708 

TX 

TIME3 

- 

0709 

SWS*  CAcZ 

OVCTR 

16  * L 

0710 

SWS*  CAC 1 

0 

32  * L 

0712 

TN 

POINTERS 

2 

0714 

La 

ONES 

start  aqR 

R 0.7  1 6 

procedure 

TO  LOOK  FOR 

a match  when 

no  pattern  is 

0717 

NO  PATERN 

WA 

BANK8  M3 

location 

0719 

not  MATCH 

LA,  CAC3 

3*3 

ze«o 

0721 

TX 

3,3 

- 

0723 

NA 

N , X 1 

N,X3 

0724 

NA 

1*1 

3,1 

0725 

NA 

1,2 

3*2 

0727 

TX 

Z,X3 

. 

0731 

TS 

ONES 

start  adr 

0733 

NO'  MATCH 

ss 

Z,X1 

CAC3 

0735 

TS 

L GOGO  PI 

Z,S3 

:> 
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Z,X1  AN  ITfM-SLOT  IS  ALWAYS  AVA I LAbLE  HERE. 

location 

n,xi 

N ,X  1 

N,Xl 1 1 FORM  FIRST  CAC-WORD. 


N * X 1 

N,X1  (D  AFTER)  . 

N,Xi,i  FORM  SECOND  CAC-WORD. 

J 


N,X1 

N,X1 

N.Xl  FORM  THIRD  CAC-WORD. 

Z,xi  IN  PTR  TO  Xl*  OUT  PTR  Tn  X2. 

PATTERN  BRANch  If  ThERE'S  A PATTERN  IN  PROCESS. 

N PROCESS. 

Z,X3  LET  3,3  = INITIAL  THREAD  FOR  THIS  BIZ). 

No  MATCH  . BRANCH  IF  NO  MATCH  IN  WHOLE  BUFFeR. 

Z.X3  THREAD  TO  item  WITH  this  BIZ). 

NOT  MATCH 
NOT  MATCH 

not  match  branch  if  no  match  on  this  item. 

pat  ptr  pattern  bfgins  now.  set  pat  ptr.  J 

loop  chek  set  pattern  signal,  check  one-ordeR  lup. 

3,3  store  location  thread  To  this  item.  J 

adv  in  ptr  + 1 advance  Input  pointer*  maybe  printing. 


;> 


) 

.) 

j 

j 


j 
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P0737 

procedure 

when  a pattern  is  in  a 

state  of  partial 

0738 

PATTERN 

na 

N ,X  1 

N,X3 

0739 

na 

1,1 

3,1 

07  AO 

NA 

1,2 

3,2 

0742 

LOOP  CHEK 

NA 

Z,X3 

LAST  PTR 

0744 

TX 

Zero 

- 

0746 

TX 

PAT  PTR 

- 

0747 

SM 

3,3 

CACl 

0749 

S,  MON  TYPER 

w LOOPING 

SPRA  +8 

0750 

continue 

SWE,  CAC3 

3,3 

16 

0752 

NA 

T 4 

zero 

0753 

WA 

NEW? 

one 

0754 

TS 

INSTR2 

INSTR 

0758 

break  pat 

TN 

N , X i 

3 

0760 

TN 

PRINT  LIM 

2 

0762 

TX 

PAT  PtR 

- 

0764 

R3T  LINES 

TN 

N , SO 

3 

0766 

TS 

Z , SO  ♦ 3 

Z * X5 

0767 

TX 

5,3 

- 

0768 

NA,  CAC3 

5,3 

zero 

0769 

ss 

Z,X1 

CAC3 

0771 

Tb 

zero 

Start  adr 

0773 

SWE,  CAC3 

N , SO 

16 

0775 

NA 

Z.SO 

Z,X3 

0777 

LA 

ONES 

hold  line 

0779 

tn 

HOLD  LINE 

3 

0781 

T13 

PRINT  LIM 

-1  PRINT  LIM 

USER'S  OWN  PAGE  NO.  2a 


PAGE  2a 


Completion. 

Break  pat 
Break  pat 
break  pat 

Continue 
Start  adr 

Z,X3 

3.3 

termdump 

Z,X3 

Recycle 

z 

RECYCLE2 

hold  line 

PRINT  LIM  -1 

z , so 

N ,X  1 
C * + 2 
Z,X5 
C,-l 

5.3 

adv  in  PtR 
z,so 

RPT  lines 
END  PRINT 
N , X 1 

No  PATERN 


BRANCH  IF  PATTERN  IS  NOW  broken. 

branch  if  loop  not  closfd  yet. 
clear  PATTERN-IN-PROCeSS  INDICATOR. 

FLAG  REGINNING  OF  INFINITE  LOOP. 

index  comparison  pointer  to  next  item. 


save  this  line  wHILe  BROKING  UP  PATERN. 
SAVE  AND  DISABLE  PRINT  I IMIt. 

POINT  TO  BEGINNING  OF  PATrERN. 

RE-FEFD  REPEATED  line. 


store  location  thread  Tn  RE-FED  line, 
reset  pattern  signal,  advance  in  ptR. 
advance  Re-feeding  pointer, 
branch  if  more  items  to  repeat. 

br  if  called  by  termdump,  not  pat  BREAK. 

RESTORE  THIS  LINE. 

RE-SUBMIT  THIS  LINE  FOR  MATCHING, 


( 
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P0783  E°ITOR  CONTINUED.  THIS  PART  IS  A SUBROUTINE  TO  ADVANCE  IN  PtR.  If  tHf  RESULTING  VAl  Ue  EQUALS  THAT 

R0785  Or  OUT  PTR.  THE  BUFFER  IS  FULI  (THIS  IS  THE  NORMAL  CASE  AFTER  THE  FIRST  300  LINES  OR  THEREABOUTS).  A LINE  IS 

R0787  PJSHeD  OUt  OF  THE  BUFFER  ACCORDING  TO  OUT  PtR.  ANO  oUt  PtR  IS  ADVANCED.  tHe  IOCAtIoN  THREAD  FOR  tHe  LINe  IS 
R0789  S£WN  UP  AROUND  IT.  IF  THe  TRaCe  IS  ON,  THE  FOLLOWING  QUANTITIES  ARe  PRINTED: 

Ro79o  LOCATION  ALPHA-OP-CODe  ADDRESS  A BIX)  A ( X ) LP  Q OVCtR  T 3 » AND  (IF  APPROPRIATE)  "INFINITE  LOOP". 

«0792  FOR  EACH  qUANTItY  EXCEPT  -INFINITE  LOOP",  DITTO  MARKS  ARe  PRINTED  IF  APPROPRIATE,  EXCEPT  At  THe  TOP  OF  A PAGe, 

Rq79a  for  any  flip-flop  resister  containing  overflow,  the  overflow-corrected  contents  are  shown,  precfDeD  by  a blot. 


0796 

0797 
0799 

ADV 

IN  PTR 

TX 

T* 

SWe.  CAC3 

Z,SH 

Z,xi 

1 ,3 

16 

Z ,S3 

last  ptr 
in  ptr 

point  TO  last  NEW  LINE  ACCEPTED. 
ADVANCE  IN  PTR. 

0801 

TA 

IN  FTR 

- 

Z , X 1 

KEEP  IN  PTR  IN  Xl  ALSO. 

0803 

NA 

Z,Xl 

OUT  PtR 

N , S3 

FAST  FXIT  UNTIL  BUFFER  FILLS  UP. 

0805 

LA 

2.3 

CAC1 

C , + 2 

0806 

TN 

W INf  LO°P 

2 

next  line  + 10 

DO  THIS  WHERE  L°OP  BEGINS. 

0808 

SWe.  CAC3 

N,X2 

32 

EDIT  WD 

recovfR  location. 

0810 

WA 

BANKS  M3 

EDIT 

WD 

Z,X5 

let  5,3  = initial  location  thread. 

0812 

NA,  CAC3 

5,3 

OUT  PTR 

C , + 2 

0813 

TS,  CAC3 

2,3 

5.3 

C,*2 

deletf  this  line  from  location  thread. 

0815 

TS 

5,3 

Z , X 5 

C ,-2 

0816 

ss 

zero 

CAC3 

2,3 

CLEAR  LOCATION  THREAD  In  ITEM. 

081701 

CHAN 

GE  q 

WA 

BANK  8 

EDIT 

WD 

Z,X5 

c 

081702 

NA,  CHANGV)SK 

5,0  . 

loc  Flag 

C.+H 

BRANCH  IF  no  TRAcE  CHANGE  ON  LOCATION. 

08170A 

HA 

LoC  FLAG 

BiB2 

LoC  FLAG 

changf  criterion  for  change  on  Location, 

081706 

NA 

CHANG  MSK 

ON 

N omitted 

branch  IF  CHANGING  off  to  on. 

081708 

TS 

OFF 

CHANG 

MS< 

set  up  lin 

CHANGf  on  to  off  but  print  This  INStR. 

08171  ' 

SWs.  LOW  12 

N ,X2 

16 

Z ,X5 

c 

081711 

LA,  CHANGVISK 

ONES 

5,0 

C,-A 

branch  if  trace  change  on  address. 

081713 

OFF 

TEST 

NA 

CHANG  MSK 

OFF 

set  up  lin 

branch  if  trace  is  on. 

081715 

DA 

trace  off 

ONE 

trace  off 

step  count  of  untRaced  instructions. 

C 

081717 

SWE,  CAC3 

2,3 

16 

OUT  PtR 

ADVANCE  OUT  ptr  AND  SAMf  IN  X2. 

081719 

TS 

OUT  PTR 

Z,X2 

N , S3 

QUICK  exit  WHEN  trace  IS  OFF. 

c 

081721 

N OMITTED 

LA 

trace  off 

zero 

Set  up  lin 

when  it  Really  wasn't  off  at  all. 

081723 

SWE,  ONES 

TRACE  OfF 

D,4,|_ 

MON  ARG 

08172A 

TS 

Z,SC 

Z , A J1 

YUL  D2 A ZS 

c 

081725* 

DELETE 

THIS  bETTER 

BE  R.l 

after  817.2A 

081725 

MDN 

ARG 

RESERVE 

1 

081726* 

MI 

N,Sf;,2 

2 

OMIT  MSG  + 2 

edit  trace-off  count  for  printing. 

c 

08173 

TS 

blanks 

LINE 

END  PAGE  +1  C 

GENERATE  blank  line. 

081732 

TS 

Z , S3 

CHANG 

MS< 

end  print  +2  c 

SAVE  RETURN,  set  SPl. 

08173A 

TN 

OMIT  MSG 

5 

LINE  +10 

c 

081735 

TS 

z,sc 

Z,S3 

PRINT  LIN 

print  no.  of  untraced  Instructions. 

081737 

T* 

Chang  msk 

- 

Z , S3 

RECOVfR  return  ADDRESS. 

081739 

T* 

on 

- 

Chang  msk 

TURN  ON  THE  TRACE. 

c 

0817A1 

TX 

zero 

- 

trace  off 

( . jg  J 

o y 

( ) 
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PO81799  procedure  to  set  up  a trace  line  in  print 


0818 

Set  Up  E I N S,  OCT2ALF4 

EDIT  WD 

0820 

SWE*  L0W9 

N.X2 

28 

0821 

WA 

T 1 

OP  ALF 

0822 

TX 

N , AUl 

- 

0824 

SWE*  CAC3 

N,X2 

16 

0825 

S*  0CT2ALFa 

EDIT  wD 

0827 

S*  0CT2ALF5 

2,0 

0829 

SWE*  CAC3 

2*1 

32 

0830 

S.  OcT2ALF5 

EDIT  WD 

0832 

SWE*  CAC3 

2,1 

16 

0833 

S*  0CT2ALF5 

EDIT  WD 

0835 

S*  0CT2ALF5 

2,1 

0837 

SWE*  CACA 

2*2 

32 

0838 

S*  0CT2ALF5 

EDIT  wD 

0840 

SWE*  CAC3 

2,2 

16 

0841 

S*  0CT2ALF5 

EDIT  wD 

0843 

S*  0CT2ALF5 

2*2 

0845 

SWE*  CAC3 

2*3 

16 

0847 

TX 

out  ptr 

- 

0849 

LA 

LINE  CNT 

FIFTY 

USER'S  OWN  PAGE  NO.  2ft 


PAGE  26 


NeXT 

line 

edit 

1 ocatIqn. 

T 1 

Z,AU1 

NeXT 

LINE 

♦ 1 

SUPPLY  ALPHABETIC 

OP  CODE. 

edit 

WD 

NeXT 

line 

♦ 2 

edit 

aDDRfSS  part 

OF  INSTRUCTION 

NeXT 

line 

♦ 3 

EDIT 

CIA)  . 

edit 

wD 

Next 

line 

♦ 4 

EDIT 

BIX). 

edit 

WD 

NeXT 

LINE 

♦5 

EDIT 

A (X)  . 

Next 

LINE 

♦ 6 

EDIT 

C I LP  ) . 

edit 

wD 

next 

LINE 

♦ 7 

EDIT 

CIO)  . 

edit 

WD 

next 

LINE 

+ 8 

EDIT 

CIOVCTR) . 

next 

LINE 

♦ 9 

EDIT 

CIT3)  . 

OUT  PTR 
Z,X2 

print 


advance  out  ptr • 

ALSO  KEEP  IT  IN  X2. 

BRANCH  IF  NOT  END  OF  PAfiE 


0 

L 

P0851 

<?YJL  SYSTEM 
AT  END  OF 

SIMULATORS  ~ 

page,  print  A 

- AGC4 

BLANK  LINE  and  SKIP.  THEN 

print  head 

AND 

USER'S  Oia/N  PAGE  NO.  27  PAGE  27 

subhead. 

0 

0853 

end  page 

TN 

SKIP 

2 

line  -i 

SKIP-CODE  AND  BLANK  WORD. 

0855 

TN 

line 

14 

line  +1 

generate  blank  line. 

08562 

S'  MON  PRINT 

DEPAGIN8 

0 

0857 

S*  MON  PRINT 

LINE  -1 

SKIP  TO  HfAD  OF  FORM. 

0859 

S»  MON  PRINT 

SI  ML  HEAD 

PRINT  PAGE  HEAD. 

0861 

DA 

PAGE  NO 

ONE 

page  no 

0 

0862 

ss 

page  no 

Dl  2 

S I MU  HEAD 

♦ 15 

STORE  INCREASFD  PAGE  NUmBfR. 

0864 

NA,  CHAR8 

SIMU  HEAD  +15 

ZeRD 

C , +4 

BRANCH  IF  NO  CHANGE  IN  TENS  DIGIT. 

0 

0^66 

S^S'  ACH / 

page  no 

2 » L 

S I MU  HEAD 

+ 15 

set  up  changed  tens  digit. 

0868 

NA,  chAR i 

S I mi.  HEAD  +15 

ZERO 

C.  + 2 

BRANCH  If  no  change  IN  HuNDRtDS  DIGIT. 

0 

0870 

SWS.  CHAR6 

page  no 

4 . L 

SIMU  HEAD 

+ 15 

set  up  changed  hundreds  digit. 

0872 

RESET  LC 

TX 

ONE 

- 

LINE  CNT 

0 

0873 

s.  mon  print 

sub  hfad 

print  column  headings. 

0875 

PRINT 

tn 

pr i r sPex 

2 

Z,Sl 

specs  FOR  LINE  +3  AND  NfXT  LINE  +3. 

0 

08764 

DlTO  LOOP 

na 

N»S2 

N * SI 

NOT  SAME 

Br  if  this  WD  n°  MATCH  SAME  in  LAST  Lin. 

08768 

WA 

Z.S2 

TWELVE 

Z.AUl 

here  THIS  WD  IN  LAST  line  not  a ditto. 

08772 

TS 

N.Sl.i 

N,  AJi 

put  ditto 

SAVE  REPEATED  WORD  FOR  1 ATER  COMPARISON, 

0 

08776 

not  same 

NA 

N , S 1 , i 

ditto 

put  ditto 

♦l 

BRANCH  unless  NO-MatCH  caused  by  ditto. 

0878 

WA 

Z.S2 

Twelve 

Z.AUl 

0 

08784 

NA 

N.S2 

N,AJl 

put  ditto 

+ 1 

BRANCH  IF  DITTO  PATTERN  BREAKS  NOW. 

0879 

pjt  ditto 

TX 

DITTO 

- 

N,S2 

SUPPLY  INITIAL  OR  CONTINUED  DITTO. 

4 

0880 

NA 

Z.S2.1 

PrIN  SPEX  +2 

dito  loop 

do  this  for  right-hand  seven  fields* 

0882 

tn 

NEXT  1 INE  -1 

16 

line  -i 

0 

0883 

PRINT  LIN 

S.  MON  PRINT 

LINE  -1 

0884 

WA 

LINE  CNT 

ONE 

line  cnt 

0885 

DA 

TASK  LINS 

ONE 

TASK  LINS 

count  print  lines  in  task. 

0 

0887 

LA 

TASK  LINS 

PRINT  LIM 

N.S3 

return  if  not  too  many. 

08882 

LA 

CHANG  MS* 

CAC  3 

N , S3 

return  IF  LINE  is  "TRACf  OFF"  type. 

0889 

S*  MON  T^PeR 

W PRNt  max 

SPRA  +8 

TeRMDUMP 

/ 


/ 


4 


L 

syul  system 

simulators 

— AGCA 

USER'S  OwN  PAGE  NO.  2ft  PAGE  28 

p0890 

subroutine 

TO  CONVpRT 

LOW-ORDeR  bits  TO 

5 aLPHA-oCtALS 

(CHECKING  FoR  OVeRFIoW),  16  I OW_oRDeR  BIjS  A| 

R0892 

A ARE  MADE 

into  A RISHT-JUSTIFIeD 

alpha  word  at  c. 

0893 

QCT2  A|_F5 

SIMULATE 

089A 

SSL*  LOW<i 

N,AUl 

1A 

blot  chek 

C 

TEST  FOR  OVERFLOW  IN  OPfRAND. 

0896 

OV  CORECT 

SWS,  US 

N,AUl 

1 

n,aui 

c 

CORRECT  IT  IF  REQUIRED. 

0898 

SWS * MSKS 

N.AUl 

12  ’L 

N.AU2 

c 

SET  UP  HIGH-ORDER  DIGIT. 

0900 

A DIGITS 

5WS.  MS<A 

N.AL'l 

9 ,L 

N.AU2 

c 

0901 

SWS.  MSK3 

N.AUl 

6.L 

N.AU2 

c 

0902 

SWS*  MSK2 

N.AUl 

3.L 

N.AU2 

c 

0903 

ss 

N.AUl 

OCT  7 

N.AU2 

SET  UP  LOWER-ORDER  DIGItS,  RETURN. 

R0905  SIMILAR  SUBROUTINE  FOR  12  LOW-ORDeR  DIGITS  into  * ALPHA-OCTALS. 

0906  OCT 2 ALFA  SIMULATE 

0907  TS  BLANK  IT*  N.AJ2  A DIGITS  C 


R0908 

FOUR 

answers  to 

OVERFLOW  CHECK  IN 

OCT2ALF5. 

0909 

BLOT 

CHEK  TS 

blank  it3 

N.AJ2 

ov 

CORECT 

♦ 1 

0910 

Ts 

OVF  Bl OT 

N.AJ2 

OV 

CORECT 

0911 

TS 

OVF  BLOT 

N.AJ2 

OV 

CORECT 

0912 

TS 

BLANK  1T3 

N.AJ2 

OV 

CORECT 

+ 1 

0 

ar 

+ 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


L 

P0913 

<?yjl  system 

SIMULATORS  — AGC4 
TtRMINAL  DUMP  PROCEDURE* 

USED  when  a 

properly  started 

RUN 

USER'S  OwN  PAGE  NO.  29  PAGE  29 

ENDS  FOR  ANY  REASON.  GIVES  tHe  CAJSe  OF 

R0915 

termination  and  DUMPS  LOCATIONS  0000 

-1777  ON  FOUR 

pages. 

0916 

MON  TYPER 

SIMULATE 

0917 

091802 

09181 

T ERMDjMP 

Tb 

St  YUL  TYPER 

ts 

NtAUl 
CAUSE 
OFF  TEST 

CAUSE 
AA  +1 

change  0 

♦ i 

c,*l 

C,  + l 

MoN  WAKE 

c 

SUPPLY  CAUSE  FOR  PRINTING. 
LOCK  tRACf  ON. 

09183 

0919 

0920 

TN 

T$ 

L* 

W CORONER 

ONES 

ONES 

2 

hold  line 
start  a0r 

next  line  +13 
break  pat  +1 
break  pat  +2 

c 

LABEL  CORONER'S  REPORT  AS  SUCH. 

disabi  e local  print  limit, 
break  partial  PATTERN  If  any. 

0922 

0923 

END  PRINT 

NA 

NA 

OUT  PTR 
OUT  PTR 

IN  PTR 

last  ptr 

adv  in  ptr 
adv  in  ptr  +2 

empty  out  trace  line  BUFFtR. 

0925 

0926 

TX 

TS 

SP1 

BLANKS 

line 

LINE  -1 

end  page  +1 

c 

0927 

0929 

0931 

St  MON  PRINT 

TX 

TN 

LINE  -1 

SKIP 

CAUSE 

7 

LINE  -1 

line  +2 

leave  a blank  line. 

STATE  CAUSE  AND  ANNuUNCf  DUMP. 

09321 

0933 

0935 

TX 

TS 

TS 

BANK  2 

C,  + l 
eight 

RESET  LC 
Z,Sl 

Z,X3 

END  PAGE  +2 

c,n 

H800  ADDRfSS  OF  AGC4  ADDRESS  0000. 

changf  return  from  page  head  print, 
set  number  OF  4-LINE  groups  per  page. 

0939 

TS 

SP1 

LINE  -1 

end  page  +1 

c 

0940 

4 lines 

TS 

FoUF. 

ZtS2 

C,  + 2 

set  NUMBER  OF  LINES  PER  BUNCH. 

0942 

1 LINE 

S*  MON  PRINT 

LINE  -1 

0943 

0945 

0946 

WD 

TX 

S*  0CT2ALF4 

PRIM  SPtX 
Z,X3 
EDIT  WD 

ONE 

Z *X5 

edit  wd 
Line 

FORM  spec  line  *z. 

EDIT  ADDRESS  OF  1ST  WORD  OF  8 ON  A LINE. 

0948 

09492 

1 WORD 

St  0CT2ALF5 
NA 

3 tO 
N.X5 

blank  1 T 3 

5,0 

c * +2 

EDIT  A WORD  OF  ERASABLE  MEMORY. 

09494 

0950 

0952 

TX 

LA 

NA 

zero  c6 

SPEC  1777 
Z tX5  * 1 

Z,X3,i 
PRIN  SPEX 

♦3 

N,X5 

last  line 

1 WORD 

replace  zero  word  with  a lone  zero, 
branch  if  last  word  edited. 

0953 

NA 

Z t S2  1 1 

ONE 

1 LINE 

BRANCH  IF  not  LAST  LINE  OF  BUNCH  of  4. 

0955 

0956 

0957 

TX 

S»  MON  PRINT 
LA 

SP2 

LINE  -1 
Z tS  1 1 1 

ONE 

LINE  -1 

end  page 

• 0958 

TS 

SP1 

LINE  -1 

4 lines 

GO  TO  PRINT  NeXT  FOUR  LINES,  SAME  PAGE. 

0960 
09601 

0961 

LAST  LINE 

T X 

St  MON  PRINT 
S»  MON  PRINT 

Skip 

DePAG I N8 
LINE  -1 

line  -1 

0962 

0963 
0966 

mask;  loc 

TX 

St  YUL  T^PeR 
modloc 

YUL  MASKS 
END  SI  MSG 
64 

AMTF  +2 

Z,MXR 
MaNUF  rtn 

TYPE  "END  SIMULATION",  fXIT. 

0000  ^CORRECT  CARDNO  TO  999999 
SEUBRK#  E^D  YULSIMUL 

AGC4 

I 


L 

ROOOI 

R0003 


OOOA 


0005 


R0006 

R0008 

R0010 

R0012 

R001A 

r0016 

R0018 

R0020 

R0021 

R0023 

R002‘+ 

R0025 

R0026 

R0027 

R0028 

R0029 
R003X 
R0033 
R0035 
R0037 
R0039 
ROOAl 
R00A3 
ROO  A5 

00A7 

R00A9 
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WE  ARe  DEEPLY  INDEBTED  to  The  one,  The  ON|_y,  The  oReAt  JOhN  ShAW  for  The  FOLLOWING  STRONG  mAgIc.... 

J50CTL 

SETL0O1  0 BA 


MAsKGRP , 1 S,1  F , 1 


TH | S PROGRAM  is  I.OaDED  by  YUL  Pass  o I\|  rEsPONsE  TO  a YUL  Director  Card  COrrEcTlY  SPfCiFYinG  a SIMU- 
LATION run  for  SACO.  when  MISCGA  SIMULATION  is  D£SiReD,  tHe  Verb  ON  the  director  Caro  IS  "etALjMUS".  MiSCGa  1 
and  MiSCGa  2 ARE  the  CREATIONS  oF  CHaRLEB  "MADMaN"  MUntZ,  WHO  DeRIVeD  tHe  NAMf  BY  SPeLLInO  "AGCsIM"  BACKWARDS, 
at  PReSeNt*  THIS  PROGRAM  RESPoNDS  ONLY  tO  THe  V£R3  "ETAUMUS",  AND  INCORPORATES  MISCGA  2»  A PRnGRAM  DeFINeD  FOR 
LOCATIONS  0000-7777  (FIRST  SWITchABLE  BAN<  ONlY)  CAN  BE  SIMULATED*  PROVIDED  ThAT  NO  USE  OF  INPUT-OUTPUT  OR  OF 

program  interrupt  is  required,  also,  c£Rtain  caSes  of  addressing  Central  Registers  may  not  work,  every  insjru. 
ction  simulaieQ  is  traced  in  print,  except  as  modified  by  trace  on/off  subdirfctors  (see  below).  the  run  is 
terminated  by  any  of  the  following  occurrences: 


EXECJtION  OF  an  ILLtGAL  OPERATION  CODE' 

DIVIDE  OVERFLOW, 

DETECTION  OF  AN  INFINITE  LOOP  (UP  TO  ABOUT  300  INSTRUCTIONS  IN  LeNGtH), 

exceeding  the  preset  print  limit, 

•OVERFLOW  out  of  THe  T1ME3  REGISTER*  OR 
A30RT  by  the  OPERATOR,  USING  FB9  <B  = FIRST  SIDE-GRoUp). 

THe  SUBDIReCTORS  USED  WITH  MISCGA  2 ARe! 


s start  at  nnnn  <nnnn  octal,  i to  a digits),  this  card  is  required,  and  must  be  first. 

S PRINT  LIMIT  = DDDDD  ( DDDDD  DECIMAL,  I TO  5 DIGITS,  »=<>  OPTIONAL).  THIS  CARD  rS  OPTIONAL.  IF 

IT  is  lacking  or  invalid,  the  print  limit  is  5000  lines. 

S TRACE  ON  NNNN  TURN  on  TRACE  UUSt  BEFORE  C(NNNN)  is  EXfCUTeD. 

S TRACE  OFF  nnnn  TURN  OFF  TRACE  UUST  AFTER  C (NNNN)  IS  EXfCUTeD. 

S TRACt  ON  RjNNNN  TURN  TRACE  ON  JUST  BEFORE  NNNN  IS  REFERRED  TO. 

S TRACt  OFF  RJNNNN  TURN  TRACE  OFF  UUST  AFTER  NNNN  IS  REFERRED  TO. 

ANY  NUMBER  OF  TRACE  ON/OFF  SUBDIRECTORS  MAY  BE  SUBMITTED,  PROVIDED  THAT 
THEY  SPECIFY  UNIQUE  OCTaL  aUDrESSES  NNNN* 


saco  simu  ts  bank  i z,xo  what  sued 

MAIN  BODY  OF  PROGRAM  FOLLOWS  CONSTANTS,  ETC. 


_ sk\  Cfc 


this  instruction  is  at  rase  ADDRESS. 


L yjL  SYSTEM  SIMULATORS  — SACO  USER'S  OufN  PAGE  NO.  ? PAGE  3l 

P0050  FIELD  and  shift  masks. 


0051 

B.B3TB12 

OCT 

-7774 

0052 

B.  CHARI 

OCT 

77 

0053 

B »CHAR6 

OCT 

-77  0000 

005  A 

B.CHAR7 

OCT 

-7700 

0055 

B.CHAR8 

OCT 

-77 

0056 

B.EFLAG 

OCT 

00001 

0057 

. B.EDITFLG 

OCT 

00002 

0058 

b.lpflag 

OCT 

00004 

0059 

b.flags 

OCT 

000C7 

0060 

B.C7T8 

OCT 

-7777 

0061 

B.CAC3 

DtC 

-GGGG 

0062 

B.SIGN 

OCT 

-100000 

0063 

b.chamgmsk 

OCT 

3 

0064 

B.DCHECK 

OCT 

6060  6060  6060  6060 

R0065  FURTHER  SHIFT  MASKS* 


0066 

S *D1 2 

DEC 

-G 

0067 

S.C1T3 

OCT 

777777 

00672 

S.  AC06 

OCT 

-70000 

0068 

S.AC08 

OCT 

-7 

0069 

S.ACH7 

OCT 

-1700 

0070 

S.MSK5 

OCT 

-700000000 

0071 

S'MSK4 

OCT 

-7000000 

0072 

S.MS<3 

OCT 

-70000 

0073 

S»MS<2 

OCT 

-700 

0074 

S .ONE 

OCT 

-1 

0075 

S'THREE 

OCT 

-3 

0076 

S.L0^14 

OCT 

-37777 

0077 

S » LCM 1 5 

0CT 

-77777 

0078 

S.CACl 

DEC 

GGGG 

• 0079 

S.CAC2 

dec 

0000  GGGG 

0080 

S .ONES 

DEC 

GGGG  GGGG  GGGG 

0081 

S.US 

OCT 

-40000 

0082 

S.DVMSK 

OCT 

037777 

L YJL  SYSTEM  SIMULATORS  — SACO  USER  * S OWN  PAGE  NO.  a PAGE  32 

poo83  reservations* 


0084 

T 1 

RESERVE 

1 

0085 

T 2 

RtsERVE 

1 

0086 

T3 

RESERVE 

1 

0087 

T 4 

RtsERVE 

1 

0088 

ISSTR 

RtSERVE 

1 

0089 

IMSTR2 

RtsERVE 

1 

0090 

D3EF 

RtsERVE 

1 

0091 

. DATA 

RtsERVE 

1 

0092 

LOCATION 

RESERVE 

1 

0093 

ZDECR 

RESERVE 

1 

0094 

NEW  Z 

RESERVE 

1 

0095 

EDIT  WD 

RESERVE 

1 

0096 

PAT  PTR 

RESERVE 

1 

R0097 

ADDRESS  CONSTANTS* 

0098 

BANK.  1 

SPEC.Bl 

Damn  zero 

0099 

BANK  2 

SPEC.B2 

damn  zero 

0100 

BANK  8 

SPEC.B8 

damn  zero 

0101 

BANK  5 

SPEC.B5 

damn  zero 

0102 

BANKS  M3 

SPEC  »B7 

2045 

0103 

S3Ec  1777 

SPEC  *B2 

1023 

0104 

L SIXES 

SPEC 

SIXES 

0105 

0=  ALF 

SPEC 

OP  ALF  T 

0106 

PRIN  SPEX 

SPEC 

Line  +3 

0107 

SPEC 

NEXT  LINE  +3 

0108 

SPEC 

next  line  +9 

0109 

SPEC 

LINE  +9 

0110 

n PTR 

SPEC 

mask  loc  ,64 

0111 

DJT  PTR 

SPEC 

mask  loc  +64 

0112 

LAST  PTR 

SPEC 

mask  loc  +64 

0113 

L STD  PLIM 

SPEC 

unrc  subd  +1 

0114 

L GOGO  Pi 

SPEC 

continue  +i 

0115 

L RECYCLE 

SPEC 

recycle 

0116 

L TRON  OFF 

SPEC 

tr  on  off 

0117 

DEC  853 

SPEC, BO 

853 

01178 

P HU  WAA 

SPEC  »B7 

600 

0118 

SACO  MSKS 

MASKBASE 

S,1 

F , 1 

i 
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USER'S  OWN  PAGE  NO 


4 


PAGE  33 


0120 

w subdirc 

ALF.2 

subdirector: 

0121 

W START 

alf 

START 

0122 

W AT 

ALF 

AT 

0123 

START  MSG 

ALF  *2 

START  At 

0124 

W PRINT 

ALF 

print 

0125 

w limit 

alf 

limit 

0126 

AlF  5000 

ALF 

5000 

0127 

PlIM  MSG 

ALF  * 3 

PRINT  LIMIT  = 

0128 

2 LONS  MSG 

ALF  * 3 

start  address  too  long 

0129 

UNOcS  MSG 

ALF  ♦ 3 

start  address  not  octal 

0130 

2 LONP  MSG 

ALF. 3 

PRINT  LIMIT  TOO  LONG 

0131 

J'JDPL  MSG 

ALF.3 

PRINT  LIMIT  NOT  DECIMAL 

0132 

NO-  PAL  MSG 

ALF. 3 

No  paragraphs  loaded 

0133 

EMRGY  MSG 

ALF. 4 

IN  EMERGENCY,  ABORT  TA5K  3Y  F79 

0134 

PAGE  1 

alf 

PAGE  1 

0135 

S I MU  HEAD 

OCT 

0024 

0136 

ALF. 5 

YUL  SYSTEM  (MISCGa  2>  FOR  SACO: 

0137 

ALF  * 5 

0138 

ALf.5 

l yJL  system  simulators  — saco 

P0139  alphabetic  constants  — second  of  four  pages 


0140 

SJBHEAD 

0<-T 

0002 

0141 

ALF»5 

LOC 

OP 

ADOR 

A 

0142 

ALF.  5 

A (X) 

LP 

Q 

OVCTR 

0143 

ALF.5 

0144 

OLt 

4 

0145 

LINE 

ALf.5 

0146 

ALF » 5 

0147 

ALF.5 

0148 

O3  ALF  T 

ALF. 4 

TC 

CCS 

INDEX 

XCH 

0149 

ALF.4 

0150 

ALF. A 

MP 

DV 

SU 

0151 

ALF.4 

CS 

TS 

AD 

mask 

USER'S  OwN  page  NO.  5 PAGE  34 


B (X) 
T 3 


P0152 


0153 

0154 

0155 

0156 

0157 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171  ' 

01722 

0173 

0174 

0175 

0176 

0177 

0178 

0179 
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ALPHABETIC  CUnStANtS  — THIRD  OF  FOUR  PAGES. 


S?1 

NEXT  LINE 

OCT 
ALF  * 5 
ALF  .5 

0001 

ALF  * 5 

RESERVE 

7 

used  in  ditto  procedure. 

nl  TRACE 

ALF 

TRACE 

Hi  ON 

ALF 

ON 

W OFF 

ALF 

OFF 

Hi  R 

ALF 

R 

8i_AN<  1 T 3 

ALF 

ooooo 

8LAN<  1T4 

ALF 

0000 

OVF  BLOT 

ALF 

■ooooo 

ZERO  C6 

ALF 

0 

DITTO 

ALF 

II 

DEC 

-50C0 

PRINT  L1M 

DEC 

-50C0 

5<HP 

OLr 

4 

9lAN<S 

alf 

■ W CUT  OFF 

ALF 

CUT  OFF 

Hi  ILLECiOP 

alf 

ILLEGOP 

W LOOPING 

alf 

Looping 

Hi  PRNT  MAX 

alf 

printmax 

Hi  INF  LOOP 

ALF  *2 

infinite  loop 

CAUSE 

ALF  *2 

00000000 

T DUMP  MSG 

ALF  * 5 

terminal  dump  of  erasable  memory  follows 

END  SI  MSG  ALF. 2 END  SIMULATION 


P0180 


0181 

0182 

0183 

0184 
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ALPHABETIC  CUNStANtS  — FoUhTH  OF  four  PASeS. 


2 LONT  MSG  ALF.*.  TRACe  ON/oFF  ADDRESS  TOO  LOnG 

unotR  msg  alf . 4 TRACE  ON/oFF  address  not  oCtAL 

DJPtR  MSG  ALF. 4 TRACE  ON/OFF  ADDRESS  DUPLICATED 

0 'll  T MSG  alf. 5 TRACE  OFF  FOR  INSTRUCTIONS 


0185  W CORONER  ALF.2 


CqRONfR'5  REPORT 


USER'S  OWN  PAGE  NO 
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I YJL  SYSTEM  SIMULATORS 

P0186  numeric  Constants. 


SACO 


0187 

ZERO 

OCT 

0 

0188 

TaIO 

OCT 

-2 

0189 

FOUR 

OCT 

-4 

0190 

EIGHT 

DtC 

-8 

0191 

T/JELYE 

FXBIN 

-12 

0192 

FIFTY 

FXBIN 

-50 

0193 

C55 

FXBIN 

-65 

0 1 94 

DEC  852 

FXBIN 

-852 

0195 

20 

OCT 

-2000 

0196 

5 Qb 

OCT 

-5  0000 

0197 

6 C6 

OCT 

-6  0000 

0199 

SIXES 

OCT 

06.  06.  0606,  060606, 

0200 

OCT 

0606  0606 

06 

0201 

S = 3 

OCT 

0003 

0202 

NEG  ONE 

OCT 

-177776 

0203 

BIT  14 

OCT 

-20000 

0204 

SIGN  CLIP 

DEC 

OGGG  GGGG 

0205 

BANK  MASK 

OCT 

-36000 

0206 

EDIT'  PREF 

OCT 

-20 

0207 

GENERASE 

OCT 

-25 

0208 

L BANK  REG 

OCT 

-15 

0209 

START  ADR 

OCT 

0 

0210 

HOLD  LINE 

DEC 

GGGG  C.GGG 

0 

1 

e? 

0211 

LINE  CNT 

FXBIN 

-51 

0212 

TASK  LINS 

DtC 

0 

0213 

page  no 

DEC 

-1 

0214 

TRACE  OFF 

DtC 

0 

0215 

loc  flag 

OCT 

2 

0216 

ON 

OCT 

3 

0217 

OFF 

OCT 

5 

0218 

B1B2 

OCT 

6 

0606  0606 


USER'S  OkIN  PAGE  NO 
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9 


9 


9 

9 

9 

9 

9 

9 

9 

9 

9 


9 

9 


9 


9 


I VJL  SYSTEM  SIMULATORS 

P0219  ASSIGNMENTS. 


SAt  0 


0220 

PAGE  HEAD 

ASSIGN 

0.20 

0221 

yjl  typer 

ASSIGN 

0,63 

0222 

RO  SBDIRC 

ASSIGN 

0,65 

0223 

howzat 

ASSIGN 

0 , 66 

022  A 

I5N  SUBDR 

ASSIGN 

0,68 

0225 

UNRC  SBDR 

ASSIGN 

0,69 

0226 

E SYLT  OK 

ASSIGN 

0,70 

0227 

FETCH  SS 

ASSIGN 

0,71 

0228 

MANUF  RTN 

ASSIGN 

0,76 

0229 

yjl  masks 

ASSIGN 

0,77 

0230 

OCTAL  20 

ASSIGN 

0,78 

0231 

WHODJNIT 

ASSIGN 

0,80 

0233 

TYP  ABORT 

ASSIGN 

0,89 

0234 

L OB JC  MSG 

ASSIGN 

0,90 

0235 

RJEC  SUBD 

ASSIGN 

0,91 

02351 

DEPAG1N8 

ASSIGN 

0,101 

02352 

YJL  D2A  ZS 

ASSIGN 

0,119 

0236 

A 

ASSIGN 

4,0 

0237 

3 ' 

assign 

4,1 

0238 

Z 

ASSIGN 

4,2 

0239 

L3 

ASSIGN 

4,3 

02  AO 

bankreg 

ASSIGN 

4,13 

02  A 1 

CYR 

ASSIGN 

4,16 

02A2 

sr 

ASSIGN 

4,17 

02  A3 

CYL 

ASSIGN 

4,18 

02  AA 

SL 

ASSIGN 

4,19 

02A5 

OYCTR 

ASSIGN 

4,28 

02A6 

TIME1 

ASSIGN 

4,29 

02A7 

TIME2 

ASSIGN 

4,30 

02  A8 

TIME3 

ASSIGN 

4,31 

02A9 

MON  TAPE 

ASSIGN 

7,1 

0250 

EOR 

ASSIGN 

7,4 

0251 

MON  PRINT 

ASSIGN 

7,23 

0252 

MON  A2D 

ASSIGN 

7,41 

0253 

MON  WAKE 

ASSIGN 

7,99 

025A 

mon  sleep 

ASSIGN 

7,166 

USER • S OWN  PAGE  NO 
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L YJL  SYSTEM  SIMULATORS  — SACO 

P0257  E3UIYALENCES* 


0258 

DAMN  ZERO 

equals 

0 

0259 

AA 

EUUALS 

128 

0260 

AvVTF 

equals 

38A 

0261 

S3RA 

EQUALS 

128 

0262 

S32 

EQUALS 

SUBHEAD 

0263 

OCT  7 

equals 

ACOfe 

026A 

LDW2 

equals 

THREE 

0265 

LOWA 

equals 

D12 

0266 

LOW  12 

equals 

C7T8 

0267 

16  ONES 

EQUALS 

CAC3 

0268 

16  ONES 

EQUALS 

CAC3 

0269 

E BIT 

EQUALS 

E FLAG 

0270 

L3  BIT 

equals 

LP  FLAG 

0271 

LOW  16 

EQUALS 

CAC3 

0272 

S3EC  ZERO 

EQUALS 

SIGN 

0273 

POINTERS 

equals 

IN  FTR 

USER • S OWN  PAGE  NO.  Io 


PAGE  39 


4 


4 

4 


4 


4 

4 

4 


4 


4 


m 

L 

P0274 

Y JL  SYSTEM 

SIMULATORS  - 
TWq  PRIMARY 

- SACO 

SUBD I RpCjORS  Are  ReCoGNIZe3 

FOR  USE  WItH 

miscga. 

USER'S  OWN  PAGE  NO.  li  PAGE  4o 

THe  first*  which  IS  ReoUIReD,  spec i f i es 

R0276 

the  starting  address  by 

"START  AT  NNNN" , WHeRe  NNNN 

IS  FROM  i TO 

4 OCTAL 

. DIgItS.  the  second  IS  OPTIONAL  and 

• 

r0278 

specifies 

A PRINT  LINE 

LIMIT  BY  "PRINT 

LIMIT  = DDDDD"  (THt  "="  IS  OPTIONAL,  AND  "DDDDD h IS  FROM  i TO  5 DeCIMAL 

R0280 

DIGITS)  . 

IF  THE  PRINT 

limit  subdirector  is  missing 

OR  INVALID, 

the  print  limit  is  5000  LINES. 

z 

0282 

WHAT  SUBD 

TX 

YUL  MASKS 

«. 

Z.MXR 

0283 

S*  YUL  TYPER 

W SUBDIRC 

AA  + 2 

C*+l 

TYPE  "SuBDIREcTOR;". 

. 0285 

WA 

Z ,X6 

OCTAL  20 

Z ,X5 

• 

0286 

SJSPECT 

TX 

Z ,X5 

•• 

whodunit 

0287 

NA 

N , X5  * 3 

W START 

howzat 

"START"  IS  REOUIRED. 

0289 

TS 

SACO  MSKS 

Z*MXR 

C.-2 

c 

• 

0290 

NA 

N ,X5  *3 

W AT 

HOWZIS 

"at"  rs  required. 

0292 

LA,  CHAR6 

5 C6 

5*2 

ILL  SlART 

branch  if  start  adr  more  than  4 digits. 

0294 

LA,  CHAR6 

5,2 

zero 

Uno  start 

branch  if  start  address  is  blank. 

t 

0296 

LA,  CHAR8 

EIGHT 

5,2 

Uno  Start 

branch  if  start  address  not  octal. 

0298 

WA 

Z *X5 

THREE 

whodunit 

t 

0299 

NA 

5,3 

ONES 

HoWZIS 

superfluous  words  are  Forbidden. 

A 

0301 

SW5  ♦ ONES 

N *X5 

A * 1 

start  msg  + 1 

0302 

TS 

YUL  MASKS 

Z * MXR 

E sylt  ok 

MAKE  gRP  B SEEK  [)EsIREd  program* 

m 

m 

0304 

S*  YUL  TYPER 

start  msg 

AA  + 2 

c,*i 

type  start  address. 

0306 

TS 

SACO  MSKS 

Z ,MXR 

C , + 3 

i 

0307 

sws*  ONES 

start  adr 

3 * L 

Start  adr 

SHIFT  up  digits  thus  far. 

0309 

SWS*  AC08 

Start  msg  +1 

A, 7 

Start  adr 

CONVERT  AlPhA  START  AyR  TO  OCTAL. 

0311 

SWS,  ONE^ 

start  msg  +1 

A , 1 * L 

Start  msg  *i 

POSITION  NEXT  alpha  octal  digit. 

• 

M 

0313 

NA,  CHARI 

start  msg  +1 

BLANKS 

C,-3 

branch  if  more  start  adr  digits. 

0315 

WA 

Z ,X6 

OCTAL  20 

Z ,X5 

1 

0316 

Tb 

Z,X5 

WHODJnIT 

RD  SBDIRC 

read  ?nd  subdirector  if  any. 

_ 

0318 

STD  PLIM 

TS 

ALF  50OO 

ALF  PLIM 

PROC  PLIM 

when  2ND  SUBDIRECTOR  LACKING  OR  BAD. 

X 

0320 

T A 

WHODUNIT 

Z ,X5 

0321 

TX 

TWO 

- 

hold  line  +1 

SHOW  that  a subdirector  was  read. 

M 

0323 

NA 

N *X5  * 3 

W PRINT 

StD  PLIM 

IF  NOT  "PRINT"*  MAYBE  "TRACE". 

0325 

TP 

zero 

HOLD  LINE  +1 

SUSPECT 

c 

show  that  print  limit  card  was  read. 

0327 

NA 

N ,X5 , 3 

W LIMIT 

UNRC  SUBd 

"LIMIT"  IS  REQUIRED. 

i 

0329 

LA,  CHAR6 

6 C6 

5,2 

ILL  PLIM 

branch  IF  print  limit  over  5 DIGITS. 

0331 

SWE*  CHAR8 

5,2 

A. 2 

Z , AU 1 

0332 

WA 

Z,AU1 

L SIXES 

Z ,AU1 

: 

0333 

WA 

N , AU1 

N ,X5 

PRINT  LIM 

0334 

NA,  DCHEC< 

PR I NT  LlM 

zero 

UnDC  PLIM 

BRANCH  IF  PRINT  limit  NnT  DECIMAL. 

0336 

TS 

N *X5 , 3 

alf  plim 

SUSPECT 

c 

: 

0337 

NA 

N,X5 

ONES 

UnRC  SUBD 

SUPERFLUOUS  WORDS  ARE  FnRBIDDEN. 

0339 

P HOC  PLIM 

SWS*  C7T8 

ALF  PLIM 

A * 2 * L 

plim  msg  +1 

USE  CORRECTLY  SPECIFIED  PRINT  LIMIT  OR 

f 

* 

0341 

Sws*  C1T3 

AlF  PlIM 

A , 2 * L 

PlIM  MsG  +2 

USE  5000  1 INEs  OTHERWISE. 

0343 

TS 

Z»SC,1 

Z*X4 

Mon  A2D 

convert  alpha  to  decimai  . 

0345 

AUF  PLIM 

RESERVE 

2 

t 

* 

0346 

TS 

ALF  PLIM  +1 

PRINT  LIM 

what  subd 

c 

STORE  LIMIT*  RECOVER  BK  1 MASKS. 

0348 

S'  YUL  TYPER 

PLIM  MSG 

AA  + 3 

c,*l 

TYPE  PRINT  LIMIT. 

r 


u 

YJL  SYSTEM 

SIMULATORS 

— SACO 

USER'S  OwN  PAGE  NO.  1?  PAGE  41 

P0350 

I M I T 1 aL 1ZE 

page 

< 

LU 

X 

SACo  MEMORY, 

print  sjffer 

Flag  table.  read 

trace  on/off  subdirectoR  cards,  plant  flags. 

0352 

SC  masker 

t* 

Saco  msks 

_ 

z,mxr 

0353 

T* 

pagf  head 

+ 1 

- 

S 1 MU  HEAD 

+ 1 

PUT  Log  number  into  pagf  heading. 

0355 

TX 

L OB Jc  MSG 

- 

Z ,AU1 

0356 

TN 

N , AU 1 

7 

SIMU  HEAD 

+ 6 

put  orject  message  into  page  heading. 

0358 

TN 

page  head 

♦ 12 

2 

N , AU2 

ALSO  FANCY  DATE. 

0360 

S'  MON  PRINT  SIMU  HEAD 

PRINT  PARTIAL  PAGE  head.  SP20. 

A 

0362 

TX 

page  i 

m 

SIMU  HEAD 

+ 15 

0363 

TN 

bank  2 

2 

Z , X4 

BANK2  TO  X4 , BANK  8 TO  X5. 

0365 

TX 

C65 

- 

Z ,AU1 

m 

0366 

MT 

E BIT 

63 

N,X4,1 

CLEAR  SACO  MEMORY. 

0368 

Ml 

zero 

63 

N,X5,1 

CLEAR  PRINT  BUFFER  FLAG  TABLE. 

0370 

NA 

Z.AUl  ,1 

ONE 

C,-2 

0371 

TX 

E BIT 

- 

N ,X4 

0372 

TX 

ZERO 

- 

N,X5 

0373 

SSL  * 

THREE 

HOLD  LINE 

♦ 1 

0 

TR  ON  OFF 

CHOICf  IS  0,  1,  OR  2. 

• 

0375 

jnreC  sbd 

T-3 

yul  masks 

Z,MXr 

UnRC  SBDR 

UNRECOGNIZED  WD  IN  TRACp  ON/OFF  subdir. 

• 

0377 

ON  OFF 

TS 

Saco  msks 

Z , MXR 

RD  SBDIRC 

get  trace  on/off  subdirfCtor  if  any. 

0379 

T* 

In  ptr 

Z , A j l 

INIT  BUFF 

exit  when  subdirectors  run  out. 

0381 

WA 

Z,X6 

OCTAL  20 

Z,X5 

m 

0382 

TX 

Z ,X5 

- 

whodunit 

0383 

NA 

N ,X5 , 3 

W TRACE 

unrec  sbd 

"TRACf"  is  required. 

0385 

TX 

Z,X5 

- 

whodunit 

0386 

NA 

N,X5 

W ON 

C , + 3 

0387 

TX 

OFF 

- 

edit  wd 

0388 

TS 

Z ,X5 , 3 

- 

C , + 3 

0389 

NA 

N ,X5 , 3 

W OFF 

Dnrec  sbd 

EITHER  "On"  OR  "OFF"  IS  REQUIRED. 

0391 

TX 

ON 

- 

EDIT  WD 

0392 

NA 

N,X5 

W R 

C,  + 2 

"R:"  for  reference  is  optional. 

• 

0394 

TS 

Z ,X5 , 3 

m 

C , + 2 

0395 

EX 

EDIT  WD 

BlB2 

EDIT  wD 

clear  ReFfRENCE  bit  if  no  "R!". 

0397 

LA, 

CHARS 

5 C6 

5*2 

ILL  TRONF 

branch  if  address  MORE  than  digits. 

0399 

LA, 

CHARS 

5,2 

ZERO 

UNO  TRONf 

branch  If  ADDRESS  IS  BLaNk. 

0401 

LA , 

CHAR8 

EIGHT 

5,2 

UNO  TRONF 

BRANCH  IF  ADDRESS  is  not  octal. 

0403 

WA 

Z,X5 

THREE 

WHODUNIT 

0404 

NA 

5,3 

ONES 

Dnrec  sbd 

SUPERFLUOUS  WORDS  ARE  FoRBIDDEN. 

0406 

TX 

N ,X5 

Location 

5 

0407 

T5 

ZERO 

Z ,X5 

C , + 2 

0408 

SWs, 

ONES 

Z ,X5 

3,L 

Z,X5 

shift  up  DIGITS  thus  far. 

0410 

sws, 

ACOB 

Location 

A, 7 

Z,X5 

CONVERT  ALPHA  ADDRESS  To  OCTAL. 

0412 

SWS, 

ones 

Location 

A , 1 , L 

Location 

position  next  alpha  octal  digit. 

0414 

NA, 

CHARI 

Location 

BLANKS 

C,-3 

BRANCH  IF  More  ADDRESS  digits. 

0416 

WA 

Z,X5 

bank  8 

Z,X5 

FIND  pLACf  IN  TABLE  IN  HANKS  8 AND  9. 

0418 

NA 

N,X5 

zero 

DUP  TRONF 

BRANCH  if  ADDRESS  IS  A DUPLICATE. 

0420 

TS 

EDIT  WD 

n,x5 

TR  ON  OFF 

PLANT  TRACE  ON/QFF  FLAG,  get  NeXT  SUBDR. 

5 

J 

L YJL  SYSTEM  SIMULATORS  — SACO 

P0422  INITIALIZE  PRINT  BUFFER  AND  LnAD  PROGRAM  INjo  3aN<S 


0423 

0424 

IM.IT  BUFF 

Ml 

TX 

ZERO 

Z »AU1 * 1 

3 

0425 

SW£, 

CAC2 

Z,AUl 

1 6 , L 

0427 

NA 

ZtAUl 

BANK  5 

0428 

TB 

IN  PTR 

Z » A J1 

0429 

READ  LOOP 

T5 

Bank  2 

z,x5 

0431 

TB 

start  adr 

5,2 

0433 

LA 

OCTAL  20 

1,2 

0435 

TX 

Z,X5 

- 

0436 

WA 

Z,X1 

THREE 

04,38 

SWS* 

L0W12 

1 .2 

8 , L 

0440 

LOAD  LOOP 

EX 

N ,X5  ♦ 1 

16  ONES 

0441 

5w5, 

LOW  1 5 

INsTR 

1 

0443 

TB 

SP3 

SlMJ  HEAD 

0445 

T* 

INSTR 

- 

0447 

NA 

5,2 

EoR 

0449 

TB 

m- 

0451 

END  LOAD 

tb 

YUL  MASKS 

Z,MXR 

0452 

RW  * 1 

- 

- 

0454 

LA 

SI  ML  HEAD 

SP3 

0456 

TIN 

NOPAL  MSG 

3 

0457 

S’  MON 

print 

Line  -i 

0459 

S.  YUL 

typer 

nopal  msg 

AMTF  +3 

0461 

0<l  LOAD 

TX 

PHI  WAA 

_ 

0462 

TB 

Z , SC  , 6 

4,107 

0463 

TB 

z » sc 

Z,RO 

0464 

GRP  B PCR 

SPcR 

0465 

TB 

Zero 

GB  SWITCH 

0466 

LA 

cause 

zero 

0467 

TB 

C » + 1 

RECYCLE2  +2 

0468 

S * MON 

TYPER 

w cut  off 

SpRA  +8 

0469 

TB 

Zero 

location 

0470 

G3  SWITCH 

WD 

z , sc 

one 

0471 

SWS  * 

AC06 

grp  b pcr 

16 

0472 

S*  YUL 

typer 

EMRC-Y  MSG 

AA  ♦ 4 

0473 

TX 

BANK  2 

m 

0474 

TX 

BANK  2 

m 

0475 

TX 

BANK  2 

- 

0476 

TB 

SPEC  ZERO 

Z , R 7 

2 AND  3. 

USER'S  OWN  PAGE  NO.  Is  PAGE  42 

N.AUl , 1 
Z , AU2 
N,AU2 

C,-3 

C,-2  C 

INITIALIZE  TRACE  LINE  (PRINT)  BUFFER. 

Fetch  ss 
End  LOAd 

c,-l 

Z ,R3 

fetch  a paragraph  if  any  left. 

NO  MORE,  INITIALIZE  Z RfgIBTER  ANd  BgIN. 
CUT  OFF  LOADING  AFTER  BaNK  3. 

Z,X5 

Z.R3 

1800  ADDRESS  OF  1ST  WD  IN  PARAGRAPH, 
DITTO  IN  SACO  MEMORY. 

INSTR 

INSTR 

FlAGSeT  c 

N,R3,1 

Load  loop 
Read  loop 

CROP  PARITY  And  DUPLICATE  SIGN. 
APPLY  FLAGS  TO  WORD. 

LOAD  WORD  INTO  BaCO  MEMoRY. 

BRANCH  IF  MORE  WORDS  IN  PARAGRAPH, 

Go  to  get  next  paragraph. 

mon  tape 

OK  LOAD 

REWIND  YUlPROGS* 

BRANCH  IF  ANY  PARAGRAPHS  LOADED. 

LINE  +7 
TYP  ABORT 
Z ,X4 

Mon  WAKE  c 

PRINT  "NO  PARAGRAPHS  LOADED". 

TYPE  "NO  PARAGRAPHS  LOADED",  ABORT. 

OK  LOAD  C 

N ,R0 » 3 

SET  UP  SPECIAL  FIXED  START  FOR  ABORTING. 

mon  sleep  c 

c,-l 

GO  TO  SLEEP  AND  AWAIT  FtXeD  START. 

bewarf  of  accidental  waking. 

4,106 
term  dump 

SET  TRIPWIRE  FOR  MAIN  GROUP. 

GROUP  A TYPES  "CUT  OFF  "»  ABORTS. 

sc  masker  c 

z,sc 

EMRGY  MSG  +3 

c,*l 

Z,R1 

TYPE  "IN  EMERGENCY,  ABORT  TASK  BY  FB9  ". 

Z ,R3 
Z ,X4 

Recycle 

INITIALIZE  SPECIAL  REGISTERS,  BEGIN. 

L 

YJL  SYSTEM 

simulators 

— SACO 

USER’S  OWN  PAGE  NO.  1a 

PAGE  43 

P0478 

SUBROUTINE 

to  apply  flags  during 

loading*  indexing* 

and  tc  to  a* 

0479 

FLAGSeT 

LA,L0W12 

2K 

INSTR 

ZeROFLG 

C 

0480 

LA  . LOW  1 2 

generase 

INSTR 

EFLAG2 

c 

0481 

NA,B3TB12 

INSTR 

EDITPREF 

C,*2 

c 

0482 

ss 

EDITFLG 

FLAGS 

INSTR 

0483 

NA .LOW 1 2 

L0W2 

INSTR 

C * + 2 

c 

0484 

Sb 

LPFLAG 

FLAGS 

INSTR 

0485 

EFLAG2 

SS 

EFLAG 

FLAGS 

INSTR 

0486 

ZEROFLG 

S^ 

ZERO 

flags 

INSTR 

R0487 

unrecognized  i 

WORD  IN  "start  At"  SUBDIREcTOR  cARd* 

0488 

H3WZIS 

TS 

YUL  MASKS 

Z,MXR 

HoWZAT 

UNRECoGNIZED-WORD 

ABORT. 

R0490 

START  ADDRESS 

ILLEGAL. 

0491  ' 

ILL  START 

TX 

YUL  MASkS 

Z.MXR 

0492 

s* 

YUL  TYPER  2 LONS  MSG 

AMTF  +3 

RJEC  SUBD 

start  address  too 

long. 

0494 

UNO  START 

Tx 

YUL  MASKS 

- 

Z.MXR 

0495 

S* 

YUL  TYPER  UNOCS  MSG 

AMTF  +3 

RJEC  SUBD 

start  address  not 

OCTAL. 

R0497 

UNRECOGNIZED  WORD  IN  "PRINT  LlMiT" 

SUBDIRECTOR  card 

9'  1 

0498 

UNRC  SUbD 

T 5 

YUL  MaSkS 

Z.MxR 

UnRC  SbDR 

UNRECOGNIZED  WORD 

IN  PRINT 

LIMIT 

subdir. 

0500 

TS 

SACO  MSKS 

Z.MXR 

StD  PLIM 

SET  PRINT  LIMIT  = 

5000  IN 

THIS  CASE. 

R0502 

ILLEGAL  PR  I N • 

LIMIT*  USE  5000* 

0503 

ILL  PLIM 

TX 

YUL  MASkS 

Z.MXR 

0504 

S * 

YUL  TYPER  2 LONP  MSG 

AMTF  +3 

C , + 3 

PRINT  LIMIT  TOO  LARGE. 

0506 

J NDC  PLIM 

TX 

YUL  MASKS 

Z.MXR 

0507 

S* 

YUL  TYPER  UNDPL  MsG 

AMTF  +3 

C . + 1 

PRINT  LIMIT  NOT  DECIMAL. 

0509 

TS 

L STD  PLIM 

z,sc 

IGN  SUBDR 

use  print  limit  = 

5000  IN 

THESE 

CASES. 

R0511 

ILLEGAL  OR 

DUPLICATED  TRACE  On/OFF 

ADDRESS. 

0512 

ILL  TRONF 

TX 

YUL  MASkS 

w 

Z.MXR 

0513 

S* 

YUL  TYPER  2 LONT  MSG 

AMTF  +4 

C , + 5 

0514 

JNO  TRONF 

TX 

yul  masks 

- 

Z.MXR 

0515 

S* 

YUL  TYPER  UNOTR  MSG 

AMTF  +4 

C , + 3 

0516 

DJP  TRONF 

TX 

YUL  masks 

- 

Z.MXR 

0517 

S* 

YUL  TYPER  DUPTR  MSG 

AMTF  +4 

C,*l 

0518  Tb  L TRON  OFF  Z.SC  IgN  SUBDR 


m 

L 
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- SACO 

P0519 

MAIN  SIMULATOR  LOOP. 

• 

0520 

recycle 

ss 

z 

LOW  12 

0521 

WA 

z 

ONE 

0522 

TX 

N ,R  1 

- 

— 

0523 

RECYCLE2 

ss 

INSTR 

L0W1 2 

0524 

EX 

N.R1 

LOW  16 

t 

0525 

LA,  L0W12 

Z 

2K 

0527 

S^L  * L0W4 

INSTR 

12 

* 

0528 

TS 

Z ,R7  * 1 

0530 

TS 

Z,R7 ,2 

• 

0532 

TS 

Z.R7.2 

- 

i 

0534 

TS 

Z,R7 ,2 

* 

0536 

S*  MON  TTPER 

W ILLFOoP 

SPRA  *8 

» 

0530 

S*  MON  TYPER 

w Illegop 

SpRA  4-8 

0540 

S*  MON  TYPER 

w illegop 

SPRA  >8 

0542 

S ♦ MON  TYPER 

W II  LfGoP 

SPRA  4-8 

w 

0544 

S.  MON  TYPER 

w ILLeOoP 

SPRA  4-8 

0546 

TS 

Z.R7.8 

- 

i 

0548 

TS 

Z.R7.16 

- 

0550 

TS 

Z,R7 ,2 

- 

m 

W 

0552 

TS 

Z.R7.2 

m 

0554 

TS 

Z.R7.2 

- 

0556 

TS 

Z.R7.2 

- 

* 

0558 

TS 

Z.R7.2 

- 

r 

0560 

ekerase 

TS 

Z » SH 

z.sc 

A 

R0562 

return  here  after  each 

INSTRUCTION. 

f 

A 

0563 

reedchk 

TS 

0564 

TX 

LRECYCLE 

* 

0565 

TIMES 

LA 

Z.R7 

DEC853 

0566 

WA 

TIME1 

ONE 

4 

0567 

SWE.ONE 

TIME1 

14 

0568 

EX 

TIME1 

LOW  1 4 

0569 

WA 

T 1 

TIME2 

4. 

0570 

WA 

T1ME3 

ONE 

0571 

WO 

Z ,R7 

DEC852 

0572 

NA,SIGN 

TIME3 

SIGN 

w 

0573 

TX 

ZERO 

0574 

S»  MON  TYPER 

C,  + l 

SPRA  +8 

c 

0575 

alf 

T3RUPT 

z 

INSTR 


Z ,R  1 


OBEF 

EXERASE 

C , ♦ 1 

BRANCH  IF  ABOUT  TO  EXECUTE  FROM  E MeMRY. 

Tc 

CCS 

INDEX 

XCH 

0000 

0001 

0010 

0011 

TERMDUMP 

TeRmDump 

TERMDUMP 

TERMDUMP 

0100 

0101 

0110 

0111 

TERMDUMP 

MP 

DV 

5U 

1000 

1001 

1010 

1011 

cs 

Ts 

Ad 

mask 

1100 

1101 

1110 

mi 

flag  set  c 

set  fi ags  before  executing  from  e memry. 

editchk  c 

T 4 

editor 

timei 

T 1 

TIMEI 
TIME2 
TIME3 
Z ,R7 
EDITOR 

T IME3 
TERMDUMP 

SACO 
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P0576 

PROCEDURE 

FOR  TC 

(TRANSFER  control) • 

: 

0577 

TC 

T* 

N,R1 

0578 

T* 

Z 

- 

0579 

EX 

Z.Rl 

LOW  1 2 

0580 

TCI 

TX 

ONE 

- 

0581 

TS 

ZERO 

T4 

R0582 

PROCEDURE 

for 

CCS  (COUNT  COMPARE 

AND  SKIP). 

A 

0583 

CCS 

EX 

N.Rl 

160NES 

0584 

TX 

ONE 

m 

: 

0585 

NA, 

SIGN  A 

ZERO 

0586 

NA 

A 

ZERO 

: 

0587 

zerobr 

WA 

Z 

ONE 

0588 

WA 

ZDECR 

ONE 

1 

0589 

TS 

* 

0590 

DECBR 

wo 

A 

ONE 

i 

0591 

T5 

- 

0592 

NEGCCS 

WA 

Z 

TWO 

» 

I 

0593 

TX 

three 

m 

0594 

NA 

a 

I60N1ES 

1 

0595 

T^ 

ZERO 

A 

0596 

HA 

A 

160NES 

1 

0597 

T^ 

• 

- 
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1 

2 


INSTR2  2 

Q 

NEWZ 

Zdecr  2 

times 

2 


2 

A 

zdecr 

negccs  2 

C»*4 

2 

z 

zdecr 

REEDCHK  2 

A 

REEDCHK  2 

Z 

Zdecr  2 

C,  + 2 

Zerobr  2 

A 

DECBR  2 


2 

2 

2 

2 

2 

2 

2 

2 

2 


L 
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SB 

P0598 

procedure  FOk  INDeX 

(index  next 

INSTRUCTION) . 

• 

0599 

INDEX  EX 

N *Rl 

160NES 

0600 

ss 

z 

LOW  1 2 

0601 

T * 

z 

- 

0602 

WA 

N ,R3 

T 1 

0603 

swe*one 

DATA 

16 

0604 

WA 

T 1 

DATA 

t 

0605 

TS 

ONE 

ZDECR 

0606 

T A 

INSTR 

• 

0607 

EX 

DATA 

160NES 

I 

0608 

TS 

- 

- 

0609 

T* 

INSTR 

»• 

0610 

TX 

T 2 

- 

m 

A 

0611 

TS 

ZERO 

T4 

I 

R0612 

procedure  for  xch  (Exchange). 

I 

0613 

xch  na, flags 

INSTR 

zero 

0614 

EX 

N »R  1 

160nes 

I 

0615 

TS 

ONE 

ZdECR 

0616 

XCH1  TX 

N,R1 

- 

I 

0617 

LA i LOW  1 2 

INSTR 

TWO 

0618 

SWStUS 

A 

1 

1 

06182 

NA,  LOW  12 

INSTR 

TWO 

06184 

TX 

A 

- 

t 

06186 

TS 

DATA 

A 

0619 

TX 

A 

- 

* 

0620 

NA.L0W12 

INSTR 

LBAN4REG 

r 

0621 

EX 

N»R1 

banxmask 

% 

0622 

TX 

ONE 

w 

t 1 

0623 

TS 

data 

A 

f 


c 

c 


c 
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1 

9 


T 1 1 

Z,R3 

newz 

data  j 

T 1 

data 

editchk  c I 

T 2 

INSTR 

FLAGSET  C 1 

INSTRZ 

Instr 

times  • 

> 

XcHl  t 

A 

REEDCHK+1  ) 

data 

c,*g  1 


A 

j 

C » + 3 

newz 

TCI  0 

N,R1 

C,+2  ) 

N*R1 

ZDECR 

REEDChK 


) 


J 


J 


* 


jr 

L 
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* 

P0624 

PROCEDURE 

For  CS  (CLEAR 

AND  SUBTRACT). 

A 

0625 

CS 

HA 

N.Rl 

160MES 

0626 

TX 

ONE 

- 

: 

0627 

TS.160NES 

DATA 

A 

x 

R0628 

procedure 

FOR  Ts  (TRANSFER  TO  STORAGE) 

• 

0629 

ts 

TX 

ONE 

- 

t 

4 

0639 

TX 

A 

- 

0640 

LA, LOW  12 

INSTR 

TWO 

A 

4l 

0641 

sws.us 

NEWZ 

1 

0642 

NA,L0W12 

INSTR 

lbankreg 

X 

0643 

E* 

NEWZ 

bankmask 

0644 

S^E  * L0W2 

A 

14 

1 

0645 

TS 

- 

m 

0646 

TS 

ONE 

A 

0647 

TS 

NEGONF 

A 

( 

0648 

TSZ  CHK 

NA,  LOW  12 

INSTR 

TWO 

06482 

T5 

ZERO 

T4 

06484 

TS 

NEWZ 

N.Rl 

I 

0649 

T5  SKIP 

WA 

z 

ONE 

0650 

TS 

TuO 

ZdECR 

r 


r 


l 

r 

r 


> 


\ 
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Data 

zdecr 

REEDCHK 


zdecr 

newz 

C , +4 

newz 

C,*2 

newz 

c,+i 

T $Z  CHK 
TS  SKIP 
TS  SKIP 
C » + 2 
times 
Reedchk 

z 

TSZ  CHK 


» 

) 

J 

) 

- 

J 

• 

1 

1 

9 

1 

1 

t 

l 

> 

i 

J 

1 

I 

l 
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P0653 

PROCEDURE 

FOR  AD  (ADD) 

• 

065  A 

AD 

WA 

N.Rl 

A 

0655 

SWE  .ONE 

DATA 

16 

0656 

WA 

DATA 

A 

0657 

EX 

DATA 

160NES 

0658 

TX 

ONE 

- 

0659 

SSL  »L0W2 

A 

14 

0660  ‘ 

TS 

m 

„ 

0661 

TS 

ONE 

Tl 

0662 

TS 

NEGONE 

Tl 

0663 

TS 

- 

0664 

oyctrinc 

WA 

Tl 

OVCTR 

0665 

swe.one 

OVCTR 

16 

0666 

WA 

Tl 

OVCTR 

0667 

EX 

OVCTR 

160NES 

0668 

TS 

Z.R7.1 

- 

R0669 

PROCEDURE 

FOR  MASK 

(BOOLEAN  AND) . 

0670 

MASK 

EX 

N.Rl 

160NES 

0671 

EX 

DATA 

A 

0672 

TS 

ONE 

ZDECR 

R0673 

introduction  to 

PROCEDURE  for  5U 

(SUBTRACT ) . 

0674 

SJi  HA 

N.Rl 

160NES 

0675 

WA 

DATA 

A 

0676 

TS 

- 

- 

R0677 

PROCEDURE 

FOR  MP  (MULTIPLY) • 

0678 

MP 

TS 

ONE 

ZDECR 

0679 

BM 

A 

DATA 

0680 

TS 

- 

T2 

0681 

EX 

T 2 

LOW  1 4 

0682 

SWE  * LOW  14 

T 2 

14 

0683 

NA.SIGN 

Tl 

SIGN 

0684 

HA 

A 

160NES 

0685 

HA 

LP 

160NES 

0686 

TS 

- 
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PAGE 


DATA 

A 

data 

A 

ZdECR 

C,*l 


reedchk 

OVCTRINC 

OVCTRINC 

REEDCHK 

OVCTR 
T 1 

OVCTR 

OvCTR 

REEDCHK 


DATA 

A 

Reedchk*  1 


joins  procedure  for  ad. 

Data 

data 

ad*i 


sgnabs  c 

T 2 

LP 

A 

reedchk  +1 
A 

LP 

reedchk  *i 
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P0687  PROCEDURE  FoR  DV  (DIVIDE). 


0688 

DV 

TX 

N ,R  1 

- 

data 

0689 

TX 

ZERO 

- 

Ta 

0690 

HA, SIGN 

DATA 

A 

Ta 

0691 

sws«us 

U 

1 

ta 

0692 

SM 

ONE 

T A 

ta 

0693 

NA.SIGN 

DATA 

SIGN 

C , + 3 

069A 

NA.SIGN 

A 

zero 

C , + 2 

0695 

SS 

ZERO 

ONE 

ta 

0696 

Ti» 

ONE 

ZDECR 

sgnabs 

0697 

LA.L0W16 

DATA 

A 

DVOVF 

0698 

SWEfDVMSX 

DATA 

30  * L 

Data 

0699 

SWE  tDVMSK 

A 

30  * L 

a 

0700 

BU 

DATA 

A 

T 3 

0701 

EX 

T 3 

DVMS< 

T 3 

0702 

BM 

T3 

DATA 

T 2 

0703 

EX 

T 2 

SIGNCLIP 

T 2 

070A 

wu 

A 

T 2 

T2 

0705 

SWE*L0W1A 

T 2 

16 

Q 

0706 

HA 

Q 

160NES 

Q 

0707 

SWE»L0W19 

T 3 

30 

A 

0708 

TX 

TA 

» 

LP 

0709 

NA.SIGN 

T 1 

SIGN 

Reedchk  +1 

0710 

HA 

A 

160NES 

A 

0711 

TP 

- 

o 

reedchk  +i 

0712 

D*/  OVF 

S*  MON  TYPER 

C,  + l 

SPRA  +8 

TeRMDUMP 

0713 

alf 

DlV  OvF 

!071A 

subroutine  Tu  GeNeRAte 

SIGN 

AND  ABSOLUTE  YaLUe  0^ 

AN  OPERAND. 

0716 

SGNABS  EX 

N ,R  1 

160NES 

data 

0717 

SWs*US 

DATA 

1 

data 

0718 

SWStUS 

A 

1 

a 

0719 

HA 

A 

DATA 

Tl 

0720 

NA.SIGN 

DATA 

SIGN 

C , + 2 

0721 

HA 

DATA 

160NES 

data 

0722 

NA.SIGN 

A 

SIGN 

C , + 2 

0723 

HA 

A 

160NES 

A 

072A 

TX 

_ 
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USeD  BY  MULtIPIY  AND  DIVIDE. 

c 

c 

c 

c 

c 

c 


c 
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1 

P0725 

procedures 

to  simulate 

THE  ACtIoN  OF  editing 

REGISTERS. 

W 

• 

0726 

eoitchk 

NA, FLAGS 

instr  zero 

C,*2 

C 

1 

0727 

TX 

- 

- 

FAST  fXIT  WHEN  NO  EDITING  REGS 

involved. 

* 

0729 

NA.EBIT 

INSTR  ZERO 

C.-l 

C 

3 

0730 

NA,LPbIT 

INSTR  ZERO 

LPCYCLE 

C 

BRANCH  WHfN 

OPERAND  IS  i P. 

» 

0732 

SSL  *L0W9 

INSTR  2.L 

C.  + l 

C 

1 

> 

1 

R0733 

PROCEDURE 

TO  SIMULATE 

cyr  (cycle  right) • 

0739 

CYRCYCLE 

SWs.SIGn 

CYR  1 5 * L 

CYR 

C 

) 

0735 

SWS  « LOW  1 5 

CYR  1 

cyr 

C 

- 0736 

PR 

> 

0737 

PK 

t 

) 

R0738 

PROCEDURE 

TO  SIMULAIE 

SR  (SHIFT  RIGHT) • 

r 

3 

0739 

SRCYCLE 

SWs i LOW  19 

SR  1 

sr 

r 

3 

R07^0 

procedure 

TO  SIMULATE 

lp  (low-order  product 

register) • 

: 

0791 

LPCYClE 

SWS.SIGN 

LP  15  «L 

LP 

c 

3 

0792 

SWS  »LOW  1 5 

LP  1 

LP 

c 

c 

0793 

ss 

ZERO  BIT19 

LP 

3 

c 

R0799 

PROcEdUKE 

TO  SIMULATE 

CYL  (CYCLE  LEFT)  . 

3 

c 

0795 

CYLCYCLE 

SWS  * LOW  1 5 

CYL  l.L 

CYL 

c 

3 

0796 

SWS  .ONE 

CYL  15 

CYL 

c 

0797 

SWS.SIGN 

CYL  l.L 

CYL 

c 

0798 

PR 

3 

c 

R0799 

PROCEDURE 

TO  SIMULATE 

SL  (SHIFT  LEFT)  . 

3 

0750 

SLCYCLE 

SWs  * LOW  19 

SL  1«L 

SL 

c 

3 

0751 

SWS  .ONE 

SL  19 

SL 

3 


3 

3 

3 


u 

P0752 

R0754 

R0756 

R0758 

R0760 

«0762 

Ro764 

R0766 

r0768 

R0770 

R0772 

R077A 

R0775 

R0776 

R0778 

R0780 

R0782 

R078A 

R0786 

R 0 7 8 7 
R0789 
«0791 
R0793 
R0795 
R0797 
R 0 7 9 9 
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editor  routine  to  prepare  printed  oJtrJt.  this  part  detects  t^e  occurrence  of  infinite  loops.  tRe 

binary  OUtPUI  OF  a 1 raced  INSTRUCTION,  nine  SACO  WORDS , IS  CONDENSED  INTO  three  CAC-WORDS.  a buffer  of  FOUR- 
WORD  items  is  maintained,  where  the  first  three  words  are  a triple  of  cac-words  For  a line,  and  the  fourth  is 
A CAC-WORD  containing  A THREAD  to  the  NeXT  item  (IN  ORDeR  OF  PRINTING)  IN  CAC2,  AND  A THREAD  TO  THE  NeXT  ITEM 
WITH  the  SAME  VALUE  OF  Z IN  CAC3  (OR  Zero  IF  NONE).  BANKS  8 and  9 CONTAIN  SPfCS,  each  pointing  to  the  EARLIEST 
item  in  the  buffer  with  the  corresponding  value  of  z.  by  "value  of  z"  here  is  meant  biz>,  i.e,  the  location, 

AN  INDICATOR  is  K£Pl  IN  StARt  ADR  SHOWING  WHetHer  A LooP  PAtterN  IS  IN  A StAtf  OF  PARTIAL  COMPLETION.  JP  TO 
pOuR  pointers  are  kept  (pointfRs  are  specs  pointing  to  items  in  the  bufffR).  the  two  that  are  always  kept  are 
»in  PtR",  pointing  to  the  next  item-slot  to  be  filled  and  «out  ptR»  pointing  to  the  npxt  Item  to  be  printed, 

WHeN  A Loop  PATTERN  is  IN  process,  "PAT  PtR"  POINTS  to  THe  first  item  IN  the  PATTERN,  AND  X3,  the  comparison 
pointer'  points  to  the  item  with  which  the  next  incoming  line  is  to  be  comparfd.  the  strategy,  with  and  without 

A PATTERN  IN  PROCESS,  is  AS  FOLLOWS: 

C!\Se  li  No  PATTERN  (CISTART  ADR)  NOT  ALL  ONeS) 

IF  THREAD  in  BKS  8-9  IS  VOID,  THREAD  It  tO  A NpW  ITEM  FORMED  FROM  THIS  Line* 

IF  NON-VOID,  thread  THROUGH  items  WITH  Same  b<zj  AS  this  line,  LOOKING  for  a 3-WORD  mAtCH. 

IF  NONE,  THREAD  last  ITEm  EXAMINED  to  a NEW  ITEM  FORMfD  From  this  line, 
if  found,  set  pat  PtR  and  x3,  discard  this  line,  and  set  start  adr  to  ail  ones. 

if  match  was  with  preceding  line,  indicate  tCa  trap  and  arort. 

CASE  2!  PATTtRN  IN  PROCESS  (C(START  ADR)  IS  ALL  ONES) 

COMPARE  THIS  LINE  WItH  EXISTING  item  ACCORDING  to  X3  (THe  COMPARISON  PoINTER>  • 
if  it  matches,  see  If  match  was  with  the  last  non-repeating  line. 

IF  so,  tHe  SIMULATED  PROGRAM  is  in  an  infinite  loop,  AND  tHe  run  is  ABORTED. 
if  not » index  the  Comparison  pointer  and  discard  the  currfnt  line. 

IF  NO  MAICH,  THE  PATTERN  IS  BROKEN.  USING  PAT  PTR  AND  X3,  FEED  ALI  REPEATED  LINES  INTO  THE  BUFFER, 
THREADING  according  TO  LOCATION  but  not  CHpCKlNG  FoR  DUPLICATES.  RESET  START  ADR  ]0  ZpRo  AND 
RESUBMIT  THIS  LINE. 
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0800 

EDITOR 

T* 

IN  PTR 

Z,X1 

AN  I T fM-SLOT  IS  ALWAYS  AVAILABLE  HERE. 

0802 

WD,  LOW  12 

z 

ZDECR 

LOCATION 

0803 

T* 

A 

- 

N,X1 

0804 

SWS.  CAC2 

INSTR 

16 , L 

N ,X  1 

0805 

SWSt  CAC 1 

Location 

32. L 

N,Xl , 1 

FORM  FIRST  CAC-WORD. 

Q807 

TX 

LP 

N.Xl 

0808 

SWs*  CAC^ 

N.Rl 

1 6 * L 

N.Xl 

(D  AFTER) . 

0810 

SWS.  CAC 1 

D BfF 

32, L 

N.Xl.i 

FORM  SECOND  CAC-WORD. 

0812 

TX 

TIME3 

_ 

N ,X  1 

0813 

5WS.  CAC2 

OVCTR 

16  , L 

N ,X  1 

0814 

SWS.  CAC 1 

Q 

32, L 

N , X 1 

FORM  THIRD  CAC-WORD. 

0816 

TN 

POINTERS 

2 

Z , X 1 

IN  PTR  TO  XI.  OUT  PTR  TO  X2. 

0818 

La 

ONES 

start  adR 

PATTERN 

branch  if  There'S  a pattern  in  process. 

«0820 

PROCEDURE  ' 

TO  LOOK  FOR 

a match  when 

no  pattern  is 

in  Process. 

0821 

NO  PAteRN 

WA 

Bank  8 M3 

location 

Z,X3 

Let  3,3  5 INITIAL  THREAD  FOR  this  BIZ). 

0823 

NOT  MATCH 

LA,  CAC3 

3*3 

zero 

No  match 

BRANCH  IF  NO  MATCH  IN  WHOLE  BUFFeR. 

0825 

TX 

3,3 

- 

Z,X3 

THREAD  TO  ITEM  WITH  THIS  B(Z). 

0827 

NA 

N.Xl 

N,X3 

Not  MATCH 

0828 

NA 

1,1 

3,1 

not  match 

0829 

NA 

1,2 

3,2 

not  match 

BRANCH  IF  NO  MATCH  ON  THIS  ITEM. 

0831 

TX 

Z ,X3 

pat  ptr 

pattern  begins  now,  set  pat  ptr. 

0833 

T15 

ONES 

start  adr 

loop  chek 

set  pattern  signal,  check  one-order  lup. 

0835 

NO'  MATCH 

SS 

Z,X1 

CAC3 

3,3 

store  location  thread  Tn  this  item. 

0837 

Ts 

L GOGO  PI 

Z , S3 

Aov  in  ptr  +1 

advance  input  pointer,  maybe  printing. 

L 
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SIMULATORS  - 
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P0839 

procedure 

WHEN  A PATTERN  IS  IN  A 

state  of  part i > 

08  AO 

PATTERN 

NA 

N ,X  1 

N,X3 

08  A 1 

NA 

1,1 

3,1 

08A2 

NA 

1,2 

3,2 

08AA 

LOOP  CHEK 

NA 

z,x3 

last  ptr 

08A6 

T* 

zero 

- 

08A8 

T * 

PAT  PTR 

- 

08A9 

SM 

3,3 

CACl 

0851 

S'  MON  TYPER 

w looping 

SPRA  +8 

0852 

CONTINUE 

SWe,  CAC3 

3,3 

16 

085A 

NA 

TA 

zero 

0855 

WA 

NEWZ 

ONE 

0856 

T5 

INSTR2 

INSTR 

0857 

break  pat 

tn 

N,Xl 

3 

0859 

TN 

print  lim 

2 

0861 

T* 

pat  ptR 

- 

0863 

R=T  LINES 

TN 

N , SO 

3 

0865 

TS 

Z , SO  , 3 

Z.X5 

0866 

T X 

5,3 

- 

0867 

NA,  CAC3 

5,3 

ZERO 

0868 

ss 

Z.Xl 

CAC3 

0870 

TP 

Zero 

start  adr 

0872 

SWe,  CAC3 

N , SO 

16 

087A 

NA 

Z,SO 

Z,X3 

0876 

LA 

ONES 

hold  line 

0878 

TN 

HOLD  LINE 

3 

0880 

TP 

print  lim 

-1  PRINT  LIM 

Completion. 

break  pat 
break  pat 
Break  pat 

Continue 
5tART  ADR 
Z,X3 

3.3 

TeRMDUMP 
Z , X3 

Recycle 

z 

RECYCLE2 

Hold  line 
print  lim  -1 
z,s0 

N ,X  1 

C , +2 
Z ,X5 
C,-l 

5.3 

adv  in  ptr 
Z,SO 

RPT  LINES 
END  PRINT 
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BRANCH  IF  PATTERN  IS  NOw  BROKEN. 

branch  if  loop  not  closfd  yet. 
clear  PATtERN-IN-PRoCeSs  INDICATOR. 

FLAG  BEGINNING  OF  INFINITE  LOOP. 

INDEX  COMPARISON  POINTER  TO  NeXT  ITEM. 


SAVE  THIS  LINF  WHILe  BRpAK ING  UP  PATERN. 
SAVE  AND  DISABLE  PRINT  I IMlT. 
point  to  beginning  of  pattern. 

re-fefd  repeated  line* 


store  location  thread  to  re-fed  line. 
Reset  pattern  signal,  advance  in  ptR. 
advance  Re-feeding  pointer. 

BRANCH  IF  MORE  ITEMS  10  REPEAT. 

BR  IF  called  BY  TERMDUMP,  not  pat  BREAK. 


N,xi 

NO  PATERN 


restore  this  line. 

re-surmit  this  line  for  matching 


* 


m 

L 

YJL 

SYSTEM 
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- SACO 

# 
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% 

P0882 

EDITOR  CONTINUED*  THIS 

part  is  a subroutine  to  advance 

IN  PtR,  if  tHF  RESULTING  Vai  ue  equals  that 

w 

R0884 

OR 

out  Rtr 

» THE  BuPFER 

IS  FlJLl  (THIS  IS  THe  NORMAL 

case  AFTER  THe 

First 

300  lines  or  thereabouts).  a line  is 

t 

R0886 

PJSHeD  out 

qF  tHe  BUFFER  ACCORDING 

TO  OUT  PtR, 

and 

oUt  PtR  IS  ADVANCED, 

THe  IQCAtIoN  THREAD  For  tHe  LINf  is 

) 

R0888 

SfWN  UP  AROUND  IT.  IF 

THe  TRaCe  IS 

ON,  THe  FOLLOWING  QUANTITIES  ARe  PRINTED; 

t* 

Rq89o 

location  , 

ALPHA-OP-CODe 

adcrfss  a 

BIX)  A(X) 

lp 

Q OVCTR  T 3 ’ 

and 

(if  appropriate)  "infinite  loop". 

• J 

R0892 

FOR 

each  quantity  except  "INFINITE 

LOOP",  ditto 

mar 

KS  ARe  PRINTED 

IF  APPROPRIATE,  Except  At  THe  top  of  a page. 

w 

R0894 

for 

ANY  FLIP-FLoP  RtGISTER  CONTAINING  OVERFLOW, 

THE 

OVeRFLOW-CORReCteU 

CONTENTS  are  shown,  PReCfDeD  by  a blot. 

) 

0896 

AO  V 

IN  PTR 

TX 

Z * SH 

- 

Z ,S3 

I 

0897 

TX 

Z,Xi 

- 

last  ptr 

point  to  last  new  LINE  ACCEPTED. 

) 

0899 

S«E*  CACS 

1,3 

16 

in  ptr 

ADVANCE  IN  PTR. 

0901 

TX 

IN  PTR 

- 

Z , X 1 

KEEP  TN  PTR  IN  Xi  ALSO. 

0903 

na 

Z,Xl 

OUT  PtR 

N , S3 

fast  fxit  until  buffer  fills  up. 

> 

0905 

LA 

2*3 

CAC 1 

C , + 2 

0906 

TN 

W INp  LOOp 

2 

next  line  +io 

do  THIS  where  L°UP  BEGINS. 

) 

0908 

SW£,  CAC3 

N,X2 

32 

EDIT  WD 

recovfR  location. 

0910 

WA 

banks  M3 

EDIT  WD 

Z,X5 

LET  5,3  = INITIAL  LOCATION  THREAD. 

0912 

NA,  CAC3 

5,3 

OUT  PTR 

C , + 2 

) 

0913 

TS,  CAC3 

2,3 

5,3 

C,  + 2 

DELETF  THIS  LINE  FROM  LOCATION  THREAD. 

0915 

TS 

5,3 

Z,X5 

C ,-2 

c 1 

0916 

ss 

Zero 

CAC3 

2,3 

clear  LOCATION  thread  In  item. 

) 

0918 

CHANGE  Q 

WA 

bANK  8 

EDIT  WD 

Z »X5 

r 

0919 

NA,  cHANGMSK 

5,0 

loc  flag 

C,+A 

BRANCH  If  no  TRAcE  change  on  LOCATION. 

) 

0921 

HA 

LoC  FLAG 

BiB2 

LoC  FLAG 

change  criterion  For  change  on  location. 

0923 

NA 

CHANG  MSK 

ON 

N OMITTED 

branch  if  changing  off  to  on. 

C 

0925 

TS 

OFF 

CHANG  MSK 

Set  up  lin 

CHANGf  on  to  OFF  but  print  this  INStR. 

) 

0927 

SWS*  LOW  12 

N ,X2 

16 

Z ,X5 

0928 

LA,  CHANGMSK 

ONES 

5,0 

C,-4 

branch  if  trace  change  on  address. 

© 

) 

0930 

OFF 

test 

NA 

CHANG  MSK 

OFF 

Set  up  lin 

branch  IF  TRACE  is  ON. 

0932 

DA 

trace  off 

ONE 

TRACE  OFF 

STEP  COUNT  OF  UNtRACeD  INSTRUCTIONS. 

r 

V. 

0934 

SWe*  CAC3 

2,3 

16 

OUT  PTR 

ADVANCE  OUT  PTR  AND  SAMf  IN  X2. 

) 

0936 

TS 

OUT  PTR 

Z,X2 

N , S3 

QUICK  EXIT  WHEN  TRACE  Is  OFF. 

0 

0938 

N OMITTED 

LA 

trace  off 

zero 

Set  up  lin 

when  it  really  wasn't  off  at  all. 

) 

0940 

SWE*  ONES 

TRACE  Off 

D , 4 , l 

MON  ARG 

0941 

TS 

z,sc 

Z,AJl 

YUL  D2A  ZS 

EDIT  TRACf-OFF  COUNT  FOR  PRINTING. 

0 I 

0943 

MON 

arg 

RESERVE 

1 

) 

0944 

Ml 

N , SH  ,2 

2 

omit  msg  +2 

0949 

TS 

BLANKS 

line 

END  page  +1 

c 

GENERATE  blank  line. 

0 

0951 

T15 

Z , S3 

CHANG  MSK 

end  print  *2 

c 

SAVE  RETURN,  SET  SP1. 

J 

0953 

TN 

OMIT  MSG 

5 

line  +io 

0954 

Tb 

z,sc 

Z , S3 

print  lin 

print  no.  of  untraced  instructions. 

o I 

0956 

TX 

CHANG  MSK 

- 

Z,S3 

RECOVFR  RETURN  ADDRESS. 

.) 

0958 

T* 

ON 

- 

CHANG  MSK 

TURN  ON  THE  TRACE. 

0 

0960 

TX 

ZERO 

Trace  off 

) 

c , 3 

C J) 

) 


L 
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P0961  PROCEDURE  TO  SEt  UP  A TRACE  LINE  IN  PRINT* 


0962 

0964 

0965 

SET  UP  LIN  S.  0CT2ALEa 
SWE*  LOW A 

WA 

edit  wd 

N,X2 
T 1 

28 

OP  ALF 

0966 

0968 

0969 

TX 

SWE.  CAC3 
S*  0CT2ALF4 

N.AUi 
N,X2 
EDIT  WD 

16 

0971 

S»  0CT2ALF5 

2,0 

0973 

SWE*  CAC3 

2,1 

32 

0974 

0976 

0977 

S*  0CT2ALF5 
SWE*  CAC3 
S*  0CT2ALF5 

EDIT  wD 
2,1 

EDIT  WD 

16 

0979 

S*  0CT2ALF5 

2,1 

0981 

SWE*  CAC3 

2*2 

32 

0982 

0984 

0985 

S*  0CT2ALF5 
SWE*  CAC3 
S*  OCT2ALF5 

EDIT  wD 
2,2 

EDIT  WD 

16 

0987 

S*  OCT2ALF5 

2,2 

0989 

SWE*  CAC3 

2*3 

16 

0991 

0993 

TX 

LA 

OuT  PTR 

line  cnt 

FIFTY 

USER'S  OWN  PAGE  NO.  26 


PAGE  55 


NeXT 

Tl 

Z.AUl 

line 

edit 

1 OCArlON. 

NeXT 

line 

♦ 1 

SUPPLY  alphabetic 

OP 

CODE. 

edit 

WD 

NeXT 

line 

+ 2 

edit 

ADDRrSS  paRt 

OF 

INSTRUCTION 

NeXT 

LINE 

+ 3 

edit 

CIA)  . 

edit 

WD 

next 

LINE 

♦ 4 

EDIT 

R (X)  . 

edit 

WD 

next 

LINE 

+ 5 

EDIT 

A IX)  . 

next 

LINE 

♦ 6 

EDIT 

C(LP) . 

edit 

WD 

next 

line 

+ 7 

EDIT 

C (Q)  . 

edit 

WD 

NeXT 

LINE 

♦ 8 

EDIT 

C(OVCTR) . 

next 

LINE 

+ 9 

EDIT 

CIT3) . 

out  ptR 

ADVANCE  OUT  PTR, 

Z,X2 

ALSO 

keep  IT  IN  X2 

Print 

BRANCH  if  not  end 

OF 

page. 

L 

p0995 

YJL  SYSTEM 
AT  END  OF 

SIMULATORS  — 
page,  print  A 

■ SACO 

BLANK  line  and  SKIP.  then 

print  head 

AND 
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subhead. 

0997 

END  PAGE 

TN 

SKIP 

2 

line  -i 

SKIP-CODE  AND  BLANK  WORD. 

0999 

TN 

LINE 

14 

LINE  +1 

generate  blank  line. 

10002 

S*  MON  PRINT 

DEPAGIN8 

1001 

S ♦ MON  PRINT 

LINE  -1 

SKIP  TO  HfAD  OF  FORM. 

1003 

S*  MON  PRINT 

S I ML  HEAD 

PRINT  PAGe  HEAD. 

1005 

Ort 

PAGE  NO 

ONE 

page  no 

1006 

SS 

PAGE  NO 

Di2 

SIMU  HEAD 

♦ 15 

store  INCREASED  page  NUMBER. 

. 1008 

NA,  CHARb 

S I MU  HEAD  +15 

zero 

C , + 4 

branch  IF  no  change  IN  tens  digit. 

1010 

SWS*  ACH7 

PAGE  NO 

2 ♦ L 

S I MU  HEAD 

+ 15 

SET  UP  changed  Tens  DIGIT. 

1012 

NA,  CHART 

S I MU  hEAD  +15 

ZERO 

C , + 2 

branch  if  no  change  IN  HUNDREDS  DIGIT. 

1014 

SWS,  CHAR6 

page  no 

4*L 

Si MU  head 

♦15 

set  up  changed  hundreds  digit. 

1016 

RESET  lc 

T* 

ONE 

- 

line  cnt 

1017 

S*  MON  PRINT 

SUB  HfAD 

print  Column  headings. 

1019 

PRINT 

TN 

PRIN  SPeX 

2 

z,si 

SPECS  FOR  line  +3  AND  NeXT  LINE  +3. 

1021 

DlTO  LOOP 

Na 

N*s2 

N*S1 

not  same 

BR  if  this  WD  n°  MATCH  sAME  IN  LAST  Lin. 

1023 

WA 

Z,S2 

twelve 

Z»AUl 

here  THIS  WD  IN  LAST  LINE  NOT  A DITTO. 

1025 

tp 

N,S1,1 

N,AJi 

put  ditto 

SAVE  REPEATED  WORD  FOR  1 ATER  COMPARISON. 

1027 

not  same 

NA 

N,S1,1 

ditto 

put  ditto 

♦1 

BRANCH  UNLESS  NO-MATCH  CAUSED  BY  DITTO. 

1029 

WA 

Z,S2 

twelve 

Z , AU 1 

1030 

NA 

N,S2 

N.AJi 

put  ditto 

+ i 

BRANCH  IF  DITTO  PATTERN  BREAKS  NOW. 

1032 

PJT  DITTO 

tx 

ditto 

- 

n,s2 

SUPPLY  INITIAL  OR  CONTINUED  DITTO. 

1034 

IMA 

Z , s2  ♦ 1 

PRIN  SPEX  +2 

DITO  LOOP 

DO  This  For  RIGHT-HAND  SEVEN  fields* 

1036 

TN 

NEXT  1 INE  -1 

16 

line  -i 

1037 

PRINT  LIN 

S * MON  PRINT 

LINE  -1 

1038 

WA 

LINE  CNT 

ONE 

LINE  CNT 

1039 

DA 

TASK  LINS 

ONE 

TASK  LINS 

count  print  lines  in  task. 

1041 

LA 

TASK  1 INS 

PRINT  LIM 

N,S3 

return  if  not  too  many. 

1043 

LA 

CHANG  MSK 

CAC  3 

N , S3 

RETURN  IF  LINE  is  "TRACf  OFF"  TYPE. 

1045 

S*  MON  TYpER 

W PENT  MAX 

SPRA  +8 

TERMDUMP 
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P10A6 

subroutine 

TO  CONVERT 

LOW-ORDER  BITS  TO 

5 ALPHA-OCTALS 

(CHECKING  FOR  OVERFLOW).  16  1 0W-0RDER  BITS  At 

R10A8 

A ARE  MADE 

into  A RIG 

HT-JUSTIFIeD 

ALPHA  WORD  AT  C, 

10A9 

0CT2ALF5 

simulate 

1050 

SSL,  L0W2 

N,AU1 

1 A 

blot  chek 

C 

TEST  FOR  OVERFLOW  IN  OPfRAND. 

1052 

OV  CORECT 

sws,  US 

N,AUl 

1 

N.AUl 

C 

CORRECT  IT  IF  REQUIRED. 

1 05A 

SWs.  MSK5 

N«ALl 

12  *L 

N.AU2 

c 

SET  UP  HIGH-ORDER  DIGIT- 

1056 

A DIGITS 

SWS,  MS<A 

N.AUl 

9,L 

N.AU2 

c 

1057 

SWS,  MSK3 

N,AU1 

6 , L 

N , AU2 

c 

1058 

SWSt  MSK2 

N.AUl 

3,L 

N.AU2 

c 

1059 

ss 

N.AUl 

OCT  7 

N,AU2 

SET  UP  LOWER-ORDER  UIGItS,  RETURN. 

R 106 1 

similar  subroutine  for 

12  LOW-ORDER 

DIGITS  INTO  A ALPHA-OCTALS. 

1062 

1063 

0CT2ALF4  SIMULATE 

TS 

BLANK  1TA 

N , A J2  A DIGITS 

C 

R106A 

FOUR 

ANSWERS  to 

OVERFLOW  CHECK  IN 

0CT2ALF5. 

1065 

BLOT 

CHEK  . TS 

BLANK  1 T3 

N , A J2 

OV 

CORECT 

+ 1 

C 

1066 

TS 

OVF  61  0T 

N.AJ2 

OV 

CORECT 

C 

1067 

TB 

OVF  Bl  OT 

N , A J2 

OV 

CORECT 

C 

1068 

TS 

BLANK  1t3 

N , A J2 

OV 

CORECT 

♦ 1 

c 

L 

vjl  system 

simulators  - 

- SACO 

USER'S  OwN  PAGE  NO.  29  PAGE  5a 

P 1 069 

TERMINAL  DUMP  PROCEDURE 

, USeD  WHeN  a 

properly  started 

RUN 

ENOS  FOR  ANY  ReASON.  GIVes  tHe  CAUSE  OF 

R 107 1 

TERMINATION  and  DUMPS  LOCATIONS  0000-1777  ON  FOUR 

pages. 

1072 

MON  TYPER 

simulate 

1073 

Tb 

N,AUl 

CaJSE 

c,+i 

SUPPLY  CAUSE  FOR  PRINTING. 

10742 

TERMDJMP 

S*  YUL  TYPER 

CAUSE 

AA  +1 

C,*l 

1075 

TS 

OFF  TFST 

CHANGE  0 

+ 1 

mon  wake 

c 

LOCK  TRACf  ON. 

1077 

TN 

W CORONER 

2 

NeXT  LINE  +13 

LABEL  CORONER'S  REPORT  AS  SUCH. 

1079 

TS 

ONES 

HOLD  LINE 

break  pat  +1 

c 

disabie  Local  print  limit. 

1081 

la 

ONES 

Start  a^r 

break  PAT  +2 

BREAK  PARTIAL  PATTERN  I F ANy. 

1083 

END  PRINT 

na 

OUT  PTR 

in  ptr 

ADV  IN  ptr 

1084 

NA 

OUT  PTR 

last  ptr 

AdV  in  ptr  *2 

EMPTY  out  TRACE  line  bUFFER. 

1086 

T* 

SP1 

_ 

LINE  -1 

1087 

TS 

BLANKS 

LINE 

end  page  +1 

c 

1088 

S * MON  PRINT 

LINE  -1 

leave  a blank  line. 

1090 

T* 

SKIP 

- 

LINE  -1 

1091 

TN 

CAUSE 

7 

Line  +2 

STATE  CAUSE  AND  ANNOUNCf  DUMP. 

1093 

TX 

BANK  2 

- 

Z,X3 

1800  ADDRFSS  OF  SACO  ADDRESS  0000. 

1095 

TS 

C,  + l 

RESET  lc 

END  PAGe  +2 

CHANGf  RETURN  FROM  PAGE  HeAD  PRINT. 

1097 

TS 

eight 

Z,Sl 

c,n 

set  number  OF  4-LINE  groups  per  page. 

1099 

TS 

SP1 

LINE  -1 

end  page  +1 

c 

1100 

4 LINES 

TS 

four 

ZtS2 

C,  + 2 

SET  NUMBER  OF  LINES  PER  BUNCH. 

1102 

1 LINE 

S»  MON  PRINT 

line  -i 

1103 

WD 

PRIN  SPEX 

ONE 

Z.X5 

FORM  SPEC  LINE  *2. 

1105 

TX 

ZiX3 

- 

EDIT  WD 

1106 

S*  0CT2ALF4 

EDIT  WD 

LINE 

EDIT  ADDRfSS  OF  1ST  WORD  OF  a on  a line. 

1108 

1 WORD 

S * OCT2ALF5 

3,0 

5,0 

EDIT  A WORD  OF  ERASABLE  MeMORY. 

1110 

NA 

N,X5 

BLANK  1 T 3 

C,  + 2 

1111 

TX 

Zero  c6 

- 

N,X5 

replace  zero  word  with  a lone  zero. 

1113 

LA 

SPEC  1777 

Z,X3,l 

last  line 

BRANCH  IF  LAST  WORD  EDITED. 

1115 

NA 

Z,X5,i 

PRIN  SPEX 

♦ 3 

1 WORD 

1116 

NA 

Z,52  1 1 

ONE 

1 LINE 

BRANCH  IF  NOT  LAST  LINE  OF  BUNCH  OF  4. 

1118 

TX 

SP2 

' - 

line  -1 

1119 

S'  MON  PRINT 

LINE  -1 

1120 

LA 

Z , SI , 1 

ONE 

END  PAGE 

1121 

TS 

SP1 

LINE  -1 

4 LINES 

GO  TO  PRINT  NEXT  FOUR  LINES,  SAME  PAGE* 

1123 

LAST  LINE 

TX 

Skip 

- 

line  -1 

11231 

S»  MON  PRINT 

DEPAGIN8 

1124 

S'  MON  PRINT 

LINE  -1 

1125 

TX 

yul  masks 

- 

Z.MXR 

1126 

St  YUL  TYPER 

END  SI  MSG 

AMTF  +2 

MANUF  rtn 

TYPE  "END  SIMULATION",  fXIT. 

1128 

MASK  LOC 

modloc 

64 

END 

OF  REVISION 

1 OF  PROGRAM 

yulsimul  by 

HB-S 

SYMBOL  TABLE  LISTING*  INCLUDING  Pa6l  nUMBeR  OF  DEFINITION,  AND  NUMBeR  OF  ReFeReNCeS  WITH  FIRST  AND  LAST  PaGe  NUMpggfs  59 
THERE  are  NO  SYMBOLS  IN  THIS  ASSEMBIY. 
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